QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
10天前
查看: 3322|回复: 4
收起左侧

[求助] lisp中的面域问题

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

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

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

x
通过LISP语言作一图,再进行面域.问题如何取得面域后图形的对象
, \9 p# ~, }! D2 n" t$ T& B6 j0 k0 P$ E4 O
如用(command "circle"...........)画圆,用entlast命令可取得其对象名,此时再进行面域,对象名又是什么?如何得到?
发表于 2008-7-1 17:24:01 | 显示全部楼层 来自: 中国辽宁鞍山
我觉得应该还是Entlast 因为面域是新生成的对象

评分

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

查看全部评分

发表于 2008-7-1 22:25:33 | 显示全部楼层 来自: 中国浙江宁波
以画一个正方形为例,然后生成面域:6 k; y& K$ X0 M: q# q
(command "line" "0,0" "0,100" ""
1 ~9 s* O! `/ S3 J1 W0 f! q/ U(setq l1 (entlast))$ s9 }+ b4 w% ?/ v' d$ z
(command "line" "0,100" "100,100" "")) ?+ J; O4 q9 P, m' ^3 e
(setq l2 (entlast))- O# l8 S% y% r6 N0 ^
(command "line" "100,100" "100,0" ""), K! p& _: o' A  y
(setq l3 (entlast))
9 G: S) l8 k" b2 S! u% s(command "line" "100,0" "0,0" "")+ j5 q$ f3 {0 ]- p
(setq l4 (entlast))
' K! d  ~& \; z5 b. k" u1 C5 {5 C(command "region" l1 l2 l3 l4 "")' A& N# H( X  N: z/ h& K
(setq en (entlast))" e& C$ e5 c% q( ~* v
(entget en)1 _' T8 l; E- _( p6 V$ i8 ?2 l
下面是执行完上面代码后得到的REGION对象的DXF组码,其属性都可以看到了5 b/ t, S/ Z6 D) w/ |& K
((-1 . <图元名: 7ef01f98>) (0 . "REGION") (330 . <图元名: 7ef01f28>) (5 . "73") (100 # G+ p8 g6 n0 I; O- Z
. "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . ; c# x' T& T7 o$ `: L5 S& ?
"AcDbModelerGeometry") (70 . 1) (1 . "mnmoo mh m mi          ") (1 . "ni
. U) e% x6 e8 a: _^*+0;:,4 ^*+0\\^[ nh ^LR nmqoqnqfnj QK o  ") (1 . "n fqfffffffffffffffj:rooh 0 f. u# m( `; R4 G
n:rono ") (1 . ">,27:>;:- {rn rn _nn mnmqoqnqfnj |") (1 . "=0;& {rn rn {rn {m # ?  @. j* C: L1 f& G0 ^
{rn {rn |") (1 . "3*2/ {rn rn {rn {rn {l {n |") (1 . ",7:33 {rn rn {rn {rn {rn
# X, P( I8 ?/ n# n/ E9 G{k {rn {m |") (1 . "9><: {rn rn {rn {rn {j {l {rn {i 90-(>-; ;0*=3: 0*+ |") (1 / C. @% |9 S6 V: I: [
. "300/ {rn rn {rn {rn {h {k |") (1 . "/3>1:r,*-9><: {rn rn {rn jo jo o o o n n 4 Y7 x3 g- k: w" S9 S
o o 90-(>-;@) V V V V |") (1 . "<0:;8: {rn rn {rn {g {f {rn {no -:-,:; {j {rn
7 m( o- D9 C4 o: \0 u/ n7 W- G0 [3 ?|") (1 . "<0:;8: {rn rn {rn {nn {h {rn {nm -:):-,:; {j {rn |") (1 . "<0:;8: {rn
( L4 q; o3 \" c# h; n: {rn {rn {h {nn {rn {nl -:):-,:; {j {rn |") (1 . ":;8: {rn rn {rn {nk o {nj noo % J8 _' k* J8 N+ z) Y! @
{h {ni 90-(>-; _h *1410(1 |") (1 . "<0:;8: {rn rn {rn {f {g {rn {nh -:):-,:; {j
  w1 u! U/ q" i! P5 L{rn |") (1 . ":;8: {rn rn {rn {ng o {nk noo {g {nf 90-(>-; _h *1410(1 |") (1 .
0 g0 e, t- B" d& V":;8: {rn rn {rn {nj o {mo noo {f {mn 90-(>-; _h *1410(1 |") (1 . "):-+:' {rn   e7 P& o  O0 D- M
rn {rn {no o {mm |") (1 . "):-+:' {rn rn {rn {no n {ml |") (1 . ",+->687+r<*-):
* }4 {. A8 B, B9 |  g{rn rn {rn o o o o n o V V |") (1 . ":;8: {rn rn {rn {mo o {ng noo {nn {mk 9 f! h0 l! Z# D) e0 F, ?
90-(>-; _h *1410(1 |") (1 . "):-+:' {rn rn {rn {nh n {mj |") (1 .
- Q# w$ F7 n2 \% O",+->687+r<*-): {rn rn {rn noo o o rn o o V V |") (1 . "):-+:' {rn rn {rn {nl n
. c4 ^3 o  m/ w0 P  |{mi |") (1 . ",+->687+r<*-): {rn rn {rn o noo o n o o V V |") (1 . "/061+ {rn
& u5 l( d% m) H3 [0 Frn {rn o o o |") (1 . "/061+ {rn rn {rn o noo o |") (1 . ",+->687+r<*-): {rn rn
2 o: S2 Y9 ?0 L* g! B; C{rn noo noo o o rn o V V |") (1 . "/061+ {rn rn {rn noo o o |") (1 . "/061+ {rn * @9 C& X; i6 |; C" [3 q. m) ]
rn {rn noo noo o |"))
8 H1 {$ C* v, I& e; E0 T
. N- d' `- d! P( b. _[ 本帖最后由 sealive_leafage 于 2008-7-2 22:05 编辑 ]
 楼主| 发表于 2008-7-1 23:04:47 | 显示全部楼层 来自: 中国山西太原

回复 3# 的帖子

请问楼主:2 @  S/ e) t6 C1 B8 q* \, p
9 O( T3 j9 J% b0 x+ O
我想知道面域后图象的名称等属性
发表于 2009-1-22 17:41:05 | 显示全部楼层 来自: 中国台湾
;;;选取"REGION" 物件改变座标系统2 {. ~: Y) p8 }0 j' J# ~: E# n
如果用entsel单选方式没有问题' W" H5 V6 _* l, T# j, e
(command "ucs" "ob" (cadr (entsel))) ;;;针对"REGION" 物件" y1 x# [( \; H2 ?
(command "ucs" "ob" (entsel))        ;;;一般物件5 U. g" j# e9 T% S2 y2 z
6 P( _8 H2 A; ], [8 [
如果用ssget多选方式有问题,该如何修正呢?
" w* d0 b7 I; H0 m, S(setq ss (ssget '((0 . "REGION"))) i 0)
0 w1 ~" D$ N  m6 z' n (repeat (sslength ss)" z) l# o, }) ?0 V# N& l  w. v
     (setq ssn (ssname ss i))3 E  p% {5 g4 r$ B
     (command "ucs" "ob" (CADR ssn))
$ F  n: i8 w6 [2 X    (setq i (1+ i))
# i0 T: `1 [; E7 }& r ) ;;repeat
* Z: K7 m0 Q1 k% Y. m+ N期盼高手指点,如何解决这个问题?
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


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

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

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