求高人开发一个连续标注图案填充面积的插件

fdd1588

在网上找了几个插件，发现它们能标注封闭图形如多段线绘制的不规则多边形面积，但对图案填充无效。
所以希望高人能编制一个连续标注图案填充面积的插件。
要求标注前能制定标注文字的高度，而且能连读标注多个图案填充的面积，直到用户结束命令。

cshimao

稍微改一下
(defun c:btmj (/ txgdlst TextH ss k n ent obj mj pt1)
  (vl-load-com)
  (setq txgdlst (list "1" "2" "3" "4" "5" "6" "7" "8" "9" "10"))
  (setq TextH (getreal "\n 字高<3.5> ："))
  (if (not TextH)
    (setq TextH 3.5)
  )
  (setq ss (ssget (list (cons 0 "HATCH"))))
  (setq        k -1
        n 0
  )
  (if (/= ss nil)
    (progn
      (repeat (sslength ss)
        (setq ent (ssname ss (setq k (1+ k))))
        (setq obj (vlax-ename->vla-object ent))
        (setq mj (vla-get-area obj))
        (setq pt1 (cdr (car (reverse (entget ent)))))
        (setq n (1+ n))
        (command "TEXT"
                 "MC"
                 pt1
                 TextH
                 0
                 (strcat "S" (itoa n) "=" (rtos mj 2 3))
        )
      )
    )
  )
)

ypcad9819

fdd1588 发表于 2016-2-24 16:18
我用的是AutoCAD2014
; 错误: no function definition: XLR_DCL_TEXTLST
运行后出现以上提示▲

是小懒人函数库吗

再见熊猫衣服

永不言弃 发表于 2016-2-24 14:08

错误: LOAD 失败: C:/Gstarsoft/浩辰CAD建筑2018/Support/1.lsp
你好，我使用提示错误，怎么办啊呢？谢谢了

永不言弃

2. ;;;;;功能注填充图案的面积
   
3. ;;;;;制作者逆流而上的鱼QQ：736188807
   
4. (defun c:tt ()
   
5.   (vl-load-com)
   
6.   (setq txgdlst (list "1" "2" "3" "4" "5" "6" "7" "8" "9" "10"))
   
7.   (setq
   
8.     txgc (atof
   
9.      (xlr_dcl_textlst "文字高度选择" "文字高度" "1" txgdlst)
   
10.    )
    
11.   )
    
12.   (setq ss (ssget (list (cons 0 "HATCH"))))
    
13.   (setq k -1)
    
14.   (if (/= ss nil)
    
15.     (progn
    
16.       (repeat (sslength ss)
    
17.   (setq ent (ssname ss (setq k (1+ k))))
    
18.   (setq obj (vlax-ename->vla-object ent))
    
19.   (setq mj (vla-get-area obj))
    
20.   (setq  pt1 (cdr(car(reverse(entget ent)))))
    
21.   (command "TEXT" "MC" pt1 txgc 0 (strcat "S="(rtos mj 2 3)))
    
22.       )
    
23.     )
    
24.   )
    
25. )

;;;;;功能注填充图案的面积<br /> ;;;;;制作者逆流而上的鱼QQ：736188807<br /> (defun c:tt ()<br />   (vl-load-com)<br />   (setq txgdlst (list "1" "2" "3" "4" "5" "6" "7" "8" "9" "10"))<br />   (setq<br />     txgc (atof<br />      (xlr_dcl_textlst "文字高度选择" "文字高度" "1" txgdlst)<br />    )<br />   )<br />   (setq ss (ssget (list (cons 0 "HATCH"))))<br />   (setq k -1)<br />   (if (/= ss nil)<br />     (progn<br />       (repeat (sslength ss)<br />   (setq ent (ssname ss (setq k (1+ k))))<br />   (setq obj (vlax-ename->vla-object ent))<br />   (setq mj (vla-get-area obj))<br />   (setq  pt1 (cdr(car(reverse(entget ent)))))<br />   (command "TEXT" "MC" pt1 txgc 0 (strcat "S="(rtos mj 2 3)))<br />       )<br />     )<br />   )<br /> )

fdd1588

永不言弃 发表于 2016-2-24 14:08

C:\Users\Administrator\Desktop\QQ截图20160224161146.jpg
我用的是AutoCAD2014
; 错误: no function definition: XLR_DCL_TEXTLST
运行后出现以上提示▲


*******************分割线*******************
安装小懒人插件后就可以了。
很好。

fdd1588

要是不用安装小懒人插件就更好了。

bai2000

[em0][em0][em0]

cba246

出错了
命令: ap
APPLOAD 已成功加载 tcmm.lsp。

命令: 读入的 (八进制) 字符不正确: 0
命令:
命令: tt
未知命令“TT”。按 F1 查看帮助。

yaya-54

楼上的怎么把面积单位改成平米的？

水仙的错

我也需要这个