绘制选择集边界框（支持双向偏移设置）

newer · 发表于 2018-10-4 22:34:45

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

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

×

(defun c:xdtb_ssbox (/ var ss box xdir w h)
(xdrx_begin)
(if (not #xd_var_global_xoffset)
(setq #xd_var_global_xoffset 0.0)
)
(if (not #xd_var_global_yoffset)
(setq #xd_var_global_yoffset 0.0)
)
(if (setq var (getreal
(xdrx_prompt "\nX偏移<" #xd_var_global_xoffset ">:" t)
)
)
(setq #xd_var_global_xoffset var)
)
(if (setq var (getreal
(xdrx_prompt "\nY偏移<" #xd_var_global_yoffset ">:" t)
)
)
(setq #xd_var_global_yoffset var)
)
(setq #xd_var_global_xoffset
(abs #xd_var_global_xoffset)
#xd_var_global_yoffset
(abs #xd_var_global_yoffset)
)
(if (and (xdrx_initssget "\n选择绘制边界框的对象<退出>:")
(setq ss (xdrx_ssget))
)
(progn (setq box (xdrx_entity_box ss)
box (xd::pnts:ucs2wcs box)
xdir (xdrx_vector_normalize (mapcar '- (cadr box) (car box)))
ang (xd::geom:angleformat (xdrx_vector_angle xdir))
w (+ (distance (nth 0 box)(nth 1 box)) (* 2 #xd_var_global_xoffset))
h (+ (distance (nth 1 box)(nth 2 box))(* 2 #xd_var_global_yoffset))
box(xd::pnt:tobox (xdrx_midp (car box)(caddr box)) w h ang)
)
(xdrx_polyline_make box t)
)
)
(princ)
)

(defun c:xdtb_ssbox (/ var ss box xdir w h) 
  (xdrx_begin) 
  (if (not #xd_var_global_xoffset) 
    (setq #xd_var_global_xoffset 0.0) 
  ) 
  (if (not #xd_var_global_yoffset) 
    (setq #xd_var_global_yoffset 0.0) 
  ) 
  (if (setq var        (getreal 
                  (xdrx_prompt "\nX偏移<" #xd_var_global_xoffset ">:" t) 
                ) 
      ) 
    (setq #xd_var_global_xoffset var) 
  ) 
  (if (setq var        (getreal 
                  (xdrx_prompt "\nY偏移<" #xd_var_global_yoffset ">:" t) 
                ) 
      ) 
    (setq #xd_var_global_yoffset var) 
  ) 
  (setq        #xd_var_global_xoffset 
         (abs #xd_var_global_xoffset) 
        #xd_var_global_yoffset 
         (abs #xd_var_global_yoffset) 
  ) 
  (if (and (xdrx_initssget "\n选择绘制边界框的对象<退出>:") 
           (setq ss (xdrx_ssget)) 
      ) 
    (progn (setq box  (xdrx_entity_box ss) 
                 box  (xd::pnts:ucs2wcs box) 
                 xdir (xdrx_vector_normalize (mapcar '- (cadr box) (car box))) 
                 ang (xd::geom:angleformat (xdrx_vector_angle xdir)) 
                 w (+ (distance (nth 0 box)(nth 1 box)) (* 2 #xd_var_global_xoffset)) 
                 h (+ (distance (nth 1 box)(nth 2 box))(* 2 #xd_var_global_yoffset)) 
                 box(xd::pnt:tobox (xdrx_midp (car box)(caddr box)) w h ang) 
           ) 
           (xdrx_polyline_make box t) 
    ) 
  ) 
  (princ) 
)

evayleung · 发表于 2018-10-5 07:52:30

谢谢分享，国庆快乐。。。。。

cfc123456 · 发表于 2018-10-5 13:41:42

谢谢分享，国庆快乐！

tzfcn · 发表于 2018-10-5 15:06:28

这个很好，可以选择最小的外框线。

renyonghua2014 · 发表于 2018-10-5 23:38:24

谢谢分享，国庆快乐

kqqt6236 · 发表于 2018-10-6 00:02:27

谢谢分享！

shqvc · 发表于 2018-10-6 19:26:15

大神呀你真是我的福音告诉我你长的什么样我找人给你铸个金身去

xinrstar · 发表于 2018-10-9 11:38:16

的大 · 发表于 2018-10-10 10:31:30

学习了，很有用

的大 · 发表于 2018-10-10 10:42:20

很有用啊，必须要

277860153 · 发表于 2019-4-29 08:42:43

谢谢分享，~~~~~

chenbj0 · 发表于 2019-4-29 09:33:17

很有用的工具谢谢分享

xdcad9819 · 发表于 2019-12-30 17:01:20

分享来看看，看看是个什么效果

qidisuifeng · 发表于 2021-10-29 11:35:54

谢谢分享！大爱

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

[工具] 绘制选择集边界框（支持双向偏移设置）

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