Help with using wblock command in AutoLisp format.

[vladimir.karatsupa982899]

When I ceate a block using WBLOCK in LISP format my original objects that make-up a block get erased.

I am trying to create a block using (command "-wblock").
First I am prompted - Enter name of output file: I enter C:/AcadTemp/Spool/TEST.dwg
Second I am prompted - [= (block=output file) * (whole drawing)] <define new drawing>: I select "" to enter define new drawing
Specify insertion basse point - I specify insertion point
Then I get a selection box and select items.
Finally the block is created...however all of the objects in my modelspace that made-up a block are deleted.
How can I avoid that, how can I tell LISP to retain information inside the modespace.

[fixo]

Found one from my very oldies, not tested
Try to use on your own, select objects one by another

(vl-load-com)
(defun C:wblock-test  (/ adoc en ent pfss ss)

  (setq	adoc (vla-get-activedocument
	       (vlax-get-acad-object)
	       )
	)
  (sssetfirst)
  (setq ss (ssadd))
  (while
    (setq ent (entsel))
     (ssadd (car ent) ss)
     )
  (princ (strcat "\nВыбрано: " (itoa (sslength ss))))
  (setq pfss (vla-get-pickfirstselectionset adoc))
  
  (while (setq en (ssname ss 0))
    (vlax-invoke
      pfss
      'AddItems
      (list (vlax-ename->vla-object en)))
    (ssdel en ss))
  (vlax-invoke
    adoc
    'Wblock
    (strcat (getvar "dwgprefix") "WBLOCK-TEST.dwg")
    pfss)
  (vla-delete pfss)
  (vlax-release-object pfss)
  (princ)
  )
(defun C:wbt ()(C:wblock-test)(princ))
;;Call:
(prompt "\nКоманда для выполнения WBT")
(princ)

[GHarvey]

...however all of the objects in my modelspace that made-up a block are deleted.
How can I avoid that, how can I tell LISP to retain information inside the modespace.

All you really need to do is have your function undo itself once the wblock operation is complete. The following example illustrates this (note that no error handling and only minimal testing is included):

(defun c:wbtest ( / ACADDOC SELSETS SS SSVL)
  (vl-load-com)
  (setq acaddoc (vla-get-activedocument (vlax-get-acad-object))
	selsets (vla-get-selectionsets acaddoc)
	); setq
  (vla-startundomark acaddoc)
  (setq ss (ssget)
	ssvl (cond ((vl-catch-all-error-p
		      (setq ssvl (vl-catch-all-apply
				   'vla-item
				   (list selectionsets "vlass")
				   ); vl-catch-all-apply
			    ); setq
		      ); vl-catch-all-error-p
		    (vlax-invoke selsets 'add "vlass")
		    ); no existing selectionset named "vlass"
		   (t (progn
			(vla-delete ssvl)
			(vlax-invoke selsets 'add "vlass")
			); progn
		    ); default
		   ); cond
	); setq
  (vlax-invoke ssvl 'select acselectionsetprevious)
  (vlax-invoke acaddoc 'wblock (strcat (getvar "dwgprefix") "wblock-test.dwg") ssvl)
  (vla-delete ssvl)
  (vlax-release-object ssvl)
  (vla-endundomark acaddoc)
  (vl-cmdf "undo" "1")
  (princ)
  ); defun

[devitg.89838]

There is an old command for it


OOPS from the command line , or

Enter name of existing block or
[= (block=output file)/* (whole drawing)] <define new drawing>: ""
Specify insertion base point:
Select objects: 1 found

Select objects: 1 found, 2 total

Select objects:

Command: (command "oops")