[求助]：选层关闭！选层关闭！

sweixx · 发表于 2006-4-6 16:11:21

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我的autocad2004里
xdsoft的选层关闭功能不能使用
怎么处理
希望高手能帮忙

:提示：
命令: _slayoff 未知命令“SLAYOFF”。按 F1 查看帮助。

unbos2 · 发表于 2006-4-25 14:07:34

可以用express里的图层关闭来代替。

小猪小猪 · 发表于 2006-5-6 19:34:43

修改增加快捷键也可以啊!

yub · 发表于 2006-5-6 19:55:17

去试试看。。。。。。。。。。。

lixuedong · 发表于 2006-5-13 20:36:04

用这个程序，可以选择图元来关掉该层。
(defun dxf (code elist)
  (cdr (assoc code elist))
  )
(defun numerr (s)
  (if (/= s "Function cancelled")
(princ (strcat "\nError: " s))
  )
(command "_.undo" "end")
(setvar "osmode" 0)
(setvar "CMDECHO" 1)
  (setq *error* oer)
  (princ)
)

(defun C:OFF_LA (/ lay-name oer ss msg)
(setvar "cmdecho" 0)
(setq oer *error* *error* numerr)
(while (null lay-name)
(setq lay-name (entsel "\n选择参考图元:" ) ))
(setq lay-name (entget (car lay-name)))
(setq lay-name (dxf 8 lay-name))
(prompt "\n是否要关闭")
(princ lay-name)
(prompt "层 <Y> : \n \n")
(setq msg (getstring))
(if (or (= "y" msg) (= "" msg)) (setq msg "Y"))
(if (and (= "Y" msg) (= (getvar "clayer") lay-name)) (setq msg "y"))
(if (= msg "y")
(command "layer" "off" lay-name "y" "" ))
(if (= msg "Y")
(command "layer" "off" lay-name  "" ))
(setvar "CMDECHO" 1)
(setq *error* oer)
(princ)
);defun
;(prompt "\n程序OFF_LA.LSP被装入, 命令OFF_LA")
;(princ)

tmdnnd · 发表于 2006-5-14 23:22:37

我用的是CAD2004迷你版本，也和楼主情况一样，楼主用的是什么版本

小猪小猪 · 发表于 2006-5-15 10:44:43

在哪里修改增加啊！！

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

[求助]：选层关闭！选层关闭！

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块