;;;
本插件为
AutoCADlisp
插件,用于获取
LINE
命令绘出的线段的交点,交点坐标返回为被交
线段上的点(即外观交点
xy+
被交线段对应该点的
z
值)
;;;
获取切割线与相交直线的交点,返回被交线段上的交点。
(defun C:JDHQ()
(setvar "cmdecho" 0)
(princ "\n
选择要切割的直线:
")
(setq lll(entsel));
选择直线
;;;
;
取得直线起点零高程坐标列表
(setq lllxyz1(cdr (assoc 10 (entget (car lll)))))
(setq lllx1(nth 1 lllxyz1))
(setq llly1(nth 0 lllxyz1))
(setq lllxyz10 (list llly1 lllx1 0.0))
;;;
;
取得直线终点零高程坐标列表
(setq lllxyz2(cdr(assoc 11 (entget (car lll)))))
(setq lllx2(nth 1 lllxyz2))
(setq llly2(nth 0 lllxyz2))
(setq lllxyz20 (list llly2 lllx2 0.0))
;;;
(princ "\n
选择被相交的直线图元集:
")
<