QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
8天前
查看: 3320|回复: 4
收起左侧

[求助] lisp中的面域问题

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

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

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

x
通过LISP语言作一图,再进行面域.问题如何取得面域后图形的对象
( z4 k- x7 G7 ?4 Y! I6 U8 o% |
5 r9 \, q- @( H! s) N8 B2 Z如用(command "circle"...........)画圆,用entlast命令可取得其对象名,此时再进行面域,对象名又是什么?如何得到?
发表于 2008-7-1 17:24:01 | 显示全部楼层 来自: 中国辽宁鞍山
我觉得应该还是Entlast 因为面域是新生成的对象

评分

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

查看全部评分

发表于 2008-7-1 22:25:33 | 显示全部楼层 来自: 中国浙江宁波
以画一个正方形为例,然后生成面域:
$ T- o1 l0 _7 f(command "line" "0,0" "0,100" ""1 R4 Z2 y4 c1 x7 i, J: r! A
(setq l1 (entlast))6 G! V5 A" G6 a7 t7 V9 H
(command "line" "0,100" "100,100" "")5 Z3 L* t5 \7 H# _( i* J6 h9 v- m
(setq l2 (entlast))
* J% S1 T- U6 g& T9 ^(command "line" "100,100" "100,0" ""): J( N* i- }# `/ X* |- U% Y" s
(setq l3 (entlast))5 F6 l' H( P& D/ q1 P
(command "line" "100,0" "0,0" "")% k- ~2 K6 i* L3 {& G
(setq l4 (entlast))
1 X; F" r  E9 [8 P5 W+ U% k9 N% |, W(command "region" l1 l2 l3 l4 "")
6 X( M; J7 F+ {% D3 f(setq en (entlast))
5 t, Z' c! A; D4 J+ q! B(entget en)+ W3 Z+ c! f4 s* T% F) u
下面是执行完上面代码后得到的REGION对象的DXF组码,其属性都可以看到了
# ?0 R5 E9 X: T" \! s((-1 . <图元名: 7ef01f98>) (0 . "REGION") (330 . <图元名: 7ef01f28>) (5 . "73") (100
0 O$ L1 d) k% f. j# M! T. "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
/ I  N% Y9 H9 J* ?# {9 K) Q"AcDbModelerGeometry") (70 . 1) (1 . "mnmoo mh m mi          ") (1 . "ni
0 l7 B, ]1 |, Q  [; k^*+0;:,4 ^*+0\\^[ nh ^LR nmqoqnqfnj QK o  ") (1 . "n fqfffffffffffffffj:rooh 7 B# G% `1 X2 v' S
n:rono ") (1 . ">,27:>;:- {rn rn _nn mnmqoqnqfnj |") (1 . "=0;& {rn rn {rn {m ! ~. m9 j1 `" }9 m
{rn {rn |") (1 . "3*2/ {rn rn {rn {rn {l {n |") (1 . ",7:33 {rn rn {rn {rn {rn * c  V8 J/ A) e$ G( b* y% B& T
{k {rn {m |") (1 . "9><: {rn rn {rn {rn {j {l {rn {i 90-(>-; ;0*=3: 0*+ |") (1
. B+ W2 x) _, V+ S: X" C6 M. "300/ {rn rn {rn {rn {h {k |") (1 . "/3>1:r,*-9><: {rn rn {rn jo jo o o o n n
* M7 o% K  D2 s2 V. V9 q. d% Mo o 90-(>-;@) V V V V |") (1 . "<0:;8: {rn rn {rn {g {f {rn {no -:-,:; {j {rn & k' d* F: d  T6 M. F
|") (1 . "<0:;8: {rn rn {rn {nn {h {rn {nm -:):-,:; {j {rn |") (1 . "<0:;8: {rn 8 s  i0 ?. v. N7 l' d9 o* M
rn {rn {h {nn {rn {nl -:):-,:; {j {rn |") (1 . ":;8: {rn rn {rn {nk o {nj noo ) m" I% `% }* i$ k9 c; W9 r+ D, `, B
{h {ni 90-(>-; _h *1410(1 |") (1 . "<0:;8: {rn rn {rn {f {g {rn {nh -:):-,:; {j
# i. [5 `. {4 w* a4 M: B5 G{rn |") (1 . ":;8: {rn rn {rn {ng o {nk noo {g {nf 90-(>-; _h *1410(1 |") (1 . ) |+ W8 o; X  h3 i+ @/ _. l
":;8: {rn rn {rn {nj o {mo noo {f {mn 90-(>-; _h *1410(1 |") (1 . "):-+:' {rn
0 W: X/ \8 o+ B3 zrn {rn {no o {mm |") (1 . "):-+:' {rn rn {rn {no n {ml |") (1 . ",+->687+r<*-):
* g; N& X3 B1 x{rn rn {rn o o o o n o V V |") (1 . ":;8: {rn rn {rn {mo o {ng noo {nn {mk # d) u0 p  o4 o' a
90-(>-; _h *1410(1 |") (1 . "):-+:' {rn rn {rn {nh n {mj |") (1 .
/ N. H- c+ @0 ~# X3 T",+->687+r<*-): {rn rn {rn noo o o rn o o V V |") (1 . "):-+:' {rn rn {rn {nl n
# {" a$ z9 r! r{mi |") (1 . ",+->687+r<*-): {rn rn {rn o noo o n o o V V |") (1 . "/061+ {rn
( }0 P9 O% W$ m: urn {rn o o o |") (1 . "/061+ {rn rn {rn o noo o |") (1 . ",+->687+r<*-): {rn rn
) |0 U5 ?( p; l: C; z) f' L# W- o{rn noo noo o o rn o V V |") (1 . "/061+ {rn rn {rn noo o o |") (1 . "/061+ {rn * P, e2 p* k  m4 ^8 q" t: z7 ~' A
rn {rn noo noo o |"))0 J% K& _$ H) A( I
. F% D6 c* |8 U' j  s% p, ^
[ 本帖最后由 sealive_leafage 于 2008-7-2 22:05 编辑 ]
 楼主| 发表于 2008-7-1 23:04:47 | 显示全部楼层 来自: 中国山西太原

回复 3# 的帖子

请问楼主:# M! D6 \. U9 `: t

4 N9 c6 {$ d( z* U7 M5 t8 E4 `我想知道面域后图象的名称等属性
发表于 2009-1-22 17:41:05 | 显示全部楼层 来自: 中国台湾
;;;选取"REGION" 物件改变座标系统
. l  o! E0 A' e, J! O- [) x, j6 b如果用entsel单选方式没有问题" ?# [* g. A4 s8 T1 {2 j
(command "ucs" "ob" (cadr (entsel))) ;;;针对"REGION" 物件- Q2 Y1 y7 T8 P9 B% ~  q
(command "ucs" "ob" (entsel))        ;;;一般物件
- x3 C+ {& ~$ C9 \" p) E0 k& r2 B+ p2 z" j0 y# V
如果用ssget多选方式有问题,该如何修正呢?
7 H* d6 _" b5 ?4 i) n# L. l7 {(setq ss (ssget '((0 . "REGION"))) i 0)& r- C1 s  }# P) z! [7 }9 \+ J/ Z! j
(repeat (sslength ss)6 {. [* `& @8 j5 T+ U
     (setq ssn (ssname ss i))
! a% |2 M& C* G1 ]. G     (command "ucs" "ob" (CADR ssn))* x8 C: Z3 A! i* q* X
    (setq i (1+ i))
& }" [4 ^0 o& c, {0 v ) ;;repeat
6 m# U! A" Z6 }9 C% r3 f) u# a期盼高手指点,如何解决这个问题?
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


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

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

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