|
Autocad VBA : Auslesen von Blockeigenschaften mittels VBA möglich?
Brischke am 09.11.2004 um 15:32 Uhr (0)
Zitat: Original erstellt von kiltswitch: ...AutoCAD DesignCenter, keine Datenbank...? ... Nur mal zur Info. Jede Zeichnung ist auch nur eine Datenbank. Diese hat nur ein spezielles FrontEnd, welches die Daten nicht in Tabellenform, sondern eben in Linien und Kreisen wiedergibt bzw eingegeben haben möchte. Der Befehl Wahl in Verbindung mit Filter ist im Grunde eine Select-Anweisung speziell für diese Zeichnungsdatenbank konzipiert. Daran siehst du, dass diese Datenbank nicht so einfach zu handhaben ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
mapcar am 23.11.2004 um 14:22 Uhr (0)
@kiltswitch: Du hast ein erstaunliches Talent, die Leute dazu zu kriegen, deine Arbeit zu machen. Und wenn die Arbeit erledigt, ist bist du auch noch nicht zufrieden. Ich habe es zwar nicht ausprobiert, bin mir aber sehr sicher, dass Nancys Code ganz genau das macht, was du wolltest. Nancy benutzt aber die Pi-Konstante aus den Excel-Funtionen. Warum auch nicht, da gibt es ja eine Pi-Definition. Die gibt es aber nicht, wenn du in ein Textfile schreibst. In diesem Falle musst du Pi selber definieren. Allerdi ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : ACAD-Objekte in Access-Bericht ausgeben
CAD-Huebner am 08.03.2005 um 11:06 Uhr (0)
Hallo Dexta, nachdem ich deine allererste Frage noch einmal gelesen hatte, war mir auch klar, dass du eigentlich in deiner Tabelle erkennen möchtest, ob ein Datensatz überhaupt mit einem AutoCAD Objekt verknüpft ist (für weitere Auswertungen). Über die DBVERBINDUNG in AutoCAD wird ausschließlich am Objekt ein Vermerk (über Extended Entitiy Data) gesetzt, das den Namen der Datenquellenverknüpfung und (in hexadezimaler Form) die Inhalte der Schlüsselfelder enthält. Man kann nur mit einem Zusatzprogramm aus A ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Linienfarbe filtern die Linienstärke ändern
cadffm am 02.12.2020 um 16:54 Uhr (1)
Da wir hier ja von der DXF-ähnlichen Struktur sprechen und der Filter (dessen Kriterien)dann sicher mit meinen Kenntnissen über DXF/Lisp übereinstimmen:Farbbuch und TrueColor Informationen sind wie auch die ACI-Farbwerte direkt am Objekt gespeichert im DXFund können auch über einen SelectionSet gefiltert werden, im Fall von Truecolor liegt der Farbwert allerdings nicht in der Form r,g,b vor, sondern als Integer.Und wenn man noch bedenkt dass es auch Farbbuch-Farben mit dem gleichen rgb Wert geben kann,dann ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
mapcar am 24.11.2004 um 09:55 Uhr (0)
Keine Ahnung, was du da machst. Ich habe diesen Code von Nancy ausprobiert: Code: Sub x() Const Pi# = 3.14159265358979 Dim elem As AcadEntity, ip For Each elem In ThisDrawing.ModelSpace If TypeOf elem Is IAcadBlockReference Then ip = elem.InsertionPoint Debug.Print ip(0), ip(1), ip(2), elem.Rotation * 180 / Pi End If Next End Sub Ein Block, sukzessive um 90° gedreht, ergibt dieses Ergebnis im DFenster: Code: 13,2 11,5 0 ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Längenermittlung von Polylinien
fuchsi am 13.08.2004 um 12:11 Uhr (0)
Hallo Holger ! ich such mir diese Methoden,Eigenschaften immer in Lisp mit (vl-dump-object) da wirs es anscheinend nicht aufgeführt ; IAcadLWPolyline: AutoCAD Lightweight Polyline-Schnittstelle (optimierte Polylinie) ; Eigenschaftswerte: ; Application (RO) = # VLA-OBJECT IAcadApplication 00a99b84 ; Area (RO) = 26976.2 ; Closed = 0 ; Color = 256 ; ConstantWidth = 0.0 ; Coordinate = ...Indizierter Inhalt wird nicht angezeigt... ; Coordinates = (97.8498 70.8193 129.24 216.379 240.578 102.676 .. ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Spline teilen, Punktekoordinaten auslesen
insidERR am 11.03.2009 um 15:06 Uhr (0)
Von LISP hab ich keine Ahnung und auch nicht die Zeit mich damit zu beschäftigen.Die Linie teilen kann man manuel auslösen, aber ich will es automatisieren.Hintergrund der ganzen Sache:wir haben einige Laufradmeridiankonturen, welche mit Splines gezeichnet sind. Die wollen wir in ein anderes Programm exportieren. Dazu muss man auf die Splines "Punkte" legen und von den die Koordinaten(X,Y) in eine Textdatei exportieren. Diese wird dann von dem anderen Programm eingelesen und weiter verarbeitet.Von Hand dau ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Aufruf von VBA-Prozeduren via Lisp
RoSiNiNo am 08.07.2004 um 13:12 Uhr (0)
Ich hab jetzt ein kleines Problem mit diesem Code: ;;; ********************* ;;; setq global variables ;;; ********************* ;;; get the application object (setq *acadObj* (vlax-get-acad-object)) ;; array of command name strings (setq CommandList (list ("HK3D" "acad.dvb!aTest.HK_OBQZ") ;3d Höhenkote ("RIDL" "acad.dvb!aTest.RechnenIstDochLeicht") ;Rechnen ) ) ;; make a defun for each command name (foreach CommandName CommandList (eval (list defun (read (strcat "C:" (car Comma ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Objektzuweisung über Handle funzt nicht
mapcar am 23.12.2004 um 08:30 Uhr (0)
Ich wollte nicht nur eine Dwg uploaden sondern eine ZIP mit txt-Datei und dwg-Datei. Geht das auch so mit Handle.zip.txt? Ja, das geht mit jeder Datei. Es steht aber nicht in der Hilfe, weil das etwas zweischneidig ist: Einerseits braucht man das, um eben Zeichnungen austauschen zu können, andererseits werden hier auch Berge von irgendwelchen Powerpoint-Jokes hochgeladen, was eigentlich nicht im Sinne des Erfinders ist. Mit dem Lesen von R14 hast du natürlich Recht;-) Das Schreiben geht glaube ich nich ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Einige grundsätzliche Fragen
Proxy am 16.12.2003 um 13:59 Uhr (0)
Code: Sub Example_Thickness() This example creates a circle in model space and changes the thickness of the circle. Dim circleObj As AcadCircle Dim centerPoint(0 To 2) As Double Dim radius As Double Define the circle centerPoint(0) = 0#: centerPoint(1) = 0#: centerPoint(2) = 0# radius = 5# Create the Circle object in model space Set circleObj = ThisDrawing.ModelSpace.AddCircle(centerPoint, radius) ZoomAll Find the current thi ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Polylinientransformation
KlaK am 17.12.2006 um 15:13 Uhr (0)
Hallo guska,das Problem scheint ja wirklich aktuell zu sein, wir haben momentan das gleiche. programm läuft zwar inzwischen, aber immer noch mit Fehlern.Wenn Du nur Polylines umwandelt willst, kannst Du es mit folgender Lisp-Routine von CADmium http://ww3.cad.de/foren/ubb/Forum259/HTML/001081.shtml Wenn Du es selber entwickeln möchtest, solltest Du bei den Polylines auch die Bögen berücksichtigen, und dann mußt Du natürlich die Höhen auf den Zwischenpunkten interpolieren.Für die Übernahme der Höhen aus Bl ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Ändern von Einträgen im ACA-Stilmanager
cadking am 28.04.2023 um 23:37 Uhr (1)
Hallo Leute,ich möchte per Lisp Stile im Autocad-Stilmanager ändern. Über (dictsearch (namedobjdict) "AEC_WALL_STYLES") und die Gruppencodes 3 und 350 bin ich bis zu den Objektnamen und den Stilnamenvorgedrungen und habe auch bereist die neuen Stilnamen an ein (setq ...) übergeben.Aber ich habe keine Idee, wie ich die an das Objekt zurück schreiben.Gibt es so etwas wie DumpObjectV1-2.lsp auch für nicht auswählbare Objekte wie Einträge im Stilmanager?Ich habe es auch schon mit find-vla-functions.lsp versuch ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Dictionaries in VBA auslesen ... Rätsel
mapcar am 30.08.2004 um 19:13 Uhr (0)
Noch ein Nachtrag: Das, was du in object o als IAcadObject erhältst, ist ein Entity namens VLO-VL! Dieses Entity enthalt die Daten (kann natürlich mehrfach auftreten). Kleines Beispiel: (vlax-ldata-put "mydict" "mykey" "mystringvalue") (setq d(entget(cdr(assoc -1 (dictsearch (namedobjdict) "mydict")))))== ((-1 . Objektname: 7ef57f78 ) (0 . "DICTIONARY") (5 . "EF") (102 . "{ACAD_REACTORS") (330 . Objektname: 7ef57c60 ) (102 . "}") (330 . Objektname: 7ef57c60 ) (100 . "AcDbDictionary") (280 . 0) ( ...
|
| In das Form Autocad VBA wechseln |
