谁可以用宏批量改名

ZZWLZWQ

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

顺便分享一下我今天搞定的宏,用宏来把模型移动到X,Y中心和Z的最高点,不知道有没有人这样做过, 反正我从没见过.这个宏会删除所有的线,点和坐标系,用的话,要看情况了,我用的是PM8.0
/ Z4 s; S: C1 ]3 p& @
" B% W0 c7 r; I3 |' \) T; y        DELETE WORKPLANE ALL
' [; [. i4 F- n        EDIT MODEL ALL SELECT WIREFRAME
8 W& O; L6 t+ u! N        DELETE MODEL  SELECTED
  u9 q* I  J% m; C& |1 S; q        edit autocam model flip
5 t: h6 H9 i& I, C, o& L- [        TRANSFORM RESET TRANSFORM TYPE WORLD TRANSFORM MODEL ALL SELECTED  
        DELETE WORKPLANE ALL
        TRANSFORM RESET TRANSFORM TYPE ROTATEY TRANSFORM ANGLE
& v, u3 j) [9 J; H6 F- G1 i        180
        TRANSFORM MODEL ALL
        ROTATE TRANSFORM ISO2 VIEWMILL RESIZEVIEW
4 Y+ T9 y8 u- A# o3 U0 y$ w        VIEW MODEL ; WIREFRAME OFF
        VIEW MODEL ; SHADE NORMAL
% A7 w; s9 F3 T4 V- m5 O        EDIT BLOCKTYPE BOX
        EDIT BLOCK ALL UNLOCK
& a  T% a. Q8 S5 Q4 A' Q9 r3 b) D' B        EDIT BLOCK LIMITTYPE MODEL
        EDIT BLOCK RESETLIMIT "0"
        DRAW BLOCK
        EDIT BLOCK DRAWMODE 0
9 j7 n- r0 g# y& |9 w- N        EDIT BLOCK RESET
3 ~5 c( Z& Q: L+ ]3 A: w
如果大家做了有新意的宏,希望能跟贴和大家分享,共同进步,

gjx0216

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

zali_123

上面的宏在9版是不能用滴!
! A% P/ d2 z9 s" d" yedit autocam model flip,没有这个命令了

jimmycnc

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

- f. @- M* r  H6 a. o
6 i$ _0 P. K: f$ Z" e. |8 Q+ z是的.其实其它版本的PM只用edit autocam model flip这句就可以了

125067993

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

125067993

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

ZZWLZWQ

楼上高人,我刚才试着弄一个单边分中,搞了好久,用一个很麻烦的方式解决了,不知楼上有什么简单的方法,还希望能说一说,
- E  h! A$ H9 B0 B! p' C
DELETE WORKPLANE ALL
EDIT MODEL ALL SELECT WIREFRAME
5 D0 c: T# x8 Z" T. E) B+ cDELETE MODEL  SELECTED
edit autocam model flip
4 F4 d! i! Q5 H6 J2 q8 x. U! fTRANSFORM RESET TRANSFORM TYPE WORLD TRANSFORM MODEL ALL SELECTED  
! E  ]7 E0 y8 S7 KDELETE WORKPLANE ALL
$ y2 j0 ]: C: O4 V0 ~8 JTRANSFORM RESET TRANSFORM TYPE ROTATEY TRANSFORM ANGLE
& O" E6 T* O* }+ f, k1 z180
TRANSFORM MODEL ALL
VIEW MODEL ; WIREFRAME OFF
VIEW MODEL ; SHADE NORMAL
, q4 i- p) Z  I  C% ^4 `EDIT BLOCKTYPE BOX
' C2 D2 P6 \! {" u0 |7 ]9 y& t& f) KEDIT BLOCK ALL UNLOCK
EDIT BLOCK LIMITTYPE MODEL
EDIT BLOCK RESETLIMIT "0"
EDIT BLOCK RESET
DELETE MODEL ALL
CREATE PLANE ;
4 h$ G7 b4 F: q) q3 D4 q) _' O1 j# W0
TRANSFORM RESET TRANSFORM TYPE ROTATEY TRANSFORM ANGLE
, o: c' d* j: l' t, \: C' Y90
- S! i& S, ^: G" fTRANSFORM MODEL ALL
edit autocam model flip
4 O3 U' M) F; O! j7 aEXPLORER SELECT Workplane "Workplane\1" NEW
2 B" F- O8 H1 Y( v2 `+ b6 ~6 @3 sFORM WPEDIT EDIT WORKPLANE "1" INTERACTIVE
& \% b9 A; p0 W8 o; [' @; bACTIVATE WORKPLANE " "
TRANSFORM ANGLE "-90"
TRANSFORM TYPE ROTATEY TRANSFORM WORKPLANE "1"
# I( \9 M6 ^, S: iACTIVATE WORKPLANE "1"
  ?" Y4 [( G2 bTRANSFORM ANGLE "90"
* F+ `8 B$ i& w% Z3 i5 yTRANSFORM TYPE ROTATEY TRANSFORM WORKPLANE "1"
: D. P* X8 a; j2 d: m) R5 E- AWPEDIT ACCEPT
& |" c" |- d! W1 U* T3 ASPLITTER TABRECYCLER
EDIT RECYCLER RECOVER Model ALL
SPLITTER TABEXPLORE
EXPLORER SELECT Model "Model\Planes" NEW
2 }+ @, z* A) h5 hDELETE MODEL "Planes"
SPLITTER TABRECYCLER
& K) r6 B) m4 I; H# ~% E% _EDIT RECYCLER DELETE Model "Planes"
; s% D" f6 v6 V1 k8 U) G! E% rSPLITTER 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

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