圆与椭圆

KO你

方法1：

快捷键  c  圆/选中物体则椭圆
(defun c:c()
(setq ss (ssget "i"));将已选中的实体加入选择集
(if (= ss nil)
(command "circle");如果选择集为空，则执行画圆命令
(command "ellipse"));如果选择集不为空，则执行椭圆命令
(princ))


方法2：

快捷键  c  圆/跳过则椭圆
(defun c:c (/ pt)
(initget "3P 2P T") ; 定义画圆选项
(if (setq pt (getpoint "\nCIRCLE指定圆的圆心或[三点(3P)/两点(2P)/切点、切点、半径(T)] <空格画椭圆>: "))
(progn
(command "_circle" pt)
(while (> (getvar 'CMDACTIVE) 0) (command pause)))
(progn
(command "_ellipse")
(while (> (getvar 'CMDACTIVE) 0) (command pause))))
(princ))



合并了圆与椭圆两个命令为一个命令来使用，还有其他方法的大佬一起分享学习。

zmzk

思路不错。可以借鉴

KO你

快捷键  dc  半/跳过则直径标注
(defun c:dc (/ ent)
(setq ent (entsel "\n选择圆弧或圆进行半径标注 (直接回车进行直径标注) : "))
(if ent
(progn
(command "_dimradius" ent)
(while (> (getvar 'CMDACTIVE) 0) (command pause)))
(progn
(command "_dimdiameter")
(while (> (getvar 'CMDACTIVE) 0) (command pause))))
(princ))

xyp1964

KO你 发表于 2025-5-8 17:19
快捷键  dc  半/跳过则直径标注
(defun c:dc (/ ent)
(setq ent (entsel "\n选择圆弧或圆进行半径标注  ...

1. (defun c:dc ()
   
2.   (if (setq ent (entsel"\n选择圆弧或圆进行半径标注(直接回车进行直径标注): "))
   
3.     (command "_dimradius" ent pause)
   
4.     (command "_dimdiameter" pause pause)
   
5.   )
   
6.   (princ)
   
7. )

(defun c:dc ()<br />   (if (setq ent (entsel"\n选择圆弧或圆进行半径标注(直接回车进行直径标注): "))<br />     (command "_dimradius" ent pause)<br />     (command "_dimdiameter" pause pause)<br />   ) <br />   (princ)<br /> )

KO你

xyp1964 发表于 2025-5-8 21:04

院长的简洁，很不错。有些命令需要组合的可以借鉴院长这个简码。
但我发现按我方法二，或院长的都好，在块的情况下标圆的半径要选对象两次。
这种情况我个人觉得方法一会更方便标注。

快捷键  dc  半径标注/选中物体则直径标注
(defun c:dc()
(setq ss (ssget "i"));将已选中的实体加入选择集
(if (= ss nil)
(command "dimradius");如果选择集为空，则执行半径标注命令
(command "dimdiameter"));如果选择集不为空，则执行直径标注命令
(princ))