|
Lisp : Textstil per LISP umbenennen, falls vorhanden
cadffm am 01.02.2017 um 15:29 Uhr (1)
If prüft nur auf eine Bedingung, aber es gibt Funktionen um mehrere Ausdrücke zu einem zusammenzufassenPROGNANDORusw.Code:(if (and (tblsearch "STYLE" "Stilname1") (not(tblsearch "STYLE" "Stilname2")) ) (command "_.-RENAME" "_style" "Stilname1" "Stilname2")) ;----------------------------------------------------------------(if (tblsearch "STYLE" "Stilname1") (if (not(tblsearch "STYLE" "Stilname2")) (command "_.-RENAME" "_style" "Stilname1" "Stilname2") (alert "Stilname2 b ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp Programmierung (ein Dorf in China?)
Rabbit 007 am 01.08.2007 um 10:29 Uhr (0)
Habe mal was für dich zum Basteln zusammen geschoben.Kopiere den hier drunter stehenden Code einfach mal in deine Befehlszeile.Code:(defun c:Hallo ( / Objektfang) (setq Objektfang (getvar "osmode")) (setvar "osmode" 0) (command "_layout" "n" "Das große Hallo Layout !!!" "") (command "_layout" "se" "Das große Hallo Layout !!!" "") (command "_line" (60.1347 202.589 ) (60.1347 131.438 ) "") (command "_line" (119.352 167.014 ) (60.1347 167.014 ) "") (command "_line" (103.753 202.589 ) (103.753 131.438 ) "") (c ...
|
| In das Form Lisp wechseln |
|
Lisp : Toolbars im V-Lisp Editor werden blas dargestellt
Brischke am 29.07.2009 um 07:19 Uhr (0)
Hallo Theo,damit bist du ganz sicher nicht allein. Von Zeit zu Zeit ist dies bei mir ähnlich, manchmal sind alle Buttons auch einfach nur schearz. Nach mehrmaligen Neustarts (manchmal vom VL-Editor) vom AutoCAD ist die Darstellung dann korrekt.Warum? -- Keine Ahnung. Ich habe gelernt mit solchen (weniger dramatischen) Dingen zu leben.Grüße Holger------------------Holger BrischkeCAD on demand GmbHIndividuelle Lösungen von Heute auf Morgen.
|
| In das Form Lisp wechseln |
|
Lisp : Falscher Block durch Lisp eingefügt
wronzky am 13.08.2008 um 16:15 Uhr (0)
Hi Robert,das liegt daran, dass Du die Definition der Funktion HK-SETZEN (und auch alle anderen) mit jedem Laden neu setzt. Dann ist immer die zuletzt definierte Funktion gültig.Verschiedene Möglichkeiten der Lösung:- Du benennst nicht nur die C:... Funktion um, sondern auch alle zugehörigen und erzeugst so eindeutige Namen.- Du schreibst die (Defun...)-Funktionen IN die (defun C:...) hinein, und definierst sie jedesmal beim Aufruf neu.- Du definierst die HK-SETZ-Funktion mit Übergabeparameter (= Blockname ...
|
| In das Form Lisp wechseln |
|
Lisp : Protect your Lisp
cadplayer am 09.07.2013 um 12:34 Uhr (0)
So könnte vielleicht eine Verschlüsselung aussehen.Die Funktion kann nur an dem Tag aktiviert werden, an dem der Aktivierungscode bestellt wurde. D.h., wenn man am nächsten Tag gleichen Activierungscode verwendet, funktioniert er nicht mehr.Es gilt jetzt vielleicht noch, die Funktionen sinnvoll aufzuteilen oder zu kürzen. Vom Prinzip funktioniert es aber.Code:; Funktion verschlüsselt das Passwort mit dem aktuellem Datum(defun encrypt (str / p) (setq p (mapcar + (vl-string-list str) (1 8 14 19 3 6 17 36 25 ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Pfade zu appload/Inhalt über Lisp hinzufügen ?
CADmium am 17.03.2005 um 12:34 Uhr (0)
schon mal in der ACAD-Hilfe nach s::startup gesucht ? Ansonsten helfen vielleicht (setq KEY (strcat HKEY_CURRENT_USER (vlax-product-key) PROFILES (vla-get-ActiveProfile (vla-get-PROFILES (vla-get-preferences (vlax-get-acad-object) ) ) ) DialogsApploadStartup ) ) und vl-registry-write weiter ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Lisp-Zugriff auf neue Excel xlss, xlsm ...
Peter2 am 17.11.2011 um 15:14 Uhr (0)
Zitat:Original erstellt von CADmium:...oder immer über das Excel-Objekt ? .... Bei letzterem muss doch nur Excel die Formate beherrschen ...Getestet und für gut befunden. Danke bestens an Beide. Da konnte jetzt was kurz und schmerzlos erledigt werden (Kurz natürlich nicht für das Öffnen der XSLM in Excel 2003, weil da noch gemütlich die Konvertierung durchläuft.)Danke.Peter------------------Für jedes Problem gibt es eine einfache Lösung.Die ist aber meistens falsch. ;-)
|
| In das Form Lisp wechseln |
|
Lisp : Text Ändern in Block (Attribut) per Lisp
spider_dd am 05.02.2018 um 08:51 Uhr (1)
Also, so wie die letzte Code-Version bei KlaK steht, reicht ein Aufruf von UPDATE-TITLE-BLOCK ohne Attribute. Dieses startet die mit defun c: UPDATE-Title-Block (ganz unten) definierte Funktion, die wiederum die mit defun (ohne c: ) definierte Funktion UPDATE-Title-Block (ganz oben) aufruft und dabei die Parameter "Titelblock" "Zeichner" "FM" übergibt. Wenn, dann müsste hier geändert werden.HTHGrußThomasps. dass das geht, mit defun c: und defun zwei unterschiedliche aber gleichnamige Funktionen zu def ...
|
| In das Form Lisp wechseln |
|
AutoLisp : ein LISP-Tool für Parallelbemaßung
tappenbeck am 09.02.2005 um 11:37 Uhr (0)
hi ! das oben gepostete tool erstellt eine bemassung zwischen zwei punkten. lilyfee sucht aber eine möglichkeit ein parallelmass zu generieren und deshalb habe ich die punktwahl um objektfänge wie folgt erweitert: (progn (setvar osmode 512);Ofang nächster (if (setq pkt1 (getpoint
Startpunkt der Bemassung eingeben. )) (progn (setvar osmode 128);Ofang Lot (setq pkt2 (getpoint pkt1
Endpunkt der Bemassung eingeben. )) );end-progn ) nur kommt jetzt so eine merkwürdige f ...
|
| In das Form AutoLisp wechseln |
|
Lisp : schriftfelder via lisp (ac2005)
snp am 15.02.2012 um 07:42 Uhr (0)
Hallo,kann mir jemand dabei helfen den Code so zu bearbeiten damit auch das Material dazu ausgegeben wird.DankeCode:(vl-load-com)(defun C:LNKFLD (/ INDEX SELSET) (setq INDEX 0) ;_ Zähler für Repeat initialisieren (princ "
Zu beschriftende Linienobjekte wählen:") (if (setq SELSET (ssget ((0 . "*POLYLINE,LINE,ARC")))) ;_ Auswahlsatz mit Filter erstellen (repeat (sslength SELSET) ;_ Jedes Objekt des Auswahlsatzes durchgehen... (LINKEDLENGTH(ssname SELSET INDEX) ;_ Name des Objekts aus Auswahlsatz ermitteln ...
|
| In das Form Lisp wechseln |
|
Lisp : Anonyme Blöcke per Lisp umbenennen
Peter2 am 21.04.2005 um 10:56 Uhr (0)
Zitat:Original erstellt von CADmium:.. macht aber trotzdem kein Sinn, es sei denn , es sind alles Klarnamen .. sonst weiß man doch nicht welchen Block man gerade umbenennt.Das ist richtig und funktioniert bestens, wenn man weiss, was und wo man klickt. Schwieriger wird die Sache dann, wenn sehr viele Blöcke herumliegen, Block in Block und übereinander - dann macht es ev. Sinn, alle mal auf irgendwelche Klarnamen umzubennen und dann mit Blockansicht, Schnellfilter usw. weiterzuarbeiten. Aber das ist wahrsc ...
|
| In das Form Lisp wechseln |
|
Lisp : Warum funkt dieses lisp nicht in Briscad?
KA2 am 05.09.2011 um 12:14 Uhr (0)
Sind nicht nur geschlossene Bereiche..können auch offene Linienzüge sein. Lniks ist absichtlich nicht schraffiert umd deutlich zu machen, das die linien ausgewählt werden.. kann von einer einzelnen bis zu allen gehen. Nach auswahl der Linien die schraffiert werden sollen werden sie verbunden und versetzt um das vieleck darauf zu erzeugen, das für die Schraffur ja benötigt wird. In der realität zeigt die Schraffur nicht bearbeitete Seiten eines Werkstückes an.Danke sehr
|
| In das Form Lisp wechseln |
|
Lisp : In Lisp mit ESC nicht komplett aus Programm aussteigen
Udo774 am 30.01.2018 um 07:19 Uhr (1)
Hallo Zusammen!habe das Forum schon durchsucht und nicht das Passende gefunden.Ist wahrscheinlich simpel. Vielleicht kann mir jemand helfen.Wenn bei der Ausführung "ESC" drücke wird das Programm beendetund sollte aber die Funktion in den alten Layer zu wechseln noch ausführen.Für Hilfe wäre ich dankbar!!!(defun c:Layer()(setq *oldlay* (getvar "CLAYER")) (setq LAYER "Layer-Linie")(command "_-layer" "_m" "Layerlinie" "")(setvar "CECOLOR" "bylayer")(setvar "celtype" "bylayer")(command "_line" pause)(while (/= ...
|
| In das Form Lisp wechseln |
