zoom extend and save - PLEASE

Grrr · 发表于 2022-7-5 17:19:51

No problem, BIGAL - I just remember that it returns a non-nil value (unless you hit ESC), since Tharwat mentioned this too many times.

Some of us "see" what you did there.

Writing it like this may be more readable (atleast for me) :

copy

(if (= "" (getstring "All press A or just  for current ")) (command "zoom" "all" "zoom" ".95x") ;;Zooms to 95% of full screen (load "zoomalltabs"))

Steven P · 发表于 2022-7-5 17:24:47

So putting it all together, will this do the job?

copy

(defun c:closer()(setq ans (getstring "All press A or just  for current ")) ;;ans = the key pressed;;If carriage return (or space) is pressed(cond ((= ans "") (command "zoom" "all" "zoom" ".95x") ;;Zooms to 95% of full screen );;else if A (or any other character) is pressed;;Loops through tabs and zooms each tab in turn(t (vlax-for x   (vla-get-Layouts (vla-get-ActiveDocument (vlax-get-acad-object) ) )   (setq mylayout (vla-get-Name x))   (setvar "ctab" mylayout)   (command "zoom" "all" "zoom" ".95x") )));;save and close the drawing (command "qsave") ;;saves the drawing (command "close" "y") ;;Closes the drawing

[编程交流] zoom extend and save - PLEASE

发表回复

精选推荐