VBA或柴油表达层上？

hardwired · 发表于 2009-11-12 03:01:53

嗨，
有人可以帮我解决柴油表达式（和VBA）我可以用于按钮宏吗？我想打开或关闭一层，仅此而已，但我对柴油知之甚少。
该层是LSC-水印，所以它只会像：
如果LSC-水印是开的，那么关闭LSC-水印，反之亦然（很明显我知道）。
我已经在AutoLISP论坛上发布了这个，以请求AutoLISP和Diesel版本。
提前致谢，

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

ChristopherF · 发表于 2009-11-18 15:36:06

以下是如何在VBA中执行此操作：
如果ThisDrawing.Layers.Item（“LSC-WATERMARK”），则子关闭层（）
。LayerOn=True，则＜br＞ThisDrawing.Layers.Item（“LSC-WATERMARK”）。LayerOn=False＜br＞否则＜br＞此绘图.图层.项目（“LSC-水印”）。LayerOn=True＜br＞如果＜br＞结束子项，则结束

Keith · 发表于 2009-11-18 17:00:10

我没有看到lisp条目，所以它在LISP中...

copy

(if (< -1 (cdr(assoc 62 (tblsearch "layer" "LSC-WATERMARK"))))
  (vl-cmdf "-layer" "off" "LSC-WATERMARK" "")
  (vl-cmdf "-layer" "on" "LSC-WATERMARK" "")
)