|
Lisp : Lisp-Ablauf -> AC-Bildschirm überspringt vieles
archtools am 22.02.2011 um 17:20 Uhr (0)
Zitat:Original erstellt von Werner-Maahs.de:Nein, so ar das nicht gemeint.Der Monitor zeigt nur nicht alles. Überspringt vieles und, wenn der Ablauf fehlerfrei war, wird auch ein richtiges (gewolltes) Ergebnis ercheinen. Nur die Zwischenschritte werden nicht angezeigt (hätte ich aber gern). Also zunächst mal: ein Programm überspringt nur das, was das Programm laut Programm überspringen soll.Dass der Bildschirm nicht immer sofort jede Änderung anzeigt, die innerhalb eines Programmablaufs vollzogen wird, ha ...
|
| 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 |
|
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 |
|
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 |
|
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 |
