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

hlzhong 发表于 2003-1-17 10:38:00

前面曾问过：要想得到三维模型的顶点坐标，如何能选择到三维实体的边的问题，有高手说：“先选择实体，再用边复制命令”就行，试过好像不行啊！根本选不到边啊，如何复制，还请赐教啊！下面的程序针对二维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的坐标")
   (princp1)
   (princ "\n")
   (princ "端点2的坐标")
   (princp2)
      )(progn
      (princ "\n选择的不是直线")
   ))
)(progn
(princ "\n没有选择到直线。")
))
(princ)
)

龙龙仔 发表于 2003-1-17 14:17:00

圓柱面上的線當然是選不著,你再看一次以前的回答....

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

ZHUQI75 发表于 2003-1-18 10:11:00

使用SOLIDEDIT方法

页: [1]

明经CAD社区's Archiver