如何获取当前PM项目路径

chn8 · 发表于 2010-1-14 00:49:59

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

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

x

请问在VB里怎么获取PM项目的路径呀，谢谢！！！

eilai · 发表于 2010-1-14 07:44:14

print entry toolpath好像是这样

chn8 · 发表于 2010-1-14 20:39:47

谢谢你的解答，我是想问另外一个变量。

可能我说得不够清楚，我是想获得文件的目录。比喻我这个编程档命名是M001，在 E：\Work下得到的结果就是E：\Work\M001

freeman02 · 发表于 2010-1-14 21:25:44

print value project

你试试。
goodlucky

chn8 · 发表于 2010-1-15 00:05:00

我现在编的代码，请问错误码的地方应该怎么改？谢谢！！
Private Sub Form_Activate()
dcam_window_ontop hwnd
Me.Hide
Dim output As String
PowerMILL31.Connect psStartPowerMILL
Dim PATH As String
PATH = PowerMILL31.ExecuteEx("PRINT VALUE PROJECTPATH")
PowerMILL31.Execute ("KEEP BITMAP FILESAVE " & PATH & "\iso.JPG" & " yes")
Unload Me
End Sub

chn8 · 发表于 2010-1-15 00:06:51

目录应该是E:\pm_work\3D\001\ 才是正确的！但我不知道怎么做成那样子！

freeman02 · 发表于 2010-1-15 07:15:44

本帖最后由 freeman02 于 2010-1-15 07:17 编辑

您的文件路径要用冒号括起来！
"KEEP BITMAP FILESAVE ‘" & PATH & "\iso.JPG" & "’ yes")

chn8 · 发表于 2010-1-15 09:42:41

您的文件路径要用冒号括起来！
% _4 `5 }% f, v, H3 u"KEEP BITMAP FILESAVE ‘" & PATH & "\iso.JPG" & "’ yes")
. W0 R/ _( w1 d9 H/ L4 @* F2 Dfreeman02 发表于 2010-1-15 07:15 http://www.3dportal.cn/discuz/images/common/back.gif

我试了一下不行呀，你能不能把整个代码写完整让我学习一下？麻烦你了！！

freeman02 · 发表于 2010-1-15 13:01:01

你的Path字符串中有回车符吧！ String.Trim()将其删除.
你要详细检查。

chn8 · 发表于 2010-1-20 01:10:12

你的Path字符串中有回车符吧！ String.Trim()将其删除.
" i6 R5 m6 Y/ Y1 g你要详细检查。& p* ]" I# |0 b4 S: ?% A2 b+ W6 R( x
freeman02 发表于 2010-1-15 13:01 http://www.3dportal.cn/discuz/images/common/back.gif

你好，我不会String.Trim()
我最近这两天一直自己在试着去做但都是做不好，还是要麻烦你。
你能帮我看一下错误在哪里吗？或者发个VB工程档给我学习一下？麻烦你了！

Private Sub Form_Activate()
dcam_window_ontop hwnd
Me.Hide
PowerMILL31.Connect psStartPowerMILL
Dim path As String
path = PowerMILL31.ExecuteEx("Print Value PROJECTpath"

PowerMILL31.Execute ("KEEP BITMAP FILESAVE '" & path & "\ISO.jpg" & "' yes")
Unload Me

End Sub

jackywang08 · 发表于 2010-1-20 11:31:21

本帖最后由 jackywang08 于 2010-1-20 16:58 编辑

插入红色部分即可
Private Sub Form_Activate()
dcam_window_ontop hwnd
Me.Hide
Dim output As String
PowerMILL31.Connect psStartPowerMILL
Dim PATH As String
PATH = PowerMILL31.ExecuteEx("PRINT VALUE PROJECTPATH")
PATH = pm.ExecuteEx("print value projectpath")
PATH = Replace(PATH, "/", "\")
PATH = Mid(PATH, 1, Len(PATH) - 2)
PowerMILL31.Execute ("KEEP BITMAP FILESAVE " & PATH & "\iso.JPG" & " yes")
Unload Me
End Sub

chn8 · 发表于 2010-1-20 19:07:16

插入红色部分即可
" G1 k/ U. b: Z' U4 P3 S! A( X) TPrivate Sub Form_Activate()- ?& S; _+ ?- ]; Y3 N* _
dcam_window_ontop hwnd
4 R' N0 ^' _* g/ ZMe.Hide9 z* b3 f3 J0 E4 o& I3 e$ {# G( o* _
Dim output As String! Y6 p$ a- f* @ ?, R% U. l7 D$ g( M% o
PowerMILL31.Connect psStartPowerMILL
; y; G. ?3 @( `, R& t- C. ^4 rDim PATH As String/ x* u8 U' n/ ^0 L- B
PATH = PowerMILL31.ExecuteEx("PRINT VALU ...1 c% H' U! ]4 H1 Q
jackywang08 发表于 2010-1-20 11:31 http://www.3dportal.cn/discuz/images/common/back.gif

这次可以了，超级感谢！！！

liubo.focus · 发表于 2010-10-16 16:17:45

print value PROJECTPATH

zwz9 · 发表于 2010-10-16 19:40:32

看了一下不咋的懂以后学习吧

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

通知

[已解决] 如何获取当前PM项目路径

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

评分

评分

浏览过的版块