[编程交流] 从Pline到替换tex的区域

[font=Times New Roman][size=3][/size][/font]
[font=Calibri];;;CADDMAN: Area7.LSP    Area Output (c) 2007 Kirby Turner [/font]
[font=Times New Roman][size=3][/size][/font]
[font=Calibri](defun c:area7 (/ a1)[/font]
[font=Times New Roman][size=3][/size][/font]
[font=Calibri](SETQ A1 (ENTSEL "Area of tract<pickobject>: "))[/font]
[font=Times New Roman][size=3][/size][/font]
[font=Calibri](command "area" "e" a1)[/font]
[font=Times New Roman][size=3][/size][/font]
[font=Calibri](setq el (getvar "area"))[/font]
[font=Times New Roman][size=3][/size][/font]
[font=Calibri](setq d1 144)[/font]
[font=Times New Roman][size=3][/size][/font]
[font=Calibri]                        (setqfl (rtos (el 2 2))[/font]
[font=Times New Roman][size=3][/size][/font]
[font=Calibri]                        (setqe1 ( / f1 d1)[/font]
[font=Times New Roman][size=3][/size][/font]
[font=Calibri]                        ;;;(rtos(/ e1 144.0) 2 3)[/font]
[font=Times New Roman][size=3][/size][/font]
[font=Calibri];;;(rtos (/ e1 144.0) 2 3)[/font]
[font=Times New Roman][size=3][/size][/font]
[font=Calibri]  (SETQED(ENTGET (CAR (NENTSEL "\nPick TEXT to change:"))))[/font]
[font=Times New Roman][size=3][/size][/font]
[font=Calibri]     (setvar"CMDECHO" 0)[/font]
[font=Times New Roman][size=3][/size][/font]
[font=Calibri]     (COMMAND"TEXTEVAL" 1)[/font]
[font=Times New Roman][size=3][/size][/font]
[font=Calibri]  (SETQ ED(SUBST (cons 1 e1)[/font]
[font=Times New Roman][size=3][/size][/font]
[font=Calibri]                (ASSOC 1 ED)[/font]
[font=Times New Roman][size=3][/size][/font]
[font=Calibri]               ED[/font]
[font=Times New Roman][size=3][/size][/font]
[font=Calibri]   )[/font]
[font=Times New Roman][size=3][/size][/font]
[font=Calibri])[/font]
[font=Times New Roman][size=3][/size][/font]
[font=Calibri](ENTMOD ED)[/font]
[font=Times New Roman][size=3][/size][/font]
[font=Calibri])[/font]
[font=Times New Roman][size=3][/size][/font]
[font=Calibri](alert[/font]
[font=Times New Roman][size=3][/size][/font]
[font=Calibri]  (strcat"area7.LSP"[/font]
[font=Times New Roman][size=3][/size][/font]
[font=Calibri]         "\n\n Type area7 to start"))[/font]
[font=Times New Roman][size=3][/size][/font]
[font=Calibri](princ)[/font]
[font=Times New Roman][size=3]
[/size][/font]

(defun C:GetArea()
 ;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"))))
      )
   )
 )
 ;ask for a text insertion point
 (setq pt1(getpoint "\n pick a point: "))
 ;print the area in the drawing
 (command "text" pt1 "" "" (strcat "E = "(rtos myArea 2 2)" sq.m"))
 ;suppress the last echo
 (princ)
)