自*由标注插件

Lispboy · 发表于 2016-5-22 22:35:15

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

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

×

自*由标注，要写就写最好的，看演示吧。除了选点标注外，也支持在已经标注的实体上继续操作，天正的好像也不行的，真正的**，这个插件除了标注，看演示也能作为尺寸打断来用。

请下载5月22日更新的XDRX_API 和最新的晓东通用LISP函数库使用，函数里面新用到的几个LISP函数已经发布到开源函数库了，大家去找下下载或者等最新的LISP函数库发布。

XD::Doc:Command
XD::Entity:NearByPnt
XD::DIM:AlignedDimEnts

[sell=30]

(defun c:XDTB_FreeDim (/ ang base baseLines dynpt e ee el el2 eLeft eRight
eTemp eTemp4 inEl i**t msg myerr nearEnt nInx nPts
olderr p1 p2 p3 p4 pnt pnts ptIn ret tf vdim vlast
x xLine1 xLine1Point xLine2 xLine2Point xLines
)
(defun myerr (msg)
(princ (strcat "\n" msg))
(xdrx_end)
(XD::Doc:Command (list "undo" 1))
(princ)
)
(defun _notInDimEnts (pnt / base el2 ret tf)
(vl-some '(lambda (x)
(if (apply
'XD::Pnt:IsBetween
(cons pnt (xd::dim:basePoints x))
)
(setq ret x)
)
) el
)
ret
)
(defun _callback1 (dynpt)
(xdrx_setpropertyvalue e "dimlinepoint" dynpt)
)
(defun _callback2 (dynpt)
(if (not (setq ptIn (_notInDimEnts dynpt)))
(progn
(if eLeft
(progn
(xdrx_entity_delete eLeft)
(xdrx_entity_delete eRight)
(xdrx_setpropertyvalue eTemp4 "visibility" t)
(setq eLeft nil
eRight nil
)
)
)
(setq inEl nil)
(if (not i**t)
(progn
(setq nearEnt (XD::Entity:NearByPnt el dynpt vdim))
(setq nPts (xdrx_getpropertyvalue nearEnt "stretchpoint"))
(setq xLine1Point (nth (car (XD::Dim:GetNearInx nearEnt dynpt))
nPts
)
)
(setq eTemp (xdrx_dimension_makerotate xLine1Point xLine1Point
p3 ang
)
)
)
)
(setq xLine2Point (car (XD::Pnts:OrthoProject (list dynpt) p1 p2)))
(xdrx_setpropertyvalue etemp "xLine2Point" xLine2Point)
(setq i**t t)
)
(progn
(setq xLine1 (xdrx_getpropertyvalue ptIn "xLine1Point")
xLine2 (xdrx_getpropertyvalue ptIn "xLine2Point")
)
(setq xLine2Point (car (XD::Pnts:OrthoProject (list dynpt) p1 p2)))
(if (not (member ptIn inEl))
(progn
(setq inEl (cons ptIn inEl))
(if (and
i**t
(entget eTemp)
)
(xdrx_entity_delete eTemp)
)
(if eLeft
(progn
(xdrx_entity_delete eLeft)
(xdrx_entity_delete eRight)
(xdrx_setpropertyvalue eTemp4 "visibility" t)
(setq eLeft nil
eRight nil
eTemp4 nil
)
(setq inel (xd::list:removeE (cadr inel) inel t))
)
)
(setq eLeft (xdrx_dimension_makerotate xLine1 xLine2Point p3 ang))
(setq eRight (xdrx_dimension_makerotate xLine2Point xLine2 p3
ang
)
)
(xdrx_setpropertyvalue ptin "Visibility" nil)
(setq eTemp4 ptin)
)
)
(xdrx_setpropertyvalue eLeft "xLine2Point" xLine2Point)
(xdrx_setpropertyvalue eRight "xLine1Point" xLine2Point)
(setq i**t nil)
)
)
)
(if (or
(setq ee (xdrx_entsel "\n拾取基准尺寸<取点>:" '((0 . "dimension")
(-4 . "<or")
(70 . 32)
(70 . 33)
(-4 . "or>")
)
)
)
(and
(setq p1 (getpoint "\n第一点<退出>:"))
(setq p2 (getpoint p1 "\n第二点<退出>:"))
)
)
(progn
(xdrx_begin)
(setq olderr *error*
*error* myerr
)
(setq inel nil
i**t nil
)
(if ee
(progn
(setq el (XD::DIM:AlignedDimEnts (car ee)))
(setq xLines (mapcar
'car
(XD::Dim:xLINE (car ee))
)
)
(setq nInx (apply
'xd::dim:getnearinx
(list (car ee) (trans (cadr ee) 1 0))
)
pnts (xdrx_getpropertyvalue (car ee) "stretchpoint")
p2 (nth (car nInx) pnts)
p1 (car (vl-remove p2 xLines))
ang (angle p1 p2)
p3 (nth 2 pnts)
) ; (setq el (XD::Entity:SortOnCurve
; el (list p1 p2)))
(setq xLine2Point p2
xLine1Point p1
)
(setq baseLines (XD::Dim:BasePoints (car ee)))
(setq e (car ee))
)
(progn
(setq p1 (trans p1 1 0)
p2 (trans p2 1 0)
)
(setq e (xdrx_dimension_makerotate p1 p2 p2 (setq ang
(angle p1 p2)
)
)
)
(setq xLine2Point p2
xLine1Point p1
)
(setq baseLines (XD::Dim:BasePoints e))
(xdrx_pointmonitor "_callback1")
(if (not (setq p3 (getpoint "\n尺寸线位置<退出>:")))
(progn
(exit)
)
)
(setq p3 (trans p3 1 0))
(setq el nil)
(setq el (cons e el))
)
)
(setq vdim (xdrx_vector_normalize (mapcar
'-
p2
p1
)
)
)
(xdrx_pointmonitor "_callback2")
(while (setq p4 (getpoint (trans xLine2Point 0 1) "\n下一点<退出>:"))
(setq i**t nil)
(if eLeft
(setq el (cons eLeft el)
el (cons eRight el)
)
(if (not (member (entlast) el))
(setq el (cons (entlast) el))
)
)
(setq eLeft nil
eRight nil
)
(setq xlines (xdrx_getpropertyvalue (entlast) "xLine2Point"
"xLine1Point"
)
)
(setq vlast (apply
'mapcar
(cons '- xlines)
)
vlast (xdrx_vector_normalize vlast)
)
(if (not (xdrx_vector_IsCodirectional vdim vlast))
(progn
(xdrx_setpropertyvalue (entlast) "xLine1Point" (car xlines)
"xLine2Point" (cadr xlines)
)
)
)
)
(if i**t
(entdel (entlast))
)
(if eLeft
(progn
(entdel eLeft)
(entdel eRight)
(xdrx_setpropertyvalue eTemp4 "visibility" t)
)
)
(xdrx_pointmonitor)
(setq *error* olderr)
(xdrx_end)
)
)
(princ)
)

(defun c:XDTB_FreeDim (/ ang base baseLines dynpt e ee el el2 eLeft eRight 
                         eTemp eTemp4 inEl i**t msg myerr nearEnt nInx nPts 
                         olderr p1 p2 p3 p4 pnt pnts ptIn ret tf vdim vlast 
                         x xLine1 xLine1Point xLine2 xLine2Point xLines 
                      ) 
  (defun myerr (msg) 
    (princ (strcat "\n" msg)) 
    (xdrx_end) 
    (XD::Doc:Command (list "undo" 1)) 
    (princ) 
  ) 
 
  (defun _notInDimEnts (pnt / base el2 ret tf) 
    (vl-some '(lambda (x) 
                (if (apply 
                      'XD::Pnt:IsBetween 
                      (cons pnt (xd::dim:basePoints x)) 
                    ) 
                  (setq ret x) 
                ) 
              ) el 
    ) 
    ret 
  ) 
  (defun _callback1 (dynpt) 
    (xdrx_setpropertyvalue e "dimlinepoint" dynpt) 
  ) 
  (defun _callback2 (dynpt) 
    (if (not (setq ptIn (_notInDimEnts dynpt))) 
      (progn 
        (if eLeft 
          (progn 
            (xdrx_entity_delete eLeft) 
            (xdrx_entity_delete eRight) 
            (xdrx_setpropertyvalue eTemp4 "visibility" t) 
            (setq eLeft nil 
                  eRight nil 
            ) 
          ) 
        ) 
        (setq inEl nil) 
        (if (not i**t) 
          (progn 
            (setq nearEnt (XD::Entity:NearByPnt el dynpt vdim)) 
            (setq nPts (xdrx_getpropertyvalue nearEnt "stretchpoint")) 
            (setq xLine1Point (nth (car (XD::Dim:GetNearInx nearEnt dynpt)) 
                                   nPts 
                              ) 
            ) 
            (setq eTemp (xdrx_dimension_makerotate xLine1Point xLine1Point 
                                                   p3 ang 
                        ) 
            ) 
          ) 
        ) 
        (setq xLine2Point (car (XD::Pnts:OrthoProject (list dynpt) p1 p2))) 
        (xdrx_setpropertyvalue etemp "xLine2Point" xLine2Point) 
        (setq i**t t) 
      ) 
      (progn 
        (setq xLine1 (xdrx_getpropertyvalue ptIn "xLine1Point") 
              xLine2 (xdrx_getpropertyvalue ptIn "xLine2Point") 
        ) 
        (setq xLine2Point (car (XD::Pnts:OrthoProject (list dynpt) p1 p2))) 
        (if (not (member ptIn inEl)) 
          (progn 
            (setq inEl (cons ptIn inEl)) 
            (if (and 
                  i**t 
                  (entget eTemp) 
                ) 
              (xdrx_entity_delete eTemp) 
            ) 
            (if eLeft 
              (progn 
                (xdrx_entity_delete eLeft) 
                (xdrx_entity_delete eRight) 
                (xdrx_setpropertyvalue eTemp4 "visibility" t) 
                (setq eLeft nil 
                      eRight nil 
                      eTemp4 nil 
                ) 
                (setq inel (xd::list:removeE (cadr inel) inel t)) 
              ) 
            ) 
            (setq eLeft (xdrx_dimension_makerotate xLine1 xLine2Point p3 ang)) 
            (setq eRight (xdrx_dimension_makerotate xLine2Point xLine2 p3 
                                                    ang 
                         ) 
            ) 
            (xdrx_setpropertyvalue ptin "Visibility" nil) 
            (setq eTemp4 ptin) 
          ) 
        ) 
        (xdrx_setpropertyvalue eLeft "xLine2Point" xLine2Point) 
        (xdrx_setpropertyvalue eRight "xLine1Point" xLine2Point) 
        (setq i**t nil) 
      ) 
    ) 
  ) 
  (if (or 
        (setq ee (xdrx_entsel "\n拾取基准尺寸<取点>:" '((0 . "dimension") 
                               (-4 . "<or") 
                               (70 . 32) 
                               (70 . 33) 
                               (-4 . "or>") 
                              ) 
                 ) 
        ) 
        (and 
          (setq p1 (getpoint "\n第一点<退出>:")) 
          (setq p2 (getpoint p1 "\n第二点<退出>:")) 
        ) 
      ) 
    (progn 
      (xdrx_begin) 
      (setq olderr *error* 
            *error* myerr 
      ) 
      (setq inel nil 
            i**t nil 
      ) 
      (if ee 
        (progn 
          (setq el (XD::DIM:AlignedDimEnts (car ee))) 
          (setq xLines (mapcar 
                         'car 
                         (XD::Dim:xLINE (car ee)) 
                       ) 
          ) 
          (setq nInx (apply 
                       'xd::dim:getnearinx 
                       (list (car ee) (trans (cadr ee) 1 0)) 
                     ) 
                pnts (xdrx_getpropertyvalue (car ee) "stretchpoint") 
                p2 (nth (car nInx) pnts) 
                p1 (car (vl-remove p2 xLines)) 
                ang (angle p1 p2) 
                p3 (nth 2 pnts) 
          )                               ;           (setq el (XD::Entity:SortOnCurve 
                                       ; el (list p1 p2))) 
          (setq xLine2Point p2 
                xLine1Point p1 
          ) 
          (setq baseLines (XD::Dim:BasePoints (car ee))) 
          (setq e (car ee)) 
        ) 
        (progn 
          (setq p1 (trans p1 1 0) 
                p2 (trans p2 1 0) 
          ) 
          (setq e (xdrx_dimension_makerotate p1 p2 p2 (setq ang 
                                                            (angle p1 p2) 
                                                      ) 
                  ) 
          ) 
          (setq xLine2Point p2 
                xLine1Point p1 
          ) 
          (setq baseLines (XD::Dim:BasePoints e)) 
          (xdrx_pointmonitor "_callback1") 
          (if (not (setq p3 (getpoint "\n尺寸线位置<退出>:"))) 
            (progn 
              (exit) 
            ) 
          ) 
          (setq p3 (trans p3 1 0)) 
          (setq el nil) 
          (setq el (cons e el)) 
        ) 
      ) 
      (setq vdim (xdrx_vector_normalize (mapcar 
                                          '- 
                                          p2 
                                          p1 
                                        ) 
                 ) 
      ) 
      (xdrx_pointmonitor "_callback2") 
      (while (setq p4 (getpoint (trans xLine2Point 0 1) "\n下一点<退出>:")) 
        (setq i**t nil) 
        (if eLeft 
          (setq el (cons eLeft el) 
                el (cons eRight el) 
          ) 
          (if (not (member (entlast) el)) 
            (setq el (cons (entlast) el)) 
          ) 
        ) 
        (setq eLeft nil 
              eRight nil 
        ) 
        (setq xlines (xdrx_getpropertyvalue (entlast) "xLine2Point" 
                                            "xLine1Point" 
                     ) 
        ) 
        (setq vlast (apply 
                      'mapcar 
                      (cons '- xlines) 
                    ) 
              vlast (xdrx_vector_normalize vlast) 
        ) 
        (if (not (xdrx_vector_IsCodirectional vdim vlast)) 
          (progn 
            (xdrx_setpropertyvalue (entlast) "xLine1Point" (car xlines) 
                                   "xLine2Point" (cadr xlines) 
            ) 
          ) 
        ) 
      ) 
 
      (if i**t 
        (entdel (entlast)) 
      ) 
      (if eLeft 
        (progn 
          (entdel eLeft) 
          (entdel eRight) 
          (xdrx_setpropertyvalue eTemp4 "visibility" t) 
        ) 
      ) 
      (xdrx_pointmonitor) 
      (setq *error* olderr) 
      (xdrx_end) 
    ) 
  ) 
  (princ) 
)

[/sell]

Lisphk · 发表于 2016-5-22 22:43:15

支持，等好久了，终于见到你了:lol

/db_自贡黄明儒_ · 发表于 2016-5-22 22:48:22

支持，看看大师新作

anwil · 发表于 2016-5-22 23:02:19

这个插件绝对是好东西，现在斜标注就是没法有这种增减和对齐功能。

st788796 · 发表于 2016-5-22 23:07:05

创意不错，两个建议
1 标注一定要rotate类型，不要align
2 演示中好像出现了0长度标注，这个不可以有

newer · 发表于 2016-5-22 23:11:58

st788796 发表于 2016-5-22 23:07
创意不错，两个建议
1 标注一定要rotate类型，不要align
2 演示中好像出现了0长度标注，这个不可以有

睡前被震到了，看了里面的代码

(setq eTemp (xdrx_dimension_makerotate xLine1Point xLine1Point
登录/注册后可看大图
p3 ang
登录/注册后可看大图
)
登录/注册后可看大图
)

打

用的是转角标注，0长度应该是拖动过程显示的，用户要点击左键标注才能生成，不应该出现0的情况

st788796 · 发表于 2016-5-22 23:21:07

newer 发表于 2016-5-22 23:11
睡前被震到了，看了里面的代码

往回的时候点落在标注线内还可以有合并选择

wangxf888 · 发表于 2016-5-24 16:56:28

学习下谢谢分享

光照MU · 发表于 2016-7-28 09:13:50

#围观大神，谢谢分享#

光照MU · 发表于 2016-7-28 09:17:10

#围观大神之作#

光照MU · 发表于 2016-7-28 09:31:09

#围观大神之作#

光照MU · 发表于 2016-7-28 10:26:28

为什么工具箱加载成功了，但是xdtb_freedim总是提示是未知命令啊，跪求大神指导，QQ850152779，不甚感激！

zheng0000zheng · 发表于 2016-8-2 08:55:03

支持，等好久了

天若有情007 · 发表于 2016-8-3 21:11:02

不错，学习学习

Kllies · 发表于 2016-12-11 13:08:03

为什么我的加载不了，都出现错误: 读入的 (八进制) 字符不正确: 0

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

[标注] 自*由标注插件

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

评分

点评