QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
7天前
查看: 3318|回复: 4
收起左侧

[求助] lisp中的面域问题

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

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

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

x
通过LISP语言作一图,再进行面域.问题如何取得面域后图形的对象
0 Q, c/ W% h8 M4 a9 Y
, B: j; O! E0 l4 V) U如用(command "circle"...........)画圆,用entlast命令可取得其对象名,此时再进行面域,对象名又是什么?如何得到?
发表于 2008-7-1 17:24:01 | 显示全部楼层 来自: 中国辽宁鞍山
我觉得应该还是Entlast 因为面域是新生成的对象

评分

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

查看全部评分

发表于 2008-7-1 22:25:33 | 显示全部楼层 来自: 中国浙江宁波
以画一个正方形为例,然后生成面域:. |+ S7 D) O. Y) U+ f; }
(command "line" "0,0" "0,100" ""
3 J$ N& J  N& w(setq l1 (entlast))
/ y3 b7 Q9 n) V5 h$ q$ x(command "line" "0,100" "100,100" "")3 v  F* o  p7 a2 [$ O' O
(setq l2 (entlast))
1 v  Z+ s9 A* C1 \- I1 ^. k/ G- t(command "line" "100,100" "100,0" "")
2 X$ S* J; u5 H0 g(setq l3 (entlast))
( f8 l; W. K" S9 O! p(command "line" "100,0" "0,0" "")
7 @2 X7 R& q; H0 T(setq l4 (entlast))1 H# M+ Q* g1 t" X# m6 v
(command "region" l1 l2 l3 l4 "")
! G# }. g% g! U(setq en (entlast))
2 ?9 V( w2 i# K" s* h(entget en)
9 q& K$ s8 P( \. [# `/ M( @下面是执行完上面代码后得到的REGION对象的DXF组码,其属性都可以看到了
/ _% s1 y5 X8 [/ w4 p- ]  }8 R((-1 . <图元名: 7ef01f98>) (0 . "REGION") (330 . <图元名: 7ef01f28>) (5 . "73") (100
* `5 t# d" n4 i6 D4 e# `. "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
" v* f3 P, z$ R3 L/ ~3 A% {"AcDbModelerGeometry") (70 . 1) (1 . "mnmoo mh m mi          ") (1 . "ni + w' ^8 d+ l1 c; z0 I& a. k
^*+0;:,4 ^*+0\\^[ nh ^LR nmqoqnqfnj QK o  ") (1 . "n fqfffffffffffffffj:rooh ' D1 A. Y! L) D, p8 F/ ?
n:rono ") (1 . ">,27:>;:- {rn rn _nn mnmqoqnqfnj |") (1 . "=0;& {rn rn {rn {m
$ Z5 F4 l9 W9 |) o# c{rn {rn |") (1 . "3*2/ {rn rn {rn {rn {l {n |") (1 . ",7:33 {rn rn {rn {rn {rn ( @9 \, s8 _& @2 z6 F6 {* r
{k {rn {m |") (1 . "9><: {rn rn {rn {rn {j {l {rn {i 90-(>-; ;0*=3: 0*+ |") (1 , T& O% p: y/ p3 D) `5 S, d
. "300/ {rn rn {rn {rn {h {k |") (1 . "/3>1:r,*-9><: {rn rn {rn jo jo o o o n n & r$ T$ M' z! [, t+ [7 N# ~
o o 90-(>-;@) V V V V |") (1 . "<0:;8: {rn rn {rn {g {f {rn {no -:-,:; {j {rn 2 I( ?  H8 `/ d# K# @
|") (1 . "<0:;8: {rn rn {rn {nn {h {rn {nm -:):-,:; {j {rn |") (1 . "<0:;8: {rn
. N8 g' N7 a% j4 J' {, Grn {rn {h {nn {rn {nl -:):-,:; {j {rn |") (1 . ":;8: {rn rn {rn {nk o {nj noo
. R, [3 X6 a9 ?0 r+ Q7 h- M$ @{h {ni 90-(>-; _h *1410(1 |") (1 . "<0:;8: {rn rn {rn {f {g {rn {nh -:):-,:; {j
0 K2 C* l, ]* s$ U/ Y, O{rn |") (1 . ":;8: {rn rn {rn {ng o {nk noo {g {nf 90-(>-; _h *1410(1 |") (1 . : L& h! v5 z+ Z) n. h' U
":;8: {rn rn {rn {nj o {mo noo {f {mn 90-(>-; _h *1410(1 |") (1 . "):-+:' {rn * n9 ?" N2 G1 u8 a( `0 q
rn {rn {no o {mm |") (1 . "):-+:' {rn rn {rn {no n {ml |") (1 . ",+->687+r<*-):
& O1 z+ S$ ]) p! r: ]; O{rn rn {rn o o o o n o V V |") (1 . ":;8: {rn rn {rn {mo o {ng noo {nn {mk
$ S" q) i* @" n, Q) N; D" b90-(>-; _h *1410(1 |") (1 . "):-+:' {rn rn {rn {nh n {mj |") (1 . % A/ C% I* ^, w, O& D
",+->687+r<*-): {rn rn {rn noo o o rn o o V V |") (1 . "):-+:' {rn rn {rn {nl n 2 k) `3 ^9 t  x9 d! p
{mi |") (1 . ",+->687+r<*-): {rn rn {rn o noo o n o o V V |") (1 . "/061+ {rn ; k3 c( z- g; H4 x! v3 y( D
rn {rn o o o |") (1 . "/061+ {rn rn {rn o noo o |") (1 . ",+->687+r<*-): {rn rn
0 i$ }0 Q( e! u' C( V7 m5 n3 f{rn noo noo o o rn o V V |") (1 . "/061+ {rn rn {rn noo o o |") (1 . "/061+ {rn 4 V' A/ L0 x( {% B* N+ c
rn {rn noo noo o |"))
7 x5 k% D. Q" n4 F  i
, F3 ^* e0 z' q* N( d+ }" Z[ 本帖最后由 sealive_leafage 于 2008-7-2 22:05 编辑 ]
 楼主| 发表于 2008-7-1 23:04:47 | 显示全部楼层 来自: 中国山西太原

回复 3# 的帖子

请问楼主:5 k' \; R& X8 m+ H6 x, p7 K

! F+ Q8 }8 T! s: L我想知道面域后图象的名称等属性
发表于 2009-1-22 17:41:05 | 显示全部楼层 来自: 中国台湾
;;;选取"REGION" 物件改变座标系统' K$ v0 z( t3 W# j
如果用entsel单选方式没有问题  o# I4 V9 P1 z9 f5 _3 P( g: ]
(command "ucs" "ob" (cadr (entsel))) ;;;针对"REGION" 物件, J1 U5 M  D, ?9 ~; e7 k. a( W
(command "ucs" "ob" (entsel))        ;;;一般物件
/ M3 K% P! R0 ]. c
- I' @( a: k: m% M如果用ssget多选方式有问题,该如何修正呢?! c$ E# F5 L$ \" O! Y
(setq ss (ssget '((0 . "REGION"))) i 0)0 n* R5 t+ l. o
(repeat (sslength ss)) |+ N* H: H: l, L" _) L# X
     (setq ssn (ssname ss i))) _9 R/ g8 L1 O2 l' u
     (command "ucs" "ob" (CADR ssn))2 V- y% f: H6 s$ Y+ C1 P
    (setq i (1+ i))
* Q9 K2 e1 S; b: {; p. ]2 V/ d" ` ) ;;repeat8 e. H. R6 L; r, _! X
期盼高手指点,如何解决这个问题?
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


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

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

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