öncelikle selamlar. ben autocad üzerinde vb kodu yazıyorum(yazmaya çalışıyorum). doğru yerde miyim bilmiyorum. bu konuda nerden yardım alabilirim.elimde yazdığım bir iki şey var ama çalışmıyorlar.
bir de yazdığım bir kodu ya da makroyu nasıl projemle birlikte çalıştırıırm
Dim objLine As New clsObjectEvent
Public Sub InitializeEvent()
Dim dblStart(2) As Double
Dim dblEnd(2) As Double
dblEnd(0) = 1: dblEnd(1) = 1: dblEnd(2) = 0
Set objLine.objLine = ThisDrawing.ModelSpace.AddLine(dblStart, dblEnd)
End Sub
Dim objLine As New clsObjectEvent
Public Sub InitializeEvent()
Dim dblStart(2) As Double
Dim dblEnd(2) As Double
dblEnd(0) = 1: dblEnd(1) = 1: dblEnd(2) = 0
Set objLine.objLine = ThisDrawing.ModelSpace.AddLine(dblStart, dblEnd)
End Sub
Private Sub objLine_Modified(ByVal pObject As AutoCAD.IAcadObject)
Dim varStartPoint As Variant
Dim varEndPoint As Variant
varStartPoint = pObject.StartPoint
varEndPoint = pObject.EndPoint
MsgBox "New line runs from (" & varStartPoint(0) & ", " & _
varStartPoint(1) & ", " & varStartPoint(2) & " ) to (" & _
varEndPoint(0) & ", " & varEndPoint(1) & ", " & varEndPoint(2) & ")."
End Sub
bı kod bloğu neden çalışmıyor çözemedim.
iyi gunler
