|
Lisp : Hilfe bei lisp! Block Attrtibute rotation und position!
Brischke am 15.02.2013 um 07:05 Uhr (0)
Hallo georg,in einem der letzten AutoCAD-Magazine war so ein Tool drinn. Vielleicht hast du ja darauf Zugriff?Das Tool im AutoCAD-Magazin ist zwar von mir, da die Rechte mit der Veröffentlichung jedoch an den Verlag gehen, kann ich das Tool hier nicht posten.Grüße!Holger------------------Holger BrischkeFREIE SCHULUNGSPLÄTZE -- C#.NET-Schulung im Mai 2013 Bei Interesse bitte melden!CAD on demand GmbHIndividuelle Lösungen von Heute auf Morgen.defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!
|
| In das Form Lisp wechseln |
|
Lisp : Attribute verschwinden beim Füllen mit LISP
joern bosse am 02.11.2011 um 11:07 Uhr (0)
Hallo Karsten,konnte ich nachvollziehen, warum das so ist, keine Ahnung.Aber bei mir hat ein Würgaround funktioniert, wenn das entmod ein zweites Mal ausgeführt wird, dann hat es geklappt. Code:(defun SetPos (/ sNewVal ent attr) (Setq sNewVal "zzz") (setq ent (car(entsel))) (if (setq attr (entnext ent)) (progn (setq lOldVal (assoc 1 (entget attr))) (entmod (subst (cons 1 sNewVal ) lOldVal (entget attr))) (entmod (entget attr)) (entupd attr) ) ) );defun(SetPos)Warum das so ist weiß ich aber a ...
|
| In das Form Lisp wechseln |
|
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 |
