lisp点位提取_AutoCADlisp插件三维交点坐标提取

;;;

本插件为

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

选择被相交的直线图元集：

")

<