[编程申请]：在图中自动标注面积

oyzg9

好好学习一下

tchaikovsky

应该很管用。。。。。

wxd16888

defun c:test ()
(vl-load-com)
(setq a (car (entsel "\Select Curve:")))
(setq b (vlax-ename->vla-object a ))
(setq s (vla-get-area b))
s
)

houfd

;;;标注图形各区域面积和
(vl-load-com)
(setq scale (getint "图形比例为1:?<1000>"))
(if (null scale) (setq scale 1000.0))
(setq scale (/ scale 1000.0))
(defun c:mj (/ PT x y i ad)
;;保存和设置系统参数  
  (setq olderr *error*)
  (setq *error* myerr)
  (SETVAR "CMDECHO" 0)
  (SETQ OLDOS (GETVAR "OSMODE"))
  (SETVAR "OSMODE" 0)
;;
  (setq area 0)
  (while (setq mypt (getpoint "\n拾取下一点"))
    (if (bpoly mypt)
      (setq arean (vlax-curve-getarea (vlax-ename->vla-object (entlast))))
      (setq arean nil))
    ;(setq area (+ area (getvar "area")))
    (if arean
        (progn
          (setq area (+ area arean))
          ;(command "erase" "l" "")
        )
        (alert " 该点无闭合边界")
    )
  )
;;恢复系统参数
  (SETVAR "OSMODE" OLDOS)
  (SETVAR "CMDECHO" 1)
  (setq *error* olderr)
  (princ "\n")
  (eval (* area scale scale))

        (SETQ PT (GETPOINT "\n输入书写位置:"))
          (SETQ x (CAR PT))
        (SETQ y (CAR (CDR PT)))
        (setq i (list x y))
        (setq ad (/ area 10000))
        (setq ad (rtos ad 2 2))
        (setq ad (strcat ad "ha"))
        (COMMAND "TEXT" i "6" "0" ad)
)
   
这个行不！？？我一直在用。