cad沿线插入块 lisp_在交点上插入图块或圆的lisp程序 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...

插入方框代码：

;;;计算曲线交点

(defun Curveinters (en1 en2 / pl pts)

(setq pl  (vlax-invoke (vlax-ename->vla-object en2) 'IntersectWith (vlax-ename->vla-object en1) acExtendNone))

(while pl

(setq pts (append pts (list (list (car pl) (cadr pl) (caddr pl))))

pl (cdr (cdr (cdr pl)))

)

)

pts

)

;;;曲线选择集交点

(defun ssinters (ss / pts en1 en2)

(while (> (sslength ss) 1)

(setq en1 (ssname ss 0))

(ssdel en1 ss)

(setq n (sslength ss))

(repeat n

(setq en2 (ssname ss (setq n (1- n))))

(setq pts (append pts (Curveinters en1 en2)))

)

)

pts

)

;;;画框

(defun drawbox (pt d / r en ang)

(setq en (ssget pt '((0 . "*line"))))

(setq en (ssname en 0))

(setq ang (angle pt (mapcar '+ pt (vlax-curve-getFirs