下面的程序能得到二维平面内的直线端点坐标，为什么不能选取到三维立方体。。。
下面的程序能得到二维平面内的直线端点坐标，为什么不能选取到三维立方体中的边界直线呢？
请问：
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的坐标")
(princp1)
(princ "\n")
(princ "端点2的坐标")
(princp2)
)(progn
(princ "\n选择的不是直线")
))
)(progn
(princ "\n没有选择到直线。")
))
(princ)
)
页:
[1]