将满足大于输入夹角的圆弧转换成圆（保留图层、颜色、线型等属性）

newer · 发表于 2018-8-5 13:15:09

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 newer 于 2018-8-5 13:16 编辑

将图中夹角大于输入值的圆弧转换成圆，保留圆弧的层、线型、颜色等属性

(defun c:xdtb_arc2cir (/ ss tang x #totalangle #center #radius i)
(if (and (setq ss (ssget "x" '((0 . "ARC"))))
(setq tang (getreal "\n输入要处理的最小的夹角（度）<退出>:"))
)
(progn
(setq i 0
tang (XD::Geom:D2R tang)
)
(mapcar '(lambda (x)
(xdrx_getpropertyvalue x "totalangle" "center" "radius")
(if (> #totalangle tang)
(progn (xdrx_circle_make
#center #radius
)
(xdrx_entity_matchprop x (entlast))
(xdrx_object_swapid x (entlast))
(xdrx_entity_delete (entlast))
(setq i (1+ i))
)
)
)
(xdrx_pickset->ents ss)
)
(xdrx_prompt "\n转换了 " i " 个圆弧到圆.")
)
(xdrx_prompt "\n没有找到圆弧或者退出")
)
(princ)
)

(defun c:xdtb_arc2cir (/ ss tang x #totalangle #center #radius i) 
  (if (and (setq ss (ssget "x" '((0 . "ARC")))) 
           (setq tang (getreal "\n输入要处理的最小的夹角（度）<退出>:")) 
      ) 
    (progn 
      (setq i         0 
            tang (XD::Geom:D2R tang) 
      ) 
      (mapcar '(lambda (x) 
                 (xdrx_getpropertyvalue x "totalangle" "center" "radius") 
                 (if (> #totalangle tang) 
                   (progn (xdrx_circle_make 
                             #center #radius 
                          ) 
                          (xdrx_entity_matchprop x (entlast)) 
                          (xdrx_object_swapid x (entlast)) 
                          (xdrx_entity_delete (entlast)) 
                     (setq i (1+ i)) 
                   ) 
                 ) 
               ) 
              (xdrx_pickset->ents ss) 
      ) 
      (xdrx_prompt "\n转换了 " i " 个圆弧到圆.") 
    ) 
    (xdrx_prompt "\n没有找到圆弧或者退出") 
  ) 
  (princ) 
)

hejiho · 发表于 2018-8-5 14:00:30

不错，这个有时很有用

qxwangtao · 发表于 2018-8-5 14:19:46

前来支持了

回回回 · 发表于 2018-8-5 20:49:01

52那个大佬是您吗？

aisong220 · 发表于 2018-8-6 00:32:36

这个一般用在什么地方？

账号		自动登录	找回密码
密码			立即注册

[属性] 将满足大于输入夹角的圆弧转换成圆（保留图层、颜色、线型等属性）

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。