尺寸标注联动的界线平移工具

Lispboy · 发表于 2016-5-19 15:18:35

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

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

×

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

[sell=20]

(defun c:XDTB_DimJXPY ( / dynpt e el inx n oper x)
(defun _callback (dynpt)
(foreach n el
(setq oper (strcat "xLine" (itoa (1+ (cadr n))) "Point"))
(xdrx_setpropertyvalue (car n) oper dynpt)
)
)
(if (setq e (xdrx_entsel "\n拾取要移动界线的尺寸实体<退出>:" '((0 . "dim*"))))
(progn
(setq el (XD::Dim:AssDimEnts e t))
(setq el (mapcar
'(lambda (x)
(list x (car (setq inx (xd::dim:getnearinx x
(cadr e)
)
)
)
)
)
el
)
)
(xdrx_begin)
(xdrx_sysvar_push '("osmode" 101))
(initget 1)
(xdrx_pointmonitor "_callback")
(getpoint "\n界线目标点:")
(xdrx_pointmonitor)
(xdrx_end)
)
)
(princ)
)

(defun c:XDTB_DimJXPY ( / dynpt e el inx n oper x) 
  (defun _callback (dynpt) 
    (foreach n el 
      (setq oper (strcat "xLine" (itoa (1+ (cadr n))) "Point")) 
      (xdrx_setpropertyvalue (car n) oper dynpt) 
    ) 
  ) 
  (if (setq e (xdrx_entsel "\n拾取要移动界线的尺寸实体<退出>:" '((0 . "dim*")))) 
    (progn 
      (setq el (XD::Dim:AssDimEnts e t)) 
      (setq el (mapcar 
                 '(lambda (x) 
                    (list x (car (setq inx (xd::dim:getnearinx x 
                                                               (cadr e) 
                                           ) 
                                 ) 
                            ) 
                    ) 
                  ) 
                 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 19:42:45

使用的效果完全不是演示的这样，请查看一下

liuyj · 发表于 2016-5-19 19:46:40

知道了，演示用的是线性标注，我一般用对齐标注

xinyeyu · 发表于 2016-5-21 12:37:28

购买看看了，这么贵的

天若有情007 · 发表于 2016-6-26 16:21:38

只能针对转角标注，对齐标注就会出错，可以适用对齐标注吗？多谢

Lispboy · 发表于 2016-6-26 16:36:41

天若有情007 发表于 2016-6-26 16:21
只能针对转角标注，对齐标注就会出错，可以适用对齐标注吗？多谢

论坛有对齐转转角标注的插件，你先转换后再用这个插件。

gaopo00 · 发表于 2016-9-20 16:32:35

拾取尺寸实体后，一边移动不断有端点捕捉到，为什么和您演示的不一样

gaopo00 · 发表于 2016-9-20 16:40:24

还会出现这种情况，然后是未能处理的异常C5000000...

dongf2008 · 发表于 2019-3-11 16:03:58

谢谢楼主分享

dongf2008 · 发表于 2019-3-11 16:09:16

谢谢楼主分享

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

[标注] 尺寸标注联动的界线平移工具

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

评分

点评