|
AutoLisp : If-Funktion zum Auswahl prüfen
Hänk am 14.01.2006 um 16:21 Uhr (0)
Hi zusammenIch habe mit Lisp einen Auswahlsatz mittels ssget erstellt den ich dann verwende um dessen Eigenschaften zu verändern (chprop). Das funktioniert soweit, nun möchte ich noch den Fehler abfangen wenn die Auswahl ohne gefundene Objekte abbricht. Mein Ziel ist es den Auswahlsatz zu prüfen, beinhaltet er keine Objekte soll eine Meldung erscheinen und ansonsten soll der chprop Befehl weitergeführt werden um Eigenschaften zu ändern.Wie mache ich sowas? habe die if-Funktion studiert, aber irgendwie weis ...
|
| In das Form AutoLisp wechseln |
|
Lisp : unbekannter befehl bei lsp
archtools am 08.12.2011 um 23:12 Uhr (0)
Zitat:Original erstellt von Bauvermesser:beim aufruf einer lsp kommt Befehl: Unbekannter Befehl "UF". Drücken Sie F1-Taste für Hilfe.die lsp wird aber gestartet und läuft Problemlos.was könnte der fehler sein?Das hat Dir AutoCAD doch schon gesagt: in Deinem Lisp-Programm wird ein Befehl "UF" aufgerufen, und den kennt AutoCAD nicht.Deine Frage ist ohne Bereitstellung des Codes ungefähr so sinnvoll wie die, was wohl in Deinem Kühlschrank steht, was da nicht hinein gehört, Du uns aber den Einblick in Deinen ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Viewports
Brischke am 08.06.2004 um 09:38 Uhr (0)
Hallo Thomas, wichtig bei der Manipulation der Viewports ist, dass du diese nur ändern kannst, wenn diese aktiviert sind. Du musst also die Sysvar CVPORT auf den Index des Viewports setzen, den du bearbeiten möchtest (GC 69). Ich habe die Erfahrung gemacht, dass mit den ActiveX Eigenschaften dann eigentlich alles zu machen ist, auch das ViewportOn sollte dann gehen. Habe es dafür nicht probiert/getestet. Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-P ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Autocad2015 Vertrauenswürdige Speicherorte
jupa am 28.08.2017 um 16:55 Uhr (1)
Zitat:Original erstellt von neo4matrix:Die Datei "My-Trustedpaths.lsp" habe ich dann in den Supportpfad kopiert:"C:Program FilesAutodeskAutoCAD 2017Support"Hi neo, [OT]Ich persönlich würde nie eigene LISP-Dateien in den zum Programm gehörenden Support-Ordner ablegen, sondern einen (od. mehrere) eigene(n) Ordner für LISPs oder andere anlegen und dann den "Suchpfad für Support-Datei" in den Optionen um ebendiese(n) Ordner erweitern. Nur ein gut gemeinter Tip ... Jürgen------------------Bildung kommt nicht ...
|
| In das Form Lisp wechseln |
|
Lisp : String in Liste ersetzen
JC Wasti am 30.10.2006 um 14:40 Uhr (0)
Zitat:Original erstellt von spider_dd:Hallo Wasti,also bei mit klappt beides, mit und ohne (getestet in der Befehlszeile).Mal ein paar Frage:- Deine Variable obf wird bei (setq obf ... ) richtig belegt?Ja die Variable wird richtig belegt!- wie sieht sie nach dem subst aus?nach dem subst sieht sie immer noch so aus wie vorher!- gibt es eine Fehlermeldung, wenn ja welche?Es gibt auch keine Fehlermeldung!Ich erstelle gerade ein eigenes LISP-Programm, also ohne ACAD! Es soll dann unabhängig vom CAD-System fun ...
|
| In das Form Lisp wechseln |
|
Lisp : Schriftart in Textstilen ändern
Musicus am 11.08.2017 um 12:48 Uhr (1)
Fast, alles gut am Ende nicht, aber ich kann dann wieder die Textstile bearbeiten.Für die Textstile ist Arial eingestellt (hier beim verbliebenen ERSTELLTER_STIL_3). Nach dem Lisp steht der auf isocp, nach Regenerieren sieht der Text auch so aus.Speichern, schließen, wieder öffnen, es ist wieder Arial eingestellt, nicht änderbar.Erneut speichern, schließen und wieder öffnen, es ist immer noch Arial eingestellt, kann jetzt aber wieder geändert werden.
|
| In das Form Lisp wechseln |
|
Lisp : Doppelte Elemente einer Liste finden...
Brischke am 10.05.2004 um 11:48 Uhr (0)
Hallo Marc,wozu ist dies: (if ( (- (length LST) (length (vl-remove ELEM LST))) 1) überhaupt drin? Es ist doch gar nicht notwendig, das Element von der Liste zu entfernenDeshalb dann soCode:(defun DOUBLES? (LST / RETVAL) (foreach E LST (if (not (member E RETVAL)) (setq RETVAL (cons E RETVAL)) ) ) (reverse RETVAL) );oder an Stelle der (foreach ..) (mapcar (lambda (E) (if (not (member E RETVAL)) (setq RETVAL (cons E RETVAL)) ) ) LST )Grüße Holger------------------Holger Brischke(defun - ...
|
| In das Form Lisp wechseln |
|
Lisp : Schnittpunkt ermitteln
Dorfy am 24.01.2012 um 13:22 Uhr (0)
Zitat:Original erstellt von cadplayer:phanominal, das hatte ich auch noch nicht: obwohl die var "erg" nicht klar definiert ist, erfüllt sie den Zweck (bloss ungleich 0 von was) erg = nil wenn nicht deklariert(/= erg 0) -- T somit ist die Bedingung immer erfüllterg deklariert (alles außer 0)(/= erg 0) -- Terg deklariert mit 0(/= erg 0) -- NILund dann schau dir nochmal cond in der Hilfe an!oder teste unter cond mal als erstes auf((/= erg 0)(alert "Lines no parallel")) ... klar?------------------Mfg Heiko El ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Punkte sortieren
Brischke am 03.08.2003 um 12:47 Uhr (0)
Hallo Peter, schau mal in der Hilfe nach (vl-sort ..), da ist ein Bsp drin, wie man die Punkte nach X oder Y- Koordinate sortieren kann. Daraus kannst du dann erst mal die Zeilen bauen. Dann die Zeilen nach X-Wert sortieren und anschließend einfach zeilenweise die X-Abstände berechnen und wenn dieser größer als ein bestimmter Wert ist, dann eine neue Liste beginnen. Das war jetzt mein letzter Beitrag vorm Urlaub. Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! Irgendwann mu ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Anfängerfrage: (list ...) oder (....) ?
autocart am 15.07.2004 um 11:13 Uhr (0)
@ tom & holger: Danke für die Antworten. Das hilft mir schon etwas weiter. Allerdings hätte ich vorher selbt mehr ausprobieren und in der Lisp-Hilfe nachschauen sollen. z.B. finde ich unter der Beschreibung von (list ...): As an alternative to using the list function, you can explicitly quote a list with the quote function if there are no variables or undefined items in the list. The single quote character ( ) is defined as the quote function. _$ (3.9 6.7) means the same as (list 3.9 6.7) ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Fields/Felder und deren Werte addieren
-reltro- am 20.07.2010 um 14:41 Uhr (0)
Danke für die schnelle Antwort cadffmHmmm... ok...Funktioniert, nur wenn ich mir die Field-Expression anschau (erzeugt im Dialog zum erzeugen von Fields), hab ich ehrlich gesagt keine Ahnung wie ich diese aus einem Lisp heraus erzeugen soll.Das Field für die Fläche ist kein Problem.kannst du mir unter Umständen weiterhelfen?1.Field: %AcObjProp Object(%\_ObjId -1445000%).Area f "%lu2"%2.Field: %AcObjProp Object(%\_ObjId -1444992%).Area f "%lu2"%Formula: 1.Field - 2.Field- %AcExpr (%\_FldPtr -1353776% ...
|
| In das Form Lisp wechseln |
|
Lisp : Gruppencodes? Will Layer ändern!
kschlepp am 15.05.2007 um 17:44 Uhr (0)
@Rabbit: Tut mir leid, ich such jetzt seit einer Stunde nach so einer Übersetzungstabelle in der Lisp-Hilfe, kann aber leider keine finden. Ich möchte nämlich die Nummerierung nich auf irgendeinen neuen Layer schreiben, sondern auf den in Mechanical dafür vorgesehenen Text-Layer AM_6. Der heißt nur nicht immer AM_6, denn es gibt ja auch noch die Layergruppen, die sich dem Namen voranstellen. Möchte man eine Schraffur "richtig" einsortieren, so ruft man (glaube ich) "hatc" auf. Für den Layer 0 entsprechend ...
|
| In das Form Lisp wechseln |
|
Lisp : Layer frieren
Bernd P am 20.01.2014 um 16:11 Uhr (1)
ServusMit dem Lisp kann man z.B. alle Layer die im Namen "Wand", "Steher" ... (zur freien Eingabe) einfrieren.Code:(progn (princ "Layerteil: ") (setq layt(getstring)) (command "_-layer" "_on" (strcat "*" layt "*") ""))(progn (princ "Layerteil: ") (setq layt(getstring)) (command "_-layer" "_off" (strcat "*" layt "*") ""))----------------------- Bitte Systeminfo eintragen, warum siehst du hier. "Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark Bernd P. Sport ist MordRekorde: Scalelis ...
|
| In das Form Lisp wechseln |
