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

dazhi518

我自己写的VB定义坐标，Z轴差了0。3呀，还望会VB的各位帮帮忙呀。不胜感激。
; d6 k9 r& a: S# R9 c* }% `
9 ]' k9 N. Y4 {9 V# Q& S" q6 R9 Y
/ _, w! j7 \9 ]" s* ]我是这样写的。
4 N: l9 f3 c) f+ Z% w: Y
Dim XMAX, XMIN, YMAX, YMIN, ZMAX As Long

PowerMILL31.Connect
" A) i$ V2 G& k% l' o$ w; O
: ?/ g6 K# b. _6 h3 A# APowerMILL31.Execute ("Form BLOCK")

PowerMILL31.Execute ("EDIT BLOCK ALL UNLOCK")
/ q' }. @$ \! U" C5 f
PowerMILL31.Execute ("EDIT BLOCK TOLERANCE 0.1")
' w2 T/ V+ \: L, S
' W0 I5 j/ w9 `' J; j1 lPowerMILL31.Execute ("EDIT BLOCK RESETLIMIT 0.")
% t, A% {2 r( u" s! }6 a
PowerMILL31.Execute ("EDIT BLOCK RESET")
  a- S2 z' d( x7 A+ `0 K. I
! v% q' k1 t( E) o6 ^PowerMILL31.Execute ("BLOCK ACCEPT")

ZMAX = PowerMILL31.ExecuteEx("PRINT FORMVALUE RoughBlock.LimitFrame.MaxZ")
( l' }0 n2 d6 f( `" s! `
% m! R8 _/ R8 w0 }! Y7 x( F% P/ E5 bXMAX = PowerMILL31.ExecuteEx("PRINT FORMVALUE RoughBlock.LimitFrame.MaxX")
  Y& r' \, l- q0 D3 e% M$ s/ k
6 t8 J9 O# x! a1 D1 J  H- }XMIN = PowerMILL31.ExecuteEx("PRINT FORMVALUE RoughBlock.LimitFrame.MinX")
/ S" }6 b8 X2 Q( l
' H) \* j. E+ i% h6 {7 UYMAX = PowerMILL31.ExecuteEx("PRINT FORMVALUE RoughBlock.LimitFrame.MaxY")
1 w8 Z2 ~# m# W1 [2 ^
YMIN = PowerMILL31.ExecuteEx("PRINT FORMVALUE RoughBlock.LimitFrame.MinY")
( g( {1 Y0 `. {; r
PowerMILL31.Execute ("TRANSFORM RESET TRANSFORM TYPE MOVE TRANSFORM MOVEX  " + CStr(-(XMAX - (XMAX - XMIN) / 2)))

( d7 Z  E# B( Q- IPowerMILL31.Disconnect

End Sub

% ~: o" m. g* N5 ^+ M* e# f; jPrivate Sub Form_Load()
* q, w0 L3 W, Q; @
PowerMILL31.Connect psStartPowerMILL
; m8 O$ P* \% }" x. R2 x
End Sub

hh749

PowerMILL31.Execute ("TRANSFORM RESET TRANSFORM TYPE MOVE TRANSFORM MOVEX  " + CStr(-(XMAX - (XMAX - XMIN) / 2)))
1 ]( X% w/ ]1 [$ s2 R# i( t7 n0 n
) |0 R* W, ^, j+ r- p
这个不是自动建立坐标的命令啊

6 |0 R& u* ]2 U5 W$ P4 M; v
要使用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
  S4 G. p: v* q4 Z* K( K你好，我是想在没有建立工作坐标的情况上，把世界坐标移到最高点。你说要使用那个自动建立坐标的命令，应该是自己先产生一个坐标。然后再自动居中，对吗。  可是我的想法是，在没有建立用户坐标的情况下，自动把世界 ...

8 P% L) ]8 Z7 N/ |这个功能JIM会,你问他

hh749

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

" ]/ }/ }6 m8 `4 Q  {, M8 ]9 y. ]
+ ~$ q, q( Z) r2 L9 Z& O
这种情况,我没碰到过

380557319

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

兄弟要的应该是“窗口总在最前端”的代码，论坛上我记的吉米好像发过，你找下，然后加进去试试

dazhi518

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

hh749

dcam_window_ontop hwnd

1 w7 G  d9 l; n0 V8 r4 o# i
模组编程中,用我上面这个代码就可以实现窗体总在最前面(放在定时器事件下)
$ o9 z, g$ y' l1 T" H$ h/ u7 M: G
& \9 g: A6 G8 O' b/ V* G" m! F
( j- i5 ~$ d4 M- i模组代码如下
5 s) S1 H' B0 `' ]2 gPublic Sub dcam_window_ontop( hwnd As Long )
  SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
) q- k7 B( X/ o) WEnd Sub
$ Z. A" X5 ~$ \% J3 M3 Z
% j" Q4 P. [7 T+ N8 F2 E) v[ 本帖最后由 hh749 于 2009-1-3 08:52 编辑 ]

dazhi518

谢谢老大。。。

dazhi518

我把Z轴设在最高点。是这样编的，可是移不到位呀。。还请帮助解决。
; t# r# q  H; A% c2 ]7 a
  Z% v, }4 ]* B8 k, i: sDim ZMAX As Long
' l3 I! I1 o$ \; D- OPowerMILL31.Connect
ZMAX = PowerMILL31.ExecuteEx("PRINT FORMVALUE RoughBlock.LimitFrame.MaxZ")
/ D! U  L% [" O* Y0 i0 DPowerMILL31.Execute ("TRANSFORM RESET TRANSFORM TYPE MOVE TRANSFORM MOVEZ   " + CStr(-ZMAX))
PowerMILL31.Execute ("TRANSFORM MODEL ALL")
PowerMILL31.Disconnect
8 u2 C# ~- |) G
Z轴不在最高点呀，有时候还高出最高点。是什么原因，是不是因为long是长整形数值呀。。。

dazhi518

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

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

hh749

原帖由 dazhi518 于 2009-1-4 18:54 发表 http://www.3dportal.cn/discuz/images/common/back.gif
Z轴移不到位的问题，本人已经自己解决了，原来是变量高错了。我试了一下把long（长整型）改为double(双精度型）。然后就OK了。
( f' r& A. U. M1 R7 b/ y
* S! }( k9 P0 ^还请问老大，怎样模组编程呀。

4 ]: r3 A/ N: l- O


1 U! C& s, A& d5 `3 Y0 }+ p4 I模组编程请看本版快教程
PowerMILL二次开发 高级篇（一） 摆脱PowerSolutionOLE.ocx的噩梦
$ S9 z$ M  k7 r/ ~! P5 y& k
( P. U  q4 g: O) t& B) ?这里是讲模组编程的,如果你不知道模组,那我建议你再去好好学习下VB编程了

傲世浮云

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

kenkp

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

fhqiwmc

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

傲世浮云

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