QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

[求助] lisp中的面域问题

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

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

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

x
通过LISP语言作一图,再进行面域.问题如何取得面域后图形的对象. f+ D7 {( k* N4 U
0 k  _4 b5 ^6 {' w
如用(command "circle"...........)画圆,用entlast命令可取得其对象名,此时再进行面域,对象名又是什么?如何得到?
发表于 2008-7-1 17:24:01 | 显示全部楼层 来自: 中国辽宁鞍山
我觉得应该还是Entlast 因为面域是新生成的对象

评分

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

查看全部评分

发表于 2008-7-1 22:25:33 | 显示全部楼层 来自: 中国浙江宁波
以画一个正方形为例,然后生成面域:
/ T/ Z4 m6 G: K(command "line" "0,0" "0,100" ""
" T( a5 t! K0 e3 e. U(setq l1 (entlast))
5 \) d/ m# ~- r  K8 z5 c" q(command "line" "0,100" "100,100" "")
% h6 R/ R% S5 L) I( \6 Z" o* n5 g(setq l2 (entlast))5 r- X/ O3 o& D: E# a
(command "line" "100,100" "100,0" ""): o+ ~. ?. v5 p* z
(setq l3 (entlast))  [* K  ^, \4 H; ]. P
(command "line" "100,0" "0,0" "")
' O: q" G. D' Q! s0 X(setq l4 (entlast))
: V( C9 l, O* N/ V/ Y  p  h/ v(command "region" l1 l2 l3 l4 ""); Z: p( h# K5 I9 Z" I: a% Q
(setq en (entlast))
* H. d4 \' `2 }" D: s& L(entget en)
9 h; _$ L. m1 l% }下面是执行完上面代码后得到的REGION对象的DXF组码,其属性都可以看到了
' e- I/ f. B7 u" o4 {((-1 . <图元名: 7ef01f98>) (0 . "REGION") (330 . <图元名: 7ef01f28>) (5 . "73") (100
# b2 o( r. ?8 U7 K' d: o. "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
5 z& I3 n: w0 y! W5 d9 D( B2 A! B"AcDbModelerGeometry") (70 . 1) (1 . "mnmoo mh m mi          ") (1 . "ni
  u0 a9 Q6 L4 q% e; S- `+ l^*+0;:,4 ^*+0\\^[ nh ^LR nmqoqnqfnj QK o  ") (1 . "n fqfffffffffffffffj:rooh
" b2 Q; g( v) ^n:rono ") (1 . ">,27:>;:- {rn rn _nn mnmqoqnqfnj |") (1 . "=0;& {rn rn {rn {m & B0 P+ a# @, b& Y* C% a0 Q: N
{rn {rn |") (1 . "3*2/ {rn rn {rn {rn {l {n |") (1 . ",7:33 {rn rn {rn {rn {rn
; C/ b/ M9 E& A) Y! e; B8 j# O{k {rn {m |") (1 . "9><: {rn rn {rn {rn {j {l {rn {i 90-(>-; ;0*=3: 0*+ |") (1 5 @. T! T9 [- u+ P
. "300/ {rn rn {rn {rn {h {k |") (1 . "/3>1:r,*-9><: {rn rn {rn jo jo o o o n n
: w  I1 W5 Y3 d  z: |6 Fo o 90-(>-;@) V V V V |") (1 . "<0:;8: {rn rn {rn {g {f {rn {no -:-,:; {j {rn % \9 w2 b/ }9 U% P+ {
|") (1 . "<0:;8: {rn rn {rn {nn {h {rn {nm -:):-,:; {j {rn |") (1 . "<0:;8: {rn % H- R. k1 X) t# j5 d/ ^2 T
rn {rn {h {nn {rn {nl -:):-,:; {j {rn |") (1 . ":;8: {rn rn {rn {nk o {nj noo   ~! L1 E$ ?; n2 I4 N
{h {ni 90-(>-; _h *1410(1 |") (1 . "<0:;8: {rn rn {rn {f {g {rn {nh -:):-,:; {j
8 I! d  [& v1 h{rn |") (1 . ":;8: {rn rn {rn {ng o {nk noo {g {nf 90-(>-; _h *1410(1 |") (1 .
  `8 ^- T+ M, H: G& m' ]":;8: {rn rn {rn {nj o {mo noo {f {mn 90-(>-; _h *1410(1 |") (1 . "):-+:' {rn 0 E$ D+ {1 Z3 k+ x  @
rn {rn {no o {mm |") (1 . "):-+:' {rn rn {rn {no n {ml |") (1 . ",+->687+r<*-): % m5 Z' \/ Y. L8 K
{rn rn {rn o o o o n o V V |") (1 . ":;8: {rn rn {rn {mo o {ng noo {nn {mk % N2 z7 L- u* K( k: q- L5 S( u
90-(>-; _h *1410(1 |") (1 . "):-+:' {rn rn {rn {nh n {mj |") (1 . . w" T0 S1 m; V* H
",+->687+r<*-): {rn rn {rn noo o o rn o o V V |") (1 . "):-+:' {rn rn {rn {nl n
  Z& ], I; s0 A/ }{mi |") (1 . ",+->687+r<*-): {rn rn {rn o noo o n o o V V |") (1 . "/061+ {rn 7 F$ w& j) F' u9 p- G6 j
rn {rn o o o |") (1 . "/061+ {rn rn {rn o noo o |") (1 . ",+->687+r<*-): {rn rn
- o9 D- s9 t$ p6 U! J, E( g" z{rn noo noo o o rn o V V |") (1 . "/061+ {rn rn {rn noo o o |") (1 . "/061+ {rn
# {/ O+ e" Y- A; ]( krn {rn noo noo o |"))
/ n0 n) ^. q# ]* Q+ f2 E6 z1 G4 n+ \" y8 I! l; y7 t: X7 a
[ 本帖最后由 sealive_leafage 于 2008-7-2 22:05 编辑 ]
 楼主| 发表于 2008-7-1 23:04:47 | 显示全部楼层 来自: 中国山西太原

回复 3# 的帖子

请问楼主:, j2 x" o: @$ @) `: @
6 k$ C& j5 m2 E9 Q, J  i" ]2 \
我想知道面域后图象的名称等属性
发表于 2009-1-22 17:41:05 | 显示全部楼层 来自: 中国台湾
;;;选取"REGION" 物件改变座标系统
0 X3 ], K5 }+ D7 b& ]+ _6 F如果用entsel单选方式没有问题
5 f8 q. m" C+ V& J/ l4 P(command "ucs" "ob" (cadr (entsel))) ;;;针对"REGION" 物件2 q, e3 U$ L0 F
(command "ucs" "ob" (entsel))        ;;;一般物件( F, ?& Q7 y8 n9 @$ j" V

9 Z4 z  X) A5 H/ f: k) Q% ?5 ^; h' X如果用ssget多选方式有问题,该如何修正呢?4 R1 E1 `' l( e, Q& N, {7 y* a
(setq ss (ssget '((0 . "REGION"))) i 0)6 I' y* U  f9 M1 W2 Z
(repeat (sslength ss)
; F5 p: B' D% X     (setq ssn (ssname ss i))6 g0 X, B3 |: S
     (command "ucs" "ob" (CADR ssn)). k; v! X1 ]$ }8 ~) P( Y! g0 ]
    (setq i (1+ i))
* b4 b3 F! Q$ Q( y% a ) ;;repeat
; S9 p7 x) U, |8 M1 N; F7 \; H期盼高手指点,如何解决这个问题?
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


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

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

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