QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

[求助] lisp中的面域问题

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

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

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

x
通过LISP语言作一图,再进行面域.问题如何取得面域后图形的对象- \- g5 L8 W. P9 E* t9 `

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

评分

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

查看全部评分

发表于 2008-7-1 22:25:33 | 显示全部楼层 来自: 中国浙江宁波
以画一个正方形为例,然后生成面域:, O& ~6 K/ k+ |& E" J
(command "line" "0,0" "0,100" ""
$ X" e* ^' a. E$ z: a4 F2 J6 D(setq l1 (entlast))
+ ?5 e5 v4 p+ K" H(command "line" "0,100" "100,100" "")
3 O+ B* z7 ~( r0 n) D7 F(setq l2 (entlast))! x; X1 I7 X& V) [
(command "line" "100,100" "100,0" "")
3 J, }7 ?8 t5 p$ L(setq l3 (entlast))
8 ?# ~# n- Q5 F0 Q' L8 }& h(command "line" "100,0" "0,0" "")
. j5 J2 T; y8 f. [$ k  e(setq l4 (entlast)): K/ M+ W9 Y; q  y# k+ I- \* @1 F
(command "region" l1 l2 l3 l4 "")) L8 G& O" o( z; a: T' D
(setq en (entlast))7 V7 ~$ p% d8 ^# r1 Q' {
(entget en)1 r, t( D+ Z$ R2 t3 X9 c
下面是执行完上面代码后得到的REGION对象的DXF组码,其属性都可以看到了' s' D- A, \+ H; A) ]2 q% r' }' p
((-1 . <图元名: 7ef01f98>) (0 . "REGION") (330 . <图元名: 7ef01f28>) (5 . "73") (100
0 g( E+ c3 g2 U0 r6 \. "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . ; L! @8 z8 b; @) [
"AcDbModelerGeometry") (70 . 1) (1 . "mnmoo mh m mi          ") (1 . "ni 4 F! ~2 X1 v/ x# {$ I6 X% J
^*+0;:,4 ^*+0\\^[ nh ^LR nmqoqnqfnj QK o  ") (1 . "n fqfffffffffffffffj:rooh
, s  `  ]0 P1 o8 \, dn:rono ") (1 . ">,27:>;:- {rn rn _nn mnmqoqnqfnj |") (1 . "=0;& {rn rn {rn {m
' v( Y7 ~2 q3 _( E+ l7 \{rn {rn |") (1 . "3*2/ {rn rn {rn {rn {l {n |") (1 . ",7:33 {rn rn {rn {rn {rn
- n0 G( s0 u0 X: \$ Q{k {rn {m |") (1 . "9><: {rn rn {rn {rn {j {l {rn {i 90-(>-; ;0*=3: 0*+ |") (1
& ]* O4 c- f; p2 B8 \+ |. "300/ {rn rn {rn {rn {h {k |") (1 . "/3>1:r,*-9><: {rn rn {rn jo jo o o o n n
) x$ Y& V  k" u; X* {3 [( eo o 90-(>-;@) V V V V |") (1 . "<0:;8: {rn rn {rn {g {f {rn {no -:-,:; {j {rn 5 N# O% ?' s" P. t4 i
|") (1 . "<0:;8: {rn rn {rn {nn {h {rn {nm -:):-,:; {j {rn |") (1 . "<0:;8: {rn
; K9 T& n8 M- _. f- j  a$ Urn {rn {h {nn {rn {nl -:):-,:; {j {rn |") (1 . ":;8: {rn rn {rn {nk o {nj noo
: l" Y) J0 a% `7 w  W{h {ni 90-(>-; _h *1410(1 |") (1 . "<0:;8: {rn rn {rn {f {g {rn {nh -:):-,:; {j 1 G+ L; k5 F" v
{rn |") (1 . ":;8: {rn rn {rn {ng o {nk noo {g {nf 90-(>-; _h *1410(1 |") (1 .
- i- y9 b- h& g7 Q":;8: {rn rn {rn {nj o {mo noo {f {mn 90-(>-; _h *1410(1 |") (1 . "):-+:' {rn
# L5 f1 N% k& s' ^. {, Prn {rn {no o {mm |") (1 . "):-+:' {rn rn {rn {no n {ml |") (1 . ",+->687+r<*-): # L0 W# T! D  S& ~
{rn rn {rn o o o o n o V V |") (1 . ":;8: {rn rn {rn {mo o {ng noo {nn {mk
  X  f: ^$ n- Y1 P- b( G90-(>-; _h *1410(1 |") (1 . "):-+:' {rn rn {rn {nh n {mj |") (1 .
/ z* `+ {! D, }1 b",+->687+r<*-): {rn rn {rn noo o o rn o o V V |") (1 . "):-+:' {rn rn {rn {nl n 4 {& b5 G; ^# @) i. F8 d) B
{mi |") (1 . ",+->687+r<*-): {rn rn {rn o noo o n o o V V |") (1 . "/061+ {rn ( d- j- e5 F  v9 v) G3 ?8 [) X& z
rn {rn o o o |") (1 . "/061+ {rn rn {rn o noo o |") (1 . ",+->687+r<*-): {rn rn 9 R/ I4 O8 y  T. @7 m" I
{rn noo noo o o rn o V V |") (1 . "/061+ {rn rn {rn noo o o |") (1 . "/061+ {rn
" f9 E( u7 J% s' S) [; |' I2 Lrn {rn noo noo o |"))
* V+ _, X1 r2 N) d& t2 J& k4 ]- m- A0 g) R( F- U& N
[ 本帖最后由 sealive_leafage 于 2008-7-2 22:05 编辑 ]
 楼主| 发表于 2008-7-1 23:04:47 | 显示全部楼层 来自: 中国山西太原

回复 3# 的帖子

请问楼主:  e4 H8 Y1 E0 }6 V, Y$ g8 k

# h4 @0 Y, ^& R我想知道面域后图象的名称等属性
发表于 2009-1-22 17:41:05 | 显示全部楼层 来自: 中国台湾
;;;选取"REGION" 物件改变座标系统4 q) l5 V1 J" Q/ o8 `. q2 Q
如果用entsel单选方式没有问题
0 o4 e8 M7 ]% B0 m3 q* C0 [' i(command "ucs" "ob" (cadr (entsel))) ;;;针对"REGION" 物件! A  K9 e. L, p( Y6 Y; A" k, u
(command "ucs" "ob" (entsel))        ;;;一般物件7 d9 y) Z" b+ W

" u: U1 n$ |: z( v/ w' {5 A$ |) ?如果用ssget多选方式有问题,该如何修正呢?1 _) \4 i6 Z8 f% u) z
(setq ss (ssget '((0 . "REGION"))) i 0)' W( P  r2 G& [" v( W' q
(repeat (sslength ss)
* v3 P& }0 c, y, B3 V7 |( ?     (setq ssn (ssname ss i))7 {; p: n0 a: \9 ~$ `5 x+ H7 F. i; ?
     (command "ucs" "ob" (CADR ssn))# @7 h1 J% X% U1 }; }
    (setq i (1+ i))6 v, A3 Q: o6 ~/ r/ g8 R4 l
) ;;repeat
/ D* K6 ]' t0 S$ B2 x/ L$ q2 B期盼高手指点,如何解决这个问题?
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

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

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