|
AutoCAD VBA : Infozeile ausgeben
insidERR am 13.01.2009 um 12:36 Uhr (0)
Suuuper !!! Vielen Dank :-)Genau das hab ich gesucht. Meine AutoCAD-Hilfedatei ist beschädigt, konnte deswegen nicht reinschaun.
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Arbeiten mit Dictionaries
alfred neswadba am 13.01.2009 um 12:38 Uhr (0)
Hi,das wird wohl von der Vorlagenzeichnung abhängen, die Du verwendest und ev. auch von einer Applikation, die mit dem Start von AutoCAD mitgestartet wird. Nochmals Hinweis zu ArxDbg, damit kannst Du Dir (relativ) einfach die Einstellungen/Unterpunkte zu diesen Dingen ansehen.- alfred -
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Fasen mit Zusatzfunktion
Stelli1 am 11.10.2006 um 16:50 Uhr (0)
Hallo Dirk,wie Carsten bereits sagte kannst du den Runden/Fasen Befehl nicht als AutoCAD Methode ausführen. Ich schätze jedoch das so eine Funktion trotzdem möglich ist. Wobei ich nicht beurteilen kann ob sich der Aufwand lohnt.Ich würde es so anfangen:- Flag setzen das Befehl aktiv- Mit sendcommand Runden/Fasen Befehl auswählen- Mit den Events für Neu/Ändern die gewählten Objekte merken (in einen Stapel)- Nach dem Event CommandEnd die Extremwerte (Unten links, Oben Rechts) auslesen.- Ein Selectionset über ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Kreisbogen mit 3 Punkten
CAD-Huebner am 12.01.2009 um 22:30 Uhr (0)
in Lisp würde das (mit Command) so aussehen:Code:(defun c:3dbogen( / pa pn pe) (command "_ucs" "_world") (setq pa (getpoint "P1 (Startpunkt):")) (setq pn (getpoint "P2 (Punkt auf Bogen):")) (setq pe (getpoint "P3 (Endpunkt):")) (command "_ucs" "_3p" pa pn pe) ; Bogen über 2 Punkte (command "_arc" (trans pa 0 1)(trans pn 0 1)(trans pe 0 1)) (command "_ucs" "_world")) Die commands lassen sich mit Sendcommand in ähnlicher Form einsetzen, für trans kann man die AutoCAD.Application.ActiveDocument.Util ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Sweeping mit VBA
dechgo am 26.03.2010 um 12:53 Uhr (0)
Hallo zusammen,ich versuche gerade mittels VBA ein Sweeping im AutoCAD zu erstellen:Ich habe mit dem Codebeispiel aus der Hilfe herumgespielt und habe nun folgendes Problem.Anstelle eines Splines möchte ich das Objekt an einer Polylinie sweepen. Über VBA funktioniert dies aber nicht, ich bekomme als Fehlermeldung: "Allgemeiner Modellierungsfehler"Mache ich den Vorgang von Hand direkt in AutoCAD funktioniert es einwadnfrei.In der Hilfe zu "AddExtrudeSolidAlongPath" steht, dass als Pfad eine Polylinie zuläss ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : alle Zeichnungen löschen
Stechi am 15.01.2009 um 13:41 Uhr (0)
Hallo Leute,ich habe mal wieder eine Frage: Ich habe eine dwg-Datei mit mehren Zeichnungen und evt. Bemaßungen und Tabellen, in der ein Rahmen und ein Schriftkopf enthalten ist. Nun möchte ich eine neue dwg-Datei erzeugen, in der der Rahmen und Schriftkopf erhalten bleiiben, aber alles andere gelöscht wird. Geht das mit VBA? Wenn ja, wie?Danke schonmal für die, hoffentliche, eingehenden Ratschläge!GrußMarkus
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Layer mittels Daten aus DB anlegen
idraH am 15.01.2009 um 21:10 Uhr (0)
Hallo,vermutlich habe ich irgendwo einen Denkfehler.Ich möchte verschiedene Layergruppen in einer Datenbank anlegen und von dort wieder abrufen. Der Punkt an dem meine Probleme anfangen ist folgender: Wenn ich die Daten aus der Datenbank auslese um die Layer anzulegen kommt die Strichstärke als String von der Datenbank z.B. "acLnWt050" Autocad benötigt bei der Zuordnung aber einen Wert vom Type ACAD_LWeight als Ergebnis bekomme ich folglich einen TypenkonfliktUnd hier ein Codeschnipsel hoffentlich zur Vera ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Layer mittels Daten aus DB anlegen
alfred neswadba am 15.01.2009 um 21:57 Uhr (0)
Hi,Du kannst die Linienstärle eines Objekts auch mit einem Integerwert zuweisen, dieser Wert entspricht 100*Linienstärke, also z.B. wenn Du einer Linie die Strichstärke von 0.05mm zuweisen willst, dann:tLine.Lineweight = 5Man muss aber wissen, dass nur die laut AutoCAD vordefinierten Werte zu verwenden sind.Hoffe es hilft, - alfred -
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Layer mittels Daten aus DB anlegen
idraH am 15.01.2009 um 22:30 Uhr (0)
Hallo Alfred,das wäre schon eine akzeptable Lösung, da die jetzigen Werte auch dem entsprechen müssen was Autocad verwendet.vielen Dank, damit kann ich erstmal weiterarbeiten,Hartmut
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : ConvertToStaticBlock
runkelruebe am 24.11.2008 um 08:49 Uhr (0)
Hi, hast Du mal Dein MAP als ACAD gestartet?Ich habe in der Vergangenheit festgestellt, dass da Unterschiede auftauchen, siehe auch hier: KLICK, das erklärt zumindest den Teil mit "PS: Das in der Hilfe erwähnte IAcadBlockReference2 Objekt kennt mein Autocad Map gar nicht!"------------------Gruß,runkelruebe Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...System-Info Excel -Suche RuA-Suche FAQ-ACAD Hilfe zu CAD.de
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Layer mittels Daten aus DB anlegen
idraH am 18.01.2009 um 22:21 Uhr (0)
Auch wenn es nicht um die Farbe ging, stimmt das natürlich ;-)(kein Wunder das Autocad mir da komische Sachen draus gemacht hat)
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Linie mit Baloon
Stefan1905 am 19.01.2009 um 09:18 Uhr (0)
Hallo, hier ein Teil des Programmcodes. Der Hintergrund ist: Ich habe ein VBA-Programm für AUTOCAD geschrieben, welches 3D Förderer zeichnet. Nun müssen diese in der Draufsicht Nummeriert (Positioniert) werden. Dazu ist in der Zeichnung bereits ein Block (PosNr6 = Oval) vorhanden, der nun versehen mit Text und Linie eingefügt werden soll, in der Art, daß der Block am Cursor sichtbar hängt, während ich den Endpunkt der Linie mit dem Cursor suche. So, wie ich es hier hingeschrieben habe, gehts aber nicht wie ...
|
| 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 |
