谁可以用宏批量改名

ZZWLZWQ

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

5 |9 T5 c: I! ~3 @        DELETE WORKPLANE ALL
- C" I) @$ D# H. J# C7 d  S& E3 G        EDIT MODEL ALL SELECT WIREFRAME
! D: v  d* c8 p4 h) |        DELETE MODEL  SELECTED
        edit autocam model flip
        TRANSFORM RESET TRANSFORM TYPE WORLD TRANSFORM MODEL ALL SELECTED  
        DELETE WORKPLANE ALL
$ g% r2 c, I% k( @1 e  N        TRANSFORM RESET TRANSFORM TYPE ROTATEY TRANSFORM ANGLE
        180
        TRANSFORM MODEL ALL
        ROTATE TRANSFORM ISO2 VIEWMILL RESIZEVIEW
        VIEW MODEL ; WIREFRAME OFF
        VIEW MODEL ; SHADE NORMAL
        EDIT BLOCKTYPE BOX
: A/ K) O& O/ U2 F' `- K        EDIT BLOCK ALL UNLOCK
        EDIT BLOCK LIMITTYPE MODEL
        EDIT BLOCK RESETLIMIT "0"
        DRAW BLOCK
# ~* t' v8 K, Y( j        EDIT BLOCK DRAWMODE 0
1 s$ t+ J0 z9 j, |7 v8 T        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
' y6 f/ }( i7 w# N  U; @上面的宏在9版是不能用滴!
edit autocam model flip,没有这个命令了

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

125067993

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

125067993

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

ZZWLZWQ

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

9 I! T6 U/ n* Z" l' ^DELETE WORKPLANE ALL
% b; b6 M7 ^8 u! y' ^; i# JEDIT MODEL ALL SELECT WIREFRAME
  F. p( C# t0 d9 F  z1 F) iDELETE MODEL  SELECTED
6 T8 S6 L: n+ Yedit autocam model flip
TRANSFORM RESET TRANSFORM TYPE WORLD TRANSFORM MODEL ALL SELECTED  
& S$ x6 R% F' ~! r% m5 Q- @3 xDELETE WORKPLANE ALL
TRANSFORM RESET TRANSFORM TYPE ROTATEY TRANSFORM ANGLE
180
2 u. s4 M# r& o9 i. ]TRANSFORM MODEL ALL
% F8 \. Q- {$ m5 x4 B" T- }VIEW MODEL ; WIREFRAME OFF
& c. X4 n$ d* h" WVIEW MODEL ; SHADE NORMAL
EDIT BLOCKTYPE BOX
1 D5 o- C- q+ t" Q! HEDIT BLOCK ALL UNLOCK
EDIT BLOCK LIMITTYPE MODEL
  g$ N7 E, m6 D, B8 h5 R7 R, v6 tEDIT BLOCK RESETLIMIT "0"
* m: x7 T# P2 p  kEDIT BLOCK RESET
  P* K% m" l+ H& ODELETE MODEL ALL
6 G% C7 \! T. p) A4 ]! UCREATE PLANE ;
0
% [* d. Y$ P; e0 k, u! ]TRANSFORM RESET TRANSFORM TYPE ROTATEY TRANSFORM ANGLE
90
TRANSFORM MODEL ALL
9 j  H7 |4 I) S  U+ jedit autocam model flip
- x8 u* S- T, ?  IEXPLORER SELECT Workplane "Workplane\1" NEW
FORM WPEDIT EDIT WORKPLANE "1" INTERACTIVE
5 e  }8 ?( ^) G  qACTIVATE WORKPLANE " "
) M( Q9 P" w( W$ c' _; X+ I6 N* QTRANSFORM ANGLE "-90"
( E8 t& `# x& D: e+ S% ITRANSFORM TYPE ROTATEY TRANSFORM WORKPLANE "1"
6 f0 H6 |- Q$ p1 k8 z% n0 V" x% rACTIVATE WORKPLANE "1"
TRANSFORM ANGLE "90"
. z4 T2 ?8 m6 N, r1 `- d# ITRANSFORM TYPE ROTATEY TRANSFORM WORKPLANE "1"
WPEDIT ACCEPT
5 G7 h  F  T+ L- i) c; ?$ CSPLITTER TABRECYCLER
EDIT RECYCLER RECOVER Model ALL
/ |+ F9 ?  N9 L% a; W2 K5 @SPLITTER TABEXPLORE
; J2 y4 B4 T- G6 E/ zEXPLORER SELECT Model "Model\Planes" NEW
DELETE MODEL "Planes"
2 _' w# V# m. e. XSPLITTER TABRECYCLER
* A. _  z. W1 f, X  n& T+ k& L4 s6 PEDIT RECYCLER DELETE Model "Planes"
* L% f& A( V! ~: t% `) d3 L/ NSPLITTER 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

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