下面的程序能得到二维平面内的直线端点坐标，为什么不能选取到三维立方体。。。

hlzhong

下面的程序能得到二维平面内的直线端点坐标，为什么不能选取到三维立方体
中的边界直线呢？
请问：
1。是不是因为整个实体己为基本单元，其中并无直线呢？
不知如何才2。得到三维实体的各顶点坐标呢？
3。如何开一个动态数组来存储三维实体中未知个数的顶点坐标呢？还请不惜赐教

啊！
(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)
)