救援

铆钉 · 发表于 2004-7-14 09:38:00

我想实现这样一个功能标注曲线长度，其中有一个步骤就是拾取起点和终点，现在我已经完成了点去任意一点，但我看了斑竹们对动态的论坛后，想把动态加进去，但心有余而力不足。
请大家看图L1中我想选取弧线，捕捉P1点来绘制L1这条垂线，请大家明示！
谢了

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

龙龙仔 · 发表于 2004-7-15 11:49:00

;;看不懂你要甚么?
(defun C:TT (/ L1 PT)
   (vl-load-com)
   (setq L1 (cadr (entsel "\n选线: ")))
   (setvar "cmdecho" 1)
   (vl-cmdf "_.xline" "_per" L1 PAUSE "")
   (setq PT (cadr (grread 1 1)))
   (vl-cmdf "_.erase" (entlast) "")
   (vl-cmdf "_.line" PT "_per" L1 "")
   (princ)
)