直径画圆——小学生水平

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有意思多了

183017064

tigcat 发表于 2025-4-16 17:28
复杂的都是从简单的开始，对自己工作有帮助实用的都是好程序。

嗯，平时画圆的时候，我好像用直径的情况多。每次都要手动输入“D”，或者半径/2。

183017064

帝都划水王 发表于 2025-4-17 11:28
自己动手就是好样的，慢慢把工作中简单却重复的东西通过程序解决。就会发现画图很舒服

确实是，虽然自己的程序不是像大佬那种高大上的，但是自己用的方便，有成就感，制图也有乐趣了。

183017064

饼仲郎 发表于 2025-4-18 09:38
楼主可以试着研究下entmake生成图元，感觉比command有意思多了

嗯嗯，我一开始也想用entmake函数，但是我还想看一下动态的效果，后来改成command函数的。