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