央央大PADS论坛就没有几个研究宏命令同学吗？是一种悲哀吗？

经过一段时间的调查，竟然百分之九十八的人都不会用宏命令，也不会设置宏命令，更别说看不懂宏语法了，连个讨论研究的都找不到，完全可以提升操作速度，提高项目效率的，为什么就没有几个研究的了，搞不明白。现向论坛大神再发起一次求助，新手可以一起学习。
我录制了几条宏语法。保存后设置快捷调用后，操作时每次都会再弹出一个对话框要再点执行才行，这样感觉比较浪费时间，是不是可以增加一条宏语法，不用再点执行这个步骤。图片如下。我用的是罗技的多扩展键盘，所有组合键都是按一个键出来的。

比如：
高亮  Application.ExecuteCommand("ID_EDIT_HIGHLIGHT")
取消高亮   Application.ExecuteCommand("ID_EDIT_UNHIGHLIGHT")
保护 Application.ExecuteCommand("Protect")
取消保护  Application.ExecuteCommand("Unprotect")
取消走线回路
Application.OpenOptionsDialog()
DlgOptions.ActiveTab = "Global|General"
DlgOptions.ActiveTab = "Routing|General"
DlgOptions.DlgRoutingOptions.RerouteWithLoops = false
DlgOptions.Ok.Click()

上述等等，所有宏调用后，都会弹出执行对话框，有没有懂宏的操作高手，怎么更简化这个操作，不用再点执行。ALLEGRO中，我所有的宏都是按一个键直接调用，很快很简单。PADS是刚学的，不懂。希望有高手指导一下。再次请教一下，线宽控制宏的语法，及打孔的宏语法，吉米大神给我发的，我调用用不了，提示语法错误，可能是中文界下面录的，英文界面下用不了。

我也只会设置简单的宏！看不懂宏语法

你把你的界面设置为中文试一下我给你的不就可以了

谢谢吉米大神的耐心回复。问下，我上面设置的那些宏，操作的时候都会弹出再点执行才能实现，宏语句都是单条的，是否可以再加些自动执行的语句，或是哪里不对，可以教我更简化下吗。
现在大部份按键的默认设置我都是在英文界面下录的宏改掉的，想请吉米大神还是帮我录个英文界面下的宏，再次麻烦谢谢了，让论坛的其他同学也可以学习下。
好比线宽的
Application.ExecuteCommand("Add Route")9 \2 A7 a* i# {% T3 K
Application.ModelessCommand("w")
DlgModelessCmd.Command = "w "
DlgModelessCmd.Command = "w 0.1mm"2 D, t0 D  T- N6 @( U* @# Z1 L' J
DlgModelessCmd.OnOk()
好比打孔的
Application.ExecuteCommand("Layer Pair", "2", "7")
Application.ExecuteCommand("Current Via Type")
DlgPrompt.Question("Enter new Via Type").Answer("l2-7")
上面两个吉米大神只帮我弄个样版的参考就可以了。谢谢了。

PADS的宏录制已经做得很好了，需要什么功能直接录制就好，不用自己编写，讨论的意义不是很大，你弹错误可以把错误发出来大家看下就好

宏大部分是录的, 不需要手工编写.
脚本才需要编写.

宏 用录制就行了 关键点  是方便操作  一般都要用什么直接录制

我是初学者哦，好想录用线宽及打孔的宏，你可以帮我录两个参考一下吗。还有，我录制的宏，调用后都会弹出来一个对话框再点执行才行。是哪里不对吗。谢谢了。

我是初学者哦，好想录用线宽及打孔的宏，你可以帮我录两个参考一下吗。还有，我录制的宏，调用后都会弹出来一个对话框再点执行才行。是哪里不对吗。谢谢了。

添加过孔：
Application.ExecuteCommand("Quick Filter Nets")
Application.ExecuteCommand("Add Free Via")
DlgYesNoCheckQuestion.Question("Don't ask me again").Answer(true)
DlgYesNoCheckQuestion.Question("Adding shielding or stitching vias with DRC not in Prevent mode may result in clearance violations.Do you want to continue?").Answer(mbYes)

走线过程中线宽改为20mil:
Application.ModelessCommand("w")
DlgModelessCmd.Command = "w "
DlgModelessCmd.Command = "w 2"
DlgModelessCmd.Command = "w 20"
DlgModelessCmd.OnOk()

英文和中文通用。
请确认单位要换成mil。

吉米大神，我复制你的宏，运行的时候第一条就通过不了哦，进入了死循环一样，卡着不动了，其它操作都用不了，我用的是PADS 9.5

LAYOUT 和ROUTER 的宏是不是不能公用?

宏不能共用，中英文版也不能共用