(defun C:STA_Slide_Ins
( / )
)
(if (not (member msg '
("Function cancelled" "quit / exit abort"))) )
)
(defun lm:getattributevalue
(blk tag
/ val enx
) )
)
)
;;;need to make the attvalue in TitleLine4 match the slide name in this list
;;;and build the list of slide files.
'(
(sld1 "Slide-Single Line.sld")
(sld2 "Slide-AC Schematic.sld")
(sld3 "Slide-Control Schematic.sld")
(sld4 "Slide-Network Diagram.sld")
(sld5 "Slide-Panel Layout.sld")
)
(setq ss
(ssget "x" '
((0 .
"INSERT") (2 .
"TBLK_ATT_CTL") (66 .
1)))) (setq attvalue
(LM:GetAttributeValue
(ssname ss
0) "TITLELINE4")) (cond ((wcmatch (strcase attvalue
) "SINGLE LINE,AC SCHEMATIC,CONTROL SCHEMATIC,NETWORK DIAGRAM,PANEL LAYOUT")
(command "_VSlide" aslide
);;where "aslide" is the name of a slide in a directory to be inserted.
);;end cond
)