|
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 : Polylinien in einzelne Linien aufsplitten
CADmium am 15.02.2011 um 18:10 Uhr (0)
Tja , mit den Daten wird es das reinste Rätselraten, da wir die auch ein Comuter nicht weiterhelfen können.Bei ordentlichen Daten kannst du ein Selectionset aller PLS machen ... da die Attributblöcke, deren Einfügepunkt einen gewissen Abstand zur PL nicht übersteigt einsammeln ... die Attribute auswerten .. und z.b. er Lisp und den vlax-curve-Funktionen die Koordinatentripel bilden. dann zwischen den gesicherten Koordinaten - wie Alfred schon beschrieben hat - die Zwischenwerte Ermitteln und zu guter Letzt ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : nächstgelegene Punkte bestimmen
mapcar am 07.01.2005 um 11:31 Uhr (0)
Ich will mich mal nicht an dieser 2. Skizze aufhalten und halte mich einfach an die Skizze von Tunnelbauer: 1. Den Winkel p1 p2 ermitteln a = Utility.AngleFromXAxis(p1, p2) (das ist auch die Antwort auf die ganz am Anfang gestellte Frage nach einer Funktion für die Winkelbestimmung!) 2. Eine Transformationsmatrix erzeugen: Code: cos(a) sin(a) 0 0 -sin(a) cos(a) 0 0 0 0 1 0 0 0 0 1 3. Alle anderen Punkte mit Object.TransformBy(Matrix) umrechnen Die b ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Visual Lisp für AutoCad
Omegacentauri am 14.01.2004 um 17:19 Uhr (0)
Visual Lisp für AutoCad Menüerweiterungen.... Ich hab da mal nen Problem und ob ihr mir kurzfristig helfen könntet. Problemdarstellung: Ich möchte einen Platzhalter für Verzeichnis definieren um seperate lsp´s laden zu können. Diese Definitionen sollen in einer menue2004.var Variablendatei gespeichert werden, die durch eine Loadanweisung in der menue2004.mnl geladen wird. Das Problem ist, wie schreibe ich den Code für die Variablendatei? Der CPO_load funktioniert schon, nur das weitere laden der Inhal ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : MLine
KlaK am 06.05.2015 um 12:15 Uhr (1)
Hallo,Direktes Einlesen über VBA weiß ich jetzt keine Möglichkeit.Es gab mal hier einen Beitrag über das Erzeugen eines Multilinienstils mit LispMan müßte nun die MLN - Datei einlesen und entsprechend auswerten. Hilfe dazu findest Du in der DXF-Referenz und in der Onlinehilfe.Über das Ausführen von Lispcode unter VBA findest Du über die Suchfunktion hier im Forum auch Hinweise.GrüßeKlaus PS: MNL-Datei ist eine Menüdatei für Lisp, Du möchtest aber eine MLN-Datei = Multilinie einlesenPPS: Wissenswertes zur ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Koordinaten von Volumenkörpern in Blockreferenzen
Brischke am 02.04.2019 um 15:02 Uhr (1)
Zitat:Original erstellt von rexxitall:Lieber Thomas,gerne beantworte ich dir deine Frage:... Aber sicher wolltest du mir nur mitteilen, was für ein brillianter .Net experte du doch bist oder ?...Nein, das wollte ich nicht! Denn ich bin sicher kein .Net Experte. Zudem bin ich der Meinung, dass die Programmiersprache nahezu unerheblich für die Programmierung ist. Bedeutend ist die Idee der Lösung. Für die Idee der Lösung spielen natürlich die durch die API zur Verfügung stehenden Möglichkeiten eine Rolle.Aus ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Datei lässt sich nicht öffnen!
Proxy am 08.12.2004 um 17:06 Uhr (0)
Zitat: Original erstellt von kiltswitch: Zu den Monsterthreads: Du mußt doch zugeben, sie sind nicht mehr ganz so groß. Ich nehme in letzter Zeit auch Beiträge von mir wieder raus, die ich nicht mehr benötige. Naja, darüber lässt sich streiten und es ist ganz schön egoistisch, man darf davon ausgehen, die Vergangenheit hat es ja reichlich gezeigt, dass es mehr Forumbesucher von deiner Art gibt. ------------------ Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-r ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Auslesen von Blockeigenschaften mittels VBA möglich?
Brischke am 05.11.2004 um 10:55 Uhr (0)
Wie die Dateinamen heißen ist doch im Moment vollkommen uninteressant. MAch dir gedanken darüber, welche Eigenschaften z.B. ein Mast besitzt. Bsp: Bauart (Fachwerk, aus den Vollen geschnitzt) Querschnitt (Rechteckig, Quadratisch, rund, Dreieck) Höhe (..) BreiteAmFuß BreitAmAnschlußOben ... usw Gleiches git für die Antennen: Funktion (Empfang, Senden) Bauart (Stabantenne, Schüssel ..) Anschluß (unten, seitlich) Abstrahlrichtung (überall, nachOben, nachUnten, Seitlich) ... usw Du musst alle die Eigenschaft ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Autodesk Map 5, VBA-Erweiterung, interessantes Rätsel
mapcar am 26.10.2004 um 21:04 Uhr (0)
Wenn das mit dem Goto auch nicht so nach meinem Geschmack ist (ich benutze lieber kein Goto mehr, in VB7 ist es sowieso verdunstet, soweit ich weiss), so glaube ich doch nicht, dass da der Fehler liegt. Ich habe aber ein anderes Problem: Ich kenne mich mit MAP kaum aus. Im Moment hätte ich nur ein MAP 2004 zur Verfügung. Ich nehme an, dass MAP 5 die Vorgängerversion ist (2002), oder sehe ich das falsch? Gruß, Axel Strube-Zettler ------------------ (defun - Lisp over night - AutoLisp-Programmierung für ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Rahmen zeichnen mit VBA
Stechi am 21.04.2008 um 13:26 Uhr (0)
Hallo Klaus,Informatiker heisst ja lange noch nicht, dass man sich mit Acad bzw. LISP auskennt! Ich jedenfalls nicht.Jetzt zu meinen Vorhaben: Ich zeichnen einen Rahmen per VBA, den ich nachher zu einem Block definieren möchte und anschliessend mit diversen Attributen versehen.Hier ist der bisherige Code für den Rahmen:Code:Dim lineObj As AcadLWPolylineDim points(0 To 9) As Double Deklaration für Pointerpoints(0) = 0: points(1) = 0points(2) = LAENGE: points(3) = 0points(4) = LAENGE: points(5) = HOEHEpoint ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Schleife nach xls
Brischke am 08.01.2004 um 13:30 Uhr (0)
Hallo startrek, das For i = 1 To sset.Count ist Unsinn. Das alle Objekte durhlaufen werden wird ja bereits mit For Each entry In sset erreicht. Setze vor dieser Zeile einfach ein i=0 und innerhalb der Schleife ein i=1+i dann sollte das laufen. Ich habe es nicht getestet, nur beim Lesen auf Logik geprüft. Ich würde auch diese Zeilen Dim ExcelSheet As Object getobject erfordert, Pfad mit offener! Datei !!! Set ExcelSheet = GetObject( C:dummy10.xls ) ExcelSheet.Application.Visible = True ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : vorhandene Bemassungen ändern
CADmium am 02.12.2004 um 13:07 Uhr (0)
dann nimm dies ( auch wenn es Lisp ist) (defun PUTPRECISION(Precision / BLOCK ) (vl-load-com) (vlax-for LAYOUT (vla-get-layouts(vla-get-activedocument(vlax-get-acad-object))) (vlax-for ITEM (setq BLOCK (vla-get-Block LAYOUT)) (if(wcmatch (strcase AcDbRotatedDimension ) *DIMENSION* ) (vl-catch-all-error-p (vl-catch-all-apply vla-put-PrimaryUnitsPrecision (list ITEM Precision) ) ) ) ) ) (vla-regen(vla-get-actived ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Objektzuweisung über Handle funzt nicht
mapcar am 24.12.2004 um 14:19 Uhr (0)
Hab mal einen kurzen Blick in die Testzeichnung geworfen: Da gibt es zwar ein Insert von Testblock , aber an diesem Insert sind gar keine XDaten dran ! Auch nicht an dem Kreis, aus dem die Blockdefinition besteht, und auch an der Blockdefinition nix. (entget(car(entsel)) ( * )) = ((-1 . Objektname: 7ef71e20 ) (0 . INSERT ) (330 . Objektname: 7ef71cc0 ) (5 . DC ) (100 . AcDbEntity ) (67 . 0) (410 . Model ) (8 . 0 ) (100 . AcDbBlockReference ) (2 . TESTBLOCK ) (10 50.0 50.0 0.0) (41 . 1.0) ...
|
| In das Form Autocad VBA wechseln |
