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

How to filter ''Edit

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

(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

(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 .
页: [1]
查看完整版本: How to filter ''Edit