作中垂线

ucuc2003

caoyin 发表于 2011-9-15 15:54
;;AutoLISP 就可轻松实现：
;;----------------------------------------------------------------------
...

谢谢版主老大，我在你的源码上做了修改，改成了一个框选批量的，这个程序找了很久，谢谢

自贡黄明儒

ucuc2003 发表于 2013-6-16 23:10
谢谢版主老大，我在你的源码上做了修改，改成了一个框选批量的，这个程序找了很久，谢谢

难点是块中曲

ucuc2003

自贡黄明儒 发表于 2013-6-21 04:57
难点是块中曲

我觉这个不用程序也能很快实现啊，用ray
第一点取曲线的圆心，第二点在曲线上任意点，画的ray线都垂直于曲线，也是批量的啊，不知道黄兄要的是什么效果？？

adc

caoyin 发表于 2012-2-3 19:30
;;;做任意曲线的垂线
(defun C:TT (/ curve point ang)
  (setq curve (entsel "\n选择任意曲线: "))

请问怎样才能过指定点做任意曲线的垂线？