Command Imprint for multiple objects

[marmo]

Hi,

 

there is a lisp like:

 

(defun c:im ()

(command "_SOLIDEDIT" "B" "I")

)

 

but that allows you to select first the solid and then multiple objects at once to imprint the selected solid, and delete them always at the end of the command.

 

Or in better way, first select one or more than one solid at once, then select all the objects on their respective faces at once, and then delete all those objects (lines, polylines, circles, and so on) used to imprint.

 

Thanks and best regards.

 

MM

[marmo]

No one?

[GP_]

Hi Marco,

you can use directly IMPRINT in replacement of SOLIDEDIT?

 

(defun c:im ( / sol ob_imp  )
   (if
       (and
           (princ "\nSelect a 3D solid")
           (setq sol (ssget "_+.:S" '((0 . "3DSOLID"))))
           (setq sol (ssname sol 0))
           (princ "\nSelect objects to imprint")
           (setq ob_imp (ssget))
       )
       (repeat (setq n (sslength ob_imp))
           (vl-cmdf "_imprint" sol (ssname ob_imp (setq n (1- n))) "_y" "")
       )
   )
)

[marmo]

Hi Gian Paolo,

 

the lisp works fine!

 

I use a lot the command imprint, thus for me is very uncomfortable pass by using soliedit... body...imprint and choose each elements at once.

 

Thanks a lot!

Ciao

Marco