ucuc2003 发表于 2013-6-16 23:10:18

caoyin 发表于 2011-9-15 15:54 static/image/common/back.gif
;;AutoLISP 就可轻松实现：
;;----------------------------------------------------------------------
...
谢谢版主老大，我在你的源码上做了修改，改成了一个框选批量的，这个程序找了很久，谢谢

自贡黄明儒 发表于 2013-6-17 09:57:46

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

难点是块中曲

ucuc2003 发表于 2013-6-17 17:33:53

自贡黄明儒 发表于 2013-6-21 04:57 static/image/common/back.gif
难点是块中曲

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

adc 发表于 2013-12-2 13:50:31

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


请问怎样才能过指定点做任意曲线的垂线？
页: 1 [2]
查看完整版本: 作中垂线