|
Lisp : Erweiterung Lisp zum Ermitteln von einem Schnittpunkt
Geos am 18.12.2008 um 07:50 Uhr (0)
Meinst Du sowasCode:(defun c:schnittp ( / P1 P2 P3 P4 P5 P6); by Stefan Schwankner - 2008-04-10(arxload "GEOMCAL") ;;;Rechner muss geladen werden (setq P3 (getpoint "
Erster Punkt der Ebene:")) (setq P4 (getpoint "
Zweiter Punkt der Ebene:")) (setq P5 (getpoint "
Dritter Punkt der Ebene:")) (while (setq P1 (getpoint "
Erster Punkt der Linie:")) (setq P2 (getpoint "
Zweiter Punkt der Linie:")) (setq OSCHNAePP (getvar "osmode")) (command "osmode" 0) (cal "P6=ilp (p1,p2,p3,p4,p5)") (command "_sp ...
|
| In das Form Lisp wechseln |
|
Rund um Autocad : Übertragen Eiganschaften Polylinie
TLieske am 08.07.2004 um 20:11 Uhr (0)
Hallo, ich suche ein Tool für das Format-Übertragen von Polylinien-Eigenschaften, die mit dem normalen Befehl nicht ausgeführt werden: - globale Breite - Linientyp erstellen (Deaktiviert/Aktiviert) Der Kollege zeichnet also eine Polylinie und möchte von einem Quellobjekt die o.a. Eigenschaften übertragen, was ja nicht geht. So fummelt er das manuell mit dem Eigenschaften-Fenster nach, was auf die Dauer nervig sein kann. Entsprechende Suchbegriffe haben mir in diesem Forum leider nicht weiterhelfen können. ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Texte ersetzen
Ralle am 20.03.2003 um 09:00 Uhr (0)
Hallole, der Befehl suchen und ersetzen ist ja schon ne tolle Sache. Habe allerdings sehr viele Texte zu ersetzen, so das es mit der Zeit nervt immer eingeben und Button drücken, eingeben und Button..... Gibt es ein Lisp oder ähnliches bei dem ich in einer ext. Datei (cool wäre Excel) eintrage z.B in Spalte 1 sind die alten Texte und in Spalte 2 sind die neuen Texte. Auf Knopfdruck in ACAD werden dann die alten dTexte in der Zeichnung gegen die neuen aus der Excel Datei ausgetauscht.Gruß Ralle------------- ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Lisp funktioniert nicht mehr richtig
CADmium am 22.10.2018 um 08:57 Uhr (1)
(defun c:ssw() (command "_layer" "_on" "*-SW-*" "")(command "_layer" "_on" "*-RW-*" "")(princ "Schmutzwasser+RW an!")) -hier fehlt ne Klammer P.S. ich staune immer wieder, was es so für Code gibt (defun c:eew() (command "_layer" "_on" "*Fall*" "")(command "_layer" "_on" "*befestigung*" "")(command "_layer" "_on" "*Steiger*" "")(command "_layer" "_on" "*Abstandhalter*" "")(command "_layer" "_on" "*Brandschott*" "")(command "_layer" "_on" "*-SP*" "")(princ))(princ "Steiger anschalten!") - die Zeile wird beim ...
|
| In das Form Rund um AutoCAD wechseln |
|
CoCreate Programmierung : LISP: Schnittebene in Modeling 16 abfragen
holt am 10.07.2009 um 15:28 Uhr (0)
Ich möchte in Modeling 16 Schnittebenen die mit dem neuen Schnittelement erstellt wurden abfragen (U-, W-Richtung, Ursprung).Mein Problem: ich finde keine entsprechenden Funktionen!Es gibt zwar wie in den älteren Versionen die Funktionen sd-inq-model-clip-plane-origin, sd-inq-model-clip-plane-u-dir und sd-inq-model-clip-plane-w-diraber die funktionieren hier nicht da eine laufende Nummer (wahrscheinlich 1-6) zur Identifizierung verlangt wird. Ich habe aber nur ein sel-item.Kann mir jemand einen Tipp geben? ...
|
| In das Form CoCreate Programmierung wechseln |
|
Lisp : Bemaßung in Richtung x
MARTINLE am 07.09.2011 um 10:49 Uhr (0)
Hallo!Hab das Lisp bei mir wieder gefunden: Es ist von Thomas aus dem Jahr 2007.Habe mir auch einen Button mit ^C^Cdimx;;@800;belegt.Funktioniert soweit gut.Nur wenn ich das gleich Maß erneut anklicke sollte es wiederum um 80 Einheiten verschoben werden. Dies tut es leider nicht.Kann mir da vieleicht jemand helfen?Danke!lg. Martin(defun c IMX( / AWS) (if(and(Setq AWS(ssget ((0 . "DIMENSION")))) (setq P(getpoint "
X-Koordinate: ")) ) (progn (setq INDEX -1) (repeat(sslength AWS) (setq OBJ ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Papierformate bei Stapelplot (PDF-Creator)
Peter2 am 03.12.2012 um 17:31 Uhr (0)
Meine Erfahrung mit PDF-Erstellung (teilweise hier im Forum im Detail nachlesbar):- die eingebaute PDF-Erzeugung war mir von der Qualität, Schnelligkeit und Konfigurierbarkeit nicht gut genug. Die Layererstellung als theoretischer Pluspunkt ist für mich nicht nötig.- PDFCreator (sonst sehr geschätzt) hatte Probleme mit der Rechenlast bei integrierten Rasterdaten.- mit PDF-XChange von Tracker-Software bin ich jetzt zufrieden. Schnell, gut konfigirierbar "von innen" (Menüs) und "von aussen" (Registryumstellu ...
|
| In das Form Rund um AutoCAD wechseln |
|
AutoLisp : Fontname in ICAD oder ACAD
Theodor Schoenwald am 08.03.2006 um 10:35 Uhr (0)
Hallo,wenn ich z.B. den Schriftnamen "Comic Sans MS" eingestellt habe und den folgenden Befehl (cdr (assoc 3 (entget (tblobjname "STYLE" (getvar "TEXTSTYLE")))))benutze, bekomme ich als Ausgabe "comic.ttf"Ich benötige aber den Namen "Comic Sans MS" und nicht den Namen der Fontdatei.Jetzt könnte ich zwar abfragen: wenn "comic.ttf" dann "Comic Sans MS",usw...Da aber jeder andere Schriften installiert hat, wäre ich damit ziemich begrenzt.Wenn jemand eine Lösung mit Lisp hat, sollte sie kein VLX verwenden, da ...
|
| In das Form AutoLisp wechseln |
|
Rund um AutoCAD : Linien/Teile ausblenden
wronzky am 09.09.2011 um 15:25 Uhr (0)
weißt Du, wie man mit Lisp-Dateien umgeht? Bitte einmal vorher "(vl-load-com)" ausführen!Code:(defun c:vox-make-invisiblex ( / ss z ele) (setq ss (ssget) z -1) (while (and ss (setq ele (ssname ss (setq z (1+ z))))) (vla-put-visible (vlax-ename-vla-object ele) :vlax-false) ) (prin1))(defun c:vox-make-visiblex ( / ss z ele) (setq ss (ssget "_X" ((60 . 1))) z -1) (while (and ss (setq ele (ssname ss (setq z (1+ z))))) (vla-put-visible (vlax-ename-vla-object ele) :vlax-true) ) (prin1))Grüsse, Henn ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Lisp als Macro mit anderem Befehl verbinden
cadffm am 06.07.2011 um 17:51 Uhr (0)
"Ei" für Eigenschaft geht, aber doch relativ sicher nicht das "_Ei" wie du es uns gepostet hast ?Zudem hast du kein "_CHANGE" im Makro zu dem dieses "Ei" passen würde und selbst wenn es da wäre =eine Schraffur wurde noch längst nicht erzeugt an dieser Stelle.Von daher: Dieses Makro funktioniert nicht und wurde auch nicht bis zur Layeränderung per Hand durchgegangen.Da ich aber den anderen Monitor nicht sehe sind meine Aussagen diesbezüglich (dein Rechner/Acad) immer reine Vermutungen, das gebe ich gerne zu ...
|
| In das Form Rund um AutoCAD wechseln |
|
AutoLisp : Datenbank mit lisp
Brischke am 28.10.2003 um 12:47 Uhr (0)
Hallo mkl-cad, so ganz allgemein irgendwelche Blöcke auslesen, ist meines Wissens in Acad (ETools) integriert. Meine Erfahrung zeigt auch, dass eine Zeichnungsauswertung in aller Regel nicht mit einer solchen einfachen Liste gemacht ist. Meist sind dann noch irgendwelche Regeln/Zusammenhänge mit einzuarbeiten, so dass es dafür in den seltensten Fällen eine fertige Lösung geben wird. Zitat: ...,, oder gar gekaufen werden müssen. Will man eine allgemeingültige Lösung zum Export schreiben, die dann au ...
|
| In das Form AutoLisp wechseln |
 |
CoCreate Programmierung : Lisp Schleife
noxx am 05.09.2011 um 14:49 Uhr (0)
Zitat:Original erstellt von clausb:Zur weiteren Klärung: Was genau meinst Du mit "Makro"? Einen Dialog?Ja, so ne kleine GUI..... Auch die Eingabe ist Ellenlang, da ich jede Wert Einzeln abfrage. Vermutlich viel zu komplex..Code:("Winkel in Grad") (Winkel_1 :value-type :angle :title "Winkel 1" rompt-text "1. Winkel angeben." :initial-value 0) (Winkel_2 :value-type :angle :title "Winkel 2" rompt-text "2. Winkel angeben." :initial-value 0) (Winkel_3 :value-type :angle :title "Winkel 3" rompt-te ...
|
| In das Form CoCreate Programmierung wechseln |
|
AutoLisp : Attribute - Suchen und Ersetzen mit Lisp
Lampi am 13.07.2005 um 08:47 Uhr (0)
Ich suche ein Lispprogramm das mir aus einer Text oder Exceldatei eine Zeichenkette ausliest, diese in meiner Zeichnung (Attribut in mehreren Blöcken) sucht und durch die daneben stehende Zeichenkette aus meiner Text oder Exceldatei ersetzt. Danach soll die nächste Zeile meiner Datei ausgelesen werden. (Automatisches Suchen und Ersetzen). Hat jemand schon so etwas ähnliches gemacht, das ich mir anpassen kann? Über Suchen und Ersetzen ist zwar schon viel in diesen Foren geschrieben worden, jedoch nichts in ...
|
| In das Form AutoLisp wechseln |
