|
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 : 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 : 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 : 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 |
|
Lisp : Hilfe beim Rauschschreiben !!!
Andreas Kraus am 05.08.2008 um 11:30 Uhr (0)
Jetzt lob mich mal nicht zuviel, ich heb ja noch ab kurze Codeerklärung:Ich hole mir die Liste der Elementdaten eines angeklickten Objekts.Da ist aber noch keine Prüfung dabei ob das eine Polylinie ist(entget (car (entsel)))Die Liste speichere ich NICHT in einer Variablen, sondern verarbeite sie gleich weiter.Ich brauch ja nur die Stützpunkte, also alles was den Gruppencode 10 hat.vl-remove-if-not kann bestimmte Elemente aus einer Liste entfernen, man braucht nur zu sagen welche. Also entferne ich "alle E ...
|
| 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 |
|
Lisp : Protect your Lisp
cadplayer am 06.07.2013 um 19:13 Uhr (0)
Oder hier etwas gekürzt. Du legst eine license.fas - mit der Licenseabfrage an, dann eine Schlüssel.fas, wo dein eigens angelegter key drinsteht und dann rufst du die zwei compilierten Daten in deinem Code auf.Was meint ihr zu dem BeispielCode:; DIE DATEI FÜR DIE LIZENS ABFRAGE; License.fas ( (lambda (date computerName RegistryPIN) (if (and (= date "20130707") (= date "20120707") ) (if (= "XXX" computerName) (if (= RegistryPIN "123456789") "ADSDJNKLULKAIIIDNKLKQQ1239899" (princ "PIN i ...
|
| In das Form Lisp wechseln |
