|
Lisp : einfaches 2006 Lisp funktioniert unter 2022 nicht mehr
cadffm am 17.08.2022 um 18:56 Uhr (1)
Ich konnte nach deinem Video noch nicht wieder am PC nachsehen,aber deine letzte Frage:Im Grunde ist es der Jahrzehnte bestehende Objektfang VON, mehr nicht - Oder?Nur die Abfrage ist aufgeteilt auf X und Y.Und ohne dynmode spart man sich das @ ..Acad fragt nach Punkt,Eingabe: VONman gibt einen Punkt angefolgt von dem Abstand als X/Y Angabe: @2,3??Da ich nicht am PC sitze irre ich mich vielleicht,aber so habe ich dein Programm in Erinnerung
|
| In das Form Lisp wechseln |
|
Lisp : Lisp Programme von R14 nach 2007 portieren
CAD-Huebner am 03.09.2006 um 21:51 Uhr (0)
Ich habe den Code etwas überarbeitet, schön ist er aber nicht. Vor allen Dingen die extensive Nutuzng von Variablen ist für dieses Programm völlig unnötig. Code:(defun c:fens1( / FEP GD1 GD1M I1 I1A I1E I1H I1HF L1 LGD1 OS PI2 PIWIN WIN X1 X2 X3 X4 X5 X6 XL1A XL1E XPI2) (if ( (setq os (getvar "OSMODE")) 16384) ; Objektfang deaktivieren (setvar "OSMODE" (+ os 16384)) ) (setq L1 (getpoint "
Winkel P1: ")) (setq WIN (getangle L1 "
Winkel P2: ")) (setq PI2 (+ (/ pi 2) WIN)) (setq XPI2 (+ (/ (* 3 pi) ...
|
| In das Form Lisp wechseln |
|
Lisp : Hilfe bei lisp! Block Attrtibute rotation und position!
georg35 am 16.02.2013 um 09:10 Uhr (0)
HI,mit Befehl: Liste und dann aufs Attribute gibt das die Aufstellung unten.Brauche dann nur das unten Fett markierte auf den anderen Block Übertragen!?Oder?Code:BLOCKREFERENZ Layer: "0" Bereich: Modellbereich Farbe: 1 (rot) Linientyp: "VONLAYER" Referenz = 1f1 Blockname: "eee" bei Punkt, X=1860.0112 Y=2588.2213 Z= 0.0000 X-Skalierfaktor: 1.0000 Y-Skalierfaktor: 1.0000 Drehwinkel: 0 Z-Skalierfaktor: 1.0000 EinfEinheiten: MillimeterEinheitenkonvertierung: ...
|
| In das Form Lisp wechseln |
 |
Lisp : AutoCAD Objektfang (Ofang) Ein oder Aus (toggle) wie F3 aber als LISP
neo4matrix am 15.11.2016 um 16:29 Uhr (15)
Hallo GemeindeIch tüftle schon seit längerem an einem Listp, welches GENAU das gleiche macht, wie die F3 Taste unter AutoCAD. Nämlich den Objektfang umschalten. Hier schon mal mein List Code:(defun C:OFangToggle ( / aosmo) (setq aosmo (getvar "OSMODE")) (if ( aosmo 16383) ((setvar "OSMODE" (- aosmo 16384))(princ "
Ofang ein")) ((setvar "OSMODE" (+ aosmo 16384))(princ "
Ofang aus")) ) (prin1))Er funktioniert so weit ganz gut, Nur leider kommt beim Aufrufen des Befehls OFangToggle stets eine Fehlermeldung!Je ...
|
| In das Form Lisp wechseln |
|
Lisp : Laufenden AutoCAD-Befehl in Lisp beenden.
fred_tomke am 12.03.2007 um 10:49 Uhr (0)
Hi cadmium,nein, nicht ganz.(while (/=(getvar "cmdactive")0)(command pause))kenne ich. Diese Variante beendet das Programm, indem alle Eingaben mit Eingabe bestätigt werden. Und das ist das, was ich nicht unbedingt will.Konstruierter Fall:(vl-cmdf "_solidedit" "_face" "_color")der User pickt eine Fläche, nimmt dann die Option alle, stellt fest dass er doch nicht will und drückt ESC. Das fange ich ja ab bei getpoint. Mache ich dann wie von Dir beschrieben weiter, wird den gewählten Flächen eine andere Farbe ...
|
| In das Form Lisp wechseln |
|
Lisp : Common Lisp - Funktionen überladen
archtools am 22.09.2009 um 23:26 Uhr (0)
Zitat:Original erstellt von toxot:Servus archtools!Deine Kritik und Dein Code ist super richtig gedacht.Wenn ich es richtig verstanden hab, zielt das genau in die Richtung.Ich hab (und Du wahrscheinlich auch) natürlich einen anderen Namen für diese fun!(defun !(lst) ... nannte ich Sie. Ich hab sie aber nur für Testzwecke im Einsatz.Aufrufe erfolgen also über (!(something ... und alles läuft dann über (! ... In vielen Varianten möglich.Die Funktion ! bedeutet also: Führe aus! Egal was du zu tun hast.Und da ...
|
| In das Form Lisp wechseln |
|
Lisp : Automatic Dimension AutoCAD LISP??
kadirozen am 02.08.2023 um 13:42 Uhr (1)
Sie haben Recht mit den Freeze/Taut-Layern. Ich habe einfach befolgt, was wir manuell tun, und es wieder auf den Code angewendet. Es könnte logisch sein, dass man einfriert, anstatt abzuschalten.Ich habe versucht, es so kurz wie möglich zu erklären, aber es ist immer noch lang. Entschuldigung dafür.----Wir haben ein 2-Layer-System, eine für die für Menschen lesbare Version und eine für die Maschine.Die menschliche Version hat alle Messungen, Notizen, Markierungen, importierte PDF-Ebenen, Fotos, Layouts usw ...
|
| In das Form Lisp wechseln |
|
Lisp : einfaches 2006 Lisp funktioniert unter 2022 nicht mehr
Temuedschin am 17.08.2022 um 00:14 Uhr (1)
Leider aktuell eine Berechtigung Software zu installieren, deswegen das Video.(Download drücken - Meldung ist Blödsinn)https://drive.google.com/file/d/1Jp0yjI7F5AuBmxhWNAgIok11aQCbjdMb/view?usp=sharingWie man sieht, funktioniert mein Fadenkreuz nicht mehr, sobald ich (STA_FAN_SET_REL) aufrufe.Jedoch funktioniert der Mauszeiger weiterhin, wenn ich z.b. auf das Befehlsfenster bzw. Ribbon fahre.Ich kann durch das Ribbon klicken, auch wenn (STA_FAN_SET_REL) aktiv ist.Erst wenn ich (STA_FAN_SET_REL) abbreche, w ...
|
| In das Form Lisp wechseln |
|
Lisp : eine bestehende lisp auf den Inhalt von Blöcken erweitern?
-ikarus- am 17.12.2008 um 08:44 Uhr (0)
Danke für die schnelle AntwortAlso mir geht es darum, das ich meine bestimmte Zeichenreihenfolge auch auf den Inhalt von Blöcken anwenden kann.anbei mal die von mir erstellte draworder.(defun C:DRAWOR ( / ofang1 helems la bema mas bema1 sch15 sch95 gr30 sch95 rah10 kon1)(setq ofang1 (getvar "osmode"));^C^C(if (setq helems (ssget "_X" ((0 . "HATCH"))))(command "_.draworder" helems "" ""))(command "_.copy" "alle" "e" helems "" "@" "@")(command "_.erase" "V" "");^C^C(if (setq mas (ssget "_X" ((0 . "HATCH") (2 ...
|
| In das Form Lisp wechseln |
|
Lisp : einfaches 2006 Lisp funktioniert unter 2022 nicht mehr
cadffm am 18.08.2022 um 09:43 Uhr (1)
Habe mir soeben dein Video angesehen und getestet.1. Bei mir reagiert mein 2022 auf aktuellem Stand anders, vielleicht war das mal ein Bug in der Ur-Version? - Update drauf und erneut testen. Welche Produktversion hast du aktuell? Befehl: INFO2. Versuche es mit angedockter Befehlszeile oder dem Textfenster - nur als Test ob es sich dann anders verhält.3. Klingt für mich Laien unsinnig, aber dennoch: Wenn du hast, onboard-Grafik statts Grafikkarte verwenden / oder umgekehrt Mit DX11 oder DX12 getestet?"Be ...
|
| In das Form Lisp wechseln |
|
Lisp : Hilfe bei lisp! Block Attrtibute rotation und position!
cadplayer am 13.02.2013 um 08:36 Uhr (0)
Bau dir doch erstenmal was einfacheres auf - Einen Quellblock wählen von dem du dir alle Eigenschaften, die du willst, ausliest und im Anschluss auf die anzupassenden Blöcke überträgst. Eine weitere überlegung wäre dann, dein tool mit einem DCL menu zu verbessern.Es ist ein ganzes Stück Arbeit, was du abverlangst, davon hast du schlussendlich wenig gewonnen.Hier mal ein Anfang....Code:(defun EigAuslesen (srcblk / ; QuellblockObjekt srcobj ; VLA Objekt;;; lst ; Ergebnis Eigenscha ...
|
| In das Form Lisp wechseln |
|
AutoLisp : bitte Mini-Lisp prüfen , danke
Brischke am 02.10.2002 um 13:22 Uhr (0)
Hallo Sebastian, wenn ich jetzt ehrlich bin, dann weiß ich nicht wirklich was Du tatsächlich möchtest. Aber nun zu Deinen konkreten Fragen: 1) (ssget...) - Aufruf: Geht prinzipiell so. Du läufst allerdings die Gefahr, dass es verschiedene Blöcke gibt, in denen Attribute mit gleicher Bezeichnung definiert sind. Es ist nicht klar, welchen Block Du dann änderst. Wenn es um generelle Änderungen eines Attributes mit dieser Bezeichnung geht (unabhängig davon in welcher Blockdefinition es vorkommt), dann solltest ...
|
| In das Form AutoLisp wechseln |
|
Lisp : DeepSeek als Lisp-Code-Generator
joern bosse am 04.02.2025 um 22:47 Uhr (1)
ich habe mit ChatGPT mal versucht kleine Funktion schreiben zu lassen, eher interessant als hilfreich. Aber mit der super Suchmaschine muss ich Sebastian auf jeden Fall zustimmmen.DeepSeek werde ich aber bestimmt demnächst mal ausprobieren.Wo meiner Meinung nach Chat-GPT&Co gut zu nutzen sind ist für die Analyse eines Codes, ich habe das mal wie folgt probiert und fand das Ergebnis gut. Also zum Lernen der Sprache ist das sicherlich hilfreich:Hier meine Frage und die Antwort:Erkläre mit bitte folgenden Aut ...
|
| In das Form Lisp wechseln |
