Tworzenie komentarza za pomocą interfejsu COM

W przypadku korzystania z interfejsu COM (RF-COM lub RS-COM) komentarz można utworzyć za pomocą interfejsu obiektów pomocniczych IGuideObjects. Poniżej znajduje się przykładowy program, który tworzy komentarz:

1. kod.vb#

Sub test_comment ()

' pobierz interfejs z otwartego modelu i zablokuj licencję/program

1. Dim iModel As RFEM5.IModel3
2. Set iModel = GetObject(, "RFEM5.Model")
3. iModel.GetApplication.LockLicense

On Error GoTo e

1. Dim iModelData As RFEM5.IModelData2
2. Set iModelData = iModel.GetModelData
4. Dim iGuiObjects As RFEM5.IGuideObjects
5. Ustaw iGuiObj = iModel.GetGuideObjects
7. Dim comm As RFEM5.Comment
9. ' ustaw typ ramy
10. comm.Frame = CircularFrameType
12. ' ustaw typ obiektu odniesienia
13. comm.ObjectType = GeneralObjectType
14. comm.ObjectNo = 1
16. ' wartość zadana w przypadku wybrania GeneralObjectType
17. comm.Point.X = 2
18. comm.Point.Y = 4
19. comm.Point.Z = 6
21. ' ustaw odsunięcie od obiektu odniesienia
22. comm.Offset.X = 0.5
23. comm.Offset.Y = 1
24. comm.Offset.Z = 1.5
25. comm.Obrót = 1
27. ' ustaw tekst komentarza
28. comm.Text = "komentarz testowy"
30. 'przesyłanie obiektu do programu
31. iGuiObj.PrepareModification
32. iGuiObj.SetComment comm
33. iGuiObj.FinishModification

e: Jeżeli Err.Number <> 0 Wtedy MsgBox Err.Description, , Err.Source

1. Ustaw iModelData = Nic
2. iModel.GetApplication.UnlockLicense
3. Ustaw iModel = Nic

End Sub

1. /kod#

Wybór odniesienia lub elementu, do którego odnosi się komentarz, jest najpierw definiowany przez typ ( ObjectType ). W tym miejscu można wybrać na przykład pręt, węzeł lub dowolny punkt w przestrzeni. Następnie numer obiektu odniesienia jest określany za pomocą opcjiObiekt nr (np. Pręt 1). W przypadku wybrania wolnego punktu jest on określany przez Punkt.

Na koniec można określić odsunięcie wynikające z obiektu odniesienia.

FAQ

[PL] FAQ 004326 | Jak mogę utworzyć komentarz poprzez interfejs COM?

Komentarz utworzony za pomocą interfejsu COM