Need to export each solid as separate dwg, dxf or 3ds file format

[thecocuk07]

11 hours ago, ADSK2007 said:

marko_ribar

 

Amazing Thank you marko. How do I save as 3ds format?

` ;  `  replace the sign   

 

 

;ss (ssget "_X" '((0 . "*POLYLINE") (-4 . "&=") (70 . 8)))         ; polyline object
          ss (ssget "_X" '((0 . "*SOLID") ))                                ; solid 

Edited January 24, 2023 by thecocuk07

[thecocuk07]

 

.

Edited January 24, 2023 by thecocuk07

[thecocuk07]

4 hours ago, thecocuk07 said:

hi marko  , 

 

It records only one object from every layer

 

exp ;  layer ,      charlie  , andy , brady      ,,,,,,,, 10 object have  

 

charlie000

charlie001

charlie002.....

 

andy000

andy001

andy002....

 

 

 

(defun c:WBP ( / c_doc o_arr ss o_lst cnt fname)
    (setq c_doc (vla-get-activedocument (vlax-get-acad-object))
          o_arr (vlax-make-safearray vlax-vbobject '(0 . 0))
          ss (ssget "_X" '((0 . "*SOLID") ))
    );end_setq

    (repeat (setq cnt (sslength ss))
      (setq o_lst (cons (vlax-ename->vla-object (ssname ss (setq cnt (1- cnt)))) o_lst))
    );end_repeat
    
    (setq cnt 0)
    
    (foreach obj o_lst
      (setq sso (vla-add (vla-get-selectionsets c_doc) "PLO")
            fname (strcat (getvar 'dwgprefix) (cdr (assoc 8 (entget (vlax-vla-object->ename obj)))) (itoa cnt) ".dwg")
      );end_setq
      (vlax-safearray-put-element o_arr 0 obj)
      (vla-additems sso o_arr)
      (vla-wblock c_doc fname sso)
      (vla-delete sso)
      (setq cnt (1+ cnt))
    );end_foreach  
);end_defun

charlie0

charlie1

charlie2.....

 

andy3

andy4

andy5

Edited January 24, 2023 by thecocuk07

[thecocuk07]

.

 

 

Edited January 25, 2023 by thecocuk07