打开含有关键字的图层，对块不好用

dakui · 发表于 2019-10-20 12:56

本帖最后由 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

叮咚 · 发表于 2019-10-20 12:56

程序和块半毛钱关系都没有吧

dakui · 发表于 2019-10-21 09:11

这个问题，我觉得很多人都遇到过，希望大家能够参与解决

start4444 · 发表于 2019-10-21 10:33

你给的条件不够，解决是把图块不同层解决还是只是解决程序不正确的问题，还有你的程序应该不全，既然你知道关键字就直接把块里的图层写上去就行了

dakui · 发表于 2019-10-21 10:57

本帖最后由 dakui 于 2019-10-21 11:00 编辑

start4444 发表于 2019-10-21 10:33
你给的条件不够，解决是把图块不同层解决还是只是解决程序不正确的问题，还有你的程序应该不全，既然你知道 ...

谢谢你的回答
我描述的可能还不够准备。图块本身不作调整，是指图层开关命令想做修改。
程序是全的，像这样的块有成百上千，图层名字无法记入。

dakui · 发表于 2019-10-23 07:32

本帖最后由 dakui 于 2019-10-23 07:35 编辑

叮咚发表于 2019-10-22 10:15
程序和块半毛钱关系都没有吧

非常感谢大神的慷慨解囊，是我的思路有问题。
还有一事想请教一下，就是打开*ANA*图层的同时，
不关闭已经打开的图层。

叮咚 · 发表于 2019-10-23 07:37

dakui 发表于 2019-10-23 07:32
非常感谢大神的慷慨解囊，是我的思路有问题。
还有一事想请教一下，就是打开*ANA*图层的同时，
不关闭 ...

代码其实很简单，你仔细想想。

dakui · 发表于 2019-10-23 07:40

叮咚发表于 2019-10-23 07:37
代码其实很简单，你仔细想想。

谢谢大神闪回。说实话，昨天晚上试着在大神的代码基础上修改，弄了一晚上没弄有个结果

叮咚 · 发表于 2019-10-23 07:46

dakui 发表于 2019-10-23 07:40
谢谢大神闪回。说实话，昨天晚上试着在大神的代码基础上修改，弄了一晚上没弄有个结果

(vla-put-layeron vlay :vlax-false)

里边有这句，删除就可以了

664571221 · 发表于 2019-10-23 11:11

叮咚发表于 2019-10-20 12:56
程序和块半毛钱关系都没有吧

你好大神，能否加一个功能，就是能够返回恢复原来全部图层打开的状态

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

[提问] 打开含有关键字的图层，对块不好用

最佳答案

本帖子中包含更多资源

点评

评分