|
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 : zahlen.lsp
joern bosse am 04.10.2006 um 16:02 Uhr (0)
Hallo wokijed,ich habe mal ein bißchen geändert, und wegen ACAD-Lt uns LISP, suche mal nach dem "Extender"Code:(Defun C:ZAHLEN ( / temp) (if (or (not (setq wunschlayer (getstring (strcat "Wunschlayer:" (if (and wunschlayer (/= wunschlayer "")) wunschlayer "0") "")))) (= wunschlayer "")) (setq wunschlayer "0")) (if (not (setq wunschhoehe (getreal (strcat "Wunschhöhe:" (if wunschhoehe (rtos wunschhoehe 2 1) "2.5") "")))) (setq wunschhoehe 2.5))(START)(pr ...
|
| In das Form Lisp wechseln |
|
Lisp : Dialogdatei mit einem countdown bis es sich schließt?
-ikarus- am 04.04.2016 um 22:08 Uhr (1)
Ich verwende ScriptPro 2.0, acad 2015 und Win 7 ich lade über das Script eine Lisp und führe sie aus. In der ersten Zeichnung wir die dcl in das Zeichnungsverzeichnis geschrieben und geladen. Nach Auswahl,in der dcl, wird eine *.ini mit der Auswahl geschrieben. In den nachfolgenden Zeichnungen wird geprüft ob die dcl vorhanden ist, wenn ja dann wird auf die *.ini zugegriffen und verarbeitet. Da meine Kollegen das Script starten, aber meistens vergessen, dass dann noch eine Abfrage kommt und somit nicht auf ...
|
| In das Form Lisp wechseln |
|
AutoLisp : INITDIA / ATTDIA
Brischke am 17.02.2003 um 13:36 Uhr (0)
Hallo Marvin, schau dir mal die Systemvariablen ATTREQ und ATTDIA an. Zitat: ATTREQ Typ: Ganzzahl Gespeichert in: Registrierdatenbank des Systems Ausgangswert: 1 Legt fest, ob der Befehl EINFÜGE während des Einfügens von Blöcken vorgegebene Attributeinstellungen verwendet. 0 Übernimmt die Vorgaben für die Werte aller Attribute 1 Aktiviert Eingabeaufforderungen oder ein Dialogfeld für Attributwerte entsprechend der Einstellung von ATTDIA Zitat: ATTDIA Typ: Ganzzahl Gespeichert in: Registrierdat ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Anbindung SQLite mit ADOLISP auf 64-Bit-Rechner
StefanW am 10.04.2013 um 10:17 Uhr (0)
Hallo !Nachdem mein Autocad nun auf einen 64-bit-Rechner umgezogen ist, funktioniert die Anbindung an eine Access-Datenbank mit ADOLISP nicht mehr. Meine Idee wäre, auf eine SQLite-Datenbank umzustellen. Einen ODBC-Treiber (auch für 64-bit) für SQLite habe ich unter http://www.ch-werner.de/sqliteodbc/ gefunden.Nun habe ich aber Probleme, mich mit der Datenbank zu verbinden, ich bekomme immer eine Meldung, das die Verbindung geklappt hat, selbst wenn die Datenbank gar nicht da ist ! Eine Abfrage der Tabelle ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Auswahl aller Objekte auf bestimmten Layern
Brischke am 29.03.2006 um 14:48 Uhr (0)
Hallo Didi,ok, dann wollen wir mal helfen, dass das Lisp-Wissen wächst.Du brauchst also eine Schleife die Beendet wird, wenn kein Objekt mehr gewählt wurde.Das ist dann eindeutig (whileDu brauchst was zur Objektwahl: (entsel ..)Du brauchst was, um den Layer rauszubekommen: (cdr(assoc 8 (entget ..Und du brauchst was, um den String zu basteln, der die Layernamen entält.(setq laySTRING (strcat laySTRING "," LAYERNAME))und im Ganzen müsste das so, oder so ähnlich aussehen:(while (setq obj(entsel "Qobjekt wähle ...
|
| In das Form AutoLisp wechseln |
|
Lisp : ssget und Punkte außerhalb der Ansicht
Bernd10 am 11.01.2005 um 08:58 Uhr (0)
Hallo Stephan, Zitat:Original erstellt von autocart:was meinst du mit mathematisch die Objekte ermitteln?Vielleicht hilft Dir dabei mein beigelegte Lisp-Funktion. Hier ein Beispiel für deren Verwendung:(setq lpktreflu (list 0.0 0.0 0.0)) ; Punkt links/unten(setq lpktrefro (list 100.0 100.0 0.0)) ; Punkt rechts/oben(setq lboxref nil) ; Referenzfläche(setq lboxref (append lboxref (list lpktreflu)))(setq lboxref (append lboxref (list lpktrefro))) (setq lpktvgllu (list 20.0 20.0 0.0)) ; Punkt link ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Nichts für Logiker!? Oder doch?
snoopyonline am 12.06.2004 um 18:39 Uhr (0)
Also gleich mal vorweg... Ich bin mal wieder auf ein rätselhaftes Lisp-Problem gestoßen, aber diesmal hängt nicht ganz soviel von der Lösung dieses Problemchens ab... Deshalb ist diese Frage eher an die Bastler unter den Forenmitgliedern gerichtet, die gerade etwas Zeit übrig haben.... Auf alle Fälle habe ich für meine Diplom-Entwurfsbearbeitung jetzt schon mehrere kleine Hilfstools geschrieben (deshalb bitte nicht über den Anfänger-Code und die fehlenden Absicherungen/Benutzeranpassungen wundern) und ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Wer kann mir beim AutoLisp helfen?
kegler43 am 13.05.2004 um 20:59 Uhr (0)
Hallo! Ich habe ein Problem, Ich kenn mich mit dem AutoLisp nicht aus, habe eine Lisp-Datei bekommen die nur halb funktioniert. Aufgabe: Es sollte ein Layer erzeugt werden, danach soll in einer bestimmten Fläche mehrere Kreise mit je einer Nummer erzeugt werden. Eingelesen wid ein Block mit Attribut, die Koordianten wo die Kreise hin sollen, werden aus einer Text Datei(Editor)eingelesen, soweit funktioniert auch alles. Wenn aber in der Text Datei bei der Nummierung vor der Nummer ein Buchstabe steht geht ...
|
| In das Form AutoLisp 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 |
|
Lisp : GEOMCAL für BricsCAD
archtools am 02.09.2009 um 11:20 Uhr (0)
Zitat:Original erstellt von marc.scherer:Super, aber da fragt man sich schon warum die BricsCAD Leute so etwas nicht selbst anbieten, oder?Vielleicht übernehmen sie ja mein Programm :-) Ich hab ohnehin keine Idee, wie ich das Programm so verkaufen kann, dass ich die Entwicklungskosten wieder rein kriege. Immerhin hab ich das komplette letzte Wochenende dafür gebraucht.Ich brauchte das selbst, weil ich meine Applikation objectiveCAD (kann man als parametrische Variantenkonstruktion verwenden) nach BricsCAD ...
|
| In das Form Lisp wechseln |
|
Lisp : Layer umschalten bei der Bemassung
Brischke am 18.10.2003 um 16:29 Uhr (0)
Hallo CAD-Tötti, Zitat:Wie gestallte ich eine Überprüfung, diea) prüft ob der Layer in der zeichnung existiertb) den Layer ggf. nach den Maßgaben aus einer Datei z.B. "Layer.dat" anlegtc) die Layer generell beim Start von AutoCAD aus dieser Datei lädtzu a)(setq LayName "Testlayer")(if (tblobjectname "LAYER" LayName)(princ "
Layer vorhanden")(alert (strcat LayName " fehlt!")))zu b) das kann man verschieden lösen, hängt im wesentlichen vom Dateiaufbau ab.zu c) ich gestalte mir meist eine Menüdatei, und schre ...
|
| In das Form Lisp wechseln |
|
AutoLisp : nummerierung der referenzen
Brischke am 22.10.2003 um 11:40 Uhr (0)
Hallo Steffen, ich habe es mir nun einmal engesehen, machbar ist das, aber auch ein wenig aufwendig. Du willst das also Programmieren, dann solltest du dir die (vlax-curve ..) -Funktionen mal anschauen, damit ist das dann, den ersten Teil betreffend, alles machbar. Das mit der Spline habe ich noch nicht so ganz verstanden. Ich versuche mal zu beschreiben, wie ich das verstanden habe. Du willst eine Spline/3DPolyline zeichnen, die entsprechend der Teilung der Linie (10er-Schritte) Stützpunkte hat. Diese St ...
|
| In das Form AutoLisp wechseln |
