有关联图层控制程序吗？

fire9527 · 发表于 2013-4-29 17:48

想要一个这样的程序：程序中可以设定n个图层组，每个图层组中又可以添加若干图层，程序运行时的效果是：关闭任意一个图层，则该图层所在图层组中其他图层被一起关闭！示例如下：

图层组A所含图层：A1，A2，A3，AA*（所有带AA前缀的图层）
图层组B所含图层：B1，B2，B3，BB*（所有带AA前缀的图层）
图层组C所含图层：C1，C2，C3，CC*（所有带AA前缀的图层）

程序运行时选中图中某一图元，如果该图元所在图层为A1，则A1，A2，A3，AA*（所有带AA前缀的图层）全部被关闭！
依次类推，以上图层名只是举例，实际可能毫无规律

xsso · 发表于 2013-4-29 17:48

fire9527 发表于 2013-5-4 23:25
再一看，小弟已经看明白了~~~惭愧啊，隔离效果非常好！关闭效果会延迟2~3秒，已经很不错了，非常感谢！ ...

如果不会添加分组，你就应该学习一下写表了，每个分组都是由表组成的，用foreach来操作图层会出现延迟，但用foreach来写会短一点

Andyhon · 发表于 2013-4-29 21:54

图层有许多状态... (详Layer指令)

雏型...
(defun C:try ()
(setq ee (entsel "选取,then同图层组off")
lyr (cdr (assoc 8 (entget (car ee))))
)
(setvar "Expert" 1)
(command "Layer" "off" (strcat (substr lyr 1 1) "*") "")
(setvar "Expert" 0)
(prin1)
)

完整武器 · 发表于 2013-4-29 22:16

这个不错帮顶！！！

fire9527 · 发表于 2013-4-29 22:17

Andyhon 发表于 2013-4-29 21:54
图层有许多状态... (详Layer指令)

雏型...

非常感谢您的热心回复，在下试了一下，各分组图层添加方式还需要大侠进一步操刀，而不是简单的关闭前缀相同的图层哦

xsso · 发表于 2013-4-30 11:42

本帖最后由 xsso 于 2013-4-30 11:50 编辑

(defun c:q1 (/ layers ent lay for)
(defun for (layer`s / val)
(FOREACH val layer`s
(if (= (type val) 'list)
(for val)
(if (= val lay)
(lay_iso_* layer`s)
) ;_ 结束if
) ;_ 结束FOREACH
) ;_ 结束FOREACH
) ;_ 结束defun
(setq layers '(("E立-ELEV1" "E立-ELEV2" "E立-ELEV3")
("D剖-SECT1" "D剖-SECT2")
("D1" "c10")
)
ent (entget (car (entsel "\n选择物")))
lay (cdr (assoc 8 ent))
) ;_ 结束setq
(for layers)
) ;_ 结束defun

图层关联组的图层名要写清楚，原理是选到组内的任一个图层都会独显该组，但要注意的是它不会隐藏当前图层,而且关联组内的图层不可以用到其它组里，否则会按后面那个组执行，如果想隐藏该组就将 lay_iso_* 换成 lay_off_*
详见 http://bbs.mjtd.com/thread-101166-1-1.html

fire9527 · 发表于 2013-4-30 23:34

xsso 发表于 2013-4-30 11:42
图层关联组的图层名要写清楚，原理是选到组内的任一个图层都会独显该组，但要注意的是它不会隐藏当前图层 ...

想要的就是这个效果，目前美中不足的是不能使用通配符填写分组图层信息，一个个往里面写不方便，而且不利于实际图层数量增加的情况，希望朋友能进一步想想办法，就差一步了，非常感谢！

Andyhon · 发表于 2013-5-1 08:48

...使用通配符...

wcmatch Function

cuyongping · 发表于 2013-5-1 09:03

现在正需要了！做一个相同属性的点连线的程序!强烈支持！

xsso · 发表于 2013-5-1 23:02

呵呵！用通配符来分组，应该是可以的，只是我对wcmatch不熟识，慢慢来

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

有关联图层控制程序吗？

最佳答案

点评

本帖子中包含更多资源

评分