|
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 : gruppenfilter per lisp ändern
CADblue am 10.04.2013 um 13:57 Uhr (0)
also so weit bin ich selber gekommen:(setq OBJ(vla-get-layers (vla-get-activedocument(vlax-get-acad-object))))(setq OBJ2(vla-GetExtensionDictionary OBJ))(setq E(vlax-vla-object-ename OBJ2))(setq D(entget E))Rückgabe:((-1 . Objektname: 7c212550 ) (0 . "DICTIONARY") (330 . Objektname: 7c20ac10 ) (5 . "1EA") (100 . "AcDbDictionary") (280 . 1) (281 . 1) (3 . "ACAD_LAYERFILTERS") (360 . Objektname: 7be09588 ) (3 . "ACAD_LAYERSTATES") (360 . Objektname: 7c212558 ) (3 . "ACLYDICTIONARY") (360 . Objektname: 7be095 ...
|
| In das Form Lisp 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 |
|
Lisp : Lisp ACAD 2010
archtools am 26.11.2010 um 10:57 Uhr (0)
Zitat:Original erstellt von CADLUIS:Hallo,doch, nur kein Interesse seinerseits grüsseAloisWer hat woran kein Interesse? Der Autor des Programms an einer Änderung? Hat er denn wenigstens zugestimmt, dass sein Programmcode verändert werden darf?Hier aus den im Programmtext eingeräumten Rechten:;;; Diese Software und deren Dokumentation darf beliebig verwendet, kopiert und;;; weitergegeben werden, solange die darin enthaltenen Copyright-Bedingungen;;; unveraendert mitgeliefert werden und dies kostenlos erf ...
|
| In das Form Lisp wechseln |
|
AutoLisp : mal wieder ein reaktor...
Brischke am 26.11.2003 um 14:16 Uhr (0)
Hallo Frank, das sind erweiterte Elementdaten. Gruppencode 3. Mein Ansatz wäre: einen Command-ENDE-Reaktor, der den Rechteckbefehl abfängt und an das zuletzt erstellte Rechteck einen Objektreaktor dranhängt. Zusätzlich dazu werden in dieser Funktion die Texte für Höhe und Breite erstellt. Die Handle dieser neu erstellten Texte wird als XDATA im Rechteck gespeichert. Dann brauchst du nur noch eine Reaktorfunktion, die aufgrund des Rechteck-Objektreaktors anspringt. Diese liest dann die neuen Maße und die Te ...
|
| In das Form AutoLisp 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 |
|
AutoLisp : Elemente am Fadenkreuz (hängend) einfügen
Helmut Schepers am 15.10.2002 um 07:48 Uhr (0)
Hallo, hier mal ein kleines Beispiel in Lisp, wie so etwas machen könnte. Ich hoffe es hilft die weiter. Gruß Helmut (defun c:merk( / ab aw) ;letztes Element merken (setq ab (entlast)) ;neue Elemente zeichnen (command "kreis" (list 50 50) 50) (command "kreis" (list 50 50) 25) (command "rechteck" (list 0 0) (list 100 100)) ;wenn schon Elemente in der Zeichnung vorhanden sind, ;dann auf erstes neues Element (if ab(setq ab (entnext ab))) ;Auswahlsatz erzeugen (setq aw(ssadd)) ;wenn s ...
|
| In das Form AutoLisp wechseln |
