Lisp modification (inserting images)

[BB8x]

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

[ronjonp · Accepted solution]

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)

[BB8x]

Thanks mate for reply, but result is still the same

[ronjonp]

---

@BB8x wrote:

Thanks mate for reply, but result is still the same

---

@BB8x  Strange .. works here:

[BB8x]

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

[BB8x]

Edit: does not work

[ronjonp]

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

[BB8x]

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

[ronjonp]

---

@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 🍻

[BB8x]

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