Topic: Clean Drawing

[mailmaverick]

Hi

How to clean drawing by deleting :-
1.) 2D Polylines, 3D Polylines, LWPolylines, Lines etc with one vertex ?
2.) Null Texts

[gile]

Code: [Select]

(command "_.purge" "_Zero" "_.purge" "_Empty")

[gile]

Quick and dirty

Code: [Select]

(vlax-for b (vla-get-Blocks
      (vla-get-ActiveDocument
(vlax-get-acad-object)
      )
    )
  (vlax-for o b
    (if
      (or
(and
  (vlax-property-available-p o 'Textstring)
  (= "" (vl-string-trim " \t\n" (vlax-get o 'Textstring)))
)
(and
  (vlax-property-available-p o 'Length)
  (= 0. (vlax-get o 'Length))
)
      )
       (vla-Delete o)
    )
  )
)

[mailmaverick]

Thanks.

[Marc'Antonio Alessi]

Code: [Select]

(command "_.purge" "_Zero" "_.purge" "_Empty")

Is it possible to know if a command of the version in use (AutoCAD/BricsCAD) has some options? Like "_Zero" and "_Empty" not present in old versions.

For example with (and (getcname "_TASKBAR") (command "_TASKBAR" 1)) I can know if the command exists in the version I'm using.