不错，柱填充的源码有了，在家个柱空心，不用tssd了

柱子空心容易
柱子填充也容易

可以使用CAD自带的命令。
在CAD2006以上的版本：

创建独立的填充图案

用LISP实现如下：

柱子填充：[code];; 命令: DZTC
;; 功能: 多柱填充
(defun C:DZTC (/ HPNAME)
(vl-load-com)
(setvar "CMDECHO" 0)
(vla-endundomark
(vla-get-activedocument
(vlax-get-acad-object)
)
)
(vla-startundomark
(vla-get-activedocument
(vlax-get-acad-object)
)
)
(princ
"\n多柱填充(选择多段线) 2010年4月26日 作者:carrot1983 QQ:95818608"
)
(setq HPNAME (getvar "HPNAME"))
(setvar "HPNAME" "SOLID")
(vl-catch-all-apply
'(lambda (/ E I SS)
(and (setq SS (ssget '((0 . "LWPOLYLINE"))))
(repeat (setq I (sslength SS))
(and (setq E (ssname SS (setq I (1- I))))
(command ".-BHATCH" "S" E "" "")
)
)
)
)
)
(setvar "HPNAME" HPNAME)
(vla-endundomark
(vla-get-activedocument
(vlax-get-acad-object)
)
)
(princ)
)[/code]

柱子空心[code];; 命令: DZKX
;; 功能: 多柱空心
(defun C:DZKX ()
(vl-load-com)
(vla-endundomark
(vla-get-activedocument
(vlax-get-acad-object)
)
)
(vla-startundomark
(vla-get-activedocument
(vlax-get-acad-object)
)
)
(princ
"\n多柱空心(选择填充、实体) 2010年4月26日 作者:carrot1983 QQ:95818608"
)
(setq LAYER "HATCH,柱填充") ;_用户可自定义
(vl-catch-all-apply
'(lambda (/ E I SS)
(and (setq SS
(ssget (list (cons 0 "HATCH,SOLID")
(cons 8 LAYER)
)
)
)
(repeat (setq I (sslength SS))
(and (setq E (ssname SS (setq I (1- I))))
(entdel E)
)
)
)
)
)
(vla-endundomark
(vla-get-activedocument
(vlax-get-acad-object)
)
)
(princ)
)[/code]

以上的程序未经过测试，如果疑问，可以跟贴。

柱子空心用不了

柱空心对TSSD的有效，对你的多柱填充LSP 无效

这LSP失败。 不能空心，等于删除命令。。。跟TSSD的柱空心命令一样不给力

萝卜很厉害，一直在使用萝卜的各种程序