QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
11天前
查看: 3279|回复: 4
收起左侧

[求助] lisp中的面域问题

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

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

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

x
通过LISP语言作一图,再进行面域.问题如何取得面域后图形的对象
0 Z* j$ h: y" V
7 a7 X/ P, r% c/ A% I如用(command "circle"...........)画圆,用entlast命令可取得其对象名,此时再进行面域,对象名又是什么?如何得到?
发表于 2008-7-1 17:24:01 | 显示全部楼层 来自: 中国辽宁鞍山
我觉得应该还是Entlast 因为面域是新生成的对象

评分

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

查看全部评分

发表于 2008-7-1 22:25:33 | 显示全部楼层 来自: 中国浙江宁波
以画一个正方形为例,然后生成面域:
7 e* h: [, u+ |5 O) a: A2 g, @0 ?(command "line" "0,0" "0,100" "", A) D9 G7 Z, n: D, V+ A2 l
(setq l1 (entlast))% m$ M$ r/ H0 {, y8 V9 s
(command "line" "0,100" "100,100" "")
8 T2 ^/ K7 N& Q(setq l2 (entlast))
1 A: N1 x- q6 G8 y2 b# N(command "line" "100,100" "100,0" "")9 t" m: l0 I1 Z  Q* h
(setq l3 (entlast))4 {* J0 M" j+ D; {+ \1 I1 E# t% `8 }
(command "line" "100,0" "0,0" "")
( ~/ _% x5 F/ ]. x0 R! E(setq l4 (entlast))
' P1 h+ h. e. v% T$ s) w" |- l(command "region" l1 l2 l3 l4 "")
9 N) e. ]# G4 [# r' V2 b(setq en (entlast))
% g/ |0 T8 R  }7 L6 m(entget en)
- k* S; h: p6 u" e1 J下面是执行完上面代码后得到的REGION对象的DXF组码,其属性都可以看到了
# A9 T4 p; Q( c) o3 @((-1 . <图元名: 7ef01f98>) (0 . "REGION") (330 . <图元名: 7ef01f28>) (5 . "73") (100 & l& e4 X  }( @( c
. "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
4 d. r) p+ g6 M6 w; a" D0 ~"AcDbModelerGeometry") (70 . 1) (1 . "mnmoo mh m mi          ") (1 . "ni 7 Y& D( ^: w4 R
^*+0;:,4 ^*+0\\^[ nh ^LR nmqoqnqfnj QK o  ") (1 . "n fqfffffffffffffffj:rooh
% E4 @* t; s! F" vn:rono ") (1 . ">,27:>;:- {rn rn _nn mnmqoqnqfnj |") (1 . "=0;& {rn rn {rn {m
3 }! M  k. R) v. s1 d; ~, c{rn {rn |") (1 . "3*2/ {rn rn {rn {rn {l {n |") (1 . ",7:33 {rn rn {rn {rn {rn
" m! H* J7 O/ K0 B1 l: ?& H6 y{k {rn {m |") (1 . "9><: {rn rn {rn {rn {j {l {rn {i 90-(>-; ;0*=3: 0*+ |") (1
7 ^7 t8 ?6 |) S% X- m5 o; M/ t0 o. O. "300/ {rn rn {rn {rn {h {k |") (1 . "/3>1:r,*-9><: {rn rn {rn jo jo o o o n n ' K& _% v2 \6 O) ~7 R. R  s7 C
o o 90-(>-;@) V V V V |") (1 . "<0:;8: {rn rn {rn {g {f {rn {no -:-,:; {j {rn
  w' J% v/ ?, k# Q|") (1 . "<0:;8: {rn rn {rn {nn {h {rn {nm -:):-,:; {j {rn |") (1 . "<0:;8: {rn * R0 k! j$ I  b
rn {rn {h {nn {rn {nl -:):-,:; {j {rn |") (1 . ":;8: {rn rn {rn {nk o {nj noo " x  c1 M0 k' c7 l' {. M0 P' r
{h {ni 90-(>-; _h *1410(1 |") (1 . "<0:;8: {rn rn {rn {f {g {rn {nh -:):-,:; {j ) @3 X, U' t! l- y! Y
{rn |") (1 . ":;8: {rn rn {rn {ng o {nk noo {g {nf 90-(>-; _h *1410(1 |") (1 . 4 t) Z1 z" k/ X* W& s
":;8: {rn rn {rn {nj o {mo noo {f {mn 90-(>-; _h *1410(1 |") (1 . "):-+:' {rn
8 @- V4 `  W4 D: hrn {rn {no o {mm |") (1 . "):-+:' {rn rn {rn {no n {ml |") (1 . ",+->687+r<*-):
) y' P" I$ O2 ~# ^  J' G{rn rn {rn o o o o n o V V |") (1 . ":;8: {rn rn {rn {mo o {ng noo {nn {mk
6 R7 f& Z0 j2 t/ {: p3 s: L90-(>-; _h *1410(1 |") (1 . "):-+:' {rn rn {rn {nh n {mj |") (1 .
, Z+ ?8 {' U( Q; T4 U1 t3 T",+->687+r<*-): {rn rn {rn noo o o rn o o V V |") (1 . "):-+:' {rn rn {rn {nl n ' I! G: ^0 n% ^6 i
{mi |") (1 . ",+->687+r<*-): {rn rn {rn o noo o n o o V V |") (1 . "/061+ {rn 3 R- d1 S# k, x& ~
rn {rn o o o |") (1 . "/061+ {rn rn {rn o noo o |") (1 . ",+->687+r<*-): {rn rn
) r7 `9 z2 z9 x6 s( |; c' `, }0 D' ^{rn noo noo o o rn o V V |") (1 . "/061+ {rn rn {rn noo o o |") (1 . "/061+ {rn
5 ?) |- |3 ^8 q& B- x6 C- Frn {rn noo noo o |"))0 M2 I! N9 s5 l# G$ Q( \4 ^7 L2 Z

+ M9 f6 _0 q0 \' H[ 本帖最后由 sealive_leafage 于 2008-7-2 22:05 编辑 ]
 楼主| 发表于 2008-7-1 23:04:47 | 显示全部楼层 来自: 中国山西太原

回复 3# 的帖子

请问楼主:
5 B1 r* t6 i: C/ C+ L: B8 o+ O1 X2 m' ^# m" a5 E
我想知道面域后图象的名称等属性
发表于 2009-1-22 17:41:05 | 显示全部楼层 来自: 中国台湾
;;;选取"REGION" 物件改变座标系统
7 ^5 F6 H3 x9 l3 G7 {$ y如果用entsel单选方式没有问题
. h3 M; k: S/ }. D(command "ucs" "ob" (cadr (entsel))) ;;;针对"REGION" 物件7 I! ^- M$ P" d" i' H- I* Y+ s
(command "ucs" "ob" (entsel))        ;;;一般物件* p  k* z/ p9 S& l5 V! H

$ e+ j0 D$ D* h4 [如果用ssget多选方式有问题,该如何修正呢?9 \! r- @! F( _3 Y" N6 c8 g
(setq ss (ssget '((0 . "REGION"))) i 0)
" ?- o% m: W: |( ~) h: w- u (repeat (sslength ss)" @6 S& ~% d3 {9 N
     (setq ssn (ssname ss i))
, ^# s9 Y# R* P8 h4 w6 K     (command "ucs" "ob" (CADR ssn)). l! B/ \. s4 X- i" W8 w0 H6 [4 _
    (setq i (1+ i))
" e0 r7 E6 l3 ~" ]4 ^+ q# e3 G ) ;;repeat
! G( W" P/ m/ G- B& M% O5 L期盼高手指点,如何解决这个问题?
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

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

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