|
发表于 2003-6-11 05:48:00
|
显示全部楼层
(defun c:test ()
(vl-load-com)
(setq ss (ssget "X" '((0 . "*LINE,ARC,CIRCLE,ELLIPSE")))
m 0)
(while (vla-object e1)
n (1+ m))
(while (vla-object e2)
pts (vla-intersectwith e1 e2 0)
pts (vlax-variant-value pts))
(if (> (vlax-safearray-get-u-bound pts 1) 0)
(progn
(setq pts (vlax-safearray->list pts))
(while (> (length pts) 0)
(setq pl (cons (list (car pts)
(cadr pts)
(caddr pts))
pl)
pts (cdddr pts))
)
)
)
(setq n (1+ n))
)
(setq m (1+ m))
)
pl
);defun |
|