直径画圆——小学生水平

183017064

2. (defun c:C (/ pt)
   
3.   (setq pt (getpoint "\n指定圆心位置: "))
   
4.   (command "_.CIRCLE" pt "_D") ; 指定直径模式
   
5.   (princ)
   
6. )

(defun c:C (/ pt)<br />   (setq pt (getpoint "\n指定圆心位置: "))<br />   (command "_.CIRCLE" pt "_D") ; 指定直径模式<br />   (princ)<br /> )

tigcat

复杂的都是从简单的开始，对自己工作有帮助实用的都是好程序。

MZ_li

你比我强了太多

帝都划水王

自己动手就是好样的，慢慢把工作中简单却重复的东西通过程序解决。就会发现画图很舒服

ghgh0130

你比我强了太多。。。

饼仲郎

楼主可以试着研究下entmake生成图元，感觉比command有意思多了