[编程交流] VBA宏或Lisp例程

 
(defun C:ww(/ )
(setvar "cmdecho" 0)
(setvar "selectionpreview" 3)
(command "_ucsicon" "_off" )
(command "_ucsfollow" 0 )
(setvar "osmode" 1)
(setq pt (getpoint "\nSpecify new origin point of UCS: "))
(command "_zoom" "_c" pt (/ (distance (getvar "extmax")(getvar "extmin"))2.))
(command "_-view" "_seiso")
(setvar "osmode" 512)
(setq px (getpoint "\nSpecify point on positive portion of X-axis: ")) 
(setq py (getpoint "\nSpecify point on positive-Y portion of the UCS XY plane: ")) 
(command "_ucs" "_3p" pt px py)
(setvar "osmode" 512)
;;dummy values used: 
(setq wp (getpoint pt "\nPick next point: "))
(setq w1 (list (car wp)(cadr wp)(+ (caddr wp) 750.))
w2 (list (+ (car w1)1350.)(cadr w1)(caddr w1))
w3 (list (car w2)(cadr w2)(+ (caddr w2) 2100.))
w4 (list (car w1)(cadr w1)(caddr w3)))
(setq wall (ssname (ssget "_C" pt wp (list (cons 0 "3dsolid")))0))
(command "_box" "_non" w1 "_non" (list (car w2)(+ (cadr w2)10000.)(caddr w2)) 1350.0);;10000. is dummy value to subtract box
(setq tmpsol (entlast))
(command "_subtract" wall "" tmpsol "" )
(command "_ucsicon" "_on" )
(command "_ucs" "_p")
(setvar "cmdecho" 1)
(princ)
)