Afandy Posted May 11, 2021 Share Posted May 11, 2021 (edited) http://www.cadtutor.net/forum/showthread.php?83532-How-to-filter-Edited-Dimensions hi guys this list finding Fake Dimension (override) then change text color of them to Red could any one help me to add changing Fill Color of text to Yellow or Active (Draw Frame Around Text) ? great thanks for you Edited May 11, 2021 by Afandy Quote Link to comment Share on other sites More sharing options...
hosneyalaa Posted May 11, 2021 Share Posted May 11, 2021 20 hours ago, Afandy said: http://www.cadtutor.net/forum/showthread.php?83532-How-to-filter-Edited-Dimensions hi guys this list finding Fake Dimension (override) then change text color of them to Red could any one help me to add changing Fill Color of text to Yellow or Active (Draw Frame Around Text) ? great thanks for you (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 . "<AND")(-4 . "<NOT")(1 . "")(-4 . "NOT>")(-4 . "<NOT")(1 . "*<>*")(-4 . "NOT>")(-4 . "AND>")))) (repeat (setq i (sslength ss)) (PROGN (setq iOG(vlax-ename->vla-object (ssname ss (setq i (1- i))))) (vlax-put-property iOG "textcolor" 1) (vlax-put-property iOG 'TextFill :vlax-true) (vlax-put-property iOG 'TextFillColor 2) ) ) (alert "Not find Edited Dimensions!") ) ) (princ) ) 1 Quote Link to comment Share on other sites More sharing options...
Afandy Posted May 12, 2021 Author Share Posted May 12, 2021 16 hours ago, hosneyalaa said: (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 . "<AND")(-4 . "<NOT")(1 . "")(-4 . "NOT>")(-4 . "<NOT")(1 . "*<>*")(-4 . "NOT>")(-4 . "AND>")))) (repeat (setq i (sslength ss)) (PROGN (setq iOG(vlax-ename->vla-object (ssname ss (setq i (1- i))))) (vlax-put-property iOG "textcolor" 1) (vlax-put-property iOG 'TextFill :vlax-true) (vlax-put-property iOG 'TextFillColor 2) ) ) (alert "Not find Edited Dimensions!") ) ) (princ) ) Thank you sir 1 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.