|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
lisp 可是使用後確有問題，會出現 "; 錯誤: no function definition: XDRX_ENTSEL"
4 P6 h- t0 c1 s+ \(defun c:123 (/ get_all_lyr pick_lyr xdrx_redraw n lyrl sline rline / Z( K d, Z4 y0 u0 C) f- K
+ A* X w6 P& N/ V2 U# k6 o! L- S3 R
sarc rarc rcir
9 v6 Y% }0 b5 ^/ \ q; d5 r# e
' s- j% e$ K& s" }. |6 K) 2 b0 e3 |7 v! y( ]# ]6 p
; U2 @2 L4 r+ D" V
(defun get_all_lyr (/ lyr lyrl) ; 獲取所有層名 b9 u# w N5 U( d% k8 K% Y, h
1 w% y6 ^2 A! v& V& M: q: h
(xdrx_object_get "layer")
2 A6 q3 M) L* g6 c1 P# f+ i& W' G6 P& V9 B
(while (setq lyr (xdrx_object_next))
5 \- Z F8 S( H5 V8 ?6 e( x
/ d L' }% {4 X& C( G1 N2 c* u(setq lyrl (cons lyr lyrl)) 7 m: ?4 D% b2 m; C5 y
( X" u: U& {! ^( \" G, Q% ]9 D
) 4 }: l9 m/ ?- Y4 P( Q) ^& f4 I
9 |1 y: S' o/ `' |' h(mapcar
5 P0 O- a# ^% ]: }/ X* G0 h: S
$ _( t' H6 r& H1 F$ \'car
, m1 }7 x8 E! f7 u: J0 L& B, P& ]: A, M$ b
(reverse lyrl)
5 M! F+ U' O( P$ d4 n% `5 d" U- s" l" t" P' T: y! ?7 x1 { i) D1 {
)
! z" g0 K) ]; P. A# q! A& M. J5 G* W: B0 A, u; j7 }( @" d
) _0 p! @3 n0 j& i
, Y `( V. `9 q0 X4 v
(defun xdrx_redraw (ss mode / e) " l5 f6 D7 W5 E7 ~7 O7 U' S0 a! P0 F
. E% t/ I' L6 w* l
(xdrx_setsstodb ss 0)
: `7 l9 q$ M' H' }
& D$ S6 K3 B X/ Y# k; R* h' q: @(while (setq e (xdrx_getentdata 0))
- F. Y& X3 g2 B( |) }; P* q
% `) w6 M% n# M( B7 C5 i; I7 {: k(redraw e mode) ( x9 ~6 |4 a- U* k4 n1 t' K* \$ x
, \, j& q6 D5 Q* b r$ A)
6 h5 B {3 |- ?; V4 W4 A+ F; ]
0 ~2 D c! `0 y4 ~, M5 N) " p8 K+ a, h6 O# `
1 c" @3 D) E& ?7 O! i7 q5 x7 x8 c6 _
(defun pick_lyr (msg / lyrl lyr e) 1 Z% A U! ?3 E" l" f/ y
6 C9 M- W5 _ T4 e# h$ g1 D
(while (setq e (car (xdrx_entsel msg)))
( O; B: p5 J8 ]) S1 u8 F* N* K# Q" _7 C0 n3 m/ |- r M
(xdrx_setenttodb e) + |/ @) d: W# q F5 L6 }& o
4 e$ e7 `3 _0 d/ ]4 U1 W1 r' u4 i: A
(setq lyr (xdrx_getentdxf 8)) + r4 r5 _ Q& m) ~4 P4 k) O2 h
, \5 J1 b0 t, g! `# ^
(if (not (member lyr lyrl))
! s0 a" s; e, a0 q+ d) M u; X6 u2 P8 X, L. C/ A
(progn
6 W$ L! ~/ y8 i0 K- L+ d. k: u+ q6 H. e, D/ b- v1 ^
(setq lxd lyr)
1 ~! _( U+ I. d2 W# B7 G2 E, \, {, K* W
(setq lyrl (cons lyr lyrl)) ; (xdrx_redraw (ssget "x" (list
; J4 T+ x" Z& }; _
: X8 Q1 K) M7 d. e" G# m# @+ C; (cons 8 lyr))) 3) ) G5 p: k- U9 R2 d% V2 t
1 p5 @) _# ]# ^' y/ O" I* \8 ~) 2 E, m7 e* h/ b' G
$ x- N) l6 D2 t* T8 c(progn 0 V1 ^! G; v5 H q+ b( S$ W% s
4 J ~5 }2 J" I(xdrx_system_beep 1000 1000)
/ d r1 \) `* \$ @. M$ u& G! z! G! K2 V& z6 r) r# O
(prompt (strcat "\n 層" lyr "已經選中，再選!"))
1 R) U0 w/ e$ G" d* ~ }% v, }3 R1 p, H! B
)
% M# F0 _8 Z. i$ P. r
. B p. T P$ e3 p)
6 M' z4 Z4 ]" C! I" ?& k6 L" Q: E8 Z
) 9 k/ J" o/ I6 b. v& K
; V$ Y' _# E M0 V9 p, a(reverse lyrl) ) w" ~, Y! {0 y7 X' t/ D
# G( y) ?* S a0 C# h- C; z' m
)
8 E4 Y4 I& v9 v& S, w/ i; o% t# v" Q; u: f1 z5 n4 s
(if (not (setq lyrl (pick_lyr "\n請點取要消重曲線(line,arc,circle)所在層的實體<所有層>")))
) H; m! b9 G0 r/ U; B8 h
3 [, @$ d$ C* `1 _(setq lyrl (get_all_lyr)) # h7 P0 E: z2 O% G$ ?9 G
" r# O( H/ J# K# o* `1 ^$ K9 q
)
' u$ z4 w4 z3 V; \& W/ [6 T
8 H, _: }8 Y9 t: H# Q(setq short_l 100) ; 超短線長度，可以修改該值
4 a7 a( X* P$ w! l" h$ R3 Y/ O. j* q) b
(foreach n lyrl
! _( h! W( t W$ S! H! W; R( s5 B+ M7 C6 \, x2 \
(if (setq ss (ssget "x" (list (cons 8 n) '(0 . "line,arc,circle"))))
! |" s- J) D. m9 ]1 x( M3 c% B( u- }' ^& U h2 G2 J
(progn % z5 S5 K! C/ Q* Y8 C( l
) v' W5 W7 p% {4 o! U(prompt (strcat "\n處理" n "層中，稍後...")) 8 N5 L, O9 F m1 C7 h
5 G( g; M+ U% c+ v0 W$ y(setq num (xdrx_curve_remove_dup ss short_l 10 100))
' u7 I/ l# M1 j% S7 q4 }
! j; ~! a1 p2 R! `$ G( n" K1 o: f(setq len (sslength ss) & ^! L1 i( R7 C4 a Y
, M, O t. N: a. z! \
sline (cadar num) ( V! B; K V: K1 i4 _9 `: |
8 z- o' g- X, |7 L) l
rline (caar num)
1 p! n2 N( g3 N$ ?0 c7 C, D5 L! Y* E
rarc (caadr num)
f# {9 g& r) H2 w9 W
- Y0 \- g0 D* M$ s- i/ L# Wsarc (cadadr num)
, R+ x1 J4 K; s R3 a. Y
. j A0 y; i5 R$ b3 ?2 w; grcir (car (last num)) W. ?6 }# I; r) f! N p8 z
) v/ S& r. B) M0 Y) ) e0 ]8 {& v" u5 F6 I1 e
' {2 S5 o, l7 i5 J: k
(prompt (strcat "\n 搜索到 Line,Arc,Circle 共:" (itoa len) % g) c- f. Q# S% K3 { v
. F( C. g) ]5 H, w( T% D" Q
"\n 刪除超短線: " (itoa sline) " 刪除重線: "
. Y/ q" c+ ^9 x8 Y9 [3 E" ]+ c8 ?4 L G: n/ r8 t& _* l
(itoa rline) "\n 刪除超短弧: " (itoa sarc) ) h, r" ?3 \: G! ]6 ^ W4 L
& u: ]! S6 k# J7 F% H! _" 刪除重弧: " (itoa rarc) "\n 刪除重圓: " ( R* g1 @; r b
3 l3 U) O ~! ~. V& q F4 U(itoa rcir) "\n 還剩: " (itoa (- len sline rline ) z, {6 v) B! C7 ]3 B3 b E
, p( D4 e* \! X- {0 Z7 N
sarc rarc rcir ]( `& K5 z5 X n# R- `* I
+ G# P: `. Q% O. f' p" E m
)
+ e! ]! }8 q+ B1 m- n
$ n/ _0 n! N3 Q+ W' e% ?) $ u& l0 {3 ]! t6 e p* A
. ^; y+ z, M' S8 j) & q: ~/ h9 L( V }! e) n" R
6 a7 P ]4 q$ j7 ?* H8 q) 3 |) ~& R r% K& h8 b7 W K
+ j2 B# \1 @9 [( D9 q
(princ "\n") - E7 w3 o0 M" L ~( `8 H- B
; u; c- N' J# c/ j) 7 o3 x. N; w( D/ ~/ ^& F
3 X$ {6 }7 ]4 \# A( Q; Y
) / c3 I: R( d/ M8 k2 J3 K
p Z9 p' y* O$ r) 2 O. d- e- y) U* \6 o% d
" N9 Z8 E2 c6 b0 u3 a* n(princ) 4 H' }) E3 E/ ?/ W/ ~; Q( }* W8 N
* r/ }; @6 ]9 d
) |
|
发表于 2009-8-5 12:22:02
