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

dazhi518 · 发表于 2008-12-31 13:07:33

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

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

我是这样写的。

Dim XMAX, XMIN, YMAX, YMIN, ZMAX As Long

PowerMILL31.Connect

PowerMILL31.Execute ("Form BLOCK")

PowerMILL31.Execute ("EDIT BLOCK ALL UNLOCK")

PowerMILL31.Execute ("EDIT BLOCK TOLERANCE 0.1")

PowerMILL31.Execute ("EDIT BLOCK RESETLIMIT 0.")

PowerMILL31.Execute ("EDIT BLOCK RESET")

PowerMILL31.Execute ("BLOCK ACCEPT")

ZMAX = PowerMILL31.ExecuteEx("PRINT FORMVALUE RoughBlock.LimitFrame.MaxZ")

XMAX = PowerMILL31.ExecuteEx("PRINT FORMVALUE RoughBlock.LimitFrame.MaxX")

XMIN = PowerMILL31.ExecuteEx("PRINT FORMVALUE RoughBlock.LimitFrame.MinX")

YMAX = PowerMILL31.ExecuteEx("PRINT FORMVALUE RoughBlock.LimitFrame.MaxY")

YMIN = PowerMILL31.ExecuteEx("PRINT FORMVALUE RoughBlock.LimitFrame.MinY")

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

PowerMILL31.Disconnect

End Sub

Private Sub Form_Load()

PowerMILL31.Connect psStartPowerMILL

End Sub

hh749 · 发表于 2009-1-1 11:02:59

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

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

要使用CREATE WORKPLANE命令,然后再对个轴坐标赋值

dazhi518 · 发表于 2009-1-1 11:22:08

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

dazhi518 · 发表于 2009-1-1 17:28:07

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

hh749 · 发表于 2009-1-1 21:43:11

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

这个功能JIM会,你问他

hh749 · 发表于 2009-1-1 21:43:50

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

这种情况,我没碰到过

380557319 · 发表于 2009-1-2 07:29:00

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

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

dazhi518 · 发表于 2009-1-2 18:12:03

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

hh749 · 发表于 2009-1-3 08:48:52

dcam_window_ontop hwnd

模组编程中,用我上面这个代码就可以实现窗体总在最前面(放在定时器事件下)

模组代码如下
Public Sub dcam_window_ontop( hwnd As Long )
SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub

[ 本帖最后由 hh749 于 2009-1-3 08:52 编辑 ]

dazhi518 · 发表于 2009-1-4 10:23:51

谢谢老大。。。

dazhi518 · 发表于 2009-1-4 17:05:09

我把Z轴设在最高点。是这样编的，可是移不到位呀。。还请帮助解决。

Dim ZMAX As Long
PowerMILL31.Connect
ZMAX = PowerMILL31.ExecuteEx("PRINT FORMVALUE RoughBlock.LimitFrame.MaxZ")
PowerMILL31.Execute ("TRANSFORM RESET TRANSFORM TYPE MOVE TRANSFORM MOVEZ " + CStr(-ZMAX))
PowerMILL31.Execute ("TRANSFORM MODEL ALL")
PowerMILL31.Disconnect

Z轴不在最高点呀，有时候还高出最高点。是什么原因，是不是因为long是长整形数值呀。。。

dazhi518 · 发表于 2009-1-4 18:54:33

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

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

hh749 · 发表于 2009-1-4 20:36:00

原帖由 dazhi518 于 2009-1-4 18:54 发表 http://www.3dportal.cn/discuz/images/common/back.gif
% |! O# n5 }9 a3 b7 {" m2 @" BZ轴移不到位的问题，本人已经自己解决了，原来是变量高错了。我试了一下把long（长整型）改为double(双精度型）。然后就OK了。
- l3 ]4 v1 p, P
1 ?& ^7 S, r0 c9 d. z还请问老大，怎样模组编程呀。

模组编程请看本版快教程
PowerMILL二次开发高级篇（一）摆脱PowerSolutionOLE.ocx的噩梦

这里是讲模组编程的,如果你不知道模组,那我建议你再去好好学习下VB编程了

傲世浮云 · 发表于 2010-6-19 04:22:29

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

kenkp · 发表于 2010-6-19 05:06:25

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

fhqiwmc · 发表于 2010-6-21 12:40:39

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

傲世浮云 · 发表于 2010-6-22 00:50:22

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

		自动登录	找回密码
密码			注册

通知

[已解决] 自动定坐标的出现问题了。

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块