|
|
RE: 求助mentor二次开发如何应用在vb6中呢？
安装mentor，在VB里添加COM库：MGCPCB和license就可以编写了。下面是个例子，你摸索下。
: ?5 f. a: t6 n. X9 G3 B7 X) c; a; D! z$ J: g2 s" |
Public Class Form1. z! y. }. m; q9 ]
' Expedition Automation Globals" g! C! E4 b* ^/ X- i/ j7 y. f
Public pcbApp As MGCPCB.Application- t8 _2 w$ `% a1 p: E( K3 S/ F1 [6 Y* d
Public pcbDoc As MGCPCB.Document
) @- R& s4 b- f6 Z
4 ~- K3 ~ R3 [( D1 U) k& O Public Sub MGCPCB_Connect()
: O' p; ?( c: F2 I ' connects to MGCPCB6 }9 b" q9 T; }+ }' D
Dim retVal As Short6 h8 [3 l4 Z, X* w/ \: y3 P8 h8 l
2 k q9 w# ]8 [6 l, ~) h
On Error GoTo OnErrorGetObject
9 }; k7 X/ H5 [5 U% c- q7 [ pcbApp = GetObject(, "MGCPCB.Application")0 |2 n7 g4 h# \3 S0 X
pcbDoc = pcbApp.ActiveDocument. ]4 y) ]+ M1 o, D7 w9 m
, F( r. |9 f2 v6 |1 |' R T" ~ ' make sure the doc is licensed" [2 R" k+ s4 R1 m4 {2 c2 ?! d
retVal = licenseDoc(pcbDoc)
6 a% [- J f$ Y. O! |$ L: n! t9 R- Z. P6 B
If (retVal <> 1) Then pcbDoc = Nothing
0 O9 T: a) p# I! P2 Y1 ]; H7 g8 _" p
Exit Sub5 `6 j' \/ D3 Q \4 u
: l; d6 G/ [# j f. JOnErrorGetObject:
5 D& z/ o; B1 h4 e X MsgBox("MGCPCB needs to be running!", , "Automation Demonstration"); T; l% K' V& y) ]* N ~7 K( l
End Sub
O% j5 r; w z8 ?: D) v& k- L7 P5 v! K
Public Sub MGCPCB_Disconnect()1 i3 D- J; X+ e0 x; Y
' Disconnects from MGCPCB.
/ g. E9 q; E) k7 P pcbDoc = Nothing
; ~! K+ {* J2 b ' Disconnect from MGCPCB server
) b7 ?: B+ g; } pcbApp = Nothing" K: F# O% f h# `1 y
End Sub* K5 @# W9 s1 a9 V% E6 _* ~* ]7 s/ H3 v( G
/ P9 a0 a" P! W( g% o; `& X" [4 S
! {# J# {; ?& u) x
Public Function licenseDoc(ByRef docObj As MGCPCB.Document) As Short
9 `! y+ v; C" Q7 t0 T ' =======================================================================
+ x0 q5 Y+ m) V8 I9 m7 B3 z! e+ U ' Retrieve a licence for the document |+ F( c6 T, |, P1 `8 O- u
' =======================================================================
! O: p+ t' J+ J# ?0 J On Error GoTo exit_with_error- j: l; E+ ^1 O/ H# z5 D1 H
Dim retState As Short
" E3 m. R& g& L. P
4 p0 a( {$ f+ |! C8 T/ M! n" F) e Dim licenseServer As Object K" @: W6 y+ q# a
Dim key As Integer
$ s O# j# L7 p, L Dim licenseToken As Integer' q, w1 }- S0 X0 P n" Y
Dim outErrMess As String
6 W p' s: f- r! ?4 V2 P9 v) F8 o5 f$ n( `
If (docObj Is Nothing) Then GoTo end_of_function4 @0 c! j0 ^8 f
) p, E! F; H7 R, Q) ^ ' Ask the document for a key+ C" C- o! b* F, N. a
key = docObj.Validate(0)
6 J' g; ^) q. V+ F; A$ g
# l! G4 x6 A0 O) z) s8 B* T ' Get license server
1 _4 o$ L5 \3 C On Error GoTo err_create_serverobj
1 u# n, _" g' z' W2 w/ }, [: x licenseServer = CreateObject("MGCPCBAutomationLicensing.Application")
, \* K6 E5 W0 ^9 N; t7 P2 F- q If (licenseServer Is Nothing) Then GoTo err_create_serverobj5 o6 ^ t, J- T$ N# A9 [' n4 F+ Y
On Error GoTo exit_with_error( I* D% |( U8 W" @" K
. ^0 q$ q' h9 |! }# [3 m6 R% a. q% N9 S' F
' Ask the license server for the license token
# j; @6 \; @8 J; M2 X/ t- c6 h licenseToken = licenseServer.GetToken(key)6 O( Y, Y: k+ }( O9 e; g0 l* y
2 \4 f, G% S9 P5 i% ~: X5 E/ \4 D& M3 r
' Validate the document with the license token
4 G2 Z, a' a9 T2 e0 n4 R" g6 z) C( M On Error GoTo err_validate/ i% P4 A$ K# P u
Dim lRetval As Integer
5 M. k' `+ a2 B5 l3 t+ b: d4 M lRetval = docObj.Validate(licenseToken)& k I9 X& y, j
/ L) x8 A. k9 V6 T+ B4 |4 m
On Error GoTo exit_with_error$ h! w& ~# U, X: T. ?) V
: z/ t2 o( V% z9 C) }* ?% X
retState = 1
8 Q B* k. X9 o& U
' ?0 z) f8 Q' `7 g) y3 e4 yend_of_function:
# |4 R9 o% R W8 Y8 o ' release licence server
+ |0 U; Z* O+ q* S licenseServer = Nothing# i7 x' d7 M7 v/ d8 ?
licenseDoc = retState3 M( c& N7 G6 k
9 p+ `$ d6 X% ~6 U& O. ~, h9 D
Exit Function
1 E4 t1 y: l# B; B$ M( Z9 k) m' T c7 `
8 p# s, \# q- Xshow_error:/ V X# n) w% |
Dim ioptions As Integer
! W- R V0 a& c. l. P& Y: A ioptions = MsgBoxStyle.DefaultButton1 + MsgBoxStyle.ApplicationModal + MsgBoxStyle.Critical + MsgBoxStyle.OkOnly
( f# ^# L V3 m% S) Z( [, j. S MsgBox(outErrMess, ioptions, "Retrieving license for document")
. r7 q! b5 U: X- u GoTo end_of_function1 M1 W- |5 ]* ]1 r- U; E# [- [9 k
' B8 J3 u5 [" i0 Y5 ~exit_with_error:" m& Z- o, a( O( R
outErrMess = "** Error ** " & ErrorToString()
$ P$ o& L+ F* K8 x- j5 Z8 O retState = -1- W3 ~, f& C# S( {# @ d( \/ X
GoTo show_error; P l1 o+ L/ a- ?+ O
+ L; @* q! m( R( j3 c) y8 \2 \/ C
err_create_serverobj:# M: W1 h! F5 k4 J. ]; v9 d
outErrMess = "** Error ** Could not create license server object"
5 j0 \* \" V1 e/ N7 i retState = -2+ P7 s. L& i- ?: U
GoTo show_error! t: H/ `% `- f/ r, ~* N, R/ O
% L. j4 i$ Y0 g. Y/ `& Z
err_validate:
7 ~+ y1 F7 `7 X0 {3 w outErrMess = "** Error ** Failed to validate document object"
) V- k3 C- ^; \1 N' k S/ H outErrMess = outErrMess & vbCrLf & " License token : " & Trim(Str(licenseToken))
. K/ k% D7 B; K$ x+ H- X outErrMess = outErrMess & vbCrLf & " Document key : " & Trim(Str(key))
. U! C+ f- ]# m( j" P retState = -3
; H+ D; j, O& Y. D GoTo show_error7 _/ c% z3 N6 O, m2 I& z# e
0 e2 m' |# s+ K, u8 z End Function! ]/ W; p7 c+ I4 m
& V( Y! C7 B! _ ' your code |
|
/1 
发表于 2019-4-1 16:46
收藏
淘帖
支持！
反对！
楼主
发表于 2019-4-2 10:11
知道你随时会现身的
