[编程交流] 总面积lisp

(command "text" pt1 scl "" (strcat "E = "(rtos myArea 2 2)"sq.m"))

(defun C:GetArea2 (/ ent myArea pt1 ht scl)

;GetArea.lsp - Total the areas of selected polyline entities.
(defun C:GetArea2 (/ ent myArea pt1 h )
 ;turn off the system echo
 (setvar "cmdecho" 0)
 ;set up a variable to hold the accumulated areas
 (setq myArea 0)
 ;while the user keeps making a selection
 (while(setq ent(entsel))
   ;if an entity was selected and not a point in space     
   (if(car ent)
      (progn
         ;let AutoCAD get the area of the object...cheap yet effective way out...
         ;Note: AutoCAD stores the area in the system variable "Area"
         (command "area" "Object" (car ent))
         ;print the area to the command line
         (princ (strcat "\n Ε = " (rtos (getvar "Area") 2 2)" sq.m"))
         ;accumulate the area if it exist
         (if (getvar "Area")(setq myArea(+ myArea (getvar "Area"))))
      )
   )
 )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (setq h (getdist "\n give text size:"))
 ;ask for a text insertion point
 (setq pt1(getpoint "\n insert point: "))
 ;print the area in the drawing
 (command "text" pt1 h "" (strcat "E = "(rtos myArea 2 2)"sq.m"))
 
 ;suppress the last echo
 (princ)
)

(defun C:GetArea2 (/ ent myArea pt1 h )
 ;turn off the system echo
 (setvar "cmdecho" 0)
 ;set up a variable to hold the accumulated areas
 (setq myArea 0)
 ;while the user keeps making a selection
 (while(setq ent(entsel))
   ;if an entity was selected and not a point in space     
   (if(car ent)
      (progn
         ;let AutoCAD get the area of the object...cheap yet effective way out...
         ;Note: AutoCAD stores the area in the system variable "Area"
         (command "area" "Object" (car ent))
         ;print the area to the command line
         (princ (strcat "\n ? = " (rtos (getvar "Area") 2 2)" sq.m"))
         ;accumulate the area if it exist
         (if (getvar "Area")(setq myArea(+ myArea (getvar "Area"))))
      )
   )
 )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (setq h (getdist "\n give text size:"))
 ;ask for a text insertion point
 (setq pt1(getpoint "\n insert point: "))
 ;print the area in the drawing
 (command "text" pt1 h 0 (strcat "E = "(rtos myArea 2 2)"sq.m"))
 
 ;suppress the last echo
 (princ)
)

;GetArea.lsp - Total the areas of selected polyline entities.
(defun C:GetArea2 (/ ent myArea pt1 )
 ;turn off the system echo
 (setvar "cmdecho" 0)
 ;set up a variable to hold the accumulated areas
 (setq myArea 0)
 ;while the user keeps making a selection
 (while(setq ent(entsel))
   ;if an entity was selected and not a point in space     
   (if(car ent)
      (progn
         ;let AutoCAD get the area of the object...cheap yet effective way out...
         ;Note: AutoCAD stores the area in the system variable "Area"
         (command "area" "Object" (car ent))
         ;print the area to the command line
         (princ (strcat "\n ? = " (rtos (getvar "Area") 2 2)" sq.m"))
         ;accumulate the area if it exist
         (if (getvar "Area")(setq myArea(+ myArea (getvar "Area"))))
      )
   )
 )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 [color="red"];(setq h (getdist "\n give text size:"))[/color] ; don't need
 ;ask for a text insertion point
 (setq pt1(getpoint "\n insert point: "))
 ;print the area in the drawing
[color="red"]  ;(command "text" pt1 h "" (strcat "E = "(rtos myArea 2 2)"sq.m"))[/color]
 (command "text" pt1[color="red"] 0  [/color](strcat "E = "(rtos myArea 2 2)"sq.m"))
 ;suppress the last echo
 (princ)
)

Command: .text
Current text style:  "ROMANS"  Text height:  0'-10"  Annotative:  No  Justify:  Left
Specify start point of text or [Justify/Style]:
Specify rotation angle of text <18.21>: 0

(command "text" pt1 [color="red"]h[/color] 0 (strcat "E = "(rtos myArea 2 2)"sq.m"))

;GetArea.lsp - Total the areas of selected polyline entities.
(defun C:GetArea2 (/ ent myArea pt1 )
 ;turn off the system echo
 (setvar "cmdecho" 0)
 ;set up a variable to hold the accumulated areas
 (setq myArea 0)
 ;while the user keeps making a selection
 (while(setq ent(entsel))
   ;if an entity was selected and not a point in space     
   (if(car ent)
      (progn
         ;let AutoCAD get the area of the object...cheap yet effective way out...
         ;Note: AutoCAD stores the area in the system variable "Area"
         (command "area" "Object" (car ent))
         ;print the area to the command line
         (princ (strcat "\n ? = " (rtos (getvar "Area") 2 2)" sq.m"))
         ;accumulate the area if it exist
         (if (getvar "Area")(setq myArea(+ myArea (getvar "Area"))))
      )
   )
 )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 ;(setq h (getdist "\n give text size:")) ; don't need
 ;ask for a text insertion point
 (setq pt1(getpoint "\n insert point: "))
 ;print the area in the drawing
 ;(command "text" pt1 h "" (strcat "E = "(rtos myArea 2 2)"sq.m"))
 
 
[color="red"] (entmakex 
  (list
     (cons 0 "TEXT")
     (cons 1 (strcat "E = "(rtos myArea 2 2)"sq.m"))
     (cons 10 pt1)
     (cons 11 pt1)
     (cons 40 10) [color="#2e8b57"];set text height here[/color]
     (cons 72 1)
     (cons 73 2)
  )
 )[/color]
 ;suppress the last echo
 (princ)
)

12