QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 3282|回复: 4
收起左侧

[求助] lisp中的面域问题

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

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

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

x
通过LISP语言作一图,再进行面域.问题如何取得面域后图形的对象
& l# q" p( Q" E! z) H4 M3 k* h$ T! Z* X, q8 q: m! _
如用(command "circle"...........)画圆,用entlast命令可取得其对象名,此时再进行面域,对象名又是什么?如何得到?
发表于 2008-7-1 17:24:01 | 显示全部楼层 来自: 中国辽宁鞍山
我觉得应该还是Entlast 因为面域是新生成的对象

评分

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

查看全部评分

发表于 2008-7-1 22:25:33 | 显示全部楼层 来自: 中国浙江宁波
以画一个正方形为例,然后生成面域:
3 Q5 V1 l: X2 _. ]2 s; I' Y5 `/ y  Y$ s(command "line" "0,0" "0,100" ""
# m' ^- _6 T5 W(setq l1 (entlast))* C# q/ r1 V$ _6 g1 p/ d
(command "line" "0,100" "100,100" "")$ q0 O+ e6 r2 [; ^: M, w6 b; y; `! y
(setq l2 (entlast))" c6 ~/ \5 x+ d) Q# ]4 F! L
(command "line" "100,100" "100,0" "")
; Z- N4 g7 A% [" k% G! j! F(setq l3 (entlast))) `% Z: R) H2 {
(command "line" "100,0" "0,0" "")
; Z5 u% N8 d) u(setq l4 (entlast))
* B) u: T  X5 ~(command "region" l1 l2 l3 l4 "")2 |. e& U9 c2 P- ~: m$ m
(setq en (entlast))
- B0 k! c# }1 R5 H0 O) J+ T(entget en)
, [% X2 ~, y8 [: m7 E! v下面是执行完上面代码后得到的REGION对象的DXF组码,其属性都可以看到了5 B- ^# d. e7 Y
((-1 . <图元名: 7ef01f98>) (0 . "REGION") (330 . <图元名: 7ef01f28>) (5 . "73") (100
' p7 G7 C( W4 B" Z7 W7 k. "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . 6 a7 W! c; y, z! E
"AcDbModelerGeometry") (70 . 1) (1 . "mnmoo mh m mi          ") (1 . "ni
2 k% p; `* R6 {/ Z$ Q^*+0;:,4 ^*+0\\^[ nh ^LR nmqoqnqfnj QK o  ") (1 . "n fqfffffffffffffffj:rooh
! |  I+ b% ?7 Y7 U2 en:rono ") (1 . ">,27:>;:- {rn rn _nn mnmqoqnqfnj |") (1 . "=0;& {rn rn {rn {m
3 T+ F/ n0 E  U' D{rn {rn |") (1 . "3*2/ {rn rn {rn {rn {l {n |") (1 . ",7:33 {rn rn {rn {rn {rn
7 u: e' X% r6 _{k {rn {m |") (1 . "9><: {rn rn {rn {rn {j {l {rn {i 90-(>-; ;0*=3: 0*+ |") (1 - W; U1 k6 r, R  @& ^1 d0 i; m0 J
. "300/ {rn rn {rn {rn {h {k |") (1 . "/3>1:r,*-9><: {rn rn {rn jo jo o o o n n
+ z5 V4 @- q* `" bo o 90-(>-;@) V V V V |") (1 . "<0:;8: {rn rn {rn {g {f {rn {no -:-,:; {j {rn 2 |/ c: V$ R  _
|") (1 . "<0:;8: {rn rn {rn {nn {h {rn {nm -:):-,:; {j {rn |") (1 . "<0:;8: {rn
* R& G' w8 r- ^" y! Brn {rn {h {nn {rn {nl -:):-,:; {j {rn |") (1 . ":;8: {rn rn {rn {nk o {nj noo 4 `' ]9 e4 C: a& B) c
{h {ni 90-(>-; _h *1410(1 |") (1 . "<0:;8: {rn rn {rn {f {g {rn {nh -:):-,:; {j ; C$ F: |. W6 I7 g: k
{rn |") (1 . ":;8: {rn rn {rn {ng o {nk noo {g {nf 90-(>-; _h *1410(1 |") (1 .
  v1 ~6 }+ O3 p( r- Z":;8: {rn rn {rn {nj o {mo noo {f {mn 90-(>-; _h *1410(1 |") (1 . "):-+:' {rn 4 h$ V) @' Z6 P8 ^2 ?. E/ p
rn {rn {no o {mm |") (1 . "):-+:' {rn rn {rn {no n {ml |") (1 . ",+->687+r<*-): 8 h1 E9 [- L6 ~! r) {
{rn rn {rn o o o o n o V V |") (1 . ":;8: {rn rn {rn {mo o {ng noo {nn {mk
! U+ `3 G  Z; j7 Z6 a# w2 G90-(>-; _h *1410(1 |") (1 . "):-+:' {rn rn {rn {nh n {mj |") (1 .
6 I( @" V  I& [: a3 Y1 d* n2 m",+->687+r<*-): {rn rn {rn noo o o rn o o V V |") (1 . "):-+:' {rn rn {rn {nl n   c7 i4 o4 J) R( a, a- s4 t+ w
{mi |") (1 . ",+->687+r<*-): {rn rn {rn o noo o n o o V V |") (1 . "/061+ {rn , X% m9 T6 j2 \( K# z, ]
rn {rn o o o |") (1 . "/061+ {rn rn {rn o noo o |") (1 . ",+->687+r<*-): {rn rn ! X8 J; C) O# c# I0 t0 f
{rn noo noo o o rn o V V |") (1 . "/061+ {rn rn {rn noo o o |") (1 . "/061+ {rn
% d- G  [' `' A. m/ \! g5 mrn {rn noo noo o |"))' Y, u1 h1 }7 ^7 L' S& f, f

% d' b  X  ?* ?[ 本帖最后由 sealive_leafage 于 2008-7-2 22:05 编辑 ]
 楼主| 发表于 2008-7-1 23:04:47 | 显示全部楼层 来自: 中国山西太原

回复 3# 的帖子

请问楼主:
* r; e# }4 H- O4 ~6 A" U6 j! K( Z7 O) T1 c) y
我想知道面域后图象的名称等属性
发表于 2009-1-22 17:41:05 | 显示全部楼层 来自: 中国台湾
;;;选取"REGION" 物件改变座标系统- E) [4 D, u) R; K: v& I4 }& G
如果用entsel单选方式没有问题
. O0 m, U) I( X8 Y) j(command "ucs" "ob" (cadr (entsel))) ;;;针对"REGION" 物件) ~1 f: ~2 J4 S$ q0 z) p
(command "ucs" "ob" (entsel))        ;;;一般物件2 N! t( i" l) M) B/ |

; c, i3 K( ~4 m+ D6 {4 Y# ]7 W如果用ssget多选方式有问题,该如何修正呢?/ G  I* S% V0 K( x" {
(setq ss (ssget '((0 . "REGION"))) i 0)
$ Z1 Z) U3 D& [5 x+ v% U2 t (repeat (sslength ss)
7 L8 @& x- J& R! \5 O4 _; q$ T     (setq ssn (ssname ss i)), O+ _; n+ g3 w
     (command "ucs" "ob" (CADR ssn))
: C% f% N0 W% m8 p* @  N) C    (setq i (1+ i))* }( u1 {9 s2 c4 [  j1 T/ K2 R
) ;;repeat
) u) \# m* J. ^2 x9 y' Z期盼高手指点,如何解决这个问题?
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

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

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