飞哥、LJpnb你们好！这个“一键功能”怎做?

whm2216

飞哥、LJpnb你们好,由于本人不懂编程，今天又想麻烦你们了，谢谢!
(一)我使用R14＋天正建筑3.0偶尔碰到：本来设置好Osnap Settings对话框中以下几项，但画图过程中不知何故何时只剩下"EndPoint"这项了。
我的想法是：不执行命令时或执行命令如Move,STRETCH等过程中(已选择了实体)，一个快捷键Q把Osnap Settings对话框中这几选项都选上。
Osnap Settings选项:"Endpoint,Midpoint,Quadrant,Intersection,perpendicular,Nearest"

(二)还想求另一键功能，就是一个快捷键H把以下几个图层给锁住（不用进layer对话框）,其他图层不锁。 图层名：Axis，Axis_text，Column，Column-fill,Dote

didini

EXPRESS可以吗？

ljpnb

这类程序应该比较基础，whm2216你可以学着编写这样的程序。以下的两个供参考： (defun c:Q()
(setvar "osmode" 691)
(princ)
) 在执行move命令时，可以输入透明命令 'Q来执行Osnap Settings的设置 (defun c:H ()
(command "-layer"
"lo"
"Axis,Axis_text,Column,Column-fill,Dote"
""
)
(princ)
)