TheSwamp

CAD Forums => CAD General => Topic started by: Mark on September 30, 2003, 03:58:06 PM

Title: vl-cmdf (minor observations)
Post by: Mark on September 30, 2003, 03:58:06 PM

Just a couple code snippets. Anyone have anymore?

Code: [Select]


(vl-cmdf "-insert"
         (findfile "C:\\Blocks\\D-LINK.dwg")
         (setq pt (getpoint "\nInsertion Point: "))
         (getreal "\nEnter Block Scale: ")
         ""
         (getangle pt "\nRotation Angle: ")
         )


Code: [Select]


(vl-cmdf "_saveas"
         ""
         (getfiled "saveas" "" "dwg" 1)
         )