谁可以用宏批量改名

ZZWLZWQ

我想把任意的NC程序名,和刀具路径名，边界名，自动批量改成1,2,3,4,5……听说有人可以的，但我就是找不到方法，向大侠们求助。
+ F  c* Z) p6 e  O6 D* [我有VB改名工具,求助只是为了研究宏,比如在刀具路径中对任意程序进得复制修改合并等等,如果可以用宏改名,宏就不会再受名字的限制,
4 p$ r% T7 x: ?/ l+ f
6 B. A9 @' d/ _% M' G顺便分享一下我今天搞定的宏,用宏来把模型移动到X,Y中心和Z的最高点,不知道有没有人这样做过, 反正我从没见过.这个宏会删除所有的线,点和坐标系,用的话,要看情况了,我用的是PM8.0
2 h% x9 v# h, P* O3 E
        DELETE WORKPLANE ALL
        EDIT MODEL ALL SELECT WIREFRAME
        DELETE MODEL  SELECTED
& Q4 z! Y6 Q) @; \/ T$ O& R/ M        edit autocam model flip
        TRANSFORM RESET TRANSFORM TYPE WORLD TRANSFORM MODEL ALL SELECTED  
/ ]& ^7 [' T9 n+ Y( ]0 i        DELETE WORKPLANE ALL
' ^3 Y' Y1 Z, L+ O) q. X7 g        TRANSFORM RESET TRANSFORM TYPE ROTATEY TRANSFORM ANGLE
        180
        TRANSFORM MODEL ALL
        ROTATE TRANSFORM ISO2 VIEWMILL RESIZEVIEW
        VIEW MODEL ; WIREFRAME OFF
) c  g, M) }) ?+ K        VIEW MODEL ; SHADE NORMAL
        EDIT BLOCKTYPE BOX
        EDIT BLOCK ALL UNLOCK
        EDIT BLOCK LIMITTYPE MODEL
  K0 A: V! P4 R4 Y! e5 E! P        EDIT BLOCK RESETLIMIT "0"
        DRAW BLOCK
7 ~! e9 g# n9 p, l  O) n' Q% p        EDIT BLOCK DRAWMODE 0
1 T. v( a+ `1 W0 D        EDIT BLOCK RESET

如果大家做了有新意的宏,希望能跟贴和大家分享,共同进步,

gjx0216

好深奥哦！不懂你的意思。

zali_123

上面的宏在9版是不能用滴!
edit autocam model flip,没有这个命令了

jimmycnc

原帖由 zali_123 于 2008-12-12 22:52 发表 http://www.3dportal.cn/discuz/images/common/back.gif
上面的宏在9版是不能用滴!
edit autocam model flip,没有这个命令了

& b+ J/ K2 l! E1 r! g: |
  y" }5 y+ a9 J8 a是的.其实其它版本的PM只用edit autocam model flip这句就可以了

125067993

模型移动到X,Y中心和Z的最高点。这个宏我自己也做了出来自己用。还做了模型碰单边的宏。无聊时搞出来的。嘻嘻

125067993

改名的宏就没做了。因为有个不错的VB工具可以用。

ZZWLZWQ

楼上高人,我刚才试着弄一个单边分中,搞了好久,用一个很麻烦的方式解决了,不知楼上有什么简单的方法,还希望能说一说,

DELETE WORKPLANE ALL
EDIT MODEL ALL SELECT WIREFRAME
DELETE MODEL  SELECTED
0 s3 T. j+ d$ j: l/ h8 zedit autocam model flip
TRANSFORM RESET TRANSFORM TYPE WORLD TRANSFORM MODEL ALL SELECTED  
DELETE WORKPLANE ALL
+ k4 M6 L* g$ @TRANSFORM RESET TRANSFORM TYPE ROTATEY TRANSFORM ANGLE
% F" {& l0 S  D' E1 Q& h: `180
- c- w0 E3 B6 h, A0 G& G3 O3 T) qTRANSFORM MODEL ALL
) [6 k* ]  `/ l, k) u9 Q6 V# ^& i6 YVIEW MODEL ; WIREFRAME OFF
VIEW MODEL ; SHADE NORMAL
* g4 h' y' K1 ], Q  S2 W, M" MEDIT BLOCKTYPE BOX
EDIT BLOCK ALL UNLOCK
9 b0 V& I& T0 ]2 K; MEDIT BLOCK LIMITTYPE MODEL
- s8 O, S% j( X. [% m1 _6 yEDIT BLOCK RESETLIMIT "0"
3 j4 V2 |6 v5 f& OEDIT BLOCK RESET
8 |& Y3 o. `6 H# qDELETE MODEL ALL
CREATE PLANE ;
0
TRANSFORM RESET TRANSFORM TYPE ROTATEY TRANSFORM ANGLE
90
TRANSFORM MODEL ALL
edit autocam model flip
EXPLORER SELECT Workplane "Workplane\1" NEW
  W. Z8 s( j; x1 OFORM WPEDIT EDIT WORKPLANE "1" INTERACTIVE
2 a" G. l0 t5 e' o) LACTIVATE WORKPLANE " "
TRANSFORM ANGLE "-90"
# H/ z) x) i6 e0 CTRANSFORM TYPE ROTATEY TRANSFORM WORKPLANE "1"
! v4 X% E8 `5 {2 ZACTIVATE WORKPLANE "1"
TRANSFORM ANGLE "90"
TRANSFORM TYPE ROTATEY TRANSFORM WORKPLANE "1"
WPEDIT ACCEPT
SPLITTER TABRECYCLER
EDIT RECYCLER RECOVER Model ALL
! ~6 }2 B+ G5 g1 @SPLITTER TABEXPLORE
4 o2 }% W, p3 t9 s0 e$ }) @. cEXPLORER SELECT Model "Model\Planes" NEW
0 {0 @. ^4 j$ i) T% q# l/ UDELETE MODEL "Planes"
& ^3 M# ]( D" F) O! W: VSPLITTER TABRECYCLER
( U& u4 b2 `* A" z& X0 EEDIT RECYCLER DELETE Model "Planes"
SPLITTER TABEXPLORE
TRANSFORM RESET TRANSFORM TYPE WORLD TRANSFORM MODEL ALL SELECTED
DELETE WORKPLANE ALL
ROTATE TRANSFORM ISO2 VIEWMILL RESIZEVIEW

starlbwoo

到此一游

tang-pm

太高深了还有好多东西要学哦

cjy20200

高手呀，支持一下你们

WHT44

分中宏有什么新鲜的 现在的版本中的宏都支持变量 做这个还不是小意思

360540603

为什么,看不到答案,何为解决了

mymao

多谢版主的解释，太实用了