|
AutoLisp : Bei Abruch oder Esc Benützereinstelungen zurücksetzten
vision am 20.10.2005 um 15:45 Uhr (0)
;Die Unterprogamme müssen oben stehen! (defun Init () (setq Err *error* *error* Fehler Osx (getvar "OSMODE") ) ) (defun ReInit () (setvar "OSMODE" Osx) (setq *error* Err) ;(redraw auswahl 4) (princ) ) (defun Fehler (s) (print (strcat "Fehler: "s)) (ReInit) ) (defun c:LispPrg (/ Err Osx) ;das vorhandene Lisp-Prg. (Init); Aufruf Unterprogramm (siehe oben) ;..... ;..... ;.....)Der fette Text muss zum vorhandenen Prog. hinzu gefügt werden!
|
| In das Form AutoLisp wechseln |
|
Lisp : Beschriftungsmaßstäbe
joern bosse am 09.07.2011 um 14:28 Uhr (0)
Hallo Armin,probier mal folgendes:Code:(defun ScaleExist? (name / scale-en-list liste) (foreach ITEM (dictsearch (namedobjdict) "ACAD_SCALELIST") (if (= 350 (car ITEM)) (setq ScaleNameList (cons (strcase(cdr(assoc 300(entget (cdr ITEM)))))ScaleNameList))) ) (if(member (strcase name) ScaleNameList)T));;;Beispiel: (ScaleExist? "1:100")Als Beispiel im Umgang mit Beschriftungsmaßstäben gibt es ein gutes LISP von Steve Johnson: http://forums.autodesk.com/autodesk/attachments/autodesk/247/10204/1 ...
|
| In das Form Lisp wechseln |
|
Lisp : Layer zusammenführen - Problem mit der Namensangabe
tappenbeck am 11.01.2018 um 10:56 Uhr (1)
Moin!ich wollte Layer via Lisp zusammenführen und habe mir schon einmal die Command-Line zusammengesetzt.Code:(command "LAYZUSF" "N" "_Ausschnitt_Zapfen_Rohbau" "_Schnitt_0" "J")Das Problem ist aber schon bei der manuellen Erkundung der Befehlsreihenfolge, dass im Textfenster folgendes steht:Zitat:Objekt auf Layer zum Zusammenführen auswählen oder [Name]:Aber egal ob ich N oder Name eingebe, ich bekomme die MeldungZitat:Erwartet einen Punkt oder Letztes/Name]:Kann mir einer weiterhelfen?Gruß Jan----------- ...
|
| In das Form Lisp wechseln |
|
Lisp : Layer eines Layer-Eigenschaftsfilters schnell frieren/tauen
archi.archi am 01.10.2018 um 11:46 Uhr (1)
Verehrtes Forum,wir verwenden im Layereigenschaften-Manager Eigenschaftsfilter u.a. zum Frieren/Tauen.Leider ist die Nutzung dieser Layer-Filter mit "rechte Maustaste - Sichtbarkeit - Getaut" bei einer großen Layer-Anzahl sehr langsam.Wie kann man alle Layer der Layer-Filter über deren Namen (z.B. "*Schrott") mittels Lisp schneller Frieren/Tauen?Programmierfreundliche GrüßeArchi[Diese Nachricht wurde von archi.archi am 01. Okt. 2018 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : Bildreferenzen löschen
FeR am 19.01.2017 um 08:29 Uhr (1)
Hallo CADmium,ich habe das gleiche Problem wie Bernhard GSD dein ClearImages.VLX funktioniert bei mir jedoch nicht. Ist die Testversion zeitlich begrenzt?Ich habe bis dato immer Deinen veröffentlichten Code verwendet habe nun aber bemerkt, dass ich auch Zeichnungen aufräumen muss wo geladene Bilder nicht gelöscht werden sollen.Für Hinweise wie ich nach nicht gefundenen Images mit Lisp Suchen kann wäre mir auch schon ein Stück weit geholfen.------------------mfgFeR"gefundene Rechtschreibfehler dürfen behalt ...
|
| In das Form Lisp wechseln |
|
Lisp : Problem mit dem Befehl _gradient
CadDesign am 24.08.2008 um 16:09 Uhr (0)
Hallo ich bin verzweifelt, ich versuche seit Tagen ein Lisp Programm zu erstellen, das mir ein bereits vorhandenes Objekt (Kreis, Rechteck) mit dem Befehl "_gradient"füllt. Als Parameter soll ein innerer Punkt, die 2 Farben und die Art der Abstufung angegeben werden. (linear, gekrümmt,...)Ich habs mit dem Befehl (command "_gradient" ...) versucht, aber zwecklos. Mit entget und entmake habe ich es auch schon versucht, aber ebenfalls ergebnislos.Wenn mir bitte jemand einen Tipp geben könnte?! Besten Dank!J ...
|
| In das Form Lisp wechseln |
|
Lisp : Neue .DWG erstellen
cadffm am 26.06.2012 um 11:12 Uhr (0)
Zwei Antworten gibt es dazu:Du bist NICHT im SingleDocumentModus(SDI=1) und deine Datei befindet sich im gespeicherten Zustand,denn dann würde ein "Lisp Script" funktionieren.oder die Variante mit der du mehr anfangen kannst:Im MultiDocumentModus(SDI=0) leben deine Lispfunktionen und Variablen nur im Namensraum der aktuellen Datei und bei der Anweisung (command "_.new" verlässt du diesen ja.Dein Funktion steht nicht zur Verfügung in der neuen Datei und wird dort dann auch nicht fortgeführt..--------------- ...
|
| In das Form Lisp wechseln |
|
AutoLisp : INSERT LWPOLYLINE
Brischke am 01.08.2003 um 10:53 Uhr (0)
Wenn in der LWPolylinie keine Koordinaten doppelt drin sind, dann kommst du mit (assoc...) sicher an die Koordinate, wenn nicht musst du die Logik, die du im Kopf hast irgendwie im Programm umsetzen. beim (assoc 10 Koordinate) kann aber auch wieder die Problematik der Gleichheit greifen. Dann ist s wieder besser mit (equal..) jeden Punkt zu vergleichen. Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! Irgendwann muß man schlafen, deshalb: +!+!+Urlaub vom 01.08.- ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : AMTitle auslesen
JörgW am 27.04.2005 um 21:17 Uhr (0)
Hallo Marc, hallo CADmium, ich werde mir Skripte mal ausprobieren, habe aber keinerlei Plan von LISP. G... wäre als Ergebnis ein Textfile, in welchem in jeder Zeile die benötigten Infos gespeichert werden. Etwa in dem Stil: Zeich-Nr1;Benenn1;Benenn2;BearbName;BearbDatum; Zeich-Nr2;Benenn1;Benenn2;BearbName;BearbDatum; Dabei sind die oben genannten Begriffe Attribute im Block amtitle. Das Skript möchte ich über ca. 15000 Zeichnungen rennen lassen. Grüße Jörg
|
| In das Form AutoLisp wechseln |
|
Lisp : Bildreferenzen löschen
MKL--CAD am 15.12.2022 um 14:21 Uhr (1)
Ich versuche mich auch daran Bilder aus dem Bild-Manager zu löschen die in der Zeichnung nicht mehr verwendet werden. Finde es schon komisch das dass nicht mit dem Befehl bereinigen funktioniert. Arbeite mit Bricscad so man mit VLX Dateien nicht fiel anfangen kann. Besteht vielleicht die Möglichkeit die ursprüngliche lsp Datei in einen der Dateiarten, wie im Anhang zu sehen ist, zu speichern?Arbeite nur gelegentlich mit Lisp und hab schon einen halben Tag gesucht und herumgetestet. Alles was ich gefunden h ...
|
| In das Form Lisp wechseln |
|
AutoLisp : block in Zeichnung beim öffnen autom. einfügen
Brischke am 29.01.2004 um 10:23 Uhr (0)
Hallo Frank, dann nimm doch diese Zeilen (if (tblsearch BLOCK TEST ) (progn (command _.insert test=c:adt_r2 est.dwg (0 0 0) ) (entdel(entlast)) ) ) , dann passiert der Austausch unmerklich, da nur die Blockdefinition aktualisiert wird. Somit brauchst du nicht die Layouts nach diesem Block abgrasen und einfügen. Ist (in meinen Augen) das Einfachste. Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Layout wechseln
CADLUIS am 22.07.2010 um 16:49 Uhr (0)
Hallo zusammen,nochmal mein Anliegen.Ich habe mit Script das Layout kopiert, wechsle mit der Maus das Layout und wende ein neues Script an,das mir die Zeichnung um ein A0 Format verschiebt.Ich will alle Zeichnungen dieser DWG in Layouts dann kann ich sie auf einmal mit Adobe Ausdrucken.Nur möchte ich das mit einem script (kopie, wechseln, verschieben) durchführenDas ist der Gedanke den ich habeDa ich der Sprache Lisp nicht mächtig bis verwende ich script.Auf alle Fälle DANKE für die MÜHE !!!!Alois [Diese ...
|
| In das Form Lisp wechseln |
|
Lisp : Pause (2sec) in LispCode einfügen
cadffm am 11.08.2008 um 08:14 Uhr (0)
@THE_ONE, offtopicWenn du von Seite 18 redest dann nimmst du das seitenintegrierte Suchfeld ??Sowas macht man ja auch nicht..Wenn dann nimm die ALTE SUCHFUNKTION - voilaOder, da du dich angeblich mit Google auskennst - NIMM GOOGLE !Dann hast du ebenfalls mehrere PAGE_ONE Treffer...auf die Sprünge helf:Lisp pause site:cad.deoder engstirniger (eigentlich ZU engstirnig)Forum145 pause site:cad.de------------------die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)
|
| In das Form Lisp wechseln |
