Just playing around with the enclosed routine, and was wondering how to rename the raster images to their ".png" file name?
I'm getting names like: "OAImg-4702128" in lieu of "Vicinity Map"
The code works great as is.
(defun C:IMG-vicinity (/ d pvicinity i p)
(setq d (vla-get-activedocument (vlax-get-acad-object)))
(setvar "ctab" "A0-0 COVER")
(setvar 'filedia 0)
(setq i "V")
(if
(and (findfile (setq f (strcat (getvar 'dwgprefix)
(car (vl-remove-if-not
'(lambda (x) (wcmatch x (strcat i "*")))
'("Vicinity Map.png")
)
)
)
)
)
(setq pvicinity '(3.85156 14.0 0.0))
)
(vlax-invoke (vla-get-paperspace d) 'addraster f pvicinity 10.0 0.0)
(print (strcat f " NOT FOUND!!!"))
)
(setvar 'filedia 1)
(princ)
)
(defun C:IMG-aerial (/ d paerial i p)
(setq d (vla-get-activedocument (vlax-get-acad-object)))
(setvar "ctab" "A0-0 COVER")
(setvar 'filedia 0)
(setq i "A")
(if
(and (findfile (setq f (strcat (getvar 'dwgprefix)
(car (vl-remove-if-not
'(lambda (x) (wcmatch x (strcat i "*")))
'("Aerial Image.png")
)
)
)
)
)
(setq paerial '(3.85156 2.39844 0.0))
)
(vlax-invoke (vla-get-paperspace d) 'addraster f paerial 10.0 0.0)
(print (strcat f " NOT FOUND!!!"))
)
(setvar 'filedia 1)
(princ)
)
(defun C:IMG-front (/ d pfront i p)
(setq d (vla-get-activedocument (vlax-get-acad-object)))
(setvar "ctab" "A0-0 COVER")
(setvar 'filedia 0)
(setq i "F")
(if
(and (findfile (setq f (strcat (getvar 'dwgprefix)
(car (vl-remove-if-not
'(lambda (x) (wcmatch x (strcat i "*")))
'("Front Elevation.png")
)
)
)
)
)
(setq pfront '(19.4766 2.39844 0.0))
)
(vlax-invoke (vla-get-paperspace d) 'addraster f pfront 10.0 0.0)
(print (strcat f " NOT FOUND!!!"))
)
(setvar 'filedia 1)
(princ)
)
(C:IMG-FRONT)
(C:IMG-AERIAL)
(C:IMG-VICINITY)
