重叠尺寸检查

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

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

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

×

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

游客，如果您要查看本帖隐藏内容请回复

;;*********************************************************重叠尺寸检查
(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)
)
;;*********************************************************重叠尺寸检查

;;*********************************************************重叠尺寸检查 
(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

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

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

kcad2010 kcad2010 当前离线 UID 677304 积分 391 精华贡献威望活跃度 D豆在线时间小时注册时间 2013-6-7 最后登录 1970-1-1 窥视卡雷达卡已领礼包: 182个财富等级: 日进斗金	发表于 2014-11-7 23:40:40 \| 显示全部楼层【广而告之】积分规则、D豆获取攻略窝窝空间装扮攻略提示: 作者被禁止或删除内容自动屏蔽
	论坛插件加载方法发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
	回复使用道具举报

[每日一码] 重叠尺寸检查

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

评分

点评

点评