Author Topic: vl-cmdf (minor observations)  (Read 2523 times)

0 Members and 1 Guest are viewing this topic.

Mark

  • Custom Title
  • Seagull
  • Posts: 28683
vl-cmdf (minor observations)
« 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)
         )
TheSwamp.org  (serving the CAD community since 2003)