如何获取当前PM项目路径

chn8

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

eilai

print entry toolpath好像是这样

chn8

谢谢你的解答，我是想问另外一个变量。
0 K' u& Z! `4 c! }+ R
可能我说得不够清楚，我是想获得文件的目录。比喻我这个编程档命名是M001，在 E：\Work下 得到的结果就是E：\Work\M001

freeman02

print value project
( x. |& [+ X5 c; z. a4 q
2 w( x' G4 X4 u; L你试试。
goodlucky

chn8

我现在编的代码，请问错误码的地方应该怎么改？谢谢！！
! u2 u7 U1 l  \% aPrivate Sub Form_Activate()
dcam_window_ontop hwnd
Me.Hide
Dim output As String
1 i: n) ^) Q& n3 MPowerMILL31.Connect psStartPowerMILL
Dim PATH As String
+ H1 L; h( Q: ~4 |8 j) mPATH = PowerMILL31.ExecuteEx("PRINT VALUE PROJECTPATH")
PowerMILL31.Execute ("KEEP BITMAP FILESAVE " & PATH & "\iso.JPG" & " yes")
* ^/ G/ z5 \4 X, H% r8 fUnload Me
7 }! z5 [" H- U; v, X) u: T; sEnd Sub

chn8

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

freeman02

/ M! O/ g, Z* s& q' w
) F3 b3 ]; U4 H! N5 ?( b您的 文件路径要用冒号括起来！
# N% g. t  V3 W/ R6 J: B' V"KEEP BITMAP FILESAVE ‘" & PATH & "\iso.JPG" & "’ yes")

chn8

您的 文件路径要用冒号括起来！
. j8 l8 n  c4 C"KEEP BITMAP FILESAVE ‘" & PATH & "\iso.JPG" & "’ yes")
9 o' V0 T- `9 M! Y$ k* n& |freeman02 发表于 2010-1-15 07:15 http://www.3dportal.cn/discuz/images/common/back.gif

! P; a9 w, l0 E3 E' c9 h
我试了一下不行呀，你能不能把整个代码写完整让我学习一下？麻烦你了！！

freeman02

你的Path字符串中有回车符吧！ String.Trim()将其删除.
3 \& K' I7 A( E: D8 D你要详细检查。

chn8

你的Path字符串中有回车符吧！ String.Trim()将其删除.
+ c* I( ~' g" a8 H2 l& s# m1 s你要详细检查。
- s7 N0 F4 K7 u& hfreeman02 发表于 2010-1-15 13:01 http://www.3dportal.cn/discuz/images/common/back.gif

: l# s1 F; i. o) j; h, B; p3 m6 {
你好，我不会String.Trim()
$ J0 Y2 u4 c- u! w6 U, X我最近这两天一直自己在试着去做但都是做不好，还是要麻烦你。
你能帮我看一下错误在哪里吗？或者发个VB工程档给我学习一下？麻烦你了！
: [# c+ E: e1 y- R% I3 zPrivate Sub Form_Activate()
& `6 ?. E# ^+ D1 K0 Fdcam_window_ontop hwnd
Me.Hide
2 w0 @4 U, |% O! G; F$ Z$ APowerMILL31.Connect psStartPowerMILL
Dim path As String
$ b/ e6 c9 ^+ G# r# v: Kpath = PowerMILL31.ExecuteEx("Print Value PROJECTpath"

PowerMILL31.Execute ("KEEP BITMAP FILESAVE '" & path & "\ISO.jpg" & "' yes")
5 m( j  \2 c" O  t4 }! s" m) q: KUnload Me
+ c! a5 J7 ~. Z% M) u! n
$ y% I0 I# e/ a6 p% H0 cEnd Sub

jackywang08

$ U  i4 a+ R0 ~- P: o$ X' N. G& J- v' h& K插入红色部分即可
% ]9 G/ A- M5 V3 R& `* r5 W: UPrivate Sub Form_Activate()
5 W. r# P1 U7 i  S5 |5 _dcam_window_ontop hwnd
Me.Hide
Dim output As String
+ ^- {- Z. N& \4 F: X" P8 jPowerMILL31.Connect psStartPowerMILL
Dim PATH As String
PATH = PowerMILL31.ExecuteEx("PRINT VALUE PROJECTPATH")
& s- q9 [2 q$ s7 WPATH = pm.ExecuteEx("print value projectpath")
PATH = Replace(PATH, "/", "\")
PATH = Mid(PATH, 1, Len(PATH) - 2)
8 w7 g& T. K6 M& VPowerMILL31.Execute ("KEEP BITMAP FILESAVE " & PATH & "\iso.JPG" & " yes")
7 S( V" ^- u1 T) ~; K) X& NUnload Me
0 z# H1 b. Q/ q) cEnd Sub

chn8

插入红色部分即可
6 z1 K" G: ~8 R; tPrivate Sub Form_Activate()
- X* Z  K$ i, idcam_window_ontop hwnd
Me.Hide
Dim output As String
2 |* v+ c& H: c4 t7 t9 b# YPowerMILL31.Connect psStartPowerMILL
6 w4 Y& {8 k6 d9 m) ADim PATH As String
5 w- b2 F5 G" G5 B6 jPATH = PowerMILL31.ExecuteEx("PRINT VALU ...
jackywang08 发表于 2010-1-20 11:31 http://www.3dportal.cn/discuz/images/common/back.gif

! b- d0 M( c/ L& g, ^* w3 f7 }

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

liubo.focus

print value PROJECTPATH

zwz9

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