Use of an existing autolisp command in autolisp (lispception?)

[Gignatak]

;; Print PDF
(defun c:zp1 ()
  (setvar 'ctab "xx_a1")
  (command "_.mspace") ;double click in window
  (command "zoom" "g" "zoom" ".95x")
  (command "-plot" "" "" "" "DWG to PDF.pc3" (vl-filename-base (getvar "dwgname")) "n" "j")
  (princ)
)
;; Unlock All Viewports
 
(defun c:vpu nil
(SSVPLock (ssget "_X" '((0 . "VIEWPORT"))) :vlax-false) 
(princ "\n--> All Viewports UnLocked.")
(princ) 
)

 

 

Hi everyone,

 

i am fairly new to Autolisp and i am trying to write a command that automates printing a pdf of a drawing with right zooming.

But sometimes the viewport of my Layout is locked, so i searched for a solution and i found a the second command(vpu) from Lee Mac that does that.

I would like to use just one command, for simplicity.

And my question is, can i insert a command that is made with autolisp (like vpu) in my first command (zp1) or is there any other way of solving this problem?

 

Many of my lines in lisp are taken from Lee Mac's internet site.

[mhupp]

Have it run in the beginning.

 

;; Print PDF
(defun c:zp1 ()
  (C:VPU)
  (setvar 'ctab "xx_a1")
  ....

 

[Gignatak]

Thank you very much mhupp. That was exactly what i was looking for.

 

[mhupp]

no problem welcome to the forums