[lostbalance]快速切换图层

lostbalance

hn10183051 发表于 2019-9-4 12:42
命令:
命令: 5
; 错误: 参数类型错误: VLA 对象集合: nil

(setq ;;常用VLA对象、集合
    *ACAD*  (vlax-get-acad-object) ;;AutoCAD任务中的顶层 AutoCAD应用程序对象，即获取AutoCAD程序本身
    *DOC*   (vla-get-ActiveDocument *ACAD*) ;;是在autocad程序下面运行的当前文档对象
    *LAYS*  (vla-get-Layers *DOC*)
)

是不是没定义*LAYS*?

lostbalance

296715530 发表于 2019-12-15 10:34
命令: ap APPLOAD 已成功加载 切换图层(简化版) v0.9.1.lsp。
命令:
快速切换图层已激活 by lostbalance
...

看我的31楼

296715530

已成功加载 SwitchLayers v1.2.1.lsp。
命令:
; 错误: 不能读取的路径或文件名称 <SwitchLayers.ini>; 错误: no function definition: WYB-IF-STRING
命令:

296715530

ps:简化版可以用了。感谢楼主、命令:
命令: 1 切换当前图层为 < 1 >
命令:
命令: 2 切换当前图层为 < 2 >
命令:
命令: 3 切换当前图层为 < 3 >
命令:
命令: 4 切换当前图层为 < 4 >
命令:
命令: 5 切换当前图层为 < 5 >
命令:
命令: 6 切换当前图层为 < 6 >


选中对象移至图层 < 1 >
命令: 指定对角点或 [栏选(F)/圈围(WP)/圈交(CP)]:
命令: 2 *取消*
选中对象移至图层 < 2 >
命令: 指定对角点或 [栏选(F)/圈围(WP)/圈交(CP)]:
命令: 3 *取消*
选中对象移至图层 < 3 >
命令: 指定对角点或 [栏选(F)/圈围(WP)/圈交(CP)]:
命令: 4 *取消*
选中对象移至图层 < 4 >
命令: 指定对角点或 [栏选(F)/圈围(WP)/圈交(CP)]:
命令: 5 *取消*
选中对象移至图层 < 5 >
命令: 指定对角点或 [栏选(F)/圈围(WP)/圈交(CP)]:
命令: 6 *取消*
选中对象移至图层 < 6 >

296715530

命令: AP APPLOAD 已成功加载 SwitchLayers v1.2.1.lsp。
命令:
命令:
命令: SWITCHLAYERS ; 错误: no function definition: WYB-W
命令:

hn10183051

求演示的程序~~~~~~~

296715530

0000000000000000000

命令: AP APPLOAD 已成功加载 SwitchLayers v1.2.1.lsp。
命令:
命令:
命令: SWITCHLAYERS ; 错误: no function definition: WYB-LISTLAYERS
命令:

lostbalance

296715530 发表于 2019-12-16 10:04
命令: AP APPLOAD 已成功加载 SwitchLayers v1.2.1.lsp。
命令:
命令:

把这行去了吧。
重新下载也可以，我更新了下。

296715530

命令: SWITCHLAYERS ; 错误: no function definition: WYB-LISTLAYERS

296715530

0000000000000