谁可以用宏批量改名

ZZWLZWQ

我想把任意的NC程序名,和刀具路径名，边界名，自动批量改成1,2,3,4,5……听说有人可以的，但我就是找不到方法，向大侠们求助。
我有VB改名工具,求助只是为了研究宏,比如在刀具路径中对任意程序进得复制修改合并等等,如果可以用宏改名,宏就不会再受名字的限制,
7 N( p# c) ^  N7 S
顺便分享一下我今天搞定的宏,用宏来把模型移动到X,Y中心和Z的最高点,不知道有没有人这样做过, 反正我从没见过.这个宏会删除所有的线,点和坐标系,用的话,要看情况了,我用的是PM8.0

+ C$ Y3 f& w4 P+ W) U. E6 j; W/ G        DELETE WORKPLANE ALL
        EDIT MODEL ALL SELECT WIREFRAME
        DELETE MODEL  SELECTED
        edit autocam model flip
$ C* v; e- e' U' T8 \        TRANSFORM RESET TRANSFORM TYPE WORLD TRANSFORM MODEL ALL SELECTED  
0 J* F' D& S. @+ Z% b7 J$ ]        DELETE WORKPLANE ALL
        TRANSFORM RESET TRANSFORM TYPE ROTATEY TRANSFORM ANGLE
        180
, k  s; h- T& C9 m        TRANSFORM MODEL ALL
        ROTATE TRANSFORM ISO2 VIEWMILL RESIZEVIEW
        VIEW MODEL ; WIREFRAME OFF
8 q# [' q* j/ e  y        VIEW MODEL ; SHADE NORMAL
        EDIT BLOCKTYPE BOX
        EDIT BLOCK ALL UNLOCK
% Z  H; L' e" u0 z        EDIT BLOCK LIMITTYPE MODEL
- R4 G. O' G$ p' X- r3 @  q% g, g        EDIT BLOCK RESETLIMIT "0"
3 G" h$ J$ n' f/ o& T, A' D- C        DRAW BLOCK
8 f! V! q7 ~7 k5 Y/ W- a  L" i        EDIT BLOCK DRAWMODE 0
        EDIT BLOCK RESET
. e- m/ Z2 [3 ~" v
如果大家做了有新意的宏,希望能跟贴和大家分享,共同进步,

gjx0216

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

zali_123

上面的宏在9版是不能用滴!
6 T9 p. K3 X: d! W3 R; f1 g. eedit 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,没有这个命令了

是的.其实其它版本的PM只用edit autocam model flip这句就可以了

125067993

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

125067993

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

ZZWLZWQ

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

4 H8 ^5 j6 }/ T! CDELETE WORKPLANE ALL
EDIT MODEL ALL SELECT WIREFRAME
DELETE MODEL  SELECTED
edit autocam model flip
8 p* ~4 O; m5 G  g' F0 e+ O2 \) uTRANSFORM RESET TRANSFORM TYPE WORLD TRANSFORM MODEL ALL SELECTED  
( u; n3 e% j) iDELETE WORKPLANE ALL
4 `5 E9 I, W% s/ p# v& ITRANSFORM RESET TRANSFORM TYPE ROTATEY TRANSFORM ANGLE
3 [) z! _* P5 B180
5 w) \9 y, B# fTRANSFORM MODEL ALL
VIEW MODEL ; WIREFRAME OFF
VIEW MODEL ; SHADE NORMAL
EDIT BLOCKTYPE BOX
# D, E5 t0 d( U8 W" s' T4 J4 pEDIT BLOCK ALL UNLOCK
+ ?. z4 D+ Y4 v( mEDIT BLOCK LIMITTYPE MODEL
. V0 b6 T) g: B( I3 E% B  O1 BEDIT BLOCK RESETLIMIT "0"
+ a  h) z' L, ?EDIT BLOCK RESET
* F  L" E% v: @  k8 dDELETE MODEL ALL
CREATE PLANE ;
0
- ~. F8 L- \: m! Y7 X. _TRANSFORM RESET TRANSFORM TYPE ROTATEY TRANSFORM ANGLE
90
! a( w; s- r1 K. s, oTRANSFORM MODEL ALL
edit autocam model flip
/ _3 P& u8 L0 |1 TEXPLORER SELECT Workplane "Workplane\1" NEW
3 L% a* s( B; BFORM WPEDIT EDIT WORKPLANE "1" INTERACTIVE
* m5 b! d! e6 g+ J2 ~ACTIVATE WORKPLANE " "
6 R, ]( s! w+ N8 H- R+ ?TRANSFORM ANGLE "-90"
% F' e+ T1 U& j1 U3 s1 QTRANSFORM TYPE ROTATEY TRANSFORM WORKPLANE "1"
- f) @7 p4 X$ x& sACTIVATE WORKPLANE "1"
TRANSFORM ANGLE "90"
- Z% l# `0 a: T" c# ^4 pTRANSFORM TYPE ROTATEY TRANSFORM WORKPLANE "1"
, ~* x2 p) `- QWPEDIT ACCEPT
+ t  C' e4 L  |5 t' L% ?' v4 d! ^# ISPLITTER TABRECYCLER
EDIT RECYCLER RECOVER Model ALL
SPLITTER TABEXPLORE
EXPLORER SELECT Model "Model\Planes" NEW
2 d6 U4 |5 T* p0 KDELETE MODEL "Planes"
SPLITTER TABRECYCLER
, J' I2 W8 F- X! CEDIT RECYCLER DELETE Model "Planes"
SPLITTER TABEXPLORE
# o9 m, Q1 P: ^- m! I2 G7 MTRANSFORM RESET TRANSFORM TYPE WORLD TRANSFORM MODEL ALL SELECTED
DELETE WORKPLANE ALL
2 i8 x0 x$ Y; g$ O+ W/ X" ?3 DROTATE TRANSFORM ISO2 VIEWMILL RESIZEVIEW

starlbwoo

到此一游

tang-pm

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

cjy20200

高手呀，支持一下你们

WHT44

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

360540603

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

mymao

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