g414161696 发表于 2011-3-21 15:57:54

CAD里面的假尺寸工具

CAD里面，有些尺寸标注后，手动修改过数值，现在我需要一个插件能检查出图中所有的标注哪些是被改过的（就是亮显突出假尺寸，或者将假尺寸改成某个固定的颜色图层），请高手帮忙写个，发邮箱414161696@qq.com或者发到论坛上，答谢了~

自贡黄明儒 发表于 2011-3-21 18:37:44

本帖最后由 自贡黄明儒 于 2011-3-21 18:38 编辑

;我来抛一块砖
;用(entget (car (entsel)))时;假尺寸(1 . "460")(42 . 60.0),真尺寸时(1 . "")(42 . 460.0)
;最后一步变色，以便区分bylaer时，无(62 . 1)

ZZXXQQ 发表于 2011-3-21 21:06:27

(1 . "%%c<>")也是真尺寸
字串中包含<>的都是真尺寸

zlg258369 发表于 2011-3-21 21:41:30

回复 g414161696 的帖子

简单的例子
(defun c:cs()
(setq ents (ssget '((0 . "DIMENSION"))))
(setq i 0)
(while (< i (sslength ents))
    (princ (sslength ents))
   (setq a (ssname ents i))
   (setq x (cdr (assoc 1 (entget a))))
   (if (/= x "")(redraw a 3))
   (setq i (+ i 1))
)
(princ)
)

g414161696 发表于 2011-3-22 13:00:47

大家都好牛啊   我个新手原来学的是LISP   刚发现LISP跟DXF很有关系，才略微看的懂大家的发言，太感谢了，有这个工具我以后工作就方便多了，减少了很多错误...谢谢2楼，3楼，特别是4楼的辛苦了，帮我写出了程序 我一定好好研究一下

自贡黄明儒 发表于 2011-3-22 13:01:33

本帖最后由 自贡黄明儒 于 2011-3-22 16:51 编辑

判断真假尺寸，审图时很有用

g414161696 发表于 2011-3-23 09:18:02

大家好，我已经看懂了这个lisp，但我还有一事不明，就是我如何知道标注的图元名就是"DIMENSION",哪里可以查到吗？如果我要修改的是其他的，比如块或者是文字之类的，那它们的图元名又是什么呢？

zlg258369 发表于 2011-3-24 21:13:08

回复 g414161696 的帖子

(entget (entlast))，在cad命令行里输入这个后，会显示最后一个图元的信息，其中（0.“xxxx”）就是。

lcglcg 发表于 2011-3-25 08:23:56

好，支持

feng8511 发表于 2011-10-21 08:07:27

好，支持
页: [1] 2
查看完整版本: CAD里面的假尺寸工具