Command function in reactor

[BlackBox]

RenderMan, whilst I am disappointing with not being able to automate this functionality through a reactor, I really appreciate your efforts in helping me out.

Trust me, I was extremely disappointed, and even embarrassed by my suggestion(s)... I feel that I should have known better.

Nearly every thread I've ever read on these boards has some contribution from you. So have a my friend - for so consistently helping us noobs out.

I was a noob not so long ago myself, and still feel that I have much to learn (as this thread perfectly demonstrates! LoL). I'm flattered that my small contribution(s) have been so helpful to you *blushing*.

And, by the way - I had no idea bout the ai_commands hidden under the Acad####doc.lsp - thanks for pointing that out.

Cheers

Yes, many things are hidden throughout the AutoCAD deployment, especially when you are working with verticals (i.e., Land Desktop, Civil 3D, etc.). *grin*

Just be sure to NOT put your custom code in any acad####*.lsp file, as these are reserved for AutoCAD, and can be overwritten without notification. Stick to using ACAD.lsp, and ACADDOC.lsp which are both user defined files built into the Startup Sequence. The former is loaded once per session (by default), and the latter is loaded once per drawing.

Cheers!

[3dwannab]

Try this:

By using:

(vla-SendCommand object Command)

Point of reference here: https://knowledge.autodesk.com/searc...A0A57-htm.html

;; AtSaveCommand
;; loadTheSaveReactor
;; Found here: http://forums.augi.com/showthread.php?93534-Run-lisp-when-closing-drawing&p=926895&viewfull=1#post926895
(defun AtSaveCommand (calling-reactor b)
	(if
		(or
			(= (car b) "QSAVE")
			(= (car b) "SAVEAS")
			(= (car b) "SAVE")
			)
		(progn
			(setq acadObj (vlax-get-acad-object))
			(setq activeDoc (vla-get-ActiveDocument acadObj))
			;; Get activeDoc Help: https://knowledge.autodesk.com/search-result/caas/CloudHelp/cloudhelp/2015/ENU/AutoCAD-ActiveX/files/GUID-161FD7E5-B739-4E09-8430-BA04A6298703-htm.html
			(if	(= (vla-get-ActiveSpace activeDoc) 1)
				(progn
					(vla-SendCommand activeDoc (strcat "._TEXTTOFRONT A "))
					; (vla-Regen activeDoc acAllViewports)
					; (vla-SendCommand activeDoc (strcat "_REGEN "))
					)
				(progn
					; (princ "\nSwitching to ModelSpace & Back, 1 sec...")(princ)
					;; (run your command here)
					;; Code changed from here
					;; YOu can run a command like so: See help here:
					;; https://knowledge.autodesk.com/search-result/caas/CloudHelp/cloudhelp/2016/ENU/AutoCAD-ActiveX/files/GUID-E13A580D-04CA-46C1-B807-95BB461A0A57-htm.html
					(vla-SendCommand activeDoc (strcat "._TILEMODE 1 "))
					(vla-SendCommand activeDoc (strcat "._TEXTTOFRONT A "))
					(vla-SendCommand activeDoc (strcat "._TILEMODE 0 "))
					; (vla-SendCommand activeDoc (strcat "_REGEN "))
					; (vla-Regen activeDoc acAllViewports)
					)
				)
			)
		)
	)
(defun loadTheSaveReactor ()
	(if *FileOnSave* (vlr-remove *FileOnSave*))
	(setq *FileOnSave*
		(vlr-command-reactor nil '((:vlr-commandwillStart . AtSaveCommand)))
		)
	)
(vl-load-com)
(loadTheSaveReactor)