打开含有关键字的图层，对块不好用
本帖最后由 dakui 于 2019-10-21 13:36 编辑下面代码功能：打开含有某个关键字的图层。
可是有一种情况无法解决，就是块内的图元和块所在的图层不在同一个层内的情况。
例如：
块内图元 GA1_GFU_ANA-CIR
GA1_GFU_ANA-LIN
块图层 GA1_GFU_ANA
参考附件 test2.DWG
请朋友们帮忙解决
(defun c:lybs (/ AcadObject AcadDocument LayersObj ss n i ent ob lay vlay)
(setq AcadObject (vlax-get-acad-object)
AcadDocument (vla-get-ActiveDocument AcadObject)
LayersObj (vla-get-layers AcadDocument)
);end setq
(setq UserWord "*ANA*")
(setq t0 (* 86400 (getvar "tdusrtimer")))
(if (setq ss (ssget "X" (list (cons 8 UserWord))))
(progn
(vlax-for vlay LayersObj
(vla-put-layeron vlay :vlax-false)
);end vlax-for
(setq n (sslength ss))
(setq i (- n 1))
(repeat n
(setq ent (ssname ss i)
ob (vlax-ename->vla-object ent)
lay (vla-get-layer ob)
vlay (vla-item LayersObj lay)
);end setq
(vla-put-layeron vlay :vlax-true)
(setq i (1- i))
);end repeat
(princ (strcat "\n***** 图层名:" UserWord " *****"))
));end if
(setq t1 (* 86400 (getvar "tdusrtimer")))
(setq time (- t1 t0))
(princ " 用时：< ")
(princ time)
(princ " >秒")
(princ)
);end defun
程序和块 半毛钱关系都没有吧
这个问题，我觉得很多人都遇到过，希望大家能够参与解决 你给的条件不够，解决是把图块不同层解决还是只是解决程序不正确的问题，还有你的程序应该不全，既然你知道关键字就直接把块里的图层写上去就行了 本帖最后由 dakui 于 2019-10-21 11:00 编辑
start4444 发表于 2019-10-21 10:33
你给的条件不够，解决是把图块不同层解决还是只是解决程序不正确的问题，还有你的程序应该不全，既然你知道 ...
谢谢你的回答
我描述的可能还不够准备。图块本身不作调整，是指图层开关命令想做修改。
程序是全的，像这样的块有成百上千，图层名字无法记入。
本帖最后由 dakui 于 2019-10-23 07:35 编辑
叮咚 发表于 2019-10-22 10:15
程序和块 半毛钱关系都没有吧
非常感谢大神的慷慨解囊，是我的思路有问题。
还有一事想请教一下，就是打开*ANA*图层的同时，
不关闭已经打开的图层。
dakui 发表于 2019-10-23 07:32
非常感谢大神的慷慨解囊，是我的思路有问题。
还有一事想请教一下，就是打开*ANA*图层的同时，
不关闭 ...
代码其实很简单，你仔细想想。 叮咚 发表于 2019-10-23 07:37
代码其实很简单，你仔细想想。
谢谢大神闪回。说实话，昨天晚上试着在大神的代码基础上修改，弄了一晚上没弄有个结果 dakui 发表于 2019-10-23 07:40
谢谢大神闪回。说实话，昨天晚上试着在大神的代码基础上修改，弄了一晚上没弄有个结果
(vla-put-layeron vlay :vlax-false)
里边有这句，删除就可以了 叮咚 发表于 2019-10-20 12:56
程序和块 半毛钱关系都没有吧
你好大神，能否加一个功能，就是能够返回恢复原来全部图层打开的状态
页:
[1]
2