谁可以用宏批量改名

ZZWLZWQ

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

        DELETE WORKPLANE ALL
% l  a& n  B( [' Z1 {) f6 z        EDIT MODEL ALL SELECT WIREFRAME
; k7 k; K; ~7 L' t/ g; o        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
( N8 H, W( W( y% [7 j* o4 |        180
, ^5 f- M" |" _        TRANSFORM MODEL ALL
        ROTATE TRANSFORM ISO2 VIEWMILL RESIZEVIEW
        VIEW MODEL ; WIREFRAME OFF
2 [% |$ _/ n7 I6 I7 z. [        VIEW MODEL ; SHADE NORMAL
! C# e; L4 K4 c& e+ k" Y, k/ U        EDIT BLOCKTYPE BOX
        EDIT BLOCK ALL UNLOCK
        EDIT BLOCK LIMITTYPE MODEL
        EDIT BLOCK RESETLIMIT "0"
, w" y1 R9 w9 D  @) ~7 W        DRAW BLOCK
        EDIT BLOCK DRAWMODE 0
/ L8 z" n/ y, R; c3 ^0 f        EDIT BLOCK RESET
; \* f1 Z& U8 O" f4 N
如果大家做了有新意的宏,希望能跟贴和大家分享,共同进步,

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
- m9 r; z( }# E8 c) x3 n上面的宏在9版是不能用滴!
edit autocam model flip,没有这个命令了

! {8 |; d" r& P" ]* f# \
, r4 T5 I" x4 j8 X1 \8 N0 X
5 l, n6 H" E' s% {+ b/ k6 W3 n- p是的.其实其它版本的PM只用edit autocam model flip这句就可以了

125067993

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

125067993

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

ZZWLZWQ

楼上高人,我刚才试着弄一个单边分中,搞了好久,用一个很麻烦的方式解决了,不知楼上有什么简单的方法,还希望能说一说,
6 n/ P! G+ W5 |" N9 d
9 h8 D2 T& r3 `9 \& }9 WDELETE WORKPLANE ALL
5 D! y7 S6 J: U' V& }EDIT MODEL ALL SELECT WIREFRAME
* @  p0 J# n3 A$ MDELETE MODEL  SELECTED
0 Y  X$ l- @' b$ {; Q' X9 N3 ]( Y: E0 Nedit autocam model flip
TRANSFORM RESET TRANSFORM TYPE WORLD TRANSFORM MODEL ALL SELECTED  
( u0 r& r. d5 @* L& XDELETE WORKPLANE ALL
TRANSFORM RESET TRANSFORM TYPE ROTATEY TRANSFORM ANGLE
/ D8 H& N4 v# I# F" l7 a180
/ n1 o. ]" D: J/ O) j( s9 pTRANSFORM MODEL ALL
  Q0 k$ a; k' yVIEW MODEL ; WIREFRAME OFF
VIEW MODEL ; SHADE NORMAL
EDIT BLOCKTYPE BOX
6 |. Y3 X" R) d* o% qEDIT BLOCK ALL UNLOCK
EDIT BLOCK LIMITTYPE MODEL
EDIT BLOCK RESETLIMIT "0"
3 t5 m1 ?, j) _, F, H' xEDIT BLOCK RESET
, S& V8 z: p* kDELETE MODEL ALL
' c0 q; t+ `$ R3 c' [, jCREATE PLANE ;
0
8 _8 U0 v2 O( A! Q% `+ e- L% QTRANSFORM RESET TRANSFORM TYPE ROTATEY TRANSFORM ANGLE
90
TRANSFORM MODEL ALL
0 x) h' d; Q- `" P* Xedit autocam model flip
( B0 r* S- E; i6 LEXPLORER SELECT Workplane "Workplane\1" NEW
FORM WPEDIT EDIT WORKPLANE "1" INTERACTIVE
. C4 {; Y+ r5 ^; NACTIVATE WORKPLANE " "
& ^+ Y3 {9 z. ^9 j) |TRANSFORM ANGLE "-90"
" N; w! G' S1 [; [0 zTRANSFORM TYPE ROTATEY TRANSFORM WORKPLANE "1"
ACTIVATE WORKPLANE "1"
TRANSFORM ANGLE "90"
TRANSFORM TYPE ROTATEY TRANSFORM WORKPLANE "1"
( S" y- ^' S# R1 |' l2 [& GWPEDIT ACCEPT
) D( t  z2 k2 }; ESPLITTER TABRECYCLER
EDIT RECYCLER RECOVER Model ALL
SPLITTER TABEXPLORE
* A3 J; {6 M5 Y2 S+ LEXPLORER SELECT Model "Model\Planes" NEW
DELETE MODEL "Planes"
SPLITTER TABRECYCLER
EDIT RECYCLER DELETE Model "Planes"
7 e0 j6 V) \5 L  x3 ?- |7 z4 p" {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

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