Just a couple code snippets. Anyone have anymore?
(vl-cmdf "-insert"
(findfile "C:\\Blocks\\D-LINK.dwg")
(setq pt (getpoint "\nInsertion Point: "))
(getreal "\nEnter Block Scale: ")
""
(getangle pt "\nRotation Angle: ")
)
(vl-cmdf "_saveas"
""
(getfiled "saveas" "" "dwg" 1)
)