求高人开发一个连续标注图案填充面积的插件
在网上找了几个插件，发现它们能标注封闭图形如多段线绘制的不规则多边形面积，但对图案填充无效。所以希望高人能编制一个连续标注图案填充面积的插件。
要求标注前能制定标注文字的高度，而且能连读标注多个图案填充的面积，直到用户结束命令。
稍微改一下
(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))
)
)
)
)
) 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
你好，我使用提示错误，怎么办啊呢？谢谢了
;;;;;功能注填充图案的面积
;;;;;制作者逆流而上的鱼QQ：736188807
(defun c:tt ()
(vl-load-com)
(setq txgdlst (list "1" "2" "3" "4" "5" "6" "7" "8" "9" "10"))
(setq
txgc (atof
(xlr_dcl_textlst "文字高度选择" "文字高度" "1" txgdlst)
)
)
(setq ss (ssget (list (cons 0 "HATCH"))))
(setq k -1)
(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))
(setqpt1 (cdr(car(reverse(entget ent)))))
(command "TEXT" "MC" pt1 txgc 0 (strcat "S="(rtos mj 2 3)))
)
)
)
) 本帖最后由 fdd1588 于 2016-2-24 17:33 编辑
永不言弃 发表于 2016-2-24 14:08 static/image/common/back.gif
C:\Users\Administrator\Desktop\QQ截图20160224161146.jpg
我用的是AutoCAD2014
; 错误: no function definition: XLR_DCL_TEXTLST
运行后出现以上提示▲
*******************分割线*******************
安装小懒人插件后就可以了。
很好。 要是不用安装小懒人插件就更好了。 出错了
命令: ap
APPLOAD 已成功加载 tcmm.lsp。
命令: 读入的 (八进制) 字符不正确: 0
命令:
命令: tt
未知命令“TT”。按 F1 查看帮助。 楼上的怎么把面积单位改成平米的？ 我也需要这个
页:
[1]
2