Add pause to the lisp

[Prashanthr]

Hello Everyone,

I am still learning lisp and thought of creating a lisp to attach pdf to the drawing as using the command "PDFATTACH" takes time to load a pdf with more than 100 pages and scrolling down the list to select the pages is time consuming.

(defun c:PFF()
(command "-PDFATTACH" "C:\XXX\XXX" "\\" "\\" "954" "0")
(princ)
)

When I run this lisp it says "C:XXX‚XXX not found. Can anyone help me out? 

I want the lisp to pause for user input for "page number" and "scale". I even tried adding PAUSE instead of "\\", but still it didn't work. 

Thanks in advance.

[ВeekeeCZ]

Post real file name.

[Kent1Cooper]

Try it with either double back-slashes or single forward-slashes as separators in the file path.

[pbejse]

Here you go.

[Prashanthr]

Hi @ВeekeeCZ 

Here is the file name: 11_STATE___GD11___PERMIT_FOR_ISSUE_DRAWING.pdf

[Prashanthr]

Hi @Kent1Cooper 

I tried to double backslash and forward slash as well, but doing so is making autocad go crazy. I am able see loading icon constantly rotating and pressing ESC does not  me Exit out of this command. I had to force close AutoCAD.

[Prashanthr]

@pbejse  oh man!! This is working so awesome 😂😂🤣 

[Sea-Haven]

maybe this 

(command "-PDFATTACH" "d:/acadtemp/vba-tutorial.pdf" (getint "\nEnter page number ") (getstring "\nenter insertion point x,y  ") 954 0)

[Prashanthr]

Hi @Sea-Haven 

I tried this, but its not working, I get the prompt to enter the "page number" but the command history shows the pdf is not found. 

[ВeekeeCZ · Accepted solution]

Ok, I did it in a more complex way because... if I did it the simplest way I know it was crushing my acad.

(defun c:PFF ( / g p s)
  (if (and (setq g (cond ((getint "\nPage <1>: ")) (1)))
	   (setq p (getpoint "\nPoint: "))
	   (setq s (cond ((getreal "\nScale <1>: ")) (1)))
	   )
    (command "-PDFATTACH" "c:\\Users\\USer\\Dropbox\\nome_xco_me_startlist.pdf" g "_non" p s 0))
  (princ)
)

[Prashanthr]

Hi @ВeekeeCZ 

Thank you. This lisp also is not working. Not sure why its working. I assumed creating a lisp for this task to be very easy to deal with but its not 😅

Here is the screenshot of the command history.

[ВeekeeCZ]

The screenshot shows that it does not find the file. So the part marked with red lines by you is the one, where the issue is.

[hmsilva · Accepted solution]

@Prashanthr try this slightly modified code from @ВeekeeCZ 

(defun c:PFF ( / f g p s)
  (if (and (setq g (cond ((getint "\nPage <1>: ")) (1)))
	   (setq p (getpoint "\nPoint: "))
	   (setq s (cond ((getreal "\nScale <1>: ")) (1)))
	   (setq f (getfiled "Select a PDF File" "" "pdf" 0))
	   )
    (progn
      (command "-PDFATTACH" f g "_non" p s 0)
      (print f)
    )
    )
  (princ)
)

will ask you to select the pdf file.

ex:

Command: PFF
Page <1>:
Point:
Scale <1>: -PDFATTACH Path to PDF file to attach: C:\Users\Test\Documents\water-controls.pdf Enter page number or [?] <1>: 1
Specify insertion point: _non
Base image size: Width: 8.2677, Height: 11.6929, Undefined
Specify scale factor or [Unit] <1.0000>: 1
Specify rotation <90.0000>: 0
Command:
"C:\\Users\\Test\\Documents\\water-controls.pdf"  <- copy and paste this line into the original code, it's the correct path...

Command: 

Hope this helps,
Henrique

[Prashanthr]

Hi @ВeekeeCZ 

I tried a different pdf file in different location and the lisp works perfect 😊 Thank you 🤗

[Prashanthr]

Hi @hmsilva 

This lisp works great! But one problem is that every time I need to browse the location of the folder and it doesn't remember the earlier used locations 😅 This can be overcome by adding the location in the lisp, but it would be more awesome if it would remember the location last used 😄

[pendean]

@prashanthr Read this from HEW]LP https://knowledge.autodesk.com/support/autocad/learn-explore/caas/sfdcarticles/sfdcarticles/Automati...

Or this online tutorial http://www.lee-mac.com/autoloading.html

[hmsilva]

---

@Prashanthr wrote:

Hi @hmsilva 

This lisp works great! But one problem is that every time I need to browse the location of the folder and it doesn't remember the earlier used locations 😅 This can be overcome by adding the location in the lisp, but it would be more awesome if it would remember the location last used 😄

---

@Prashanthr 

getfiled function don't remember last file location, but we can hardcode a path...

the code line

(setq f (getfiled "Select a PDF File" "" "pdf" 0))

 don't have a location to start the file selection, but changing the "" to a valid path, it will start there the 

ex:

(setq f (getfiled "Select a PDF File" "H:\\Test\\" "pdf" 0))

will start the selection in "H:\\Test\\" folder...

Hope this helps,
Henrique

[ВeekeeCZ]

Just out of today's misery here's a bit enhanced update.

(defun c:PFF ( / f p)
(vl-load-com)
  (or *pff-h* (setq *pff-h* "c:\\Users\\user\\Dropbox")) ; defaults
  (or *pff-g* (setq *pff-g* 1))
  (or *pff-s* (setq *pff-s* 1))
    
  (if (and (setq f (getfiled "Select a PDF File" (strcat *pff-path* "\\") "pdf" 0))
	   (setq *pff-g* (cond ((getint (strcat "\nPage <" (itoa *pff-g*) ">: "))) (*pff-g*)))
	   (setq *pff-s* (cond ((getint (strcat "\nScale <" (itoa *pff-s*) ">: "))) (*pff-s*)))
	   (setq p (getpoint "\nPoint: "))
	   (setq *pff-h* (vl-filename-directory f))
	   )
    (progn
      (command "-PDFATTACH" f *pff-g* "_non" p *pff-s* 0)
      (print f)
    )
    )
  (princ)
)