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

VBA或柴油表达层上？

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

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中...
(if (< -1 (cdr(assoc 62 (tblsearch "layer" "LSC-WATERMARK"))))
(vl-cmdf "-layer" "off" "LSC-WATERMARK" "")
(vl-cmdf "-layer" "on" "LSC-WATERMARK" "")
)

ChristopherF 发表于 2009-11-20 16:45:31


切换 bool 值的另一种简洁方法是简单地将值设置为“不”的值。

ChristopherF 发表于 2009-11-20 19:34:17


谢谢，今天学到了一些新东西。这是一个更为一致的方法。
此Drawing.Layers.Item（“LSC-WATERMARK”）。LayerOn=不是此绘图的.Layers.Item（“LSC-WATERMARK”）.LayerOn
页: [1]
查看完整版本: VBA或柴油表达层上？