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

dazhi518

我自己写的VB定义坐标，Z轴差了0。3呀，还望会VB的各位帮帮忙呀。不胜感激。
# S; @$ R+ G4 F; S5 j) I) u; s8 l
* y7 }4 I# m4 p% i, y
! A  N  m! c7 ~- A我是这样写的。

, l: z6 c* W# y; JDim XMAX, XMIN, YMAX, YMIN, ZMAX As Long

PowerMILL31.Connect
: F" W" s' ^9 r- B6 q
PowerMILL31.Execute ("Form BLOCK")

* a8 c) R% m& J$ Z+ uPowerMILL31.Execute ("EDIT BLOCK ALL UNLOCK")
2 q; ^( b, |5 p6 O9 N7 @
PowerMILL31.Execute ("EDIT BLOCK TOLERANCE 0.1")
: u6 d* _0 Q6 i
4 s5 s5 ~/ }( ]2 q' t4 {PowerMILL31.Execute ("EDIT BLOCK RESETLIMIT 0.")
# @" N: Y- W. Z  O% T
, g- W9 g& r9 [! f. ~PowerMILL31.Execute ("EDIT BLOCK RESET")

3 ?! E0 H* J! o. y" uPowerMILL31.Execute ("BLOCK ACCEPT")
0 [. C0 u5 r. D$ B
+ n# U% s/ d* I! DZMAX = PowerMILL31.ExecuteEx("PRINT FORMVALUE RoughBlock.LimitFrame.MaxZ")
0 h2 H- j; ^7 L2 l2 q2 z9 B  @1 w
$ o8 U# Y# G! |9 A8 Z& tXMAX = PowerMILL31.ExecuteEx("PRINT FORMVALUE RoughBlock.LimitFrame.MaxX")
2 H2 x3 e+ x( h( B5 \: s
XMIN = PowerMILL31.ExecuteEx("PRINT FORMVALUE RoughBlock.LimitFrame.MinX")
+ V# I! l9 z6 s: {
& ^+ ]1 T$ m0 aYMAX = PowerMILL31.ExecuteEx("PRINT FORMVALUE RoughBlock.LimitFrame.MaxY")

YMIN = PowerMILL31.ExecuteEx("PRINT FORMVALUE RoughBlock.LimitFrame.MinY")
3 {- R4 F  `* G  C/ x9 V5 J; [
PowerMILL31.Execute ("TRANSFORM RESET TRANSFORM TYPE MOVE TRANSFORM MOVEX  " + CStr(-(XMAX - (XMAX - XMIN) / 2)))
% K! ^" ^: H; f8 v% N9 F
PowerMILL31.Disconnect
" h9 t2 S$ c( p  r2 M
End Sub

Private Sub Form_Load()

1 O# V  S/ }1 P% bPowerMILL31.Connect psStartPowerMILL

End Sub

hh749

PowerMILL31.Execute ("TRANSFORM RESET TRANSFORM TYPE MOVE TRANSFORM MOVEX  " + CStr(-(XMAX - (XMAX - XMIN) / 2)))
  f8 Q+ ~/ [. ?

# ?8 Z6 E8 M' k这个不是自动建立坐标的命令啊

; O, n* |5 X) ]
要使用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
- a& s' N. T1 f. Q+ f" ?5 V你好，我是想在没有建立工作坐标的情况上，把世界坐标移到最高点。你说要使用那个自动建立坐标的命令，应该是自己先产生一个坐标。然后再自动居中，对吗。  可是我的想法是，在没有建立用户坐标的情况下，自动把世界 ...

: v# d0 k; a) N5 B5 \

4 D4 r$ _+ S* d这个功能JIM会,你问他

hh749

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

  i  J  y5 m/ ?7 T


这种情况,我没碰到过

380557319

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

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

dazhi518

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

hh749

dcam_window_ontop hwnd
: k( t9 v$ x. I

模组编程中,用我上面这个代码就可以实现窗体总在最前面(放在定时器事件下)
( {9 W6 Z  U0 j4 V% P
# M+ B  N: M3 z- _6 ]( g- P
模组代码如下
Public Sub dcam_window_ontop( hwnd As Long )
  SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
; F0 k0 K' s4 A& XEnd Sub
, D% u) D+ u9 M( Q6 F  G+ z! o
- p7 a/ L  v- I[ 本帖最后由 hh749 于 2009-1-3 08:52 编辑 ]

dazhi518

谢谢老大。。。

dazhi518

我把Z轴设在最高点。是这样编的，可是移不到位呀。。还请帮助解决。
+ D: o- V5 I  d" P* G
7 U/ C  T# y/ G; U; _Dim ZMAX As Long
/ x* U9 O8 D/ R* }& PPowerMILL31.Connect
2 p# c# |8 l! d2 Y& y1 gZMAX = PowerMILL31.ExecuteEx("PRINT FORMVALUE RoughBlock.LimitFrame.MaxZ")
* V0 |7 E% n6 I  I( S  uPowerMILL31.Execute ("TRANSFORM RESET TRANSFORM TYPE MOVE TRANSFORM MOVEZ   " + CStr(-ZMAX))
+ V0 ^; f, n% W+ v$ sPowerMILL31.Execute ("TRANSFORM MODEL ALL")
PowerMILL31.Disconnect
' k. Y* r  ]5 y6 H
Z轴不在最高点呀，有时候还高出最高点。是什么原因，是不是因为long是长整形数值呀。。。

dazhi518

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

& X* n! v: X) ]! W0 U. k6 `还请问老大，怎样模组编程呀。

hh749

原帖由 dazhi518 于 2009-1-4 18:54 发表 http://www.3dportal.cn/discuz/images/common/back.gif
Z轴移不到位的问题，本人已经自己解决了，原来是变量高错了。我试了一下把long（长整型）改为double(双精度型）。然后就OK了。
! z+ t# e$ b; j! t9 N
0 A# |! n% t# }/ K- Y. G还请问老大，怎样模组编程呀。

( g8 i2 C! e" W& @3 V
8 w9 B! j- q( s4 i9 c

2 w  }+ \8 S9 F模组编程请看本版快教程
2 ^" ?& c' A9 t$ T% c" `1 Y7 O& kPowerMILL二次开发 高级篇（一） 摆脱PowerSolutionOLE.ocx的噩梦

. k" @) ^% b( j" r, W这里是讲模组编程的,如果你不知道模组,那我建议你再去好好学习下VB编程了

傲世浮云

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

kenkp

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

fhqiwmc

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

傲世浮云

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