请高手帮我改一下让填充好的图案自动放到这个层
www.dimcax.com
请高手帮我改一下让填充好的图案自动放到这个层请高手帮我改一下让填充好的图案自动放到这个"剖面线层"
;;;填充lisp
(defun c:sh ()
(setvar "pickbox" 22)
(if (not (tblsearch "layer" "剖面线层"))
(command "-layer" "n" "剖面线层" "c" "5""剖面线层"""))
(setq olayer (getvar "clayer"))
(mlayer "剖面线层" "l" "continuous")
(setvar "hpname" "solid" )
(initdia)
(command "_bhatch" )
(setvar "clayer" olayer)
(princ))
d
用组码替换图层
(setq hh (entlast))
(setq hh_data (entget (entlast))
以下略
d
(defun c:mh ();_命令名改成mh,sh是内部命令
(setvar "pickbox" 22)
(if (not (tblsearch "layer" "剖面线层"))
(command "-layer" "n" "剖面线层" "c" "5""剖面线层"""))
(setq olayer (getvar "clayer"))
(command "-layer" "l" "continuous" "剖面线层" "")
(setvar "hpname" "solid" )
(initdia)
(command "-bhatch" )
(setvar "clayer" olayer)
(princ))
d