|
Lisp : Spline schliessen
ositodepeluche am 04.09.2022 um 12:26 Uhr (1)
Vielen Dank für die Bemühungen. Ich habe folgendes versucht:(defun mycommand (cmnd / oldecho) (setq oldecho (getvar "cmdecho")) (setvar "cmdecho" 1) (initcommandversion) (command cmnd) (while (eq 1 (logand 1 (getvar "cmdactive"))) (command pause) ) (setvar "cmdecho" oldecho)) (defun c:FREIHAND () (setvar "skpoly" 2) (While (mycommand "._sketch") (command "splineedit" "l" "_close" "" "" "") ))Leider funktioniert das bei mir nicht. Es wird immer noch die lezte erstellte Spline geschlossen und die S ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Listen exportieren
Brischke am 04.02.2004 um 15:39 Uhr (0)
Hi Martin, ich möchte dir jetzt nicht meine Methode aufdrücken, aber zeigen wie einfach es eigentlich ist. Deswegen ein Beispiel: Code: (defun c:xxx (/ w1 w2 w3 inDateiListe meineListeAusDatei) (setq w1 1 w2 1.1 w3 "Hallo" inDateiListe (list w1 w2 w3) ) ;;Daten wegschreiben (w:list- File "c:datei.txt" inDateiListe) ;und wieder Laden (setq meineListeAusDatei (load "c:datei.txt")) ) (defun w:list- File (datei WerteListe / f) (setq f (open datei "w")) (princ ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Text kopieren und ändern
Dober Heinz am 18.10.2005 um 14:29 Uhr (0)
@FuchsiHabe dein Lisp getestet(setq aus (car(entsel)))(setq umw (entget aus))(setq txt (cdr (assoc 1 umw)))(setq a2 (fSplit txt "/"))(strcat (itoa (car a2 )) "/" (itoa (1+ (cadr a2))))(defun fSplit (String Separator /) (setq String (replace String Separator " ")) (setq String(strcat "(list " String ")")) (eval (read String)) )(defun Replace (String SearchString ReplaceString /) (while (/=String (vl-string-subst ReplaceString SearchString String)) (setq String (vl-string-subst ReplaceString SearchSt ...
|
| In das Form AutoLisp wechseln |
|
Lisp : letzter Befehl wird ausgeführt.
Daniel Möller am 03.05.2011 um 11:31 Uhr (0)
Hallo zusammen,hoffe ihr könnt das schöne Wetter etwas genießen :-)Mittlerweile gibts bei uns dank euch schon ein paar nette LISP Routinen allerdings hab ich bei manchen noch ein Problem das beim ausführen oft der letzte Autocad Befehl ausgeführt wird. Was kann ich dagegen tun?z.b zeichne ich in autocad eine linie und führe zb. dann folgende Routine aus:(defun C:260Text() (progn (command "LAYZUSF" "N" "AQA-TEXT00260" "" "N" "TAG-Nummer" "J") ) )nilManchmal macht er dass dann nicht und will eine Linie zei ...
|
| In das Form Lisp wechseln |
|
Lisp : Linie in Punkt umwandeln
CAD-Huebner am 26.03.2006 um 18:10 Uhr (1)
Über Probleme ärgert man sich doch nicht - Probleme löst man.Der Beitrag provoziert natürlich Fragen wie die von Holger - was ist eigentlich der Sinn des Beitrags?a) Wolltest du dir nur mal Luft machen?b) oder suchst du Hilfe bei einer Programmieraufgabe wo du nicht weiterkommst - dann bitte zeigen (Code) wo du gerade hängst.c) war das ne Bitte um eine Lösung, was ja im "Selbsthilfeforum" schnell auch berechtigte Kritik einbringt.Also mit SSGET alle Linien filternDann in einer Schleife alle Linien, wo Anfa ...
|
| In das Form Lisp wechseln |
|
Lisp : Script aus Lisp mit Command aufrufen
CADmium am 11.09.2007 um 14:51 Uhr (0)
Zitat:Original erstellt von Peter2:Herzlichen Dank an beide. Mein Kurztest zeigt, dass es mit Übergabe von Strings klappt, dass er aber anscheinend Variablen nicht auswerten kann: Rückgabe nil, keine Meldung, keine Änderung naja .. Meldungen hab ich mir verkniffen .. aber das mit den Variablen kann ich nicht nachvollziehen.. Das erste Argument muß eine Liste mit Layernamen(Strings) sein, nicht existierender Layer werden aussortiert, das 2. muß ein existierender Layername sein. (das Anlegen hab ich mir auc ...
|
| In das Form Lisp wechseln |
|
Lisp : cui
CADmium am 04.11.2008 um 10:33 Uhr (0)
Zitat:Original erstellt von lutzc:Weißt du vielleicht auch eine Lösung auf meine andere Frage,wie ich Supportpfade per Lisp ergänzen kann?Danke und GrußChristianam einfachsten geht das wohl über (getenv "ACAD") und (setenv ACAD PFADLISTSTRING)Eine andere Möglichkeit wäre über ActiveX mittels (vl-load-com)(vla-get-supportpath(vla-get-files(vla-get-preferences(vlax-get-acad-object))))und z.B.(vla-put-supportpath(vla-get-files(vla-get-preferences(vlax-get-acad-object))) "C:")bei Fragen oder Suche eines Komp ...
|
| In das Form Lisp wechseln |
|
Lisp : Layer umschalten bei der Bemassung
mapcar am 29.10.2004 um 12:29 Uhr (0)
Hans-Peter,es hat eine Weile gedauert, bis ich deinen Fehler nachvollziehen konnte. Ich kann ihn reproduzieren, wenn ich SDI auf 1 setze. Ich habe aber derzeit keine 2000er Version, und ich weiss auch gar nicht mehr, wann SDI und LISPINIT überhaupt eingeführt wurden. Kann es sein, dass 2000 noch nicht MDI-fähig war?Da müsste jetzt mal jemand helfend einspringen, der eine 2000er Version hat.Gruß, Axel Strube-Zettler------------------(defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß ma ...
|
| In das Form Lisp wechseln |
|
Lisp : Anzeige - ruckeln - etc.
Dorfy am 09.02.2010 um 14:54 Uhr (0)
Zitat:Original erstellt von Geos:Attribut anklicken - Daten auslesen - daraus Text entmaken - Text verschieben (= neue Position abfragen) - Einfügepkt. lesen - damit Attribut entmoden.Zum Abfragen der neuen Position hängt der Text am Cursor. Bisher ging das sehr flüssig, aber seit ACAD2010 Hi,wie/womit schiebst du denn?command move oder expresstools acet-ss-drag-move oder ... ?Mal einen anderen Rechner genutzt? (Graka-Treiber usw.)Mal QTEXTMODE 1 probiert?------------------Mfg HeikoElefantenjagd in Afrika ...
|
| In das Form Lisp wechseln |
|
Lisp : absolute Rendermaterialpfade ändern
mapla am 23.02.2009 um 22:11 Uhr (0)
Hallo Lispler,AutoCAD legt bei Materialzuweisungen absolute Pfade an! z.bsp. bei ACAD2008All UsersAnwendungsdatenAutodeskAutoCAD 2008R17.1deuTexturesÖffnet man die Datei in 2009 ist das unproblematisch da beim Rendern Der TextureMapSuchpfad ausgelsesen wird.Allerdings funktioniert ETransmit nicht, die findet die Datei nur im absoluten Pfad sofern vorhanden.Gibt es eine Möglichkeit den absoluten Pfad vi Lisp zu ändern?Mit DxfOut Pfad entfernen und wieder einlesen funktioniert Render und Etransmit unter 2009 ...
|
| In das Form Lisp wechseln |
|
Lisp : Nach Speichern unter in alter Datei bleiben
archtools am 21.01.2010 um 20:27 Uhr (0)
Zitat:Original erstellt von Musicus:Hallo Forum,ich habe hier ein Lisp (gefunden im Forum und für meine Zwecke angepasst), welches mir Pläne als 2004er Version wegspeichert und dabei den Pfad abfragt (zwecks Planausgabe).Jetzt ist es ja aber so, dass nach der Funktion saveas AutoCAD in die neue, eben gespeicherte Datei wechselt und die Originaldatei verwirft.Kann man AutoCAD noch irgendwie beibringen, dass es zwar die Datei speichert, aber bitte in der Originaldatei verbleibt?Nichts einfach als das: speic ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp warten lassen
Theodor Schoenwald am 08.01.2009 um 18:39 Uhr (0)
Hallo Stefan,ich habe es Heute Abend noch getestet.Ob so:(startapp "C:Programme\_PGC
unWaitMakeFile.exe C:Programme\_PGCPGCPock.EXE C:TempPocketOUT.ARF")in AutoLispoder so: runWaitMakeFile.exe PGCPock.exe PocketOUT.ARFim DOS-Fenster und gleichem Ordner, die Datei "PocketOUT.ARF" hat 0 Byte.Normalerweise hat sie viel mehr.Scheinbar wartet das Programm "runWaitMakeFile.exe" nicht bis das Programm "PGCPock.exe" alles fertig hat.Die "PGCPock.exe" hat je nach Kontur viel zu rechnen, die Ergebnisse werden danach ...
|
| In das Form Lisp wechseln |
|
Lisp : Überwachungsfenster im Visuallispeditor
Peter2 am 10.08.2018 um 19:17 Uhr (1)
So mal zum Thema passend...Mir passiert es in letzter Zeit (2019, auch 2018) immer wieder, dass mir keine Lisp Werte mehr in der Befehlszeile angezeigt werden. Schaut dann so aus - es gibt einfach leere ZeilenCode:Befehl: !xBefehl: (setq x "hallo")Befehl: !xBefehl: (princ x)halloIm Vlide erzählt mir dann auch das:Zitat:; Benutzerwarnung: Desktop-Datei beschädigt: "C:/Users/.../AppData/Roaming/Autodesk/AutoCAD 2019/R23.0/deu/VLIDE.DSK"Mit Beenden, löschen etc. geht es dann wieder - aber zu wissen was da läu ...
|
| In das Form Lisp wechseln |
