0 Members and 1 Guest are viewing this topic.
(defun c:AlignView (/ p1 p2 ang) (and (setq p1 (getpoint "\nFirst alignment point: ")) (setq p2 (getpoint p1 "\nSecond alignment point: ")) (setq ang (- (angle (trans p1 1 0) (trans p2 1 0)))) (command "_.dview" "" "_twist" (angtos ang (getvar 'aunits) 16) "") ) (princ))
(defun c:zo()(command "._zoom" "_end" pause "_end"))
(defun c:zw (/ pt1 pt2)(if (and (setq pt1 (getpoint "\nSelect First Window Point: ")) (setq pt1 (osnap pt1 "_end")) (setq pt2 (getpoint "\nSelect Second Window Point: ")) (setq pt2 (osnap pt2 "_end")) ) (command "._zoom" "_w" "_non" pt1 "_non" pt2) ; end zoom)(princ)) ; end program
ok please help to Combine below two lisps as oneCode: [Select](defun c:AlignView (/ p1 p2 ang) (and (setq p1 (getpoint "\nFirst alignment point: ")) (setq p2 (getpoint p1 "\nSecond alignment point: ")) (setq ang (- (angle (trans p1 1 0) (trans p2 1 0)))) (command "_.dview" "" "_twist" (angtos ang (getvar 'aunits) 16) "") ) (princ))Code: [Select](defun c:zw (/ pt1 pt2)(if (and (setq pt1 (getpoint "\nSelect First Window Point: ")) (setq pt1 (osnap pt1 "_end")) (setq pt2 (getpoint "\nSelect Second Window Point: ")) (setq pt2 (osnap pt2 "_end")) ) (command "._zoom" "_w" "_non" pt1 "_non" pt2) ; end zoom)(princ)) ; end programlook forward to here from you soon as possible