help in editing FakeDims.LSP

[Afandy]

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

[hosneyalaa]

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)
)

 

[Afandy]

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