|
Lisp : Grenze des internen Stapels erreicht (simuliert)
tappenbeck am 11.05.2015 um 09:55 Uhr (1)
Moin !ich habe folgende Lisp-Funktion:Code:(defun EBLib_String_FunctionHeader ( EBLib_String_FunctionHeader#str EBLib_String_FunctionHeader#letter / anzahl result kette ) (setq result "" kette "") (if EBLib_String_FunctionHeader#str (progn (setq anzahl (strlen EBLib_Strin(EBLib_String_FunctionHeader "otto" "#")g_FunctionHeader#str)) (if ( anzahl 0)(EBLib_String_FunctionHeader "otto" "#") (progn (repeat (+ anzahl 4) (setq kette (strcat kette EBLib_String_FunctionHead ...
|
| In das Form Lisp wechseln |
|
Lisp : WKS / BKS einstellen
ReneReichel am 08.09.2022 um 07:57 Uhr (1)
Hallo cadffm,manchmal sieht man den Wald vor lauter Bäumen nicht... Zitat:Original erstellt von cadffm:Hi,1. Ja2. Warum nicht einfach den vorhandenen Befehl BKS verwenden? BKS welt setzen, machwasduwillst, BKS vorher setzenDanke für die Anregung, funktioniert natürlich...Zitat:Original erstellt von cadffm:3. Du könntest ja auch die Koordinaten umrechnen..!? (mit dem "ich benötige WKS" hast du indirekt schon gesagt das du den nativen Befehl VERSETZ per command steuern möchtest, denn nur dann ist das nöti ...
|
| In das Form Lisp wechseln |
|
Lisp : Umbenennen von Blöcken!
CADmium am 15.05.2004 um 09:50 Uhr (0)
... Kritik ist ja berechtigt. Und auch ein cdate-vergleich bis eine entsprechende differenz auftritt ist möglich, aber letztendlich ist es doch egal, mit was ich den Prozessor beschäftige, oder ? .. und (repeat 10000 nil) .. passt in eine kurze Zeile @Axel.. oder kennst du eine Möglichkeit, mit Lisp einen Windows-Task für eine bestimmte Zeit zu stoppen, so daß sich der Rechner anderen (meist nicht vorhandenen Aufgaben) zuwenden kann ? - das wäre ökonomisch !Und Zufallszahlen .. die auch nur von cdate ab ...
|
| In das Form Lisp wechseln |
|
Lisp : Bemaßung in Blöcken
hfranke am 01.08.2006 um 16:45 Uhr (0)
Hallo,hier mein Problem: Ich füge mittels Lisp aus einer Vielzahl von dynamischen Blöcken Zeichnungen zusammen. Diese Blöcke enthalten auch Bemaßungen, die alle einem Bemaßungsstil zugeordnet sind. Da ich nun die erstellten Zeichnungen in verschiedenen Größen plotten möchte, wäre es schön, auch die Größe der Bemaßung (Text und Pfeile) anzupassen.Da die Bemaßungen innehalb der Blöcke sind, kann ich diese Anpassung entweder über den Skalierfaktor des Bemaßungsstiles oder über die Änderung der Größe des Bemaß ...
|
| In das Form Lisp wechseln |
knr.dwg.txt |
Lisp : Dynamischen Block via Lisp steuern
cadplayer am 12.06.2013 um 11:31 Uhr (0)
Mein Visualkenntnisse steigen zwar allmählich, aber stehe ich hier vor einer neuen Tür.Code:;; From: "Tony Tanzillo" ;; Newsgroups: autodesk.autocad.customization;; Sent: Friday, May 13, 2005 6:37 AM;; Subject: Re: DynamicBlock method;; Get a single dynamic block property object by name(defun dyGet (DynBlockRef Name) (vl-some (function (lambda (property) (if (eq (vlax-get-property property PropertyName) Name) property ) ) ) (vlax-safearray-list (vlax-variant-value ...
|
| In das Form Lisp wechseln |
|
Lisp : Überprüfung von Elementwahl
ryfCAD am 23.08.2019 um 16:05 Uhr (1)
Hallo und besten Dank!Habe die Lösung von Spider_DD mal integriert und funktioniert:@cadffm: die Formatierung geht mit copy-paste irgendwie verloren, kopiere aus Notepad++, die Einrückungen mache ich mit Tabscode:(defun c:rC-Messen_Winkel-Prozent( / sli li x1 x2 y1 y2 proz Prozentstr winkel Winkelstr) ;Meldung (princ " ") (princ "
rC © ryfB FUNKTION: misst Neigung einer Linie in Grad und %") (princ) ;Linie wählen: (while (not (and (setq sli (entsel "
Linie wählen ")) (= (cdr (asso ...
|
| In das Form Lisp wechseln |
|
Lisp : Automatic Dimension AutoCAD LISP??
cadffm am 28.07.2023 um 10:03 Uhr (1)
Hi,"Wir müssen alle Layoutseiten in dieselbe PDF-Datei plotten""Ich konnte die Option für alle Layouts im Befehl -PLOT nicht auswählen."Die Möglichkeit gibt es weder im Plot, EPDF noch Export Befehl in AutoCAD,das geht nur über PUBLIZIEREN und dafür (Steuerung über die Befehlszeile) müßte man bereits eine Planliste.dst erstellt haben.Edit: EPDF/-EXPORT in einem Layout ausgeführt bietet diese Möglichkeit, DANKE kadirozen !!!Oder man findet/schreibt ein Programm was den ein oder anderen Weg doch brauchbar ma ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Probleme gesucht...
Brischke am 16.04.2003 um 15:01 Uhr (0)
Hallo Geos, wenn du den Wert des/der gepickten Textes/Attrib s haben möchtest, dann geh doch gleich mit nentsel drauf. Habe mal etwas code getippst, der eigentlich das machen sollte, was du möchtest. Habe das nur hier runter geschrieben, kann also sein, dass kleine Fehler drinnen sind bzgl. Klammern..? Code: (defun c :picktext ( / text) (while (not text) (princ "
Text oder Attribut wählen: ") (setq text (lesen)) ) (princ "
gefundener Text:") (if (= (type text) STR) (princ text) ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Lisp-Programm automatisch starten
Geistl am 17.03.2007 um 10:37 Uhr (0)
das ist mein laienhaft auf die schnelle gebautes Programm!(defun mysettigs ( / eingabe) ; Alten Pfad ausgeben; (gencfgget "gen@Paths@DWGTITLE") ; (gencfgget "gen@Paths@DWGPATH"); Neuen Pfad setzen(terpri)(terpri)(terpri)(terpri)(terpri)(terpri)(terpri)(terpri)(princ "Bitte Kunden auswählen:
")(princ "----------------------------
")(princ "Kunde1:----1
")(princ "Kunde2:--------2
")(princ "Kunde3:------3
")(textscr)(textscr)(terpri)(setq eingabe (getstring T "Kunde ? ")) (if (= eingabe "1") (progn (te ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Schriftfeldeinträge exportieren
Tommi1503 am 28.01.2005 um 10:11 Uhr (0)
Hallo CAD ler Ich habe ein Problem mit dem Mechanical Desktop bzw AutoCAD. Wir mochten Schriftfeldeinträge mehrerer Zeichnungen in eine Excel datei exportieren. Diese Funktion wird auch von Autodesk unterstützt und zwar mit dem Befehl _eattext diese Funktion lässt sich auch auf mehrere Zeichungen anwenden. Leider exportiert er nicht alle Attribute des Schriftfeldes. Es schien im Anfang nur so zu sein, dass die Attribute nur sporadisch aus einzelnen Zeichnungen übernommen wurden. Unserer CAD-Support Partne ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Layer umschalten bei der Bemassung
Brischke am 13.10.2003 um 13:28 Uhr (0)
Hi, jetzt will ich mich auch einmal einmischendie folgenden paar Zeilen sind für die Implementierung eines Reaktors vollkommen ausreichend- es sind auch alle Befehle, die mit DIM beginnen erschlagen. Code:(defun pre_lay (reatyp befname / );Wenn Bem gestartet wird (cond ((wcmatch (car befname) "DIM*") (setq *oldlay* (getvar "CLAYER")) (setvar "CLAYER" "0") ) ) )(defun after_lay (reatyp befname / );Wenn Bem beendet wird (cond ((and (wcmatch (car befname) "DIM*") *oldlay* ) (setvar "CLAYER ...
|
| In das Form Lisp wechseln |
|
AutoLisp : assoc??
Brischke am 15.03.2004 um 07:21 Uhr (0)
Hallo Moony, mit (car..) sprichst du das erste Element einer Liste an. (cdr..) gibt dir die Liste ohne das erste Element als Ergebnis zurück. Mit (nth..) sprichst du ein Listenelement direkt an, und erhältst auch nur dieses als Ergebnis. Deine Liste sieht so aus: ((10 67.8505 29.062) (10 80.7359 29.062) (10 80.7359 39.4718) (10 67.8505 39.4718)) Du möchtest von jedem Element den Schlüssel, also die 10, entfernen. Für ein einzelnes Element macht man das dann mit (cdr..) - für alle auf einmal mit (mapcar c ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Hilfe zu Lispprog.
CADLUIS am 05.01.2009 um 17:39 Uhr (0)
Hallo zusammen!Ich habe im Netz ein kleines Lisp gefunden das fast geneu meinen Wünschen entspricht.Dieses Prog. benennt mir die Layout nach der Plannunmmer um, und nummeriert diese dann fortlaufend.Nun brauche ich eure Hilfe um es für mich perfekt zu machen.1.) Nur es bringt mir eine Fehlermeldung (; Fehler: no function definition: VLAX-GET-ACAD-OBJECT)2.) Wie kann ich dem Prog. sagen das es nicht bei Nummer 1 beginnen soll, sondern eine Abfrage der 1. Nummer für die Nummerierung. (Die erste Nummer ist n ...
|
| In das Form Lisp wechseln |
