lisp中的面域问题

抬头见喜

通过LISP语言作一图,再进行面域.问题如何取得面域后图形的对象

' \* v4 I" F, A# m4 S如用(command "circle"...........)画圆,用entlast命令可取得其对象名,此时再进行面域,对象名又是什么?如何得到?

maoyangmy

我觉得应该还是Entlast 因为面域是新生成的对象

sealive_leafage

以画一个正方形为例，然后生成面域：
1 G: h" X2 W6 G8 N. g(command "line" "0,0" "0,100" ""
0 G7 u% o, X% s, d(setq l1 (entlast))
% j5 e" L, O# i+ X* ^# @$ L# ^(command "line" "0,100" "100,100" "")
(setq l2 (entlast))
5 p* c. {1 h1 ^7 ^. p6 s(command "line" "100,100" "100,0" "")
) ?& S7 O3 Z* B3 S8 ?(setq l3 (entlast))
(command "line" "100,0" "0,0" "")
0 e* q" h- q5 Q8 Q(setq l4 (entlast))
(command "region" l1 l2 l3 l4 "")
(setq en (entlast))
4 [, x: ^, z( b" h, J(entget en)
下面是执行完上面代码后得到的REGION对象的DXF组码，其属性都可以看到了
((-1 . <图元名: 7ef01f98>) (0 . "REGION") (330 . <图元名: 7ef01f28>) (5 . "73") (100
. "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
"AcDbModelerGeometry") (70 . 1) (1 . "mnmoo mh m mi          ") (1 . "ni
^*+0;:,4 ^*+0\\^[ nh ^LR nmqoqnqfnj QK o  ") (1 . "n fqfffffffffffffffj:rooh
! U' c6 ?2 p  h8 ^n:rono ") (1 . ">,27:>;:- {rn rn _nn mnmqoqnqfnj |") (1 . "=0;& {rn rn {rn {m
6 E: {1 N/ w2 q' w{rn {rn |") (1 . "3*2/ {rn rn {rn {rn {l {n |") (1 . ",7:33 {rn rn {rn {rn {rn
{k {rn {m |") (1 . "9><: {rn rn {rn {rn {j {l {rn {i 90-(>-; ;0*=3: 0*+ |") (1
. "300/ {rn rn {rn {rn {h {k |") (1 . "/3>1:r,*-9><: {rn rn {rn jo jo o o o n n
; |$ e* y) d, \7 Q4 l% |! A! Eo o 90-(>-;@) V V V V |") (1 . "<0:;8: {rn rn {rn {g {f {rn {no -:-,:; {j {rn
2 a7 \- N6 b  W|") (1 . "<0:;8: {rn rn {rn {nn {h {rn {nm -:):-,:; {j {rn |") (1 . "<0:;8: {rn
: L5 t0 T+ Z; Q; A* _* }rn {rn {h {nn {rn {nl -:):-,:; {j {rn |") (1 . ":;8: {rn rn {rn {nk o {nj noo
{h {ni 90-(>-; _h *1410(1 |") (1 . "<0:;8: {rn rn {rn {f {g {rn {nh -:):-,:; {j
; z) b. J/ {# [$ J5 ~! `{rn |") (1 . ":;8: {rn rn {rn {ng o {nk noo {g {nf 90-(>-; _h *1410(1 |") (1 .
+ l* {7 u" x) [7 |% F$ q":;8: {rn rn {rn {nj o {mo noo {f {mn 90-(>-; _h *1410(1 |") (1 . "):-+:' {rn
: o* K9 Q0 v  |4 e2 w% frn {rn {no o {mm |") (1 . "):-+:' {rn rn {rn {no n {ml |") (1 . ",+->687+r<*-):
; Y  R! @  e( y7 C- b9 w! p  z8 P{rn rn {rn o o o o n o V V |") (1 . ":;8: {rn rn {rn {mo o {ng noo {nn {mk
90-(>-; _h *1410(1 |") (1 . "):-+:' {rn rn {rn {nh n {mj |") (1 .
",+->687+r<*-): {rn rn {rn noo o o rn o o V V |") (1 . "):-+:' {rn rn {rn {nl n
{mi |") (1 . ",+->687+r<*-): {rn rn {rn o noo o n o o V V |") (1 . "/061+ {rn
5 u% D8 P( _1 F2 v) _rn {rn o o o |") (1 . "/061+ {rn rn {rn o noo o |") (1 . ",+->687+r<*-): {rn rn
{rn noo noo o o rn o V V |") (1 . "/061+ {rn rn {rn noo o o |") (1 . "/061+ {rn
: {4 w6 d' @  o2 b9 Zrn {rn noo noo o |"))
' k$ y7 K; }* t& `# i, s
% O- d# @. d# z- j4 Y5 c* P[ 本帖最后由 sealive_leafage 于 2008-7-2 22:05 编辑 ]

抬头见喜

请问楼主:
1 I2 A9 K# o2 P# |7 ^
我想知道面域后图象的名称等属性

yoyoho

;;;选取"REGION" 物件改变座标系统
如果用entsel单选方式没有问题
6 R, S, a0 H, |' X! _5 o. f  O6 L(command "ucs" "ob" (cadr (entsel))) ;;;针对"REGION" 物件
4 u  B9 a! C- R/ `& q(command "ucs" "ob" (entsel))        ;;;一般物件
$ o- x9 B5 s: F
" _# ^  F: A' Z, q如果用ssget多选方式有问题,该如何修正呢?
(setq ss (ssget '((0 . "REGION"))) i 0)
6 O- g7 c8 @7 c (repeat (sslength ss)
     (setq ssn (ssname ss i))
     (command "ucs" "ob" (CADR ssn))
    (setq i (1+ i))
+ O# M/ T, A( P  O4 g3 r0 Q ) ;;repeat
期盼高手指点,如何解决这个问题?