柱子填充的autolisp源代码下载

weiyihai

对于TSSD的填充功能不大好用,存在好多的限制,
比如要求是柱图层,要求是随层的颜色.

使用方法我就不说了.
命令mybhQuote
(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" "")
)


1-10111Q33931.rar (428 Bytes, 下载次数: 1)

2011-1-6 21:18 上传

点击文件名下载附件