---

Moin !

ich soll in sehr großen zeichnungen die xref-eigenschaften verändern und würde am liebsten die zeichnungen hierfür gar nicht erst öffnen müssen.

gibt es einen weg dieses eigenschaften mit vba auszulesen und dann diese ggf. zu manipulieren ??

gruß Jan :-)

------------------
jan :-)

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

---

Hallo Jan,

such doch mal im Forum nach ObjectDBX. Damit gehts.

schöne Grüsse aus Italien
Stelli

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

---

moin !

ich habe in diesem zusammenhang folgenden link gefunden:

http://ww3.cad.de/foren/ubb/Forum259/HTML/000089.shtml#000003

dort wird auf folgenden code verwiesen:

Code:

---

Dim Object As AcadEntity
Dim objDbx As AxDbDocument
Set objDbx = ThisDrawing.Application.GetInterfaceObject("ObjectDBX.AxDbDocument")
...

objDbx.Open (fle)

  For Each Object In objDbx.ModelSpace
    Debug.Print Object.Color
   
    Object.Color = acByBlock    'das macht er nicht
 
  Next

---

der nachfolgende datei erfordert:

axdb15.dll

wenn ich unter 2006 die axdb16.dll, aus dem acad-installationsverzeichnis, registrieren will bekomme ich auf unterschiedlichen rechnern nur fehlermeldungen, dass die registrierung nicht möglich ist.

hat das einer von euch hinbekommen ?

gruß Jan :-)

------------------
jan :-)

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

---

Hallo Jan,

Ich meine, das die axdb16.dll ab AutoCAD 2004 schon mitinstalliert /registriert wird. Durchsuche doch mal deine Registry nach der dll. Da wirst du sichr fündig werden.

Gruß, Carsten

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

---

hi !

die datei habe ich nicht gefunden aber eine axdb16enu.dll !

kann es sein, dass diese denselben sinn erfüllt ?

habe hierzu folgenden link gefunden:

http://jtbworld.blogspot.com/2006/01/copy-dimstyles-between-drawings-using.html

mit folgendem code:

Code:

---

' Add reference to AutoCAD/ObjectDBX Common 16.0 Type Library (axdb16enu.dll)
' This samples copies all dimstyles from specified drawing to the current drawing
' Existing dimstyles are not affected
Public Sub ImportDimstyles()
  Dim oAxDbDoc As New AxDbDocument
  oAxDbDoc.Open "c:\DimStyles.dwg"
  Dim oObj() As Object
  Dim oDs As AcadDimStyle
  Dim i As Integer
  For i = 0 To oAxDbDoc.DimStyles.Count - 1
      ReDim Preserve oObj(i)
      Set oObj(i) = oAxDbDoc.DimStyles(i)
  Next
  oAxDbDoc.CopyObjects oObj, ThisDrawing.Database.DimStyles
End Sub

---

gruß Jan :-)

------------------
jan :-)

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