lisp中的面域问题

抬头见喜

通过LISP语言作一图,再进行面域.问题如何取得面域后图形的对象
/ ~4 a+ s% s+ R  {# p
2 B$ h7 h* u5 J9 u# X如用(command "circle"...........)画圆,用entlast命令可取得其对象名,此时再进行面域,对象名又是什么?如何得到?

maoyangmy

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

sealive_leafage

以画一个正方形为例，然后生成面域：
) g6 }- I0 K& R: ]( n! U, |/ I, Z(command "line" "0,0" "0,100" ""
8 r' p# I1 t% q7 w(setq l1 (entlast))
; P6 a4 a) b! P8 j& D6 G( g(command "line" "0,100" "100,100" "")
(setq l2 (entlast))
( z+ B2 y. t+ C" k3 G7 r(command "line" "100,100" "100,0" "")
4 G7 v5 E- ^% @: ?5 y' V" X(setq l3 (entlast))
2 k8 M- ?9 E! M5 x(command "line" "100,0" "0,0" "")
$ l; ~  Z% \( S5 \$ a(setq l4 (entlast))
(command "region" l1 l2 l3 l4 "")
(setq en (entlast))
(entget en)
; A* d0 @6 I" {3 X# X7 y" v下面是执行完上面代码后得到的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
9 w5 w/ D/ m+ C* a7 v; F# {n:rono ") (1 . ">,27:>;:- {rn rn _nn mnmqoqnqfnj |") (1 . "=0;& {rn rn {rn {m
( G; G/ C: \3 ~7 |4 t{rn {rn |") (1 . "3*2/ {rn rn {rn {rn {l {n |") (1 . ",7:33 {rn rn {rn {rn {rn
9 i. Y4 A( M* }) D5 \- U6 v. h{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
* Z& U: \8 Z- `/ r5 No o 90-(>-;@) V V V V |") (1 . "<0:;8: {rn rn {rn {g {f {rn {no -:-,:; {j {rn
|") (1 . "<0:;8: {rn rn {rn {nn {h {rn {nm -:):-,:; {j {rn |") (1 . "<0:;8: {rn
rn {rn {h {nn {rn {nl -:):-,:; {j {rn |") (1 . ":;8: {rn rn {rn {nk o {nj noo
% g% J3 P2 }/ s3 @# J# X  ~0 r% i{h {ni 90-(>-; _h *1410(1 |") (1 . "<0:;8: {rn rn {rn {f {g {rn {nh -:):-,:; {j
4 q! F! u. l$ P( w; B3 ]{rn |") (1 . ":;8: {rn rn {rn {ng o {nk noo {g {nf 90-(>-; _h *1410(1 |") (1 .
":;8: {rn rn {rn {nj o {mo noo {f {mn 90-(>-; _h *1410(1 |") (1 . "):-+:' {rn
rn {rn {no o {mm |") (1 . "):-+:' {rn rn {rn {no n {ml |") (1 . ",+->687+r<*-):
{rn rn {rn o o o o n o V V |") (1 . ":;8: {rn rn {rn {mo o {ng noo {nn {mk
/ H6 m+ h6 T6 e- H90-(>-; _h *1410(1 |") (1 . "):-+:' {rn rn {rn {nh n {mj |") (1 .
$ N+ ?) B( I: p$ @1 O- W",+->687+r<*-): {rn rn {rn noo o o rn o o V V |") (1 . "):-+:' {rn rn {rn {nl n
' E- O7 P4 I5 @$ e3 q. y{mi |") (1 . ",+->687+r<*-): {rn rn {rn o noo o n o o V V |") (1 . "/061+ {rn
# N7 Y) ?/ J" n1 F- \0 N2 n$ ern {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
" v& h5 i6 E) c1 w% Wrn {rn noo noo o |"))

$ A, P/ v1 y3 W; P2 M$ V[ 本帖最后由 sealive_leafage 于 2008-7-2 22:05 编辑 ]

抬头见喜

请问楼主:

* k$ R# V0 J( }) E/ p我想知道面域后图象的名称等属性

yoyoho

;;;选取"REGION" 物件改变座标系统
如果用entsel单选方式没有问题
6 p4 [! ]6 d2 q+ b(command "ucs" "ob" (cadr (entsel))) ;;;针对"REGION" 物件
$ w( ~$ T! ?* s7 h(command "ucs" "ob" (entsel))        ;;;一般物件

如果用ssget多选方式有问题,该如何修正呢?
* U0 Z1 b  }% _( F2 f& |8 v# J+ t(setq ss (ssget '((0 . "REGION"))) i 0)
(repeat (sslength ss)
9 c; }& I, y4 s     (setq ssn (ssname ss i))
     (command "ucs" "ob" (CADR ssn))
    (setq i (1+ i))
) ;;repeat
5 E7 E* {. H& H- [* ?期盼高手指点,如何解决这个问题?