请教（获取直线端点坐标的程序）：二维的ok，但解决三维的方法中...

hlzhong

前面曾问过：要想得到三维模型的顶点坐标，如何能选择到三维实体的边的问题，有高手说：“先选择实体，再用边复制命令”就行，试过好像不行啊！根本选不到边啊，如何复制，还请赐教啊！下面的程序针对二维ok。

(defun c:glp(/ ent el p1 p2)
  (setq ent (car (entsel "\n请选取直线：")))  ;;ent 为实体名
   (if ent (progn                  
       (setq el (entget ent))
       (if (equal (cdr (assoc 0 el)) "LINE")
         (progn
           (setq p1 (cdr (assoc 10 el)))    ;;p1,p2分别为直线的起、终点
           (setq p2 (cdr (assoc 11 el)))
           (princ "\n")
           (princ "端点1的坐标")
           (princ  p1)
           (princ "\n")
           (princ "端点2的坐标")
           (princ  p2)
          )(progn
           (princ "\n选择的不是直线")
       ))
    )(progn
     (princ "\n没有选择到直线。")
   ))
   (princ)
)

龙龙仔

http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&RootID=16666&ID=16686

ZHUQI75

使用SOLIDEDIT方法