|
Lisp : News: ObjectDCL
CAD-Huebner am 01.10.2007 um 08:25 Uhr (0)
Hallo Cadwiesel, so wie ich das verfolgt habe, gab es bei Sourceforge zuerst "ObjectDCL" mit den Quellen des (fast) letzten Standes von Chad Wanless (des ursprünglichen Herstellers).Nach einigen Monaten wurde der Quellcode wieder entfernt, da "ObjectDCL" verkauft wurde (eben an Ductisoft.com). http://sourceforge.net/projects/objectdcl/ Fast paralell, bzw. als Reaktion darauf wurde nun "OpenDCL" bei Sourceforge eingerichtet, wo mit dem letzen freien Code weiterentwickelt wird. http://sourceforge.net/project ...
|
| In das Form Lisp wechseln |
|
Rund um Autocad : CELTSCALE / LTSCALE
CAD-Huebner am 22.11.2006 um 23:11 Uhr (0)
Kurz zur Erläuterunga) Eine Änderung der Systemvariable LTSCALE = globaler Skalierfaktor wirkt sich (multiplizierend) auf alle Linientypen/Abstände ausb) Die Systemvarable CELTSCALE = Current Entity Linetypescale = aktuelle Objektlinientypskalierung wirkt sich (zusätzlich zum LTSCALE muliplizierend) als Vorgabe auf alle NEUEN Objekte aus, existierende Objekte werden davon NICHT beinflusst.Mit EIGÄNDR/_CHPROP Option LTFaktor/_LTScale oderÄNDERN/_CHANGE kann die aktuelle Objektlinientypskalierung für vorhand ...
|
| In das Form Rund um Autocad wechseln |
|
Lisp : Startgruppe
CAD-Huebner am 02.07.2009 um 16:12 Uhr (0)
Zitat:Original erstellt von lutzc:...Wie mache ich das ganze unter ACAD2008, da gibts ja keine MNL-Dateien mehr, nur noch CUI....Doch, es gibt auch unter AutoCAD 2005 noch MNL (Menü-Lispdateien), lediglich die Menüs werden nicht mehr in MNS, sondern in CUI (CUIX) Dateien gespeichert.Load-Aufruf in der MNL bewirkt also ein Laden der Datei beim Menüladen. Es gibt aber auch den Befehl APPLOAD und in dem Dialog unten rechts dann ein Knopf Startgruppe. Da kann man ebenfalls seine eigenen Lisp-Routinen laden l ...
|
| In das Form Lisp wechseln |
 |
Lisp : Polylinien abhängig vom Startpunkt versetzen
CAD-Huebner am 29.08.2015 um 12:31 Uhr (15)
Hallo m.hacker,viellecht reicht ja auch schon die vorgefertigte Offset Methode (ActiveX) für deine Zwecke.ich hab das mal in eine einfache Lisp Routine (ohne Error Handling) gepackt zum Test.Code:(vl-load-com)(defun C:UHPLOFFSET ( / dist cnt obj sset) (Prompt "Gleichzeitiges Versetzen nach rechts von mehreren Polylinien - Udo Hübner 8/2015") (initget 6) ; Abfrage Versatzabstand 0 (if (setq dist (getdist (strcat "
Versatzabstand eingeben: " (rtos (getvar "OFFSETDIST")) ""))) (setvar "OFFSETDIST" dist) ) ( ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Fehlermeldung bei command solans
CAD-Huebner am 06.11.2005 um 11:30 Uhr (0)
Hallo Werner, kann diese Fehlermeldung nachvollziehen, auch wenn ich noch nicht ganz begriffen habe, was dieses Makro tun soll. Zuerst hatte ich keine Volumenkörper, da kam schon die erste Fehlermeldung, dann schnappete mein Ofang immer andere Ecken beim Aufziehen des Fensters (ich hatte im Layout schon einiges gezeichnet).Also diesem Makro müsstest du noch ne Kurzanleitung mit Verwendungszweck und Eingangsvoraussetzungen beilegen.Wenn das Lisp einfach aussehen soll, würde ich persönlich nicht 3 AutoCAD Ko ...
|
| In das Form AutoLisp wechseln |
|
Rund um AutoCAD : Kreise tangential verbinden (Lisp o.ä.)
CAD-Huebner am 17.03.2011 um 11:09 Uhr (0)
Es ist etwa ne halbe stunde Arbeit, dafür was Vernünftiges zu programmieren - hier mal nur die Mathematik aufgeschrieben und ein paar commands aufgerufen - kein Errorhandling kein Ofang-Unterdrückung!Code:(defun C:KTANV( / dm e1 e2 k1 k2 m1 m2 p1 p2 r1 r2 rd sk win winm wint) (prompt "Kreise tangential verbinden
") (setq k1 (car (entsel "Kreis 1 (groß) wählen:")) k2 (car (entsel "Kreis 2 (klein) wählen:")) e1 (entget k1) r1 (cdr (assoc 40 e1)) m1 (cdr (assoc 10 e1)) e2 (entget k2) r2 (cdr (assoc 40 e2)) ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : _edge für Auswahlsatz ermöglichen
CAD-Huebner am 30.03.2007 um 19:08 Uhr (0)
Hallo cadspeed,zuerst einmal Willkommen im WBF. Vier wichtige Links für den problemlosen Einstieg:Richtig Fragen - Nettiquette - Suchfunktion - System-InfoEDGE ist ein AutoCAD Beispielprogramm (Edge.lsp) für das Ausblenden von Kanten von 3D Flächen. Das ist einer Lisp-Routine aus der Mitte der 80er Jahre. Da auf Subelemente eines Objektes zugegriffen wird, funktioniert hier nicht die Kreuzen-Auswahl.Ob jemand dieses Programm mal mit einer Kreuzen-Auswahl erweitert hat, ist mir nicht bekannt.Allerdings i ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : CADvorlage zu groß
CAD-Huebner am 11.02.2006 um 21:10 Uhr (0)
Zitat:Original erstellt von ero1:...Photo,Bild,Kontur usw.verwende... diese mit einem Programm als DXF abspeichere ... alles kleine Striche und davon mehrere Tausend...Kann ich die Koordinaten mit einem Programm oder tool vieleicht grob zusammenfassen?Wäre für jede Hilfe dankbar!gruss EroHallo ero1,vermutlich vektorisierst du Fotos mittels Vektorisierungsprogramm (wie Corel Trace) und schreibst dann DXF Daten.Oftmals kann man schon beim Vektorisierungsprogramm eine Toleranz bzw. Feinheit einstellen.Da du ...
|
| In das Form Rund um Autocad wechseln |
|
AutoCAD Civil 3D : kreuzende Leitungen im Höhenplan
CAD-Huebner am 21.08.2016 um 13:40 Uhr (1)
So mache ich es derzeit:Da kreuzende Leitungen oftmals schon in der Zeichnung als Linien vorhanden sind, habe ich mir ein Lisp Makro geschrieben, das auf jede Kreuzung ausgewählter Linien/Polylinien/Elementkanten einen Koordinatenpunkt setzt und den Layernamen (oder Objektdaten) bei Linien/Polylinien bzw. den Elementnamen (oder Objektdaten) bei Elementkanten in die Beschreibung des Koordinatenpunktes (inkl. Achsname und Station in ben. Eigenschaften) einträgt. Anschließend kann man den Höhenplan nach Proji ...
|
| In das Form AutoCAD Civil 3D wechseln |
|
Lisp : car und cdr Salat aus A´s und D´s
CAD-Huebner am 15.06.2012 um 08:07 Uhr (0)
Hallo Peter, wenn du dich auf einen eigenen 4 Jahren alten Beitrag beziehst, wäre Verlinken nicht schlecht, sonst ist der Zusammenhang nur dir klar aber keinesfalls für die anderen Mitglieder ersichtlich.Wenn es immer noch ums Einlesen von Punkten geht und du immer noch Student bist - lade dir AutoCAD Civil 3D hier herunter und verwende den Befehl IMPORTPOINTS.Wenn du selber ein Lisp Programm geschrieben hast (aus den Codeschnipseln des verlinkten Beitrags) und dazu noch Fragen hast, dann poste deine Quell ...
|
| In das Form Lisp wechseln |
|
Autocad VBA : Interpolation z-wert in 3d-fläche
CAD-Huebner am 09.03.2006 um 22:03 Uhr (0)
Bei der Winkelmethode reicht eigentlich schon die Überprüfung, ob aller Winkel = 180°, evt. kann das Dreieck schon beim ersten Vergleich ausscheiden.Alternativ kann man auch prüfen, ob Fläche des Dreiecks P1-P2-P3idetisch ist mit der Summe der Teilflächen P-P1-P2, P-P2-P3 und P-P3-P1.Um die zu überprüfenden 3D Flächen vorab zu filtern, kann man prüfen, ob die Boundingbox der Flächen den prüfenden Punkt überhaupt einschließt.Ich hab auf die Schnelle nur eine LISP Variante, die lässt sich wegen der Selection ...
|
| In das Form Autocad VBA wechseln |
|
Rund um AutoCAD : kein Objektfang im 3d
CAD-Huebner am 12.09.2007 um 12:55 Uhr (0)
Zitat:Original erstellt von archim:Hallo!Ich arbeitet nun wieder etwas mehr mit ACAD. Jetzt leider mit der Version 2008.Seit den letzten Versionen hat sich doch einiges geändert.Vielleicht könnt Ihr mir bei folgenden Problemen weiterhelfen:1. In der 3d Ansicht habe ich keinen Objektfang mehr2. Wie bekommt man die hässliche Darstellungsart weg, wenn man im 3d Objekte bearbeitet/ dreht.3. Gib es keine Registerkarten für alle Papierlayouts mehr4. Gibt es ein Lisp etc. für einen 3ds -Export?Danke für Eure Hil ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Alles auf einem Layer
CAD-Huebner am 25.03.2006 um 21:43 Uhr (0)
So ist doch prima.Hier mal auf die schnelle eine kleine LISP-Routine, die alle Grenzen (linien) die exakt auf der Blockreferenz SYMB9008 beginnen oder enden umfärbt. Das erleichtert (oder hätte sicherlich) die Arbeit.Code:(defun C:GRENZENROT (/ ss ssa cnt) (if (setq ss (ssget "_x" ((0 . "INSERT")( 2 . "SYMB9008")))); alle Grenzpunkte wählen (progn (setq cnt (sslength ss)) (while (= (setq cnt (1- cnt)) 0) ; Wähle alle Linien, die mit dem Anfangspunkt genau auf dem o.a. Symbol beginnen (if (setq s ...
|
| In das Form Rund um Autocad wechseln |
