增强型的尺寸标注界线纵移插件

Lispboy · 发表于 2016-5-23 22:20:29

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

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

×

程序特点：
1、支持约束方向
2、可以输入距离确定界线长度
3、联动尺寸选取，点一个尺寸实体可以选出相连的相关尺寸加快操作速度

方向约束选点函数见： XD::Doc:GetPoint

[sell=10]

(defun c:XDTB_DIMJXZY (/ ang base basePnt basePnt2 dynpt dynpt1 e el
lastPnts msg myerr olderr orthomode pi pt pt1 pt2
pts v x xdir yDir
)
(defun myerr (msg)
(princ (strcat "\n" msg))
(xdrx_pickset_redraw el t)
(xdrx_end)
)
(xdrx_begin)
(xdrx_sysvar_push '("osmode" 161))
(setq olderr *error*)
(setq *error* myerr)
(if (and
(setq e (xdrx_entsel "\n拾取尺寸标注簇中的基准实体<退出>:" '
((0 . "dimension") (-4 . "<or")
(70 . 32)
(70 . 33)
(-4 . "or>")
)
)
)
(setq basePnt (trans (cadr e) 1 0))
(setq el (XD::Dim:AssDimEnts e NIL))
(xdrx_pickset_redraw el)
(setq base (XD::DIM:BasePoints (car e)))
(setq ang (apply
'angle
base
)
)
(setq xdir (xdrx_vector_normalize (apply
'mapcar
(cons '- base)
)
)
yDir (xdrx_vector_perpVector xdir)
yDir (if (> (xdrx_vector_angle ydir) pi)
(xdrx_vector_negate ydir)
ydir
)
orthomode t
basePnt2 (mapcar
'+
basePnt
ydir
)
)
(setvar "lastpoint" (trans basePnt 0 1))
(setq pt1 (XD::Doc:GetPoint (trans basePnt 0 1)
"\n输入界线长度<退出>:" 1 0
(trans ydir 0 1 1)
)
)
)
(progn
(setq pt1 (trans pt1 1 0)
pt2 (polar pt1 ang 1.0)
)
(mapcar
'(lambda (x)
(setq pts (xdrx_getpropertyvalue x "xLine1Point" "xLine2Point"))
(setq pts (XD::Pnts:OrthoProject pts pt1 pt2))
(xdrx_setpropertyvalue x "xLine1Point" (car pts) "xLine2Point"
(cadr pts)
)
)
el
)
(xdrx_pickset_redraw el t)
)
)
(xdrx_sysvar_pop)
(xdrx_end)
(setq *error* olderr)
(princ)
)

(defun c:XDTB_DIMJXZY (/ ang base basePnt basePnt2 dynpt dynpt1 e el 
                         lastPnts msg myerr olderr orthomode pi pt pt1 pt2 
                         pts v x xdir yDir 
                      ) 
  (defun myerr (msg) 
    (princ (strcat "\n" msg)) 
    (xdrx_pickset_redraw el t) 
    (xdrx_end) 
  ) 
  (xdrx_begin) 
  (xdrx_sysvar_push '("osmode" 161)) 
  (setq olderr *error*) 
  (setq *error* myerr) 
  (if (and 
        (setq e (xdrx_entsel "\n拾取尺寸标注簇中的基准实体<退出>:" ' 
                             ((0 . "dimension") (-4 . "<or") 
                              (70 . 32) 
                              (70 . 33) 
                              (-4 . "or>") 
                             ) 
                ) 
        ) 
        (setq basePnt (trans (cadr e) 1 0)) 
        (setq el (XD::Dim:AssDimEnts e NIL)) 
        (xdrx_pickset_redraw el) 
        (setq base (XD::DIM:BasePoints (car e))) 
        (setq ang (apply 
                    'angle 
                    base 
                  ) 
        ) 
        (setq xdir (xdrx_vector_normalize (apply 
                                            'mapcar 
                                            (cons '- base) 
                                          ) 
                   ) 
              yDir (xdrx_vector_perpVector xdir) 
              yDir (if (> (xdrx_vector_angle ydir) pi) 
                     (xdrx_vector_negate ydir) 
                     ydir 
                   ) 
              orthomode t 
              basePnt2 (mapcar 
                         '+ 
                         basePnt 
                         ydir 
                       ) 
        ) 
        (setvar "lastpoint" (trans basePnt 0 1)) 
        (setq pt1 (XD::Doc:GetPoint (trans basePnt 0 1) 
                                    "\n输入界线长度<退出>:" 1 0 
                                    (trans ydir 0 1 1) 
                  ) 
        ) 
      ) 
    (progn 
      (setq pt1 (trans pt1 1 0) 
            pt2 (polar pt1 ang 1.0) 
      ) 
      (mapcar 
        '(lambda (x) 
           (setq pts (xdrx_getpropertyvalue x "xLine1Point" "xLine2Point")) 
           (setq pts (XD::Pnts:OrthoProject pts pt1 pt2)) 
           (xdrx_setpropertyvalue x "xLine1Point" (car pts) "xLine2Point" 
                                  (cadr pts) 
           ) 
         ) 
        el 
      ) 
      (xdrx_pickset_redraw el t) 
    ) 
  ) 
  (xdrx_sysvar_pop) 
  (xdrx_end) 
  (setq *error* olderr) 
  (princ) 
)

[/sell]

newer · 发表于 2016-5-23 22:28:28

高效啊，BOY，总有新意。

liuyj · 发表于 2016-5-24 10:29:52

界限纵移相当完美了，界限平移完善一下吧，标注是对齐标注时尺寸就乱跑了

newer · 发表于 2016-5-24 10:48:06

liuyj 发表于 2016-5-24 10:29
界限纵移相当完美了，界限平移完善一下吧，标注是对齐标注时尺寸就乱跑了

为什么还用对齐标注啊，对齐标注有什么好的呢？可以先用对齐转转角标注的插件都转换成转角标注吧。

newer · 发表于 2016-5-24 11:20:15

liuyj 发表于 2016-5-24 10:29
界限纵移相当完美了，界限平移完善一下吧，标注是对齐标注时尺寸就乱跑了

帮你写了个，去这下载 http://bbs.xdcad.net/thread-704320-1-1.html

天若有情007 · 发表于 2016-8-3 22:09:49

不错，学习学习

zheng0000zheng · 发表于 2016-8-4 08:51:36

不错，学习学习

knife0930 · 发表于 2017-8-3 18:39:34

不错，学习学习

knife0930 · 发表于 2017-8-3 19:02:49

拾取尺寸标注簇中的基准实体<退出>:
输入界线长度<退出>:
参数类型错误: 二维/三维点: 0; 错误: 出现异常: 0xC0000005 (访问冲突)
; 警告: 忽略展开异常
; 错误: 出现异常: 0xC0000005 (访问冲突)
不知道是什么原因！

newer · 发表于 2017-8-3 19:26:32

knife0930 发表于 2017-8-3 19:02

晓东工具箱， 2008下，测试正常

QQ截图20170803192534.png

knife0930 · 发表于 2017-8-3 19:37:46

newer 发表于 2017-8-3 19:26

哦，我没有装工具箱，只是装了API, CAD2012

knife0930 · 发表于 2017-8-4 09:58:16

newer 发表于 2017-8-3 19:26

工具箱的功能和贴子演示的好像不一样哦

knife0930 · 发表于 2017-8-30 22:30:33

老大，好像51，52行代码有误。

newer · 发表于 2017-8-30 22:38:09

knife0930 发表于 2017-8-4 09:58

工具箱和这个哪里不一样了？

knife0930 · 发表于 2017-8-30 22:51:25

上面贴的代码运行有错。51，52行改为
"\n输入界线长度<退出>:" 1
(trans ydir 0 1) 1
就可以运行了。

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

[标注] 增强型的尺寸标注界线纵移插件

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

评分

点评