---

Hallo
Ich hab ein kleines VB Programm geschrieben womit man 
Elemente in MegaCad erzeugen kann.
Bei dem einfügen von Macros sollen Eigenschaften über die
Callback Funktion geändert werden.
Das Ändern funktioniert aber nicht.
Wieso ?

Gruss Atlas

Function CallBack_Symbol(ByRef ent As t_entity) As Integer

  ent.attr.iID = nSymboliID  'nSymboliID ist Public und wird in Zeichne_Symbol gesetzt

  If ent.iType = E_LINE Then ' zum Test mal rot machen
    ent.attr.col = 12
  End If

  CallBack_Symbol = (CONTINUE_LOOP Or CALL_SAVECOUNT)
   
End Function

Public Sub Zeichne_Symbol(MCG As t_Mcg)
Dim ent As t_entity
Dim pmac As t_placemac
Dim bCount As Byte
Dim CU As Currency
Dim l As Long
  fname = MCG.Symbol.cMacroDateiPfad
  pmac.flags = FM_TAKE_DPT3D Or FM_TAKE_PHI Or FM_TAKE_FAC Or FM_EXCLUSIVE
  pmac.Pnt3d.x = MCG.Symbol.Koor.dx
  pmac.Pnt3d.y = MCG.Symbol.Koor.dy
  pmac.Pnt3d.z = MCG.Symbol.Koor.dZ
  pmac.fac = MCG.Symbol.SizeSkalDreh.dSkalierungsfaktor 
  pmac.phi = MCG.Symbol.SizeSkalDreh.dDrehwinkel         
  nSymboliID = MCG.Symbol.nInfoID
  ent.attr.col = 12
 
  ' Save_DBinfo wurde vorher aufgerufen und führt "StoreInfo" aus
  ' Call Save_DBinfo(MCG.Symbol.nInfoID, MCG.Symbol.cDbinfo)
 
  CU = InsertMacro(fname, AddressOf CallBack_Symbol, ent, NO_t_mat44, pmac)

End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Atlas,

ich kenne mich zwar überhaupt nicht mit VB aus, da ich mich ausschließlich nur mit C beschäftige, aber ich ich denke, das der Aufruf der Funktion ExChangeEntity in der Callback-Funktion fehlt, oder habe ich das nur übersehen???

Die If-Abfrage würde ich so gestalten:

If ent.iType = E_LINE Then ' zum Test mal rot machen
    ent.attr.col = 12
    Call ExChangeEntity(ent, NO_t_mat44)
End If

Also einfach mal testen...Viel Erfolg.

Viele Grüße

Bernd Knoop  )

------------------
-Megatech Software GmbH-
-Niederlassung Nord-

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP