救援

铆钉 · 发表于 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)
)

meflying · 发表于 2004-7-15 11:58:00

输入LINE命令，然后输入per，再选择圆弧

铆钉 · 发表于 2004-7-15 15:30:00

感谢二位相助

再次谢过

meflying · 发表于 2004-7-15 15:32:00

如果你只是想通过某点画某圆弧的垂线，先LINE，再将鼠标挪到圆弧上，出现垂直的符号就可以点了

账号		自动登录	找回密码
密码			注册

救援

本帖子中包含更多资源