论坛 › A/VLISP › 重叠尺寸检查

/db_自贡黄明儒_ 发表于 2014-10-29 11:06:06

重叠尺寸检查

本帖最后由 /db_自贡黄明儒_ 于 2014-10-29 12:04 编辑

**** Hidden Message *****;;*********************************************************重叠尺寸检查
(defun C:DimOverlap (/ E L LST N P PTEMP PTS S1 SS ST X Y)
(cond ((cadr (ssgetfirst)) (setq ss (ssget "_P" '((0 . "DIMENSION"))))))
(cond
    ((and (princ "\n尺寸检查范围:")
          (cond (SS (sssetfirst nil nil))(T (setq ss (ssget '((0 . "DIMENSION"))))))
          (setq n (sslength ss))
          (> n 1)
   )
   (setq s1 (ssadd))
   (repeat n
       (setq e (ssname ss (setq n (1- n))))
       (setq p (DmTxtBoxPts e))                                    ;4角点
       (setq pts (cons p pts))
       (setq Lst (cons (list p e) Lst))
   )
   (while (setq L   (car Lst)
                  Lst (cdr Lst)
            )
       (setq p (car L))
       (setq PTemp (vl-remove p pts))
       (setq St (mapcar '(lambda (y) (mapcar '(lambda (x) (PtInPts y x)) p)) PTemp))
       (cond ((apply 'or (mapcar '(lambda (x) (apply 'or x)) St))
            (setq s1 (ssadd (cadr L) s1))
             )
       )
   )
   (cond (s1 (sssetfirst nil s1)))
    )
)
(princ"\n重叠尺寸检查 DimOverlap" )
(princ)
)
;;*********************************************************重叠尺寸检查

newer 发表于 2014-10-29 12:10:46

CAD是啥版本的，这大字，看着舒服{:soso_e128:}

819534890 发表于 2014-10-29 14:49:56

这个好，检查方便

济南天行健 发表于 2014-10-29 15:35:44

认真学习，楼主辛苦了！

q3_2006 发表于 2014-10-29 18:06:23

重叠尺寸...什么时候会发生....??

lucas3 发表于 2014-10-29 21:25:51

光检查出来起不到大的作用，要是检查出来了帮忙整理就very good啦

lucas3 发表于 2014-10-30 22:22:33

选择对象: 指定对角点: 找到 3 个
选择对象:; 错误: DXF 组不正确: (1)

myfrankie 发表于 2014-10-31 08:43:00

路过看看。是真的么

杜流浪人 发表于 2014-11-1 10:05:56

支持黄老师的新作   

grs432 发表于 2014-11-3 16:17:26

不错的工具

kcad2010 发表于 2014-11-7 23:40:40

sucesszbp 发表于 2015-1-15 08:51:51

回复来看看

zh1023749926 发表于 2015-1-16 21:36:52

学习看下。。。。

yoyoho 发表于 2015-1-19 07:09:02

感谢黄老师分享程序!

dwg001 发表于 2015-1-20 14:18:19

回复为看隐藏“私密”。。。

查看完整版本: 重叠尺寸检查