批量修改圆（弧），多段线弧半径

Lispboy · 发表于 2018-11-19 13:28:08

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

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

x

有朋友申请 http://bbs.xdcad.net/thread-718736-1-1.html

(defun c:xdtb_modradius (/ val tf e i x)
(xdrx_begin)
(if (not #xd_var_global_radius)
(setq #xd_var_global_radius 1.0)
)
(if (setq val (getreal
(xdrx_prompt "\n输入半径<" #xd_var_global_radius ">:" t)
)
)
(setq #xd_var_global_radius val)
)
(setq tf t)
(while (and tf
(xdrx_initget "M")
(setq e (xdrx_entsel
"\n拾取修改半径的圆、弧、多段线弧[批量(M)]<退出>:"
'((0 . "CIRCLE,ARC,*POLYLINE"))
)
)
)
(progn
(cond ((= e "M")
(while (and (xdrx_initssget "\n选择要批量修改半径的圆、弧、多段线弧<退出>:")
(setq ss (xdrx_ssget '((0 . "circle,arc,*polyline"))))
)
(progn (setq i 0)
(mapcar '(lambda (x)
(if (xdrx_object_iskindof x "circle,arc")
(progn
(xdrx_setpropertyvalue x "radius" #xd_var_global_radius)
(setq i (1+ i))
)
(progn
(and (xd::polyline:setradius x -1 #xd_var_global_radius)
(setq i (1+ i))
)
)
)
)
(xdrx_pickset->ents ss)
)
(xdrx_prompt "\n >>修改了" i "个圆（弧）半径到:" #xd_var_global_radius ".")
)
)
(setq tf nil)
)
(t
(if (xdrx_object_iskindof (car e) "circle,arc")
(xdrx_setpropertyvalue
(car e)
"radius"
#xd_var_global_radius
)
(progn (setq inx (xdrx_polyline_onsegat (car e) (cadr e)))
(if (xdrx_polyline_getarcsegat (car e) inx)
(progn (xd::polyline:setradius (car e) inx #xd_var_global_radius)
(xdrx_prompt
"\n >>弧段半径修改为:"
#xd_var_global_radius
"."
)
)
(xdrx_prompt "\n >>没有选到多段线弧线段，重试...")
)
)
)
)
)
)
)
(xdrx_end)
(princ)
)

(defun c:xdtb_modradius (/ val tf e i x) 
  (xdrx_begin) 
  (if (not #xd_var_global_radius) 
    (setq #xd_var_global_radius 1.0) 
  ) 
  (if (setq val (getreal 
                  (xdrx_prompt "\n输入半径<" #xd_var_global_radius ">:" t) 
                ) 
      ) 
    (setq #xd_var_global_radius val) 
  ) 
  (setq tf t) 
  (while (and tf 
              (xdrx_initget "M") 
              (setq e (xdrx_entsel 
                        "\n拾取修改半径的圆、弧、多段线弧[批量(M)]<退出>:" 
                        '((0 . "CIRCLE,ARC,*POLYLINE")) 
                      ) 
              ) 
         ) 
    (progn 
      (cond ((= e "M") 
             (while (and (xdrx_initssget "\n选择要批量修改半径的圆、弧、多段线弧<退出>:") 
                         (setq ss (xdrx_ssget '((0 . "circle,arc,*polyline")))) 
                    ) 
               (progn (setq i 0) 
                      (mapcar '(lambda (x) 
                                 (if (xdrx_object_iskindof x "circle,arc") 
                                   (progn 
                                     (xdrx_setpropertyvalue x "radius" #xd_var_global_radius) 
                                     (setq i (1+ i)) 
                                   ) 
                                   (progn 
                                     (and (xd::polyline:setradius x -1 #xd_var_global_radius) 
                                          (setq i (1+ i)) 
                                     ) 
                                   ) 
                                 ) 
                               ) 
                              (xdrx_pickset->ents ss) 
                      ) 
                 (xdrx_prompt "\n >>修改了" i "个圆（弧）半径到:" #xd_var_global_radius ".") 
               ) 
             ) 
             (setq tf nil) 
            ) 
            (t 
             (if (xdrx_object_iskindof (car e) "circle,arc") 
               (xdrx_setpropertyvalue 
                 (car e) 
                 "radius" 
                 #xd_var_global_radius 
               ) 
               (progn (setq inx (xdrx_polyline_onsegat (car e) (cadr e))) 
                      (if (xdrx_polyline_getarcsegat (car e) inx) 
                        (progn (xd::polyline:setradius (car e) inx #xd_var_global_radius) 
                               (xdrx_prompt 
                                 "\n >>弧段半径修改为:" 
                                 #xd_var_global_radius 
                                 "." 
                               ) 
                        ) 
                        (xdrx_prompt "\n >>没有选到多段线弧线段，重试...") 
                      ) 
               ) 
             ) 
            ) 
      ) 
    ) 
  ) 
  (xdrx_end) 
  (princ) 
)

Michael527 · 发表于 2018-11-19 17:08:02

很方便的工具，谢谢分享

echizenace · 发表于 2018-11-20 07:41:28

很方便的工具，谢谢分享

kqqt6236 · 发表于 2018-11-20 08:58:49

方便实用。

konglong604 · 发表于 2018-11-20 09:27:53

谢谢分享，这个功能很实用

shqvc · 发表于 2018-11-20 09:48:44

老大谢谢你能为一个人的提议而改动自己的工具真心感谢

shqvc · 发表于 2018-11-20 12:48:31

不知道为什么会出现错误麻烦看一下问题出在了哪里

newer · 发表于 2018-11-20 12:53:18

shqvc 发表于 2018-11-20 12:48
不知道为什么会出现错误麻烦看一下问题出在了哪里

上传下有问题的这个DWG

shqvc · 发表于 2018-11-20 13:53:21

newer 发表于 2018-11-20 12:53
上传下有问题的这个DWG

不是文件的事我弄了好多次只要一用就故障

lixiaolin · 发表于 2018-11-20 13:57:07

谢谢分享

LXH刚开始 · 发表于 2020-5-4 09:34:50

很好的工具，比燕秀工具箱功能还好，燕秀只能修改圆弧，但燕秀修改后圆弧与线段相切关系便丢失了。支持！

974778504 · 发表于 2020-5-27 15:52:13

谢谢分享，很好用

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

[多段线] 批量修改圆（弧），多段线弧半径

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

评分

点评

点评