[编程交流] （defun c：我需要的LISP）

(defun c:xxx (/ pt1 pt2 pt3 pt4 ltbay1 bay num_br)
(setq pt1 (getpoint "/nTop:"))
(setq pt2 (getcorner "/nBottom" pt1))
(setq pt3 (list (nth 0 pt2)(nth 1 pt1)))
(setq pt4 (list (nth 0 pt1)(nth 1 pt2)))
(command "_rectang" pt1 pt2)  ;;;; i can live without actually drawing it but at this stage of lisp i want it there
(setq ltbay1 (rtos (- (nth 0 pt3) (nth 0 pt1)) 4 1)) ;; i want to measure distance of one side of rectangle
(setq num_br (1+ (fix (/ ltbay1 (rtos 15 4 1)))))
 (print num_br)

(defun c:XXX ( / pt1 pt2 recArea)
 (princ "\rRECTANGLE + AREA ")
 (vl-load-com)
 (if (and (setq pt1 (getpoint "\nSpecify start point: "))
   (not (initget 32))
   (setq pt2 (getpoint pt1 "\nSpecify end point: ")))
   (progn
     (entlast)
     (command "._rectang" pt1 pt2)
     (if (setq recArea (vla-get-area (vlax-ename->vla-object (entlast)))) 
       (prompt (strcat "\nArea = " (rtos recArea 4 1)))))
   (cond (pt1 (prompt "\n** Invalid input: Must specify end point ** "))
       ((prompt "\n** Invalid input: Must specify start point ** "))))
 (princ))

(defun c:test ( / pt1 pt2 x y area)
 
(if
 (and
   (setq pt1 (getpoint "\nPick top corner  :"))
(setq pt2 (getcorner "\nPick bottom corner  :" pt1))
(command "_.rectang" pt1 pt2)
 )
(setq x (abs (- (car pt2) (car pt1))))
(setq y (abs (- (cadr pt2) (cadr pt1))))      
(setq area (/ (* x y) 12)) 
(princ (strcat "\nLenght of x is  : " (rtos x)))
(princ (strcat "\nLenght of y is  : " (rtos y)))
(princ (strcat "\nArea of rec is  : " (rtos area)))
(princ)
)
)

[color=green];; This is a keyboard shortcut[/color]
(defun c:RECA () (c:RectangleArea))
[color=green];; This is the main function[/color]
(defun c:RectangleArea ( / *error* oldCmdecho pt1 pt2 x y)
[color=green]  ;; This loads the visual lisp library, and makes ActiveX available[/color]
 (vl-load-com)
[color=green]  ;; This displays the command name at the command line.[/color]
 (princ "\rRECTANGLE+AREA ")
[color=green]  ;; This is an error handler which is only in use during this function.[/color]
 (defun *error*  (msg)
[color=green]    ;; In the event of an error, this will restore the original[/color]
[color=green]    ;; system variable setting, *IF* that variable is defined.[/color]
   (and oldCmdecho (setvar 'cmdecho oldCmdecho))
   (cond ((not msg))                             [color=green]                      ; Normal exit[/color]
         ((member msg '("Function cancelled" "quit / exit abort")))[color=green]     ; <esc> or (quit)[/color]
         ((princ (strcat "\n** Error: " msg " ** ")))) [color=green]                ; Fatal error, display it[/color]
   (princ))
[color=green]  ;; This stores the current system variable value, and sets it[/color]
[color=green]  ;; to not echo the command prompts that would normally be shown.[/color]
 (and (setq oldCmdecho (getvar 'cmdecho)) (setvar 'cmdecho 0))
 (if (and (setq pt1 (getpoint "\nPick top corner  :"))
[color=#008000]           ;; This dashes the selection line from pt1[/color]
          (not (initget 32))
          (setq pt2 (getcorner pt1 "\nPick bottom corner  :"))
[color=green]           ;; vl-cmdf returns T, whereas command returns NIL.[/color]
[color=green]           ;; Using command would prevent your code from completing the[/color]
[color=green]           ;; "AND" statement.[/color]
          (vl-cmdf "_.rectang" pt1 pt2))
[color=green]    ;; Here I've combined several steps into one for simplicity.[/color]
   (princ
     (strcat
       "\nLength of x is  : "
       (rtos (setq x (abs (- (car pt2) (car pt1)))))
       "\nLenght of y is  : "
       (rtos (setq y (abs (- (cadr pt2) (cadr pt1)))))
       "\nArea of rec is  : "
       (rtos (/ (* x y) 12)))))
 [color=green];; If the code performs normally, and no errors (or Esc),[/color]
[color=green]  ;; this will restore the original system variable setting.[/color]
 (setvar 'cmdecho oldCmdecho)
 (princ))