求助：怎样将cad中的点批量转换成十字线

pym1703

求助：怎样将cad中的点批量转换成十字线，两条线段相交的那种，不是点样式中的？

SunVei

;; 雏型 For test only
(defun C:test ()
+ c6 W& J# T2 |  N   (cond
9 _. `, D* b+ g4 |; s. E    ((setq ss (ssget "X" '((0 . "POINT"))))
     (setq i 0
& k; J8 Y! Z5 I+ G          v1 (/ Pi 2)
          v3 (* v1 3)
% S. @7 @& P5 I  o! K          dd 1    ; 改 dd 值 ==> 十的大小
     )
' _* w# w. G0 |" C; I2 M  Z+ x' z     
+ r: n8 z1 M0 m3 O3 g- q0 t     (while (setq ee (ssname ss i))
       (setq pt (cdr (assoc 10 (entget ee)))
6 V' O. j3 r6 T- j9 {' E$ X$ u1 Z             pa (polar pt Pi dd)
             pb (polar pt 0.0 dd)
             pc (polar pt v1 dd)
             pd (polar pt v3 dd)
- O$ [/ n$ I! a! W4 Y              i (1+ i)
       )
       (entdel ee)
8 J' }& w- b  X7 d$ d* ]! Y0 v% b. p' ]       (command "LINE" "none" pa "none" pb "")
# v" W1 t0 S. ^9 c: W       (command "LINE" "none" pc "none" pd "")
2 U4 W' U% x" R( g8 M) k  y   )))
)

pym1703

谢谢你的回复，本人CAD开发学的很菜，不知道怎没应用，还请高手指点，谢谢。QQ:280236670

SunVei

现成的教学
http://www.google.com/search?as_ ... +%E6%90%9C%E5%B0%8B