[建议]：求自动标注多个面积的lsp或vlx工具

dslee

;面积计算
;haa.lsp(hatch area)
;version1.0 by huagqin
;-------------------------------------------------
(defun *error* (msg0)
  (prin1)
)
;------------------------------------------------------------------
(defun c:haa()
  (setq total 0)
  (setq ss1 (ssget '((-4 . "<or")(0 . "polyline") (70 . 1) (-4 . "or>"))))
  (if (= ss1 nil)
      (progn (prompt "\n没有选中任何物体!!!")
             (prin1))
      (progn (do_haa))
  )  
  (prin1)
)
;---------------------------------------------------------
(defun do_haa()
  (setq n (sslength ss1))
  (setq m 0)
  (while (< m n)
    (setq s1 (ssname ss1 m))
    (command "area" "o" s1 )
    (command "erase" s1 "")
    (setq haa (getvar "area"))
    (setq total (+ total haa))
    (setq m (1+ m))
  )
  (setq total (rtos total 2 3))
  (princ "\n 总面积为")
  (princ total)
  (princ)
)

以上是一个自动求闭合对象面积总和的代码,哪位大哥可以开发一个类似的自动标注多个对象各自面积的工具?就是可以框选,不用一个一个点的那种?

小玩童

是单一图层吗？用不用分类？把你的信箱给我，我寄给你！

onlyforu

楼上的帮忙给我给我发一个，好么？谢谢！
   ouranonlyforu@163.net

xyz518mm

用用这个吧

(defun c:LOK003 ( / en pt txt)
;;;^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
(IF (tblsearch "STYLE" "CHINA")
    (setvar "TEXTSTYLE" "CHINA")
    (command "_style" "CHINA" "simplex,china" "" "1" "" "" "" "")
  )
  (while  (setq pt (getpoint "\n选取点: "))
  (command "-BOUNDARY" pt "")
  (setq en (entlast))
  (if (/= en nil)
      (progn
      (command "area" "o" en)
      (command "layer" "m" "tmp" "c" "1" "" "")
      (command "chprop" en "" "la" "tmp" "")
      (setq txt (strcat (rtos (/ (getvar "area") 10000) 2 3) "㎡")
      )
        (command "layer" "m" "AREA-㎡" "c" "4" "" "")
      (command "text" "j" "MC" pt "30" "0" txt)
)
    )
  )
;;;*********************************
(prompt "\n**<日期:2005-11-20>**")
(prompt "\n**<用途:使用bpoly制作的封闭线求面积且可连续输出>**")
(prin1))

改写来源:http://p4.xdcad.net/forum/showthread.php?s=&threadid=491576

JH9981

xyz518mm的这个程序是否不能改变字体的大小。

weicu13579

要求还挺高  不过也正是这种精神才练就出来折磨多高手