尺寸联动的基线纵移工具

Lispboy · 发表于 2016-5-19 16:25:00

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

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

×

本帖最后由 Lispboy 于 2016-5-19 16:27 编辑

需要的函数：
XD::Dim:AssDimEnts
XD::Entity:AssIntersectEnts
XD::Entity:AssIntersectEntsInit

[sell=20]

(defun c:XDTB_DimJXZY ( / base dynpt e el n v vy x)
(defun _callback (dynpt)
(setq v (mapcar
'-
dynpt
base
)
)
(foreach n el
(xdrx_setpropertyvalue (car n) "dimlinepoint" (mapcar
'+
(cadr n)
v
)
)
)
)
(if (setq e (xdrx_entsel "\n拾取要移动基线的尺寸实体<退出>:" '((0 . "dim*"))))
(progn
(setq el (XD::Dim:AssDimEnts e nil))
(setq base (xdrx_getpropertyvalue (car e) "dimlinepoint"))
(setq el (mapcar
'(lambda (x)
(list x (xdrx_getpropertyvalue x "dimlinepoint"))
)
el
)
)
(xdrx_begin)
(xdrx_sysvar_push '("osmode" 101))
(initget 1)
(xdrx_pointmonitor "_callback")
(getpoint "\n界线目标点:")
(xdrx_pointmonitor)
(xdrx_end)
)
)
(princ)
)

(defun c:XDTB_DimJXZY ( / base dynpt e el n v vy x) 
  (defun _callback (dynpt) 
    (setq v (mapcar 
              '- 
              dynpt 
              base 
            ) 
    ) 
    (foreach n el 
      (xdrx_setpropertyvalue (car n) "dimlinepoint" (mapcar 
                                                '+ 
                                                (cadr n) 
                                                v 
                                              ) 
      ) 
    ) 
  ) 
  (if (setq e (xdrx_entsel "\n拾取要移动基线的尺寸实体<退出>:" '((0 . "dim*")))) 
    (progn 
      (setq el (XD::Dim:AssDimEnts e nil)) 
      (setq base (xdrx_getpropertyvalue (car e) "dimlinepoint")) 
      (setq el (mapcar 
                 '(lambda (x) 
                    (list x (xdrx_getpropertyvalue x "dimlinepoint")) 
                  ) 
                 el 
               ) 
      ) 
      (xdrx_begin) 
      (xdrx_sysvar_push '("osmode" 101)) 
      (initget 1) 
      (xdrx_pointmonitor "_callback") 
      (getpoint "\n界线目标点:") 
      (xdrx_pointmonitor) 
      (xdrx_end) 
    ) 
  ) 
  (princ) 
)

[/sell]

liuyj · 发表于 2016-5-19 18:59:04

天正TS有个这样的功能，我也看到过用grread做的简单的程序

xinyeyu · 发表于 2016-5-21 12:35:33

这个卖这么贵的啊！买了看看怎么样

墙角哥 · 发表于 2016-5-27 10:27:25

学习了，非常有用

823084613 · 发表于 2016-11-4 15:41:42

可以批量吗？太贵了，买不起，要是可以批量，我就去赚钱买

gg5120 · 发表于 2016-11-7 14:38:05

看看这个怎么样

knife0930 · 发表于 2017-8-3 14:27:26

看看这个怎么样

宏光 · 发表于 2018-6-12 21:37:46

看着不错，谢谢

dongf2008 · 发表于 2019-3-11 16:07:31

谢谢楼主分享

781251249 · 发表于 2020-8-19 19:33:16

好东西，先收藏

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

[标注] 尺寸联动的基线纵移工具

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

评分