[编程交流] AutoCAD平面图（不包括

; better commands AutoCAD UCSfollow settings  
                                         
; view in current ucs => PLN 
; UCS World without zooming => WCS
(defun c:pln ()
(setq vctr (getvar "viewctr"))
(setq vsize (getvar "viewsize"))
(setq olducsfollow (getvar "ucsfollow"))   
(setq getucsfollow (getvar "ucsfollow")) (if (= getucsfollow 1) (setvar "ucsfollow"  0) ())      
(setq getosnapz (getvar "osnapz")) (if (= getosnapz 1) (setvar "gridmode"  1) (setvar "gridmode"  0))   
(command "plan" "")
(command "_.zoom" "c" vctr vsize)   
(command "ucs" "v")
(setvar "ucsfollow" olducsfollow)   ; reset
)
(defun C:WCS () 
 (setvar "UCSICON" 1)
 (setq olducsfollow (getvar "ucsfollow"))   
 (setq getucsfollow (getvar "ucsfollow")) (if (= getucsfollow 1) (setvar "ucsfollow"  0) ())
 (command "UCS" "")
 (setvar "ucsfollow" olducsfollow)   ; reset
 (prin1)
)
(defun C:UCO(/ ENT1 )
 (setq ENT1 (entsel "\nPick object to align UCS:"))
 (setq olducsfollow (getvar "ucsfollow"))   
 (setq getucsfollow (getvar "ucsfollow")) (if (= getucsfollow 1) (setvar "ucsfollow"  0) ())  
 (command "ucs" "ob" ENT1)
 (setvar "ucsfollow" olducsfollow)   ; voorgaande waarde
 (princ)
)  
(defun C:uc3 ()
 (prompt "\t* set UCS 3 points")
 (SETVAR "GRIDMODE" 0)
 (SETVAR "OSNAPZ" 0)
 (SETVAR "UCSICON" 1)
 (setq olducsfollow (getvar "ucsfollow"))   
 (setq getucsfollow (getvar "ucsfollow")) (if (= getucsfollow 1) (setvar "ucsfollow"  0) ())
 (command "UCS" "3" pause pause pause)
 (setvar "ucsfollow" olducsfollow)   ; voorgaande waarde
 (prin1)
)
(defun C:ucm () 
 (setvar "cmdecho" 0)  
 (prompt "\t* draai UCS haaks MET de klok mee")
 (setvar "UCSICON" 1)
 (setq olducsfollow (getvar "ucsfollow"))   
 (setq getucsfollow (getvar "ucsfollow")) (if (= getucsfollow 1) (setvar "ucsfollow"  0) ())  
 (command "UCS" "z" "")
 (setvar "ucsfollow" olducsfollow)   ; voorgaande waarde  
 (prin1)
)
 

;;
;;  explan.lsp - Express Tools plan replacement command
;;                    
;;
;;  Copyright © 1999 by Autodesk, Inc.
;;
;;  Your use of this software is governed by the terms and conditions
;;  of the License Agreement you accepted prior to installation of this
;;  software.  Please note that pursuant to the License Agreement for this
;;  software, "[c]opying of this computer program or its documentation
;;  except as permitted by this License is copyright infringement under
;;  the laws of your country.  If you copy this computer program without
;;  permission of Autodesk, you are violating the law."
;;
;;  AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.
;;  AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
;;  MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE.  AUTODESK, INC.
;;  DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
;;  UNINTERRUPTED OR ERROR FREE.
;;
;;
;; Description:
;;  Similar to PLAN except that EXPLAN ..

3