CAD Forums > CAD General

vl-cmdf (minor observations)

(1/1)

Mark:
Just a couple code snippets. Anyone have anymore?


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

--- End code ---




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

--- End code ---

Navigation

[0] Message Index