Field Expressions in Lisp

Free-Lancer

2. 
   
3. (defun c:chp_aire (/ AcDoc Space obj ins)
   
4.   (vl-load-com)
   
5.   (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object))
   
6. Space (if (= 1 (getvar "CVPORT"))
   
7.   (vla-get-PaperSpace AcDoc)
   
8.   (vla-get-ModelSpace AcDoc)
   
9.        )
   
10.   )
    
11.   (if
    
12.     (and
    
13.       (setq obj (car (entsel)))
    
14.       (member (cdr (assoc 0 (entget obj)))
    
15.        '("ARC" "CIRCLE" "ELLIPSE" "LWPOLYLINE" "REGION" "SPLINE")
    
16.       )
    
17.       (setq ins (getpoint "\nSpecify insertion point: "))
    
18.     )
    
19.      (vla-addMtext
    
20.        Space
    
21.        (vlax-3d-point ins)
    
22.        0.0
    
23.        (strcat
    
24.   "%<\\AcObjProp.16.2 Object(%<\\_ObjId "
    
25.   (itoa (vla-get-ObjectID (vlax-ename->vla-object obj)))
    
26.   ">%).Area \\f "%lu2%pr2%ps[,m2]%ct8[1e-006]">%"
    
27.        )
    
28.      )
    
29.   )
    
30.   (princ)
    
31. )

<br /> (defun c:chp_aire (/ AcDoc Space obj ins)<br />   (vl-load-com)<br />   (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object))<br /> Space (if (= 1 (getvar "CVPORT"))<br />   (vla-get-PaperSpace AcDoc)<br />   (vla-get-ModelSpace AcDoc)<br />        )<br />   )<br />   (if<br />     (and<br />       (setq obj (car (entsel)))<br />       (member (cdr (assoc 0 (entget obj)))<br />        '("ARC" "CIRCLE" "ELLIPSE" "LWPOLYLINE" "REGION" "SPLINE")<br />       )<br />       (setq ins (getpoint "\nSpecify insertion point: "))<br />     )<br />      (vla-addMtext<br />        Space<br />        (vlax-3d-point ins)<br />        0.0<br />        (strcat<br />   "%<\\AcObjProp.16.2 Object(%<\\_ObjId "<br />   (itoa (vla-get-ObjectID (vlax-ename->vla-object obj)))<br />   ">%).Area \\f "%lu2%pr2%ps[,m2]%ct8[1e-006]">%"<br />        )<br />      )<br />   )<br />   (princ)<br /> )

Another

2. 
   
3. (defun C:Centroid (/ ent obj os pt area)
   
4.   ;; Select the region
   
5.   (setq ent (entsel "\nSelect region: "))
   
6.   ;; Is an object selected?
   
7.   (if ent
   
8.     (progn
   
9.       (setq ent_name (car ent))
   
10.       ;; Is it a region
    
11.       (if (= (cdr (assoc 0 (entget ent_name))) "REGION")
    
12. (progn
    
13.    ;; Determine the centroid
    
14.    (setq obj (vlax-ename->vla-object ent_name))
    
15.    (setq pt (vlax-get obj "Centroid"))
    
16.    ;; Determine the area
    
17.    (setq area (vlax-get obj "Area"))
    
18.    (setq area (if (> area 144)
    
19.          (strcat (rtos (/ area 144) 2 2) " ft%%202")
    
20.          (strcat (rtos (/ area 1) 2 2) " in%%202")
    
21.        )
    
22.    )
    
23.    (setq scale (/ (getvar "DIMSCALE") 40.0))
    
24.    (setq os (getvar "osmode"))
    
25.    (setvar "osmode" 0)
    
26.    ;; Display coordinates
    
27.    (princ "\nCentroid found at: ")
    
28.    (princ (car pt))
    
29.    (princ ",")
    
30.    (princ (cadr pt))
    
31.    ;; Write the area
    
32.    (setq oid (vla-get-objectid obj))
    
33.    (if (vlax-property-available-p obj 'Area)
    
34.      (progn
    
35.        (setq
    
36.   txt (strcat "%<\\AcObjProp Object(%<\\_ObjId "
    
37.        (itoa oid)
    
38.        ">%).Area \\f "%pr2%lu2%ct4%qf1 sq ft>%"
    
39.       )
    
40.        )
    
41.        (command "text"
    
42.          "middle"
    
43.          pt
    
44.          (* (getvar "DIMSCALE") 0.09375)
    
45.          ""
    
46.          txt
    
47.        )
    
48.      )
    
49.    )
    
50. )
    
51.       )
    
52.     )
    
53.   )
    
54.   (princ)
    
55. )

<br /> (defun C:Centroid (/ ent obj os pt area)<br />   ;; Select the region<br />   (setq ent (entsel "\nSelect region: "))<br />   ;; Is an object selected?<br />   (if ent<br />     (progn<br />       (setq ent_name (car ent))<br />       ;; Is it a region<br />       (if (= (cdr (assoc 0 (entget ent_name))) "REGION")<br /> (progn<br />    ;; Determine the centroid<br />    (setq obj (vlax-ename->vla-object ent_name))<br />    (setq pt (vlax-get obj "Centroid"))<br />    ;; Determine the area<br />    (setq area (vlax-get obj "Area"))<br />    (setq area (if (> area 144)<br />          (strcat (rtos (/ area 144) 2 2) " ft%%202")<br />          (strcat (rtos (/ area 1) 2 2) " in%%202")<br />        )<br />    )<br />    (setq scale (/ (getvar "DIMSCALE") 40.0))<br />    (setq os (getvar "osmode"))<br />    (setvar "osmode" 0)<br />    ;; Display coordinates<br />    (princ "\nCentroid found at: ")<br />    (princ (car pt))<br />    (princ ",")<br />    (princ (cadr pt))<br />    ;; Write the area<br />    (setq oid (vla-get-objectid obj))<br />    (if (vlax-property-available-p obj 'Area)<br />      (progn<br />        (setq<br />   txt (strcat "%<\\AcObjProp Object(%<\\_ObjId "<br />        (itoa oid)<br />        ">%).Area \\f "%pr2%lu2%ct4%qf1 sq ft>%"<br />       )<br />        )<br />        (command "text"<br />          "middle"<br />          pt<br />          (* (getvar "DIMSCALE") 0.09375)<br />          ""<br />          txt<br />        )<br />      )<br />    )<br /> )<br />       )<br />     )<br />   )<br />   (princ)<br /> )