fun4love
fun4love
关注数: 1
粉丝数: 1
发帖数: 17
关注贴吧数: 0
求大神指点 主要用途是：获取两条相交直线的焦点，然后在交点处画点。 导入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) )
来来来，各T来晒油耗；） 我先来，1.4T 2000转换档、轻柔加油、市区环线多、油耗二6升左右的飘过 6升左右哦
1
下一页
