How to filter ''Edit

Gentile Romano · 发表于 2022-7-5 23:50:51

Dear all;

A cad drawings having nearly 150 dimensions,
& there are more than 50 are edited dimensions
How can I filter the edited dimensions quickly..........
(It happens when you work with others files)

Thanks
Romano

ReMark · 发表于 2022-7-6 00:02:56

What is the purpose behind filtering edited dimensions in this case?

ketxu · 发表于 2022-7-6 00:14:22

You can use small rountine

copy

(Defun c:FindFakeDim nil (sssetfirst nil  (ssget '((0 . "DIMENSION") (-4 . "")))))

iainlines · 发表于 2022-7-6 00:19:45

I guess the OP wants to know if someone has changed dimension text. I have seen this with customer drawings where dimensions have been rounded up manually.

lucas3 · 发表于 2022-7-6 00:28:37

copy

(defun C:test(/ 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 . ""))))     (repeat (setq i (sslength ss))         (vlax-put-property (vlax-ename->vla-object (ssname ss (setq i (1- i)))) "textcolor" 1)      )     (alert "Not find Edited Dimensions!")   ) ) (princ))

if the dimensions is edited ,the dimensions color will change to red! like this photo!

Gentile Romano · 发表于 2022-7-6 00:34:46

Dear all;

Thanks lucas3
When it is just not possible to do it, you just do it and make it happen. Wow!

One dimension error can drag you to hell !!!
I think this will useful for everyone to edit others drawings without error.....

Regards
Romano

SLW210 · 发表于 2022-7-6 00:50:14

You might give this old thread a look. http://www.cadtutor.net/forum/showthread.php?44148-Request-Find-all-dimensions-with-an-overide

lucas3 · 发表于 2022-7-6 00:53:15

You're welcome .

[编程交流] How to filter ''Edit

发表回复

精选推荐