【图块】批量将图块的角度元整到设置值

marting · 发表于 2020-6-24 14:23:07

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

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

x

本帖最后由 marting 于 2020-6-24 14:26 编辑

将图块的角度元整
到设置值，如设置5度，那么41,42度修改到40度，43修改到45度

(defun c:xdtb_blkkd (/ v ss rot)
(xdrx-begin)
(xd::var:getdouble "#xd-var-global-angle-snap" 5)
(if (setq v (getreal (xdrx-prompt
"\n输入角度盘停靠基准刻度<"
#xd-var-global-angle-snap
">:"
t
)
)
)
(xd::var:setdouble "#xd-var-global-angle-snap" v)
)
(if (setq ss (xdrx-ssget "\n选择要处理的图块<退出>:" '((0 . "insert"))))
(progn
(mapcar '(lambda (x)
(setq rot (xdrx-math-degtor
(xdrx-math-roundto
(xdrx-math-rtodeg
(xdrx-getpropertyvalue x "rotation")
)
#xd-var-global-angle-snap
)
)
)
(xdrx-setpropertyvalue x "rotation" rot)
)
(xdrx-pickset->ents ss)
)
)
)
(xdrx-end)
(princ)
)

(defun c:xdtb_blkkd (/ v ss rot) 
  (xdrx-begin) 
  (xd::var:getdouble "#xd-var-global-angle-snap" 5) 
  (if (setq v (getreal (xdrx-prompt 
                         "\n输入角度盘停靠基准刻度<" 
                         #xd-var-global-angle-snap 
                         ">:" 
                         t 
                       ) 
              ) 
      ) 
    (xd::var:setdouble "#xd-var-global-angle-snap" v) 
  ) 
  (if (setq ss (xdrx-ssget "\n选择要处理的图块<退出>:" '((0 . "insert")))) 
    (progn 
      (mapcar '(lambda (x) 
                 (setq rot (xdrx-math-degtor 
                             (xdrx-math-roundto 
                               (xdrx-math-rtodeg 
                                 (xdrx-getpropertyvalue x "rotation") 
                               ) 
                               #xd-var-global-angle-snap 
                             ) 
                           ) 
                 ) 
                 (xdrx-setpropertyvalue x "rotation" rot) 
               ) 
              (xdrx-pickset->ents ss) 
      ) 
    ) 
  ) 
  (xdrx-end) 
  (princ) 
)

既然青春留不住 · 发表于 2020-6-25 08:40:33

既然青春留不住 · 发表于 2020-6-25 21:02:46

既然青春留不住 · 发表于 2020-6-26 00:04:02

yangjian001 · 发表于 2020-6-26 08:37:24

做一个热心并受欢迎的人

feeling_chin · 发表于 2021-2-2 17:55:42

;;;xdtb_blkkd：将图块的角度元整到设置值，如设置5度，那么41,42度修改到40度，43修改到45度

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

[图块] 【图块】批量将图块的角度元整到设置值

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