自动定坐标的出现问题了。

dazhi518

我自己写的VB定义坐标，Z轴差了0。3呀，还望会VB的各位帮帮忙呀。不胜感激。

- I. Z) M8 t3 l6 t
3 m6 F- g/ s$ N3 n我是这样写的。

- Y- x/ G! h, \2 ^: {+ PDim XMAX, XMIN, YMAX, YMIN, ZMAX As Long
8 k8 a+ i" X7 F) ^
0 ]! X# p% K% k  n; p5 zPowerMILL31.Connect

PowerMILL31.Execute ("Form BLOCK")

PowerMILL31.Execute ("EDIT BLOCK ALL UNLOCK")
& u% E& Y% v7 u4 R. R; U  @4 u
PowerMILL31.Execute ("EDIT BLOCK TOLERANCE 0.1")

PowerMILL31.Execute ("EDIT BLOCK RESETLIMIT 0.")
2 Z$ N4 j3 `" y+ @+ b
7 f4 B% j" O& ?6 B/ o$ q6 LPowerMILL31.Execute ("EDIT BLOCK RESET")

PowerMILL31.Execute ("BLOCK ACCEPT")
+ V( s. A  ?, Z6 g( W& H
9 g! @/ q7 y9 nZMAX = PowerMILL31.ExecuteEx("PRINT FORMVALUE RoughBlock.LimitFrame.MaxZ")

$ Y. r3 t6 o/ d$ L4 c# G- m2 WXMAX = PowerMILL31.ExecuteEx("PRINT FORMVALUE RoughBlock.LimitFrame.MaxX")
0 K6 v* N0 {+ C# @, ?
1 M* j" C- Y. cXMIN = PowerMILL31.ExecuteEx("PRINT FORMVALUE RoughBlock.LimitFrame.MinX")
# w2 j( ?3 _( r: @' F
" C, J' q0 D# M. jYMAX = PowerMILL31.ExecuteEx("PRINT FORMVALUE RoughBlock.LimitFrame.MaxY")
- `# [" D2 S/ w/ Z1 u! t8 ?: _
: B! s5 f3 K& P, f3 H& l: dYMIN = PowerMILL31.ExecuteEx("PRINT FORMVALUE RoughBlock.LimitFrame.MinY")

PowerMILL31.Execute ("TRANSFORM RESET TRANSFORM TYPE MOVE TRANSFORM MOVEX  " + CStr(-(XMAX - (XMAX - XMIN) / 2)))

PowerMILL31.Disconnect
; j$ W( M! S8 c" K
End Sub

+ O0 d  H2 L& G- r7 G& T0 xPrivate Sub Form_Load()

! V, g7 A; j1 f9 r7 ^PowerMILL31.Connect psStartPowerMILL

End Sub

hh749

PowerMILL31.Execute ("TRANSFORM RESET TRANSFORM TYPE MOVE TRANSFORM MOVEX  " + CStr(-(XMAX - (XMAX - XMIN) / 2)))
2 e5 o: t9 e. x" i; i1 p1 H

0 G0 v, w" T/ X! E  g' U这个不是自动建立坐标的命令啊
! f$ {! l0 e/ k) x; P

- K4 W) G& M$ h要使用CREATE WORKPLANE命令,然后再对个轴坐标赋值

dazhi518

你好，我是想在没有建立工作坐标的情况上，把世界坐标移到最高点。你说要使用那个自动建立坐标的命令，应该是自己先产生一个坐标。然后再自动居中，对吗。  可是我的想法是，在没有建立用户坐标的情况下，自动把世界坐标居中，如果建立了用户坐标，就自动把用户坐标居中，而世界坐标不变。我该用哪个命令呀。谢谢。

dazhi518

还有一个问题，就是，我启动自己编的程序之后，比如我点一下“X分中，Y分中，Z最顶部”坐标定好后，我再去点击powermill去查看工件，那个坐标器就藏到powermill后面了，之有再把powermill最小化才能看到。如果我想点powermill的时候，坐标器还显示在powermill的窗体上，我该如何做。VB学的不太好，还请各位多多帮忙。不胜感激。

hh749

原帖由 dazhi518 于 2009-1-1 11:22 发表 http://www.3dportal.cn/discuz/images/common/back.gif
( L7 l& g: L$ y/ J! k你好，我是想在没有建立工作坐标的情况上，把世界坐标移到最高点。你说要使用那个自动建立坐标的命令，应该是自己先产生一个坐标。然后再自动居中，对吗。  可是我的想法是，在没有建立用户坐标的情况下，自动把世界 ...

/ U5 O6 H$ @4 q) s
2 O4 Z3 l, Y4 P( D$ S, p
这个功能JIM会,你问他

hh749

原帖由 dazhi518 于 2009-1-1 17:28 发表 http://www.3dportal.cn/discuz/images/common/back.gif
还有一个问题，就是，我启动自己编的程序之后，比如我点一下“X分中，Y分中，Z最顶部”坐标定好后，我再去点击powermill去查看工件，那个坐标器就藏到powermill后面了，之有再把powermill最小化才能看到。如果我想点 ...

! [7 Y6 d8 V5 w, x  @9 [" t8 Q, S  \
这种情况,我没碰到过

380557319

原帖由 dazhi518 于 2009-1-1 17:28 发表 http://www.3dportal.cn/discuz/images/common/back.gif
还有一个问题，就是，我启动自己编的程序之后，比如我点一下“X分中，Y分中，Z最顶部”坐标定好后，我再去点击powermill去查看工件，那个坐标器就藏到powermill后面了，之有再把powermill最小化才能看到。如果我想点 ...

# a1 U& J* \. o6 r" h* r0 f) ~3 m- ~兄弟要的应该是“窗口总在最前端”的代码，论坛上我记的吉米好像发过，你找下，然后加进去试试

dazhi518

我的意思就是窗口总在最前端。谢谢老刘同志的提醒。

hh749

dcam_window_ontop hwnd


8 y6 z( @0 H; g% k# V, q% \- s模组编程中,用我上面这个代码就可以实现窗体总在最前面(放在定时器事件下)
; b/ _% N9 K4 F7 M0 Q1 p# k8 W

模组代码如下
Public Sub dcam_window_ontop( hwnd As Long )
  SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub
( [. p7 d4 ]7 q% o
[ 本帖最后由 hh749 于 2009-1-3 08:52 编辑 ]

dazhi518

谢谢老大。。。

dazhi518

我把Z轴设在最高点。是这样编的，可是移不到位呀。。还请帮助解决。
: x& f$ S6 y+ M8 a
! T9 j/ W& K7 P) L* MDim ZMAX As Long
PowerMILL31.Connect
* T; `8 j  y0 F/ N/ W+ RZMAX = PowerMILL31.ExecuteEx("PRINT FORMVALUE RoughBlock.LimitFrame.MaxZ")
1 t2 L' p  y6 u% ?. P* VPowerMILL31.Execute ("TRANSFORM RESET TRANSFORM TYPE MOVE TRANSFORM MOVEZ   " + CStr(-ZMAX))
) P' ^1 T/ g: j) PPowerMILL31.Execute ("TRANSFORM MODEL ALL")
! i# a  @. ~+ j' _* J5 e3 g7 MPowerMILL31.Disconnect
8 T% ^, u: {5 {& B
Z轴不在最高点呀，有时候还高出最高点。是什么原因，是不是因为long是长整形数值呀。。。

dazhi518

Z轴移不到位的问题，本人已经自己解决了，原来是变量高错了。我试了一下把long（长整型）改为double(双精度型）。然后就OK了。

还请问老大，怎样模组编程呀。

hh749

原帖由 dazhi518 于 2009-1-4 18:54 发表 http://www.3dportal.cn/discuz/images/common/back.gif
2 L5 u$ `" X+ W" rZ轴移不到位的问题，本人已经自己解决了，原来是变量高错了。我试了一下把long（长整型）改为double(双精度型）。然后就OK了。

" v# h, D# \% O还请问老大，怎样模组编程呀。

, Y: c, t# v' R6 f
/ ^5 B4 h0 F$ [1 A; Z# D, h0 Q
. r  D  ~# e( ^+ A
( D; O9 S7 q6 L模组编程请看本版快教程
; o2 q( s  }. e- u, ~' ]/ {PowerMILL二次开发 高级篇（一） 摆脱PowerSolutionOLE.ocx的噩梦
' h" Y4 T7 z: p5 T4 C# h
) l) k% K+ p, G0 H' f% d+ G这里是讲模组编程的,如果你不知道模组,那我建议你再去好好学习下VB编程了

傲世浮云

整长是四舍五入的，最好不要用，要是遇到镶件是小数的，可能移不到中心。你这个代码最好在后面加个判断如果Y方向大于X方向。那么工件沿Z轴转90度

kenkp

这个不是自动建立坐标的命令啊

fhqiwmc

把long改为Single就行了。就是整和小的问题了。。

傲世浮云

呵呵，以前学着看王大师的代码时，就发现这个问题了，铜公长宽一般都是整数还好，高度不是整数就出问题了