autolisp 里面怎么调用画圆命令给一个三角形画内切圆啊?
www.dimcax.com
autolisp 里面怎么调用画圆命令给一个三角形画内切圆啊?
autolisp 里面怎么调用画圆命令给一个三角形画内切圆啊?在绘图>>圆>>里可以看到"相切,相切,相切(a)",但怎么调用这个呢?
d
是不是这样:
(defun c:ttt ()
(command "circle" "3p" "tan" pause "tan" pause "tan")
)
学无止境
d
你可以在
(defun c:ttt ()
(command "circle" "3p" "tan" pause "tan" pause "tan")
)
中把三角形的三条边分别用(setq sg1 (entlast))等标记下,再
(command "circle" "3p" "tan" sg1 "tan" sg2 "tan" sg3)
即可.
d
画三角形时用(setq sg1 (entlast))
...
后再
(command "circle" "3p" "tan" sg1 "tan" sg2 "tan" sg3)
d