Some lisp routines for autocad beginners
Some lisp routines for autocad beginners Some lisp routines for autocad or zwcad beginners . ;;VIEW COMMANDS (vs, vr, vst, vrt) (defun c:vs() ;;Saves view (of name to be supplied by user). (command "-v" "s")) (defun c:vr() ;;Use this to restore Named View created by vs (Type in the name supplied earlier) (command "-v" "r")) (defun c:vst() ;;Creates view called temp. (command "-v" "s" "temp")) (defun c:vrt() ;;Restores view "temp" (command "-v" "r" "temp")) ;;ZOOM COMMANDS (z7, z12, ze, za, zp) (defun c:z7() ;;Zooms (out) 0.7x (command "zoom" ".7x")) (defun c:z12() ;;zooms (in) 1.2x (command "zoom" "1.2x")) (defun c:ze() ;;Zooms extents, then zooms out 0.9x (command "zoom" "e" "zoom" ".9x")) (defun c:za() ;;Zoom all (command "zoom" "all" "zoom" "...