QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

[求助] lisp中的面域问题

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

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

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

x
通过LISP语言作一图,再进行面域.问题如何取得面域后图形的对象3 W; A" A! L3 K/ q4 U0 e' \  e
4 R  Z# l0 n) _# o" M! w
如用(command "circle"...........)画圆,用entlast命令可取得其对象名,此时再进行面域,对象名又是什么?如何得到?
发表于 2008-7-1 17:24:01 | 显示全部楼层 来自: 中国辽宁鞍山
我觉得应该还是Entlast 因为面域是新生成的对象

评分

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

查看全部评分

发表于 2008-7-1 22:25:33 | 显示全部楼层 来自: 中国浙江宁波
以画一个正方形为例,然后生成面域:
0 g0 @( M+ y% A(command "line" "0,0" "0,100" ""
8 R. z/ a9 T: O(setq l1 (entlast))1 v. ~3 s. \( K9 g. {+ B; M
(command "line" "0,100" "100,100" "")% a3 W. |5 R$ j: M) V5 X( A' u
(setq l2 (entlast)). |2 A# ?% L8 e
(command "line" "100,100" "100,0" "")
5 ^7 i" @4 u$ X(setq l3 (entlast))- j& F; {8 q. n' o7 k0 A( y
(command "line" "100,0" "0,0" "")
3 `5 S& m) C2 t8 ^- i2 X; C(setq l4 (entlast))* z  ~1 \! `+ u. m
(command "region" l1 l2 l3 l4 "")7 ~1 j1 u( A, K: K$ Y4 [7 j
(setq en (entlast))9 r; \- e- `+ J0 y# c6 o  ]2 b' q
(entget en)
+ C/ i: t& g3 Z# ]3 t: B: e下面是执行完上面代码后得到的REGION对象的DXF组码,其属性都可以看到了* c6 d# t, ?  a, o" A
((-1 . <图元名: 7ef01f98>) (0 . "REGION") (330 . <图元名: 7ef01f28>) (5 . "73") (100
8 c6 E) t4 o/ j1 \5 T- g0 a9 c. "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . + I: O1 l& ~& z* \1 G& P
"AcDbModelerGeometry") (70 . 1) (1 . "mnmoo mh m mi          ") (1 . "ni
. V9 |5 K" N+ [& M^*+0;:,4 ^*+0\\^[ nh ^LR nmqoqnqfnj QK o  ") (1 . "n fqfffffffffffffffj:rooh . F/ N, w1 _0 q; x3 O
n:rono ") (1 . ">,27:>;:- {rn rn _nn mnmqoqnqfnj |") (1 . "=0;& {rn rn {rn {m
& n/ N" ?6 u  x0 |+ |- k{rn {rn |") (1 . "3*2/ {rn rn {rn {rn {l {n |") (1 . ",7:33 {rn rn {rn {rn {rn
; o: i* q+ I  P+ v6 N{k {rn {m |") (1 . "9><: {rn rn {rn {rn {j {l {rn {i 90-(>-; ;0*=3: 0*+ |") (1
, E/ J2 d' I0 Q' J. "300/ {rn rn {rn {rn {h {k |") (1 . "/3>1:r,*-9><: {rn rn {rn jo jo o o o n n
. g: H( t4 G7 P. u& h4 [o o 90-(>-;@) V V V V |") (1 . "<0:;8: {rn rn {rn {g {f {rn {no -:-,:; {j {rn
8 s8 X: |$ U9 H; q+ b|") (1 . "<0:;8: {rn rn {rn {nn {h {rn {nm -:):-,:; {j {rn |") (1 . "<0:;8: {rn ; \' e% P/ V' H
rn {rn {h {nn {rn {nl -:):-,:; {j {rn |") (1 . ":;8: {rn rn {rn {nk o {nj noo - t# l! K0 X- J' U( n3 b( b$ W
{h {ni 90-(>-; _h *1410(1 |") (1 . "<0:;8: {rn rn {rn {f {g {rn {nh -:):-,:; {j + {, f. r; a# z' `; r' @) D, b
{rn |") (1 . ":;8: {rn rn {rn {ng o {nk noo {g {nf 90-(>-; _h *1410(1 |") (1 . & [& W* R9 E0 \! |1 \5 j# g
":;8: {rn rn {rn {nj o {mo noo {f {mn 90-(>-; _h *1410(1 |") (1 . "):-+:' {rn . D! ^. j! z# y5 r' t
rn {rn {no o {mm |") (1 . "):-+:' {rn rn {rn {no n {ml |") (1 . ",+->687+r<*-): 7 z' u, ]; D0 U% O# y4 }& K
{rn rn {rn o o o o n o V V |") (1 . ":;8: {rn rn {rn {mo o {ng noo {nn {mk
( N# p3 w) b* W; a8 c90-(>-; _h *1410(1 |") (1 . "):-+:' {rn rn {rn {nh n {mj |") (1 .
# m) ]6 ]. P, h& P. k* L9 m",+->687+r<*-): {rn rn {rn noo o o rn o o V V |") (1 . "):-+:' {rn rn {rn {nl n - J  @9 v# e+ [5 c7 Z
{mi |") (1 . ",+->687+r<*-): {rn rn {rn o noo o n o o V V |") (1 . "/061+ {rn ( m1 v* k3 V, T, v# }- I
rn {rn o o o |") (1 . "/061+ {rn rn {rn o noo o |") (1 . ",+->687+r<*-): {rn rn + E. {# d8 H5 N7 ]: x
{rn noo noo o o rn o V V |") (1 . "/061+ {rn rn {rn noo o o |") (1 . "/061+ {rn
3 V/ e1 N2 F  m- r) Hrn {rn noo noo o |"))
9 J+ r7 [4 O% H2 i, P. x/ S7 k$ s2 Q) M+ z" S( @
[ 本帖最后由 sealive_leafage 于 2008-7-2 22:05 编辑 ]
 楼主| 发表于 2008-7-1 23:04:47 | 显示全部楼层 来自: 中国山西太原

回复 3# 的帖子

请问楼主:
- o3 f$ _- d3 S0 C5 b
6 e/ t* C1 ~' K我想知道面域后图象的名称等属性
发表于 2009-1-22 17:41:05 | 显示全部楼层 来自: 中国台湾
;;;选取"REGION" 物件改变座标系统
! n6 y% s: H! ]& q3 l如果用entsel单选方式没有问题
% N& [; a# V  B6 s+ J  l(command "ucs" "ob" (cadr (entsel))) ;;;针对"REGION" 物件6 u* q+ ?  a6 D" G. ~! A* g
(command "ucs" "ob" (entsel))        ;;;一般物件' F$ Q& F; a5 ~: m0 S

' j) m3 i. f. i/ z# Y如果用ssget多选方式有问题,该如何修正呢?) F( p8 E/ K$ \' F! N+ \9 i. s
(setq ss (ssget '((0 . "REGION"))) i 0)
  M* S5 Z: a+ Z, d5 |0 H3 _2 d (repeat (sslength ss)
& f+ \! B6 @4 ~" D' r, [$ F2 q- O     (setq ssn (ssname ss i))5 j$ i) |4 E0 u" F% P+ J
     (command "ucs" "ob" (CADR ssn))2 `0 U6 g: n6 j- q) z) Z& P
    (setq i (1+ i))
: {3 m# `, \2 f! ` ) ;;repeat( l) ^5 K: h8 G7 L! J8 i7 j
期盼高手指点,如何解决这个问题?
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


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

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

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