yang686526

请教
www.dimcax.com
请教
;选物定目前图层
(defun c:bb (/ ss cnt c en lay)
(setvar "cmdecho" 0)
(setq ss (ssget))
(setq cnt (sslength ss))
(setq cnt (1- cnt))
(setq c 0)
(while (<= c cnt)
(setq en (ssname ss c))
(setq lay (cdr (assoc 8 (entget en))))
(if (= lay (getvar "clayer"))
(command "-layer" "s" lay "y" "")
(progn
(command "-layer" "s" lay "")))
(setq c (1+ c)))
(princ))
大家好,向大家请教一个问题,这个程序是我在网上下的.怎么在我的电脑上不能用啊.哪们能告诉我原因啊.!!!!!!
d
我的能用呀
也许是你选择的实体本身不在同一个层吧(最好是只选一个实体)，我把程序稍微改了一下,这样就只能选一个实体了，而且选择完都不用空格或回车进行确认了
(defun c:bb (/ ss cnt c en lay)
(setvar "cmdecho" 0)
(setq ss (ssget “:s” ))
(setq cnt (sslength ss))
(setq cnt (1- cnt))
(setq c 0)
(while (<= c cnt)
(setq en (ssname ss c))
(setq lay (cdr (assoc 8 (entget en))))
(if (= lay (getvar "clayer"))
(command "-layer" "s" lay "y" "")
(progn
(command "-layer" "s" lay "")))
(setq c (1+ c)))
(princ))
工资真的要涨了，心里更加爱党了，能给孩子奖赏了，见到老婆敢嚷了，敢尝海鲜鹅掌了，闲时能逛商场了，遇见美女心痒了，结果物价又涨了！
d
命令: bb
选择对象: 找到 1 个
选择对象:
无效的选项关键字。
; 错误: 函数被取消
输入选项
[?/生成(m)/设置(s)/新建(n)/开(on)/关(off)/颜色(c)/线型(l)/线宽(lw)/打印(p)/冻结(
f)/解冻(t)/锁定(lo)/解锁(u)/状态(a)]: *取消*
我的在使用过程出现了,这个现像,不知道是什么原因啊.
d
(defun c:sbd ()
(setq scmde (getvar "cmdecho"))
(setvar "cmdecho" 0)
(command "layer" "lw" 0.2 "*" "")
(command "layer" "s" "4 设备" "lw" 0.4 "")
(command "layer" "s" "1轮廓实线层" "lw" 0.4 "")
(command "layer" "s" "4 设备" "lw" 0.4 "")
(command "layer" "s" "图框层" "lw" 0.4 "")
(setvar "cmdecho" scmde)
(princ))
这个程序怎么也不能用啊.
请高手帮我看一看.
d
回复：（timmy521）(defun c:sbd () (setq scmd...不能用是因为图层尚未创建
d
其实我的层里面是包括这些内容了.但上还是出现上面的这些结果,运行不了.
命令: sbd
无效的选项关键字。
; 错误: 函数被取消
输入选项
[?/生成(m)/设置(s)/新建(n)/开(on)/关(off)/颜色(c)/线型(l)/线宽(lw)/打印(p)/冻结(
f)/解冻(t)/锁定(lo)/解锁(u)/状态(a)]: