请问高手,为什么下面这个图层关闭在Autocad2012下不能运行,而在Autocad2008可以,?

wudechao

;############################关闭图层###########################
(defun c:tb (/ ss ent index old_lay lay1 temp ffg fyf laylst layer layers)
  (vl-load-com)
  (setvar "cmdecho" 0)
  (setq old_lay (getvar "clayer"))
  (setq layers (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))))
  (if (not (setq ss (ssget "i")))
    (progn
      (prompt "\n选取要关闭物体所在的图层: ")
      (setq ss (ssget))
    );_ 结束progn
  );_ 结束if
  (if (= ss nil)
    (princ "\n没有选到要关闭的物体.")
    (progn
      (setq index 0
     tmq ""
     temp ""
     laylst '()
      )
      (repeat (sslength ss)
(setq ent (ssname ss index))
(setq lay1 (cdr (assoc 8 (entget ent))))
(if (not (member lay1 laylst))
   (progn
     (setq laylst (cons lay1 laylst))
     (setq layer (vla-get-layer (vlax-ename->vla-object ent)))
     (vla-put-layeron (vla-item layers layer) :vlax-false)
     (setq ffg (strcase lay1))
     (setq ffg (strcat "*" ffg "*"))
     (setq temp (strcat temp ffg))
   );_ 结束progn
);_ 结束if
(setq index (+ index 1))
      );_ 结束repeat
      (prompt (strcat "\n图层《 " temp " 》已经被关闭."))
    );_ 结束progn
  );_ 结束if
  (setvar "cmdecho" 1)
  (princ)
);_ 结束defun

edata

应该是你的电脑上的软件问题，和代码无关。。。
2013 win7 64bit可以关闭。

llsheng_73

不管在哪可以在哪不可以，对于可以确保存在的图层的处理不需要有这么复杂
(vla-put-layeron(vlax-ename->vla-object (tblobjname "LAYER" lay)):vlax-false)

wudechao

经过不懈努力,终于找到原因了.是精简版本CAD的问题,精简版本把安装包里的x86\acad\Program Files\Common Files\Autodesk Shared\*.tlb清空为零字节文件.把这些*.tlb文件复制回去就命令就可以用了可以了!