lisp中的面域问题

抬头见喜

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

0 d  F7 H- N/ u如用(command "circle"...........)画圆,用entlast命令可取得其对象名,此时再进行面域,对象名又是什么?如何得到?

maoyangmy

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

sealive_leafage

以画一个正方形为例，然后生成面域：
(command "line" "0,0" "0,100" ""
(setq l1 (entlast))
(command "line" "0,100" "100,100" "")
7 \/ Q6 w$ k: }$ w(setq l2 (entlast))
$ Z+ ?, B- H8 x+ c; ~* z, e(command "line" "100,100" "100,0" "")
(setq l3 (entlast))
/ e5 x% M1 l% H: j# p( |(command "line" "100,0" "0,0" "")
2 }! d! l' [  X) ^' @& `7 @(setq l4 (entlast))
8 _& |+ b. [" n: X/ i(command "region" l1 l2 l3 l4 "")
8 \  r( P6 z3 o. _) e(setq en (entlast))
(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
& _5 s( x; m9 j2 m^*+0;:,4 ^*+0\\^[ nh ^LR nmqoqnqfnj QK o  ") (1 . "n fqfffffffffffffffj:rooh
n:rono ") (1 . ">,27:>;:- {rn rn _nn mnmqoqnqfnj |") (1 . "=0;& {rn rn {rn {m
  G/ t$ l; J& a/ a( X, C! r{rn {rn |") (1 . "3*2/ {rn rn {rn {rn {l {n |") (1 . ",7:33 {rn rn {rn {rn {rn
: ^  F+ F' _+ J7 Q; I{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
o o 90-(>-;@) V V V V |") (1 . "<0:;8: {rn rn {rn {g {f {rn {no -:-,:; {j {rn
# i6 G& @& k7 F  l|") (1 . "<0:;8: {rn rn {rn {nn {h {rn {nm -:):-,:; {j {rn |") (1 . "<0:;8: {rn
3 m% O% N" p1 l3 o+ Mrn {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
* p' _7 `' q/ O{rn |") (1 . ":;8: {rn rn {rn {ng o {nk noo {g {nf 90-(>-; _h *1410(1 |") (1 .
) P! t9 ]% w- y% e( Z1 e  c":;8: {rn rn {rn {nj o {mo noo {f {mn 90-(>-; _h *1410(1 |") (1 . "):-+:' {rn
. [+ z% i, f( P% rrn {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
! R3 t' L4 m6 F5 c90-(>-; _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
0 ^( R7 ]4 n+ W: G, H7 ~{mi |") (1 . ",+->687+r<*-): {rn rn {rn o noo o n o o V V |") (1 . "/061+ {rn
rn {rn o o o |") (1 . "/061+ {rn rn {rn o noo o |") (1 . ",+->687+r<*-): {rn rn
1 C# V" ?/ W+ P, o- m{rn noo noo o o rn o V V |") (1 . "/061+ {rn rn {rn noo o o |") (1 . "/061+ {rn
rn {rn noo noo o |"))

[ 本帖最后由 sealive_leafage 于 2008-7-2 22:05 编辑 ]

抬头见喜

请问楼主:
! ?/ k! }% l0 a$ g
/ M1 E; F7 e& F4 P8 h4 t; B  _我想知道面域后图象的名称等属性

yoyoho

;;;选取"REGION" 物件改变座标系统
如果用entsel单选方式没有问题
! ^, t& e! Q% F7 `* B5 h% W(command "ucs" "ob" (cadr (entsel))) ;;;针对"REGION" 物件
(command "ucs" "ob" (entsel))        ;;;一般物件

如果用ssget多选方式有问题,该如何修正呢?
* v! T$ c/ ?* S- z% s6 ^(setq ss (ssget '((0 . "REGION"))) i 0)
(repeat (sslength ss)
0 q6 N5 D$ D0 |" Z, Q4 K2 w     (setq ssn (ssname ss i))
% A. I3 S. t, z# W- h4 b6 d. Y% w. ^9 B; A     (command "ucs" "ob" (CADR ssn))
    (setq i (1+ i))
0 V9 e7 U( m! Y: w ) ;;repeat
期盼高手指点,如何解决这个问题?