[已解决]标注重叠快速检查工具

金鹅起飞 · 发表于 2013-11-12 09:00:10

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

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

×

本帖最后由金鹅起飞于 2013-11-17 14:44 编辑

各位大师好！小弟求助一个.lsp程序，用来检查标注重叠
原因如下：我在实际工作中，标注有时大意把标注点错了点，使标注包含了其他的数值，使实际的尺寸变大或变小，给生产造成了无法挽回的损失。为了避免此类错误的发生，我想请大师们帮忙写一个lsp程序，框选所有的标注后，让重叠的标注变色显示出来，这样，就好把错误的标注重新改正，避免错误。谢谢了。附件里有原文件。

newer · 发表于 2013-11-12 16:32:39

除了这种，还有其他重叠的情况吗？

金鹅起飞 · 发表于 2013-11-12 17:02:45

newer 发表于 2013-11-12 16:32
除了这种，还有其他重叠的情况吗？

暂时还没有其他的重叠情况，谢谢！

zxq0220 · 发表于 2013-11-12 19:13:25

实际上是检查一下假尺寸标注。

金鹅起飞 · 发表于 2013-11-12 19:27:08

zxq0220 发表于 2013-11-12 19:13
实际上是检查一下假尺寸标注。

zxq0220 :您好！可以编写程序实现吗？

zxq0220 · 发表于 2013-11-13 07:36:45

;;; ==========================================
;;; 名称: 《假尺寸检查》
;;; 功能：假尺寸(手动修改过的尺寸)数值显示红色
;;; 操作：运行JCC显示假尺寸,再次运行恢复不显示
;;; langjs
;;; ==========================================
(defun C:JCC (/ i ss)
(vl-load-com)
(setvar "cmdecho" 0)
(if (setq ss (ssget "X" '((0 . "DIMENSION") (-3 ("ACAD")))))
(repeat (setq i (sslength ss))
(entmod (list (cons -1 (ssname ss (setq i (1- i)))) (list -3 (list "ACAD"))))
)
(if (setq ss (ssget "X" '((0 . "DIMENSION") (-4 . "<AND")(-4 . "<NOT")(1 . "")(-4 . "NOT>")(-4 . "<NOT")(1 . "*<>*")(-4 . "NOT>")(-4 . "AND>"))))
(repeat (setq i (sslength ss))
(vlax-put-property (vlax-ename->vla-object (ssname ss (setq i (1- i)))) "textcolor" 1)
)
(alert "本图没有找到假尺寸!")
)
)
(princ)
)

金鹅起飞 · 发表于 2013-11-13 08:05:25

zxq0220 发表于 2013-11-13 07:36

zxq0220 :您好！
谢谢您在百忙之中编写的程序，我先试试，再来感谢。

金鹅起飞 · 发表于 2013-11-13 08:30:44

zxq0220 发表于 2013-11-13 07:36

ZXP0220您好！刚才用您的程序试了一下，对于手动改过的标注尺寸确实有效，谢谢您！但是，对于没有手动改过的，是标注时标错了位置的数值没有变色显示，能否再请您帮帮忙改成不手动改的也可以变色呢？请看下面的图片，图片中“80”这个数值是有误的，它包含了边上的“16”，让这个“80”变色就达到目地了。谢谢您！

st788796 · 发表于 2013-11-13 11:38:53

楼主的要求可以描述为同一道尺寸标注不能出现"包含"和"交叉"

金鹅起飞 · 发表于 2013-11-13 12:23:27

st788796 发表于 2013-11-13 11:38
楼主的要求可以描述为同一道尺寸标注不能出现"包含"和"交叉"

ST788796：大师您好！应该是这个意思，凡是不是正确的尺寸都变色显示就可以了。

st788796 · 发表于 2013-11-13 19:23:46

金鹅起飞发表于 2013-11-13 12:23
ST788796：大师您好！应该是这个意思，凡是不是正确的尺寸都变色显示就可以了。

这个可以写，不过最好楼主把你们常用的标注形式、这个标注是手动标注还是其它软件自动标注的说一说，不然可能多花一些无谓的时间去判断

st788796 · 发表于 2013-11-13 20:38:46

金鹅起飞发表于 2013-11-13 12:23
ST788796：大师您好！应该是这个意思，凡是不是正确的尺寸都变色显示就可以了。

你先试试

(defun c:tt (/ ss el _Pnts:SameLine el1 l1 l2 p1 p2 p3 p4 pts1 pts2 ll)
(defun _Pnts:SameLine (p1 p2 p3 p4 /)
(equal (rem (angle p1 p2) pi)
(rem (angle p3 p4) pi)
1e-5
)
)
(if (setq ss (ssget '((0 . "Dimension"))))
(progn
(setq el (vl-remove-if-not
'(lambda (x)
(vl-position
(xdrx_getpropertyvalue x "IsA")
'("AcDbAlignedDimension" "AcDbRotatedDimension")
)
)
(xdrx_pickset->ents ss)
)
el (vl-sort el
'(lambda (e1 e2)
(< (xdrx_getpropertyvalue e1 "Measurement")
(xdrx_getpropertyvalue e2 "Measurement")
)
)
)
el (mapcar '(lambda (x)
(cons x (xdrx_entity_getstretchpoint x))
)
el
)
)
(while el
(setq l1 (car el)
el1 (cdr el)
p1 (nth 3 l1)
p2 (nth 4 l1)
pts1 (reverse (cdr (reverse (cdr l1))))
)
(while el1
(setq l2 (car el1)
p3 (nth 3 l2)
p4 (nth 4 l2)
pts2 (reverse (cdr (reverse (cdr l2))))
)
(if
(and
(_Pnts:SameLine p1 p2 p3 p4)
(> (length (xdrx_points_boundingboxintersect pts1 pts2))
2
)
)
(setq ll (cons (car l2) ll))
)
(setq el1 (cdr el1))
)
(setq el (cdr el))
)
(if ll
(sssetfirst nil (XD::Entity->Pickset ll))
)
)
)
(princ)
)

(defun c:tt (/ ss el _Pnts:SameLine el1 l1 l2 p1 p2 p3 p4 pts1 pts2 ll) 
  (defun _Pnts:SameLine        (p1 p2 p3 p4 /) 
    (equal (rem (angle p1 p2) pi) 
           (rem (angle p3 p4) pi) 
           1e-5 
    ) 
  ) 
  (if (setq ss (ssget '((0 . "Dimension")))) 
    (progn 
      (setq el (vl-remove-if-not 
                 '(lambda (x) 
                    (vl-position 
                      (xdrx_getpropertyvalue x "IsA") 
                      '("AcDbAlignedDimension" "AcDbRotatedDimension") 
                    ) 
                  ) 
                 (xdrx_pickset->ents ss) 
               ) 
            el (vl-sort        el 
                        '(lambda (e1 e2) 
                           (< (xdrx_getpropertyvalue e1 "Measurement") 
                              (xdrx_getpropertyvalue e2 "Measurement") 
                           ) 
                         ) 
               ) 
            el (mapcar '(lambda        (x) 
                          (cons x (xdrx_entity_getstretchpoint x)) 
                        ) 
                       el 
               ) 
      ) 
      (while el 
        (setq l1   (car el) 
              el1  (cdr el) 
              p1   (nth 3 l1) 
              p2   (nth 4 l1) 
              pts1 (reverse (cdr (reverse (cdr l1)))) 
        ) 
        (while el1 
          (setq        l2   (car el1) 
                p3 (nth 3 l2) 
                p4 (nth 4 l2) 
                pts2 (reverse (cdr (reverse (cdr l2)))) 
          ) 
          (if 
            (and 
              (_Pnts:SameLine p1 p2 p3 p4) 
              (> (length (xdrx_points_boundingboxintersect pts1 pts2)) 
                 2 
              ) 
            ) 
             (setq ll (cons (car l2) ll)) 
          ) 
          (setq el1 (cdr el1)) 
        ) 
        (setq el (cdr el)) 
      ) 
      (if ll 
        (sssetfirst nil (XD::Entity->Pickset ll)) 
      ) 
    ) 
  ) 
  (princ) 
)

XDSoft · 发表于 2013-11-13 20:49:36

st788796 发表于 2013-11-13 20:38
你先试试

用 xdrx_entity_boundingBoxIntersectwith 这个是不是能省点代码？

st788796 · 发表于 2013-11-13 20:53:20

本帖最后由 st788796 于 2013-11-13 20:54 编辑

XDSoft 发表于 2013-11-13 20:49
用 xdrx_entity_boundingBoxIntersectwith 这个是不是能省点代码？

转角标注不知道这个 Enity_BoundingBoxIntersectwith 会是啥个 Box，可能误伤，用 Stretchpoint 可以判断是否是同一道尺寸

外包尺寸不算重叠的

金鹅起飞 · 发表于 2013-11-13 21:41:28

st788796 发表于 2013-11-13 20:38
你先试试

st788796大师：您好！感谢您的程序，谢谢！我刚才试了一下，发现可以判断重叠尺寸，真是太好了！如果能够让重叠尺寸变色就更好了，还有是，最外边的尺寸，见图片中的“30”和“512”是最外边的总尺寸，应该是正确的尺寸，如果能让它们不亮显就好了。谢谢您st788796大师！演示过程见下面图片。

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

[已解决] [已解决]标注重叠快速检查工具

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

点评

点评

点评

点评

点评

点评

点评

点评