|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
lisp 可是使用後確有問題，會出現 "; 錯誤: no function definition: XDRX_ENTSEL") I/ W0 N6 ~& Y7 S. q
(defun c:123 (/ get_all_lyr pick_lyr xdrx_redraw n lyrl sline rline
7 v+ j L$ b1 e6 a# f* n& }) O, e0 T R
sarc rarc rcir
3 J ~: @0 d4 p7 {5 U( ^( I
. i4 {) x, P- X6 G0 H2 R' e)
( e5 V6 S) t, G/ I7 Z
# {% R: \- l H- y0 L(defun get_all_lyr (/ lyr lyrl) ; 獲取所有層名
/ A9 \, R2 T6 M5 v9 z% x9 j
+ B( P& Y* B! v' b1 i+ S(xdrx_object_get "layer")
1 m1 i* @0 U3 v2 v' j7 O$ |1 ]; s6 O: H" V) I
(while (setq lyr (xdrx_object_next)) 5 P$ {2 Y& |2 Z' O% w1 R# O. c
0 r7 `* }4 D8 w" d' F) v
(setq lyrl (cons lyr lyrl)) . `+ E) j% t q4 v7 _6 d. B
l: u: ^0 Q2 V$ \$ ~ o8 w)
6 B8 r& B: D U; Y" [* d
0 @' q, \5 k+ G7 \0 S8 [(mapcar
- K+ a/ A X& `6 A4 a, x
+ \( ^: k; ?, O( J) C, N'car
; ^1 D( B2 R4 M! h$ H/ F' r$ N3 W5 W+ q ^
(reverse lyrl) % d' k. ?9 Q, d8 B, `3 i2 w
! _% t3 k. p5 {9 Y+ _ I X& a
)
8 x" T) q9 n1 |3 f# g
9 |" }6 k5 ~) f% q) 9 k% ]3 v) F4 v7 e
0 b+ b8 J/ B$ t2 z- e1 w
(defun xdrx_redraw (ss mode / e)
& t$ l+ E: @. V
, N5 V' f( c3 ]7 Z- H0 k [(xdrx_setsstodb ss 0) 8 U, C J% |2 `3 ~
0 W; U) H. M) ~* a1 I7 N: d
(while (setq e (xdrx_getentdata 0))
- l8 F0 m2 H* I) s; A5 W$ o! }' {8 l8 ]. j
(redraw e mode)
/ W9 \1 e/ g* }8 w: a% u, K6 y
( g9 W% t3 H* T1 l# @) 0 ^- p6 H7 i0 W3 N7 r
- K. c( M9 \+ {$ A2 j. e5 ^7 F
)
9 h2 k) X8 C" g* A
8 j3 b, y2 h6 A' Y(defun pick_lyr (msg / lyrl lyr e) 3 S8 I8 b+ Y; {' m( m+ e
& m$ h, V7 V Y) W- l6 p, P: ^
(while (setq e (car (xdrx_entsel msg))) 9 j" S! h6 r: C! g6 y
& g3 B% p$ j5 `) r% r3 E
(xdrx_setenttodb e) - q; O% b& d; |( y. w4 F
! a, s' J1 R& b7 u$ R(setq lyr (xdrx_getentdxf 8)) $ Z! f0 I. } M
" C1 Y( ]+ S- S2 K3 w& \1 w(if (not (member lyr lyrl)) ' E( C1 M- v+ H7 f3 h7 S
6 R5 T8 j. e; e3 E7 q, \(progn
8 ^- _$ ] J! W/ D* m
7 E/ ?( v& q2 n( i. t; t4 ^(setq lxd lyr) & f' t; o3 c6 S( z* J
4 s: b: f9 h" x. m P, q4 l(setq lyrl (cons lyr lyrl)) ; (xdrx_redraw (ssget "x" (list , F1 f$ V; s- l$ R# s
; R# q' h3 N% V
; (cons 8 lyr))) 3) - ~/ |! \1 _* C h
4 E. A* {3 I9 C+ X5 C)
0 w3 K/ W5 q6 J; l' R G; w: Y; v
(progn
0 J `/ Z4 [) c# a2 E
: S e% n. c% `(xdrx_system_beep 1000 1000)
9 D3 H# F M2 c
3 D* a( W; B0 y* |3 R: E(prompt (strcat "\n 層" lyr "已經選中，再選!")) 1 W0 R% s W2 L
/ J! S2 x2 H5 b5 I)
. E/ r5 Q) }9 t( G* l" W) g+ {% s% }& q4 b& ? o; }
) 3 y5 E* W0 V* `/ w8 n/ ~
0 |4 }2 `+ w- f5 A0 r0 y) 2 x5 ~$ f: j1 O- e8 j: C
6 i S s& V3 x8 i/ O(reverse lyrl) 2 P) j# t e- G8 s
) z7 S, g6 v! n' l9 ~+ R# E)
4 _( `7 P0 T: e8 R7 P2 _" U+ E. G. u: j! t l
(if (not (setq lyrl (pick_lyr "\n請點取要消重曲線(line,arc,circle)所在層的實體<所有層>"))) + D' R/ q8 M/ K, o+ A9 C# |! u) G4 `
# Y$ R2 ~4 n/ X8 s3 Q" h(setq lyrl (get_all_lyr))
1 ?2 |9 u4 f0 G# [3 j8 u4 c: C4 U- S( P; \; T: r, S
) # e+ o+ {! S! e* f4 s$ p L: F
/ Z# v8 q% R3 d# f
(setq short_l 100) ; 超短線長度，可以修改該值 . }2 W3 v O \" I5 h9 y
' ]2 t* G) e9 N0 F
(foreach n lyrl ) Y9 o# B6 x; ~5 S( u
1 D: P8 ^/ h, w- ]3 n(if (setq ss (ssget "x" (list (cons 8 n) '(0 . "line,arc,circle")))) , T6 ?, ?0 t7 \% P
* J) k+ u' h2 Y4 Q$ B: C4 D: S$ r/ N
(progn 7 I$ Z r* X0 n+ E, D3 ?
+ F5 O/ [/ H; t) C/ {
(prompt (strcat "\n處理" n "層中，稍後..."))
% b+ a0 h0 u; n$ d- U d: l; q2 U! J" y
(setq num (xdrx_curve_remove_dup ss short_l 10 100))
" f2 N+ V: i7 x9 O. L2 M8 i1 r2 o
(setq len (sslength ss)
: S- v- q% d c* W* ~3 t7 k: F( u: \- `$ N6 s: {: h
sline (cadar num)
2 R# e' K& J! S3 W& i1 \& s, K
( X! V6 e9 u; k9 ?5 R7 ~/ q4 @4 yrline (caar num) ; O* R7 H& K1 u
1 H) A: L$ R$ i! Z! ~2 }rarc (caadr num) 4 p# l( i6 u6 L! B% u, Z! k
3 W! }, V4 w& c
sarc (cadadr num) K8 u; d! a, T: }) Q
. F1 B) U& H" F4 J
rcir (car (last num)) , c$ O2 b7 K: f5 p% J+ S9 K
4 J9 J4 q7 J) C$ Y: o- A8 T)
. E- X* _ O( c: `) q' I
6 ]* b/ b: j( e. N/ _& X+ |0 _7 _(prompt (strcat "\n 搜索到 Line,Arc,Circle 共:" (itoa len) 5 E( B5 x0 a# [0 b* j
3 }2 s5 V2 V& D1 E"\n 刪除超短線: " (itoa sline) " 刪除重線: " ; _5 B" X" K7 M# @; V! J5 v
3 t- w& d9 i$ }
(itoa rline) "\n 刪除超短弧: " (itoa sarc) - G9 g% d9 Q" @# ~, Z( a
. M# h8 F: N. b' e ]0 ]9 S" 刪除重弧: " (itoa rarc) "\n 刪除重圓: "
; T% Q1 D* M- E4 y4 @) j- F" Q6 @+ c2 C2 H" i- S
(itoa rcir) "\n 還剩: " (itoa (- len sline rline . \5 m4 |, c2 Y3 J7 h1 Z, W3 k, ^
, E6 M" c% D- X U4 I# w4 E3 Q
sarc rarc rcir % w+ \, t. [& C, v3 q& l
0 W/ O% W3 ]$ R* ` U
)
: T" Q6 B3 {& B4 V: b u: J4 t) f+ J6 g! X# ]# Q# I
) / {1 o4 B! S) P! H
* l1 k+ _! u$ o
)
( R. a8 K! _" n$ z8 ]
! ~) A8 k9 o1 l: I$ r)
, |* F& _' Q5 e1 V& E: K$ x
% j6 m9 i( s# F8 g# j8 ` s& A(princ "\n") . i. m% ?" V' A3 `, f- T
2 J6 S" X! W: P) U* l) v) R5 K# I: a' Y; s4 O O* _1 |% f) j6 n
5 ]" {3 d4 D$ J4 a0 V( {) 1 O9 q+ U! f! F
~9 U4 T" S, g* b3 p
) - }: C; u! N% H, E, M
F' K2 |, G3 e& j. ~+ [4 \8 g
(princ) 7 Y& ^. h* c% n2 @0 g
1 }+ ?5 P! Z% f9 K$ F' m1 _- a) |
|
发表于 2009-8-5 12:22:02
