[编程交流] 更改值

 
(defun C:BP47
      ;; = Box Plate with 47-degree end-flap angles
      (/ *error*)
 (vl-load-com)
 (defun *error* (errmsg)
   (if (not (wcmatch errmsg "Function cancelled,quit / exit abort")
)
     (princ (strcat "\nError: " errmsg))
   )     ; end if
   (BPReset)
 )     ; end defun - *error*
 (defun BPReset ()
   (setvar 'plinewid plw)
   (setvar 'osmode osm)
   (setvar 'blipmode blipm)
   (setvar 'clayer curlay)
   (command "_.undo" "_end")
   (setvar 'cmdecho cmde)
 )     ; end defun
 (setq cmde (getvar 'cmdecho))
 (setvar 'cmdecho 0)
 (command "_.undo" "_begin")
 (setq osm (getvar 'osmode))
 (setvar 'osmode 0)
 (setq blipm (getvar 'blipmode))
 (setq
   curlay (getvar 'clayer)
   plw    (getvar 'plinewid)
   p1    (getpoint "\nSpecify First Corner: ")
   p2    (getcorner p1 "\nSpecify Opposite Corner: ")
   fl    (getdist p1 "\nSpecify Depth: ")
   flr    (/ fl (sin (* (/ 47.0 180) pi)))
[b][i]    pLL    (mapcar 'min p1 p2)  ; Lower Left corner
   pUR    (mapcar 'max p1 p2)  ; Upper Right[/i][/b]
   pLR    (list (car pUR) (cadr pLL) 0) ; Lower Right
   pUL    (list (car pLL) (cadr pUR) 0) ; Upper Left
   FS    (* (/ 47.0 180) pi)  ; Forty-Seven degrees
 )     ; end setq
)

 
(setq pLL
  (list (apply 'min (mapcar 'car (list p1 p2)))
 (apply 'min (mapcar 'cadr (list p1 p2)))
 0)
     pLL (mapcar '+ pLL (list -0.9325 -0.9325 0))
     pUR
  (list (apply 'max (mapcar 'car (list p1 p2)))
 (apply 'max (mapcar 'cadr (list p1 p2)))
 0)
     pUR (mapcar '+ pUR (list 0.9325 0.9325 0))
     )

(setq pt1 '(1 2 3) pt2 '(4 5 6))
(cons 'min (list pt1 pt2))
==> (min pt1 pt2)
(apply 'mapcar (cons 'min (list pt1 pt2)))
==> (apply 'mapcar (min pt1 pt2))
==> ((min 1 4) (min 2 5) (min 3 6))