本文介绍了如何使用CAD增强的填充面积统计插件LISP，包括按照图层、颜色和模式进行统计。通过LISP源码解析，详细展示了统计过程，并提供了表格插入点的选择及表格字高的自定义设置。
(defun c:XDTB_TJHATCH (/ blk clr e ha hascl head height keyword ln lst lyr
mode name pt row scl ss str tarea tb x y
)
(defun _prompt ()
(xdrx_prompt "\n统计方式：按*" (cond
((= #mode 0)
(setq head (list "图 例" "图 层"
"数 量" "总面积"
)
)
"图层"
)
((= #mode 1)
(setq head (list "图 例" "颜色号"
"数 量" "总面积"
)
)
"颜色"
)
(t
(setq head (list "图 例" "模 式"
"数 量" "总面积"
)
)
"模式"
)
) "*"
)
)
(defun _keyword (keyword)
(cond
((= keyword "TC")
(setq #mode 0)
)
((= keyword "YS")
(setq #mode 1)
最低0.47元/天 解锁文章
扫一扫
1080
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
