UG爱好者

标题: PM宏问题求教，宏运行时能否插入暂停 [打印本页]

作者: 力气人 时间: 2020-3-21 22:38
标题: PM宏问题求教，宏运行时能否插入暂停
本帖最后由力气人于 2020-3-21 22:47 编辑

我初学宏，做了一个宏文件，移动下刀点到右上角。
大致流程是先绘制两个参考点，然后在“移动开始点”命令下手动点选这两个参考点。我希望在手动点选参考点这里暂停运行宏，手工操作完成后，再继续宏的运行。目前在运行到移动开始点代码中的两个PICK代码时，弹出错误，就停止运行了。接下来其实可以手动操作，算是"半自动宏"哈。宏代码如下：

//创建无外扩毛胚
VIEW MODEL ; SHADE OFF
ROTATE TRANSFORM TOP

FORM BLOCK
EDIT BLOCK XLEN UNLOCK
EDIT BLOCK YLEN UNLOCK
EDIT BLOCK ZLEN UNLOCK
EDIT BLOCKTYPE BOX
EDIT BLOCK RESETLIMIT "0"
EDIT BLOCK LIMITTYPE MODEL
EDIT BLOCK RESET
BLOCK ACCEPT

//创建参考点
CREATE PATTERN ;
EXPLORER SELECT Pattern "Pattern\1" NEW
RENAME Pattern "1" "点1"
EXPLORER SELECT Pattern "Pattern\点1" NEW

DIALOGS MESSAGE OFF
DIALOGS ERROR OFF
REAL boxr = INPUT "输入模型R角大小"
DIALOGS MESSAGE ON
DIALOGS ERROR ON

EDIT PATTERN "点1" INSERT SKETCH
X "Block.Limits.XMax-$boxr"
Y "Block.Limits.YMax-$boxr*3"
Z"0"
ADD
QUIT SKETCHER ACCEPT

CREATE PATTERN ;
EXPLORER SELECT Pattern "Pattern\1" NEW
RENAME Pattern "1" "点2"
EXPLORER SELECT Pattern "Pattern\点2" NEW
EDIT PATTERN "点2" INSERT SKETCH
X "Block.Limits.XMax-$boxr"
Y "Block.Limits.YMax+$boxr"
Z"0"
ADD
QUIT SKETCHER ACCEPT

//移动下刀点
EXPLORER SELECT Pattern "Pattern\点1" NEW
DRAW Pattern "点1"
EXPLORER SELECT Pattern "Pattern\点2" NEW
DRAW Pattern "点2"
QUIT LIMIT CANCEL EDITTOOLAXIS CANCEL CALCFORM CANCEL EDIT TOOLPATH MOVE_START_POINTS
PICK "";
PICK "";
MSP ACCEPT

删除参考点
EXPLORER SELECT Pattern "Pattern\点1" NEW
EXPLORER SELECT Pattern "Pattern\点2" TOGGLE
DELETE PATTERN "点1"
DELETE PATTERN "点2"
VIEW MODEL ; SHADE NORMAL

作者: PM--爱好 时间: 2020-3-26 11:30
在运行宏的过程中是可以暂停的！加入下面这个宏命令即可实现！

MACRO PAUSE '这里是提示文字 '
欢迎交流学习，共同进步

截图_2020-03-26_11-28-28.jpg (10.46 KB, 下载次数: 89)

作者: 力气人 时间: 2020-3-26 23:45
谢谢前面的同学哦终于搞定啦哈哈
补充一下，这个宏的目的是让下刀点精确定位到模型的R角的转折位置。

修改补充如下

//移动下刀点
EXPLORER SELECT Pattern "Pattern\点1" NEW
DRAW Pattern "点1"
EXPLORER SELECT Pattern "Pattern\点2" NEW
DRAW Pattern "点2"
QUIT LIMIT CANCEL EDITTOOLAXIS CANCEL CALCFORM CANCEL EDIT TOOLPATH MOVE_START_POINTS
DELETE PATTERN "点1"
DELETE PATTERN "点2"

VIEW MODEL ; SHADE NORMAL

作者: 力气人 时间: 2020-3-27 19:59
上面修改的宏不对，以下面为准：

//移动下刀点
EXPLORER SELECT Pattern "Pattern\点1" NEW
DRAW Pattern "点1"
EXPLORER SELECT Pattern "Pattern\点2" NEW
DRAW Pattern "点2"
QUIT LIMIT CANCEL EDITTOOLAXIS CANCEL CALCFORM CANCEL EDIT TOOLPATH MOVE_START_POINTS
MACRO PAUSE '手工选取参考点，然后单击恢复 '
MSP ACCEPT

//删除参考点
EXPLORER SELECT Pattern "Pattern\点1" NEW
EXPLORER SELECT Pattern "Pattern\点2" TOGGLE
DELETE PATTERN "点1"
DELETE PATTERN "点2"

VIEW MODEL ; SHADE NORMAL

作者: 骄阳似我H 时间: 2020-6-18 11:57

力气人发表于 2020-3-27 19:59
上面修改的宏不对，以下面为准：

//移动下刀点

这个宏是做什么的呢？设置下刀点吗？

作者: 阿棠他别别 时间: 2021-9-13 20:31

骄阳似我H 发表于 2020-6-18 11:57
这个宏是做什么的呢？设置下刀点吗？

嗯是啊。移动下刀点到自己选定的位置。我快一年没弄这个了自己都看不懂了

欢迎光临 UG爱好者 (https://www.ugsnx.com/)