谁可以用宏批量改名

ZZWLZWQ

我想把任意的NC程序名,和刀具路径名，边界名，自动批量改成1,2,3,4,5……听说有人可以的，但我就是找不到方法，向大侠们求助。
# X4 F  M& O. F: A我有VB改名工具,求助只是为了研究宏,比如在刀具路径中对任意程序进得复制修改合并等等,如果可以用宏改名,宏就不会再受名字的限制,

顺便分享一下我今天搞定的宏,用宏来把模型移动到X,Y中心和Z的最高点,不知道有没有人这样做过, 反正我从没见过.这个宏会删除所有的线,点和坐标系,用的话,要看情况了,我用的是PM8.0

        DELETE WORKPLANE ALL
        EDIT MODEL ALL SELECT WIREFRAME
6 Z( t5 L0 t; c* K  s        DELETE MODEL  SELECTED
- C. _+ q; r; j' H, {0 Y        edit autocam model flip
$ C  ?/ F# q  a0 W, V8 T# A        TRANSFORM RESET TRANSFORM TYPE WORLD TRANSFORM MODEL ALL SELECTED  
        DELETE WORKPLANE ALL
        TRANSFORM RESET TRANSFORM TYPE ROTATEY TRANSFORM ANGLE
        180
        TRANSFORM MODEL ALL
. w  \% }/ H' f3 n* Q& c* `        ROTATE TRANSFORM ISO2 VIEWMILL RESIZEVIEW
        VIEW MODEL ; WIREFRAME OFF
        VIEW MODEL ; SHADE NORMAL
  i# h" M, X0 k8 a6 K        EDIT BLOCKTYPE BOX
2 j' F2 v& F1 p( s; ?1 N! i        EDIT BLOCK ALL UNLOCK
. l2 o5 G9 l( @- ~% B' I3 V/ Q        EDIT BLOCK LIMITTYPE MODEL
        EDIT BLOCK RESETLIMIT "0"
        DRAW BLOCK
, n. t& g. p5 N5 m. `        EDIT BLOCK DRAWMODE 0
) ~3 D% `; |% x* X/ B' M; x        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
0 g- A8 e6 |( `& p: ^# I0 J上面的宏在9版是不能用滴!
- b4 a$ g9 k9 `1 r; {; ?" \edit autocam model flip,没有这个命令了

  O% }7 X  F% a- n是的.其实其它版本的PM只用edit autocam model flip这句就可以了

125067993

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

125067993

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

ZZWLZWQ

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

1 y* Q, T" Y4 _) ?DELETE WORKPLANE ALL
- X" ?! v/ F5 T+ S  JEDIT MODEL ALL SELECT WIREFRAME
DELETE MODEL  SELECTED
edit autocam model flip
TRANSFORM RESET TRANSFORM TYPE WORLD TRANSFORM MODEL ALL SELECTED  
DELETE WORKPLANE ALL
TRANSFORM RESET TRANSFORM TYPE ROTATEY TRANSFORM ANGLE
, G8 B/ p0 ?+ K" F180
; N8 ?8 S) }+ F( ~TRANSFORM MODEL ALL
& H# T0 {8 y/ D1 _$ V+ g; S" A" xVIEW MODEL ; WIREFRAME OFF
- q: A3 y* s* r$ m3 L. aVIEW MODEL ; SHADE NORMAL
EDIT BLOCKTYPE BOX
EDIT BLOCK ALL UNLOCK
EDIT BLOCK LIMITTYPE MODEL
5 ^$ b6 I, A* @& ~/ W& jEDIT BLOCK RESETLIMIT "0"
EDIT BLOCK RESET
DELETE MODEL ALL
3 h8 V* u0 i  w; g  P0 dCREATE PLANE ;
0
TRANSFORM RESET TRANSFORM TYPE ROTATEY TRANSFORM ANGLE
90
( H; H; U7 w4 e1 t; BTRANSFORM MODEL ALL
edit autocam model flip
EXPLORER SELECT Workplane "Workplane\1" NEW
FORM WPEDIT EDIT WORKPLANE "1" INTERACTIVE
ACTIVATE WORKPLANE " "
TRANSFORM ANGLE "-90"
TRANSFORM TYPE ROTATEY TRANSFORM WORKPLANE "1"
6 l/ P* y* e! QACTIVATE WORKPLANE "1"
6 O. P3 l) `; G" w* Z" u+ tTRANSFORM ANGLE "90"
9 S* b% O3 q+ c+ Q. c& c- GTRANSFORM TYPE ROTATEY TRANSFORM WORKPLANE "1"
9 H: B; ~& M3 w1 qWPEDIT ACCEPT
; u( w( f* E0 x* x- @  oSPLITTER TABRECYCLER
7 v: t/ w3 q+ V1 t. i/ b9 }EDIT RECYCLER RECOVER Model ALL
4 j7 u# R! o/ U6 Y5 tSPLITTER TABEXPLORE
% ~$ `; A1 Z, B& CEXPLORER SELECT Model "Model\Planes" NEW
3 c* o3 }$ _( ?6 d1 PDELETE MODEL "Planes"
' G- @7 B( {( m, v6 l* fSPLITTER TABRECYCLER
EDIT RECYCLER DELETE Model "Planes"
SPLITTER TABEXPLORE
TRANSFORM RESET TRANSFORM TYPE WORLD TRANSFORM MODEL ALL SELECTED
$ n' k2 w0 x. Z1 g5 A3 Z, U2 pDELETE WORKPLANE ALL
2 J* e- s0 @6 u  oROTATE TRANSFORM ISO2 VIEWMILL RESIZEVIEW

starlbwoo

到此一游

tang-pm

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

cjy20200

高手呀，支持一下你们

WHT44

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

360540603

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

mymao

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