为给定图元标上面积

lax

[PHP](defun ax:LabelArea (ent / elist xdata text start area)
  (regapp "LABELAREA")
  (setq elist (entget ent '("LABELAREA"))
xdata (assoc -3 elist)
text  (if xdata
(entget (handent (cdr (cadadr xdata))))
      )
start (if (not text)
(cdr (assoc 10 elist))
      )
area  (vla-get-area (setq ent (vlax-ename->vla-object ent)))
  )
  (if (not text)
    (progn
      (setq
text (vla-addtext
       (vla-get-block
(vla-item
   (vla-get-layouts
     (vla-get-activedocument (vlax-get-acad-object))
   )
   (cdr (assoc 410 elist))
)
       )
       (rtos area)
       (vlax-3d-point start)
       0.25
     )
      )
    )
    (vla-put-textstring
      (setq text (vlax-ename->vla-object (cdr (assoc -1 text))))
      (rtos area)
    )
  )
  (vla-setxdata
    ent
    (vlax-make-variant
      (vlax-safearray-fill
(vlax-make-safearray vlax-vbInteger '(0 . 1))
'(1001 1005)
      )
    )
    (vlax-make-variant
      (vlax-safearray-fill
(vlax-make-safearray vlax-vbVariant '(0 . 1))
(list "LABELAREA" (vla-get-handle text))
      )
    )
  )
  (princ)
)
[/PHP]

lrb_tom

什么叫给定图元