topic Re: Lisp modification (inserting images) in AutoCAD Forum

Lisp modification (inserting images)

BB8x — Wed, 26 May 2021 17:43:45 GMT

Hi all

I am using 2 attached lisps. They insert multiple images into Autocad as a ref files. Attached files have random names. Is a chance to modify this lisps to insert images with their real name files?

Thanks

Re: Lisp modification (inserting images)

ronjonp — Wed, 26 May 2021 20:39:22 GMT

Give this a try:

(defun c:img (/ ang dis ins lst spc o) (if (and (setq lst (lm:getfiles "Select Image Files to Insert" img:dir nil)) (setq ins (getpoint "\nSpecify insertion point: ")) ) (progn (initget 4) (setq dis (cond ((getdist "\nSpecify image spacing <0>: ")) (0.0) ) spc (vlax-get-property (vla-get-activedocument (vlax-get-acad-object)) (if (= 1 (getvar 'cvport)) 'paperspace 'modelspace ) ) ang (angle '(0.0 0.0 0.0) (trans (getvar 'ucsxdir) 0 1)) img:dir (vl-filename-directory (car lst)) ) (foreach img lst (setq ins (cons (+ (car ins) dis (vla-get-imagewidth (setq o (vlax-invoke spc 'addraster img ins 1.0 ang))) ) (cdr ins) ) ) ;; RJP - name of image to match filename (vla-put-name o (vl-filename-base img)) ) ) ) (princ) ) (vl-load-com) (princ)

Re: Lisp modification (inserting images)

BB8x — Thu, 27 May 2021 14:40:28 GMT

Thanks mate for reply, but result is still the same

Re: Lisp modification (inserting images)

ronjonp — Thu, 27 May 2021 14:57:18 GMT

@BB8x wrote:

Thanks mate for reply, but result is still the same

@BB8x Strange .. works here:

Re: Lisp modification (inserting images)

BB8x — Thu, 27 May 2021 20:25:58 GMT

I tried many times from many directories same result. Does work. Mine is Autocad 2017

Re: Lisp modification (inserting images)

BB8x — Thu, 27 May 2021 21:28:02 GMT

Edit: does not work

Re: Lisp modification (inserting images)

ronjonp — Thu, 27 May 2021 23:54:23 GMT

Not sure what to say .. but I'm also running 2022.

Re: Lisp modification (inserting images)

BB8x — Sun, 30 May 2021 21:21:06 GMT

Now I do not know what to say. After few days I tried again and it works. Have a feeling autocad needed computer reboot.

Thank you for this ronjonp

Re: Lisp modification (inserting images)

ronjonp — Sun, 30 May 2021 21:43:26 GMT

@BB8x wrote:

Now I do not know what to say. After few days I tried again and it works. Have a feeling autocad needed computer reboot.

Thank you for this ronjonp

Glad to help 🍻

Re: Lisp modification (inserting images)

BB8x — Sat, 12 Jun 2021 21:50:02 GMT

Bit odd. Usually works great, but from time to time works in old style with funny names. After autocad reboot proper names are in place