ich weiss zwar nicht wo der Sinn sein soll aber ich würde es mit VBA lösen entweder bei
EndOpen:
-------------------------------------------------------------------
Public WithEvents ACADApp As AcadApplication ' Use with Application Event Examples
Sub Example_AcadApplication_Events()
Set ACADApp = GetObject(, "AutoCAD.Application")
End Sub
Private Sub ACADApp_EndOpen(ByVal FileName As String)
HIER DEINE ANWEISUNG MIT RTEXT End Sub
--------------------------------------------------------------------
oder mit S::STARTUP
--------------------------------------------------------------------
(defun S::STARTUP()
.
.
.
(command "RTEXT")
)
--------------------------------------------------------------------
------------------
(entmake (entget (entlast)))
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP