请高手帮我改一下让填充好的图案自动放到这个层

894560869 · 发表于 2009-2-20 17:00:00

请高手帮我改一下让填充好的图案自动放到这个"剖面线层"
;;;填充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))

luowy · 发表于 2009-2-21 00:11:00

用组码替换图层

(setq hh (entlast))

(setq hh_data (entget (entlast))

以下略

caiqs · 发表于 2009-2-21 07:52:00

(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))

账号		自动登录	找回密码
密码			注册