iCAx开思工具箱

标题: 【求助】在catia用vb6.0编译时出现问题 [打印本页]

---

作者: mmcad    时间: 2004-3-28 21:33
标题: 【求助】在catia用vb6.0编译时出现问题
我在vb6。0中编译时老是出现问题，调用里面生成new pad的时候老是通不过，
不晓得什么问题？
catia里面有此函数呀？？
如图

---

作者: mmcad    时间: 2004-3-28 21:34
草图可以生成，但pad不能生成，调试时出现下面的对话框

---

作者: mmcad    时间: 2004-3-28 21:36
请问该怎么处理？？谢谢了，先。。。。。。。。。。。。。。

---

作者: jerryjun    时间: 2004-3-29 22:35
這一行似乎有問題
Dim Pad1 as Pad
好像沒有Pad這種性質
你的程式碼遮住了
看不到前面缺什麼

---

作者: apple_bao_bao    时间: 2004-3-30 19:41
Private Sub CommandButton2_Click()
Dim MyDocuments As Documents
Set MyDocuments = CATIA.Documents
  
Dim MypartDocument As PartDocument
Set MypartDocument = MyDocuments.Add("art")
  
Dim MySpecsAndGeomWindow As SpecsAndGeomWindow
Set MySpecsAndGeomWindow = CATIA.ActiveWindow
  
MySpecsAndGeomWindow.WindowState = catWindowStateMaximized
'以上是窗体初始化
'以下是PAD造型
Dim MyApp As Application
Dim MyDoc As Document
Dim MyPart As Part
Set MyApp = GetObject(, "CATIA.Application")
Set MyDoc = MyApp.ActiveDocument
Set MyPart = MyDoc.Part
Dim MyBody As Body
Set MyBody = MyPart.Bodies.Item("artBody")
  
Dim MyPlane As Plane
Set MyPlane = MyPart.OriginElements.PlaneXY
Dim MySkt As Sketch
Set MySkt = MyBody.Sketches.Add(MyPlane)
MySkt.OpenEdition
Dim MyFact As Factory2D
Dim MyCircle As Circle2D
Set MyFact = MySkt.Factory2D
Set MyCircle = MyFact.CreateCircle(0, 0, 50, 0, 0)
MySkt.CloseEdition
Dim MyPad As Pad
Dim Sf As Factory
Set Sf = MyPart.ShapeFactory
Set MyPad = Sf.AddNewPad(MySkt, 50)
MyPart.Update
End Sub
在V5R10的VBA便宜器中编译通过
  
请把上面的代码也写出来好么？
不然看不到你的代码的全部，也许是其他地方的错误传到这一行上了

---

作者: mmcad    时间: 2004-4-5 17:10

jerryjun wrote:
這一行似乎有問題  
  Dim Pad1 as Pad  
  好像沒有Pad這種性質  
   

谢谢楼上两位，请问那该怎么声明pad呢？

---

作者: ldf1998    时间: 2004-4-25 22:30

apple_bao_bao wrote:
Private Sub CommandButton2_Click()  
  Dim MyDocuments As Documents  
  Set MyDocuments = CATIA.Documents  
   
  Dim MypartDocument As PartDocument  
  Set MypartDocument = MyDocuments.Add("art")  
   
  Dim MySpecsAndGeomWindow As SpecsAndGeomWindow  
  Set MySpecsAndGeomWindow = CATIA.ActiveWindow  
   
  MySpecsAndGeomWindow.WindowState = catWindowStateMaximized  
  '以上是窗体初始化  
  '以下是PAD造型  
  Dim MyApp As Application  
  Dim MyDoc As Document  
  Dim MyPart As Part  
  Set MyApp = GetObject(, "CATIA.Application")  
  Set MyDoc = MyApp.ActiveDocument  
  Set MyPart = MyDoc.Part  
  Dim MyBody As Body  
  Set MyBody = MyPart.Bodies.Item("artBody")  
   
  Dim MyPlane As Plane  
  Set MyPlane = MyPart.OriginElements.PlaneXY  
  Dim MySkt As Sketch  
  Set MySkt = MyBody.Sketches.Add(MyPlane)  
  MySkt.OpenEdition  
  Dim MyFact As Factory2D  
  Dim MyCircle As Circle2D  
  Set MyFact = MySkt.Factory2D  
  Set MyCircle = MyFact.CreateCircle(0, 0, 50, 0, 0)  
  MySkt.CloseEdition  
  Dim MyPad As Pad  
  Dim Sf As Factory  
  Set Sf = MyPart.ShapeFactory  
  Set MyPad = Sf.AddNewPad(MySkt, 50)   
  MyPart.Update  
  End Sub  
  在V5R10的VBA便宜器中编译通过  

为什么上述红色的生成pad的一句无法在VB6。0通过呢，在VBA里已经通过 了，还是应该用别的方式，谢谢了

---

作者: ldf1998    时间: 2004-4-25 22:34
该函数也存在，正如mmcad所贴的一样，pad就是生成不了。
不晓得什么原因，哪位兄弟知道，指点一下，十分感谢！！。。。。

---

欢迎光临 iCAx开思工具箱 (https://t.icax.org/)

Powered by Discuz! X3.3