柱子填充的autolisp源代码下载
- 软件大小:1 GB
- 更新时间:2010-11-18
- 软件授权:免费下载
- 所属栏目:综合下载
- 软件情况:绿色安全免费下载
- 软件语言:简体中文
- 应用平台:windows xp/vista/win7/
- 本站地址:CAD之家 www.cadzj.com
软件介绍
对于TSSD的填充功能不大好用,存在好多的限制,
比如要求是柱图层,要求是随层的颜色.
使用方法我就不说了.
命令mybh
Quote
(Defun c:mybh (/ e e1 la ps si smx ss ssh)
(command "_undo" "be" "")
(command "layer" "m" "HATCH" "")
(if (and
(princ "n选择要填实的柱子<退出>:")
(setq
ss (ssget (list '(0 . "lwpolyline") ))
)
)
(progn
(setq smx (sslength ss)
si 0
)
(while (< si smx)
(setq e (ssname ss si)
si (1+ si)
)
(if t
(progn
(if nil;(setq e1 (entnext e))
(command ".-bhatch" "p" "s" "s" e e1 "" "")
(command ".-bhatch" "p" "s" "s" e "" "")
)
;(@htas nil)
)
)
)
)
)
(command "_undo" "e" "")
)
(command "_undo" "be" "")
(command "layer" "m" "HATCH" "")
(if (and
(princ "n选择要填实的柱子<退出>:")
(setq
ss (ssget (list '(0 . "lwpolyline") ))
)
)
(progn
(setq smx (sslength ss)
si 0
)
(while (< si smx)
(setq e (ssname ss si)
si (1+ si)
)
(if t
(progn
(if nil;(setq e1 (entnext e))
(command ".-bhatch" "p" "s" "s" e e1 "" "")
(command ".-bhatch" "p" "s" "s" e "" "")
)
;(@htas nil)
)
)
)
)
)
(command "_undo" "e" "")
)
[ 下载地址1 ]
推荐下载