如何获取当前PM项目路径

chn8

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

eilai

print entry toolpath好像是这样

chn8

谢谢你的解答，我是想问另外一个变量。
- T+ q. n) E3 K6 k, z- r& t
可能我说得不够清楚，我是想获得文件的目录。比喻我这个编程档命名是M001，在 E：\Work下 得到的结果就是E：\Work\M001

freeman02

print value project
3 O' a& u8 D4 a4 d# F3 R
$ N2 u5 r% X8 Z/ F7 q你试试。
goodlucky

chn8

我现在编的代码，请问错误码的地方应该怎么改？谢谢！！
Private Sub Form_Activate()
dcam_window_ontop hwnd
Me.Hide
Dim output As String
4 q. U9 w' L, W8 I& FPowerMILL31.Connect psStartPowerMILL
Dim PATH As String
. P* S" O$ ^- U0 V8 W9 M7 wPATH = PowerMILL31.ExecuteEx("PRINT VALUE PROJECTPATH")
PowerMILL31.Execute ("KEEP BITMAP FILESAVE " & PATH & "\iso.JPG" & " yes")
9 ?" h, t* D3 V* y4 ~Unload Me
; [7 g) v6 Y1 r) bEnd Sub

chn8

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

freeman02

" S" ]4 i. |) U
您的 文件路径要用冒号括起来！
1 a" ^3 w) Y$ W1 d6 I, o8 a2 M"KEEP BITMAP FILESAVE ‘" & PATH & "\iso.JPG" & "’ yes")

chn8

您的 文件路径要用冒号括起来！
. C5 N5 H$ S+ @0 f( C"KEEP BITMAP FILESAVE ‘" & PATH & "\iso.JPG" & "’ yes")
freeman02 发表于 2010-1-15 07:15 http://www.3dportal.cn/discuz/images/common/back.gif

& r6 B- c  ]; m9 P% q1 k3 o4 F
我试了一下不行呀，你能不能把整个代码写完整让我学习一下？麻烦你了！！

freeman02

你的Path字符串中有回车符吧！ String.Trim()将其删除.
' q2 O/ w- e, L: u8 _; K( V, w2 s你要详细检查。

chn8

你的Path字符串中有回车符吧！ String.Trim()将其删除.
% T+ p1 d" v8 `" t你要详细检查。
) q" r6 d5 n/ O6 D; U. Cfreeman02 发表于 2010-1-15 13:01 http://www.3dportal.cn/discuz/images/common/back.gif

你好，我不会String.Trim()
4 {/ a& n/ N; O! G我最近这两天一直自己在试着去做但都是做不好，还是要麻烦你。
你能帮我看一下错误在哪里吗？或者发个VB工程档给我学习一下？麻烦你了！
Private Sub Form_Activate()
dcam_window_ontop hwnd
Me.Hide
PowerMILL31.Connect psStartPowerMILL
Dim path As String
) t& J& A. [" l+ I3 f  A* d, lpath = PowerMILL31.ExecuteEx("Print Value PROJECTpath"

PowerMILL31.Execute ("KEEP BITMAP FILESAVE '" & path & "\ISO.jpg" & "' yes")
Unload Me
. H( b" Z7 q" s, j+ Y3 C& ?+ Q
End Sub

jackywang08

( y+ l! j. h+ V9 e
0 f0 \" t  S4 u2 S+ N+ A0 n" ]插入红色部分即可
% D$ p, L& a4 O+ @  pPrivate Sub Form_Activate()
, d2 _0 ?. ?0 I0 Kdcam_window_ontop hwnd
Me.Hide
; c- f$ N6 _0 Y6 n" h$ aDim output As String
" }' ]' j0 O/ U3 w9 Z5 c1 MPowerMILL31.Connect psStartPowerMILL
" B& ~# L3 D0 o5 S5 s' j6 T9 ~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)
8 G3 q- ~+ H, W7 o2 CPowerMILL31.Execute ("KEEP BITMAP FILESAVE " & PATH & "\iso.JPG" & " yes")
% O" _6 Z) q0 C- {( k# YUnload Me
( _/ c3 k$ E, w/ d0 l1 G6 z9 Z7 KEnd Sub

chn8

插入红色部分即可
Private Sub Form_Activate()
dcam_window_ontop hwnd
8 i9 j2 h# g& r. oMe.Hide
" I- o# E) ~/ P/ x! f2 h* J" ?Dim output As String
! Y! m5 I7 O- h9 A1 SPowerMILL31.Connect psStartPowerMILL
" T- I0 K4 Q( \- L/ R' RDim PATH As String
PATH = PowerMILL31.ExecuteEx("PRINT VALU ...
* U- n* J2 U/ ?jackywang08 发表于 2010-1-20 11:31 http://www.3dportal.cn/discuz/images/common/back.gif

8 B) X- @) T$ R8 }+ G

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

liubo.focus

print value PROJECTPATH

zwz9

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