No.1
仕事爆発中につきRes遅れました…..
さて、GetScaleですが、動きましたよ。
VB内の構文など、何でエラーが出ているかチェックしてみて下さい。
以下コードです。
—————————————–
Private Sub Precess_BG()
Dim Process_Document As zwDrawCAD.Document
Dim PD_denomi As Integer, PD_nume As Integer, PD_ret As Boolean
Process_Document = cadApplication.ActiveDocument
PD_ret = Process_Document.GetScale(PD_denomi, PD_nume)
MsgBox(PD_nume / PD_denomi)
End Sub
————————————–
