QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
11天前
查看: 3324|回复: 4
收起左侧

[求助] lisp中的面域问题

[复制链接]
发表于 2008-7-1 09:20:39 | 显示全部楼层 |阅读模式 来自: 中国山西太原

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

您需要 登录 才可以下载或查看,没有帐号?注册

x
通过LISP语言作一图,再进行面域.问题如何取得面域后图形的对象" s) S3 X2 T7 n; I, A9 }2 P

6 `# R3 n* ^2 I! J2 a如用(command "circle"...........)画圆,用entlast命令可取得其对象名,此时再进行面域,对象名又是什么?如何得到?
发表于 2008-7-1 17:24:01 | 显示全部楼层 来自: 中国辽宁鞍山
我觉得应该还是Entlast 因为面域是新生成的对象

评分

参与人数 1三维币 +3 收起 理由
woaishuijia + 3 技术讨论

查看全部评分

发表于 2008-7-1 22:25:33 | 显示全部楼层 来自: 中国浙江宁波
以画一个正方形为例,然后生成面域:' Y4 _9 Y8 c( J( [
(command "line" "0,0" "0,100" ""
% e9 ?" A# ?# x(setq l1 (entlast))' ?% Z$ s9 i8 C% B6 A
(command "line" "0,100" "100,100" "")* N6 W3 s8 ]9 L9 a. D
(setq l2 (entlast))
# r4 B$ V4 P- a(command "line" "100,100" "100,0" "")7 a: A. B. c5 v7 G; [& G7 ?5 I* I
(setq l3 (entlast)), U  P) b, P3 B  u
(command "line" "100,0" "0,0" "")
( {& k. e* z, d/ Y% {2 k* B1 Y$ x(setq l4 (entlast))
$ I4 }0 g: m; E, d+ Y(command "region" l1 l2 l3 l4 "")
+ [2 {/ W* H5 W9 Z* x8 }5 o; L+ {6 c(setq en (entlast))' S& y. J7 ]; {; C
(entget en): B# V, f+ |8 V0 M
下面是执行完上面代码后得到的REGION对象的DXF组码,其属性都可以看到了
: B- |7 a# B' I! B, d- m((-1 . <图元名: 7ef01f98>) (0 . "REGION") (330 . <图元名: 7ef01f28>) (5 . "73") (100 , _( r! O' S% L6 U: A
. "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . : `  c4 p% Z3 A* e0 W. @
"AcDbModelerGeometry") (70 . 1) (1 . "mnmoo mh m mi          ") (1 . "ni . q2 q3 w5 W( a, k4 ^- r
^*+0;:,4 ^*+0\\^[ nh ^LR nmqoqnqfnj QK o  ") (1 . "n fqfffffffffffffffj:rooh
' t" ]/ c* e* ~+ V' U, y7 V: Cn:rono ") (1 . ">,27:>;:- {rn rn _nn mnmqoqnqfnj |") (1 . "=0;& {rn rn {rn {m 2 F2 Y, E1 I+ Y+ _
{rn {rn |") (1 . "3*2/ {rn rn {rn {rn {l {n |") (1 . ",7:33 {rn rn {rn {rn {rn 0 ^4 H& C2 W4 q6 K; Q6 a* f( n
{k {rn {m |") (1 . "9><: {rn rn {rn {rn {j {l {rn {i 90-(>-; ;0*=3: 0*+ |") (1
' Y  ^( `- g* W6 A2 V0 G- l' L# h( s* f. "300/ {rn rn {rn {rn {h {k |") (1 . "/3>1:r,*-9><: {rn rn {rn jo jo o o o n n
) `* q: P+ {  w8 H1 R8 v" ko o 90-(>-;@) V V V V |") (1 . "<0:;8: {rn rn {rn {g {f {rn {no -:-,:; {j {rn 6 r" E% m8 M: a/ t8 T1 H$ w' @
|") (1 . "<0:;8: {rn rn {rn {nn {h {rn {nm -:):-,:; {j {rn |") (1 . "<0:;8: {rn : Q" }$ h% N9 u( _% G3 _  D5 @* D
rn {rn {h {nn {rn {nl -:):-,:; {j {rn |") (1 . ":;8: {rn rn {rn {nk o {nj noo
* N! s, X' b; k+ E3 I8 ]{h {ni 90-(>-; _h *1410(1 |") (1 . "<0:;8: {rn rn {rn {f {g {rn {nh -:):-,:; {j ! `. i+ V$ M7 C) A
{rn |") (1 . ":;8: {rn rn {rn {ng o {nk noo {g {nf 90-(>-; _h *1410(1 |") (1 . 5 N2 T$ r% I: I, }& B
":;8: {rn rn {rn {nj o {mo noo {f {mn 90-(>-; _h *1410(1 |") (1 . "):-+:' {rn ' x1 M  U  H/ t. D( O3 G
rn {rn {no o {mm |") (1 . "):-+:' {rn rn {rn {no n {ml |") (1 . ",+->687+r<*-): ) I; j0 E2 @" L  }: q
{rn rn {rn o o o o n o V V |") (1 . ":;8: {rn rn {rn {mo o {ng noo {nn {mk   d  ?6 }8 i4 O3 _. m. [0 A
90-(>-; _h *1410(1 |") (1 . "):-+:' {rn rn {rn {nh n {mj |") (1 .
; {- K' c, a: B/ L5 P7 V",+->687+r<*-): {rn rn {rn noo o o rn o o V V |") (1 . "):-+:' {rn rn {rn {nl n , k5 I; Q/ a8 [6 I$ E9 b
{mi |") (1 . ",+->687+r<*-): {rn rn {rn o noo o n o o V V |") (1 . "/061+ {rn
7 d4 m( t$ c. {' g+ E8 Jrn {rn o o o |") (1 . "/061+ {rn rn {rn o noo o |") (1 . ",+->687+r<*-): {rn rn
# J  m/ Z+ ?" u  ^+ J) i{rn noo noo o o rn o V V |") (1 . "/061+ {rn rn {rn noo o o |") (1 . "/061+ {rn 1 Q+ M! U+ x' w' J5 V7 x% s. {
rn {rn noo noo o |"))
7 P% f/ L$ D! l/ [! z( ]- X% E1 U/ F- Z* w6 u+ n$ i* d* g2 e
[ 本帖最后由 sealive_leafage 于 2008-7-2 22:05 编辑 ]
 楼主| 发表于 2008-7-1 23:04:47 | 显示全部楼层 来自: 中国山西太原

回复 3# 的帖子

请问楼主:6 t% e: @! |. K  B" V' T

0 j/ f! d" N3 X$ m; r6 G% H6 c9 y我想知道面域后图象的名称等属性
发表于 2009-1-22 17:41:05 | 显示全部楼层 来自: 中国台湾
;;;选取"REGION" 物件改变座标系统! m0 S  [8 u; s* a
如果用entsel单选方式没有问题# D1 k+ j* _# i7 a8 _+ _
(command "ucs" "ob" (cadr (entsel))) ;;;针对"REGION" 物件
, z$ h/ r/ y/ A7 O/ Z: H(command "ucs" "ob" (entsel))        ;;;一般物件  s" c* `1 }9 a7 C

  i% F1 S% L9 N( ]9 ^如果用ssget多选方式有问题,该如何修正呢?
5 M3 a; e# a; \4 i5 v(setq ss (ssget '((0 . "REGION"))) i 0), J; K; t" A# m9 Z0 z8 w
(repeat (sslength ss)$ A" p4 E/ R! C7 C
     (setq ssn (ssname ss i)); I. |9 l" i  r$ @/ m+ H4 J
     (command "ucs" "ob" (CADR ssn))
6 Z$ Q* N" P1 k    (setq i (1+ i))
, B. p: ]& C, o+ U9 o ) ;;repeat
) c' m, R; J+ c# R. D7 c期盼高手指点,如何解决这个问题?
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表