|
|
发表于 2011-1-24 22:45:45
|
显示全部楼层
;; 雏型 For test only
; B4 Q2 w8 W' W5 [(defun C:test ()5 D* o6 P9 @5 q& r! W# I
(cond" ~% g/ g, _. H- a4 ^5 R/ R( G
((setq ss (ssget "X" '((0 . "POINT"))))5 N i$ u' G5 i( l
(setq i 0% y- \4 Y1 _$ |4 L
v1 (/ Pi 2). _% F, b* \) u" ~6 h9 G
v3 (* v1 3)
; B" l F) U+ c- ?1 ]! z dd 1 ; 改 dd 值 ==> 十的大小
2 M, d( C2 z; r+ ^7 w: B )$ O' M4 _+ x$ X- Q5 u4 p/ a9 I7 G- Y
6 a$ D% x$ u" J8 w
(while (setq ee (ssname ss i))
+ T8 p1 W# P5 r. b2 V% t (setq pt (cdr (assoc 10 (entget ee)))1 ?1 a3 o. s+ S& E$ f8 q8 l$ `
pa (polar pt Pi dd)
& |0 g. u1 S; a pb (polar pt 0.0 dd)
; }/ q$ X4 A, q+ e2 `! Q: F3 } pc (polar pt v1 dd)
9 H9 S' c' E* D5 o; L* v, R* G, w pd (polar pt v3 dd)' ]7 r/ ^1 H% R1 o1 P* r
i (1+ i)
/ Z, h0 T) v8 G; w* @. P: f )4 T: Z$ S1 E+ D6 Z2 Z4 N! m
(entdel ee)
: n* r) r" d! B6 L- v (command "LINE" "none" pa "none" pb "")
( Q) S6 B5 U8 c4 j% _% ~ (command "LINE" "none" pc "none" pd "")
6 [' O2 R T$ G )))
9 t3 a- P) w0 d, H, V* M1 _) |
评分
-
查看全部评分
|
楼主