|
Autocad VBA : Attribute mit Excel abgleichen
startrek am 08.02.2006 um 21:04 Uhr (0)
Hi Sven, Warum steht dort einmal FType% mit Prozent?Ich - manchmal faul;-)Also das % ist die Kurznotation von Integer, e.g. Dim i% == Dim i as integerCode:& == long # == double$ == string ! == single Was pasiert hier mit acSelectionSetAll?lt. F2: Const acSelectionSetAll = 5 | Element von AutoCAD.AcSelectDas ist nur eine acadinterne Konstante, der kann man keine Paramater übergeben, sondern sie selbst ist ein Parameter. Übergeben wird hier an die select Methode [hit mal F1]Die Kommas stehen für weitere op ...
| | In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Block mit bestimmten Attribut
alfred neswadba am 21.01.2009 um 23:44 Uhr (0)
Hi,anbei ein Beispiel, das Du an die Stelle setzen kannst, an der feststeht, dass die Blockreference gefunden ist. Dann wird das angesprochene sssetfirst gemacht. Ich hoffe es passt für Dich so Code:zuerst mal hinzoomenDim tMin As VariantDim tMax As VariantCall tBlRef.GetBoundingBox(tMin, tMax)Call ThisDrawing.Application.ZoomWindow(tMin, tMax)und jetzt gripzuerst bestehende selection loeschen (bei map 2* aufrufen)Call ThisDrawing.SendCommand("(sssetfirst nil nil)")dann erzeugen damit ein selectionset basi ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blocktausch und Datentransfer
steffen.katzschke am 30.09.2008 um 17:06 Uhr (0)
Windows 2000 +SP4, ACAD 2000Ich mußte mal wieder das alte CAD reaktivieren, da bei LT-Versionen die VBA-Schnittstelle fehlt.Aus einem CAE-System wurden Pläne exportiert. Diese dwg-Zeichnungen haben Zeichnungsrahmen. Die Zeichnungsrahmen sind als Blöcke angelegt. Diese enthalten Attribute mit Daten, die per Dialog editierbar sind.Folgende Punkte sind zu erledigen - Erkennen des Rahmens, - Auslesen der Attribute, - externe Speicherung der Daten, - Löschen des Rahmens, - Einsetzen eines neuen Rahmens (Block), ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blockattribute aus einer Zeichnung und in Excel übergeben
KAME am 09.04.2013 um 19:13 Uhr (0)
Hallo Klaus,hab mal aufgeräumt und die Definitionen geändert.weiters hab ich auf 4 Blöcke erweitertCode: Dim AngBracDwg As String Dim Block1, Block2, Block3, Block4 As String Block1 = Cells(2, 26 + 7).Text Block2 = Cells(3, 26 + 7).Text Block3 = Cells(4, 26 + 7).Text Block4 = Cells(5, 26 + 7).Text For intSel = 1 To Selection.Count AngBracDwg = Selection.Item(intSel).Text tAcadApp.Documents.Open (AngBracDwg)..................................................................................... ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Autocad aus Excel heraus ansprechen
Stelli1 am 20.02.2008 um 17:29 Uhr (0)
Hallo Ines,ich glaube in deinem Code ist etwas vermischt.In VB/VBA hast du die Möglichkeit auf die ActiveX Schnittstelle anderer Anwendungen zuzugreifen. Die Schnittstelle stellt Eigenschaften, Methoden, Funktionen und Events zu Verfügung.In VB erzeugst du mit Code:Set acApp = CreateObject("Autocad.Application")eine neue Instanz der Aktuellen AutoCAD Version. Hast du mehrere Versionen auf einem Rechner kann der "Klassenname" eventuell den Zusatz der Version besitzen (z.B. Autocad.Application.16 bei AutoCAD ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Mittels Access einen Block aus einer .dwg (Bibliothek) in eine andere .dwg einfügen
PaterPen am 09.10.2009 um 10:23 Uhr (0)
Guten Morgen Alfred,hab mir die Zeit genommen, deine Vorschläge zu durchdenken und zu testen: Zitat:a) Du baust mit AutoCAD-VBA das Form der Suchselektion von Access nach und greifst nur auf die MDB mittels SQL/RecordSets zuDiese Lösung hört sich für mich richtig fein an. Zum Durchdenken gab es da aber nicht viel, da mir schlicht und einfach das Knowhow in Sachen VBA, speziell beim Zugriff auf Datenbanken, fehlt. Zitat:b) Du schreibst mit Hilfe von Access die Symbole Deiner Symbolzeichnung in Einzeldateien ...
| | In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Schrittweise Auswertung der Zeichnung mit SelectAtPoint
Sagu am 16.03.2007 um 10:13 Uhr (0)
Guten Morgen Stelli1,die Tips die Du mir gegeben hast laufen in AutoCAD super. Das Problem entsteht, wenn ich die Sachen in mein Excel Makro übernehme. Mein Code sieht wie folgt aus:Sub X() Dim i As Integer Dim kx As Double Dim ky As Double Dim r As Double Dim ThisDrawing As AcadDocument Dim centerPoint(0 To 2) As Double Dim radius As Double Dim hatchObj As AcadHatch Dim kreis(0 To 0) As AcadEntity Dim patternName As String Dim PatternType As Long Dim bAssociativity As Boolean Daten der ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Auslesen von Blockeigenschaften mittels VBA möglich?
Brischke am 09.11.2004 um 13:49 Uhr (0)
Hallo kiltswitch, Zitat: Original erstellt von kiltswitch: ...Habe trotzdem mal noch eine Frage: Bei der Programmierung der automatisierten Mastzusammensetzung benötige ich wohl definitiv eine Datenbank? Ohne die würde das nicht gehen, oder? Ich muß das wissen, um mein Konzept fortführen zu können. Holger gab mir den Ratschlag, alle Bauteile zu katalogisieren und von denen die technischen Eigenschaften zu ermitteln, die zur eindeutigen Zuordnung einer Bauteildatei notwendig sind. Diese Eigenschaften s ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Suchen/Ersetzen via RegExp
startrek am 17.09.2004 um 13:32 Uhr (0)
Hallo zusammen, ich hab mal versucht Bernd s [bst] RegexReplace für Excel auf ein Selectionset umzustricken, da ich die Idee ganz nett fand. Funktioniert aber nur für DTexte ;-) Ganz unten noch eine kleine Erklärung zum Suchen/Ersetzen, hier erstmal der Code, vielleicht kanns ja wer mal brauchen: Code: Verweis auf Microsoft VBScript Regular Expressions 5.5 setzen Option Explicit Sub such_ersetz() Dim stext As AcadText Dim such$, ersetz$ With ActiveDocument such = .Utility.GetString(1 ...
| | In das Form Autocad VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
