主要用途是：获取两条相交直线的焦点，然后在交点处画点。
导入CAD时却提示如下：“
命令: _appload 已成功加载 YD.
LSP
。
命令: 输入的列表有缺陷
”
求大神修改，谢谢！
(defun c:YD()
(setq en (ssget (list '(0 . "spline,arc,line,ellipse,LWPOLYLINE"))));
(setq en_data (entget (car en))) ;取得元体资料串行
;******************** 求得 pt1 & px1、py1 *********************
(setq pts (assoc 10 en_data)) ;取得群码10的子串行
(setq pt1 (cdr pts)) ;取得起点pt1坐标
(setq px1 (car pt1)) ;取得pt1坐标的x值
(setq py1 (cadr pt1)) ;取得pt1坐标的y值
;******************** 求得 pt2 & px2、py2 ***********************
(setq pte (assoc 11 en_data)) ;取得群码11的子串行
(setq pt2 (cdr pte)) ;取得终点pt2坐标
(setq px2 (car pt2)) ;取得pt2坐标的x值
(setq py2 (cadr pt2)) ;取得pt2坐标的y值
(setq pp (inters px1 py1 px2 py2 nil)
(command "point" pp)
)