 |
Lisp : AutoCAD Objektfang (Ofang) Ein oder Aus (toggle) wie F3 aber als LISP
jupa am 15.11.2016 um 16:52 Uhr (15)
Versuchs mal damit: (defun C:OFangToggle ( / aosmo)(setq aosmo (getvar "OSMODE"))(if ( aosmo 16383) (progn(setvar "OSMODE" (- aosmo 16384))(princ "
Ofang ein")) (progn (setvar "OSMODE" (+ aosmo 16384))(princ "
Ofang aus")))(prin1))Jürgen------------------Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)[Diese Nachricht wurde von jupa am 15. Nov. 2016 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : Fehlfunktion
jupa am 26.03.2016 um 15:45 Uhr (1)
Zitat:Original erstellt von vision:Neuerdings kommt die Meldung: "Fehler: ... " Erste Frage: was heißt "neuderdings". Was hat sich evtl. zwischen neuerdings und der Zeit, da es noch funktionierte geändert? (Software-Updade o.ä.). Bei mir läuft Dein Code übrigens problemlos, daher ist Fehlersuche schwierig. Laß es doch mal im LISP-Editor Schritt für Schritt abarbeiten, dann solltest Du sehen wo es klemmt. Jürgen------------------Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl ...
|
| In das Form Lisp wechseln |
|
Lisp : Befehl _.text / Drehwinkel
jupa am 21.09.2012 um 13:16 Uhr (0)
Zitat:Original erstellt von Bernd10:Drehwinkel des Texts angeben 90.00:Ich habe bisher vergeblich gesucht, wo die Vorgabe für den Drehwinkel (im obigen Beispiel = 90.00) steht. Ich möchte diese vor Ausführung des Befehls auf 0.0 stellen.Wozu brauchst Du das eigentlich?. Was spricht denn dagegen, an dieser Stelle den gewünschten Wert 0 einzugeben (oder in einer LISP-Routine in den Code aufzunehmen)? Die umgekehrte Fragestellung (AutoCAD soll sich den letzten Wert merken, was das Programm an vielen Stellen j ...
|
| In das Form Lisp wechseln |
|
Lisp : Trim Schraffur
jupa am 26.02.2013 um 14:00 Uhr (0)
Zitat:Original erstellt von cadplayer:Was ist denn mit "Schraffur- und Stutzenbefehl" gemeint ? Gibts noch was anderes als trimmen ?Das war ein Mißverständnis. In Deinem ersten Posting hatte ich was von "trim command" gelesen und fälschlicherweise hineininterpretiert, daß Du das was in LISP versuchst.Zitat:Original erstellt von cadplayer:Dennoch die Frage, es kommt vor, dass sich Schraffuren nicht trimmen lassen (von mir aus unerklärlichen Gründen), kann man solche Ausläufer vermeiden ?Kann man sicherlich ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Systemparameter: Größe der Objektfangsymbole
jupa am 13.03.2018 um 14:31 Uhr (1)
Zitat:Original erstellt von cpims:Hallo Michi !Habs probiert mit (setenv "AutoSnapSize" "10"),auch mit verschiedenen Werten, es ändert sich aber nichts ander Größe der Objektfangsymbole.GrußMarioHast du es genau so eingegeben wie von Michi gepostet? Groß-/Kleinschreibung exakt so und auch überall die Gänsefüßchen? [Nachtrag]:In einer Lisp-Funktion könnte das z.B. so aussehen: (defun test (x / ) (setenv "AutoSnapSize" (itoa x)))Jürgen------------------Bildung kommt nicht vom Lesen, sondern vom Nachdenken ü ...
|
| In das Form Rund um AutoCAD 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 |
|
Rund um AutoCAD : Globale Breite in Strichstärke umwandeln
jupa am 06.05.2014 um 11:47 Uhr (15)
Eine fertige Lösung dafür habe ich nicht, aber mit ein paar LISP-Zeilen sollte das machbar sein: - finde alle Polylinien mit Breite xx- ändere Breite dieser Plolylinien auf Breite 0- erzeuge einen Layer xx mit der Eigenschaft Linienstärke = xx- ändere die gefundenen Polylinien auf ebendiesen LayerWiederhole das für alle anderen LinienbreitenSo im Prinzip, brauchst Du nur noch an Deine konkreten Bedürfnisse anpassen. Mir fehlen für eine fertige Umsetzung zu viele Detailinformationen.Jürgen------------------ ...
|
| In das Form Rund um AutoCAD wechseln |
Raute-Entwurf_12-41_Rev_1.zip |
Berechnung von Maschinenelementen : Stirnradgetriebe N:W:B Achsabstand
jupa am 24.03.2018 um 16:46 Uhr (1)
Im Anhang (ca. 7 MB) eine (vorläufige) Wertetabelle (.xlsx), wie ich mir die Anforderungen von Carsten vorstelle. (Entgegen meinen Befürchtungen hat die Berechnung/Erstellung der Tabelle weniger als zwei Minuten in Anspruch genommen.) Die Tabelle kann noch Fehler beinhalten, ich werde in den nächsten Tagen noch einige gründliche Tests (und eventuelle Korrekturen am LISP-Code) vornehmen. Wollte aber schon mal ein erstes Ergebnis zeigen ... Jürgen[EDIT]: Anhang ersetzt durch ...Rev_1------------------Bildun ...
|
| In das Form Berechnung von Maschinenelementen wechseln |
|
Rund um AutoCAD : Linien in Zylinder umwandeln
jupa am 20.05.2017 um 21:37 Uhr (1)
Zitat:Original erstellt von versuchstier: Wenn ich den Code in die Befehlszeile eingebe, Nee, so nicht. Den Code in eine Textdatei kopieren und dieser Datei einen beliebigen Namen mit der Dateiendung .lsp geben. Diese irgendwo abspeichern. Dann in ACAD den Befehl appload starten, zur Datei durchhangeln und diese Datei laden. Jetzt in der Befehlszeile den Befehl Line2zyl eingeben und fertig. Die Linien bei Bedarf anschließend löschen. Und gelegtlich mal im der FAQ suchen, wo der Umgang mit LISP-Dateien besc ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Eigene Schraffur verwenden?
jupa am 11.09.2015 um 15:20 Uhr (1)
Zitat:Original erstellt von RL13:Einen Hinweis hat der Ersteller des Lisp noch gegeben Steht schon da damit umgeht man die NachstellenproblematikNö. Da können noch immer "krumme" Linienlängen (z.B. von 0,0 nach 0.02,0.07 ergibt Länge 0,07280109889280518271097302491527) entstehen. du solltest zum Zeichnen der Schraffur also ...... oder die eingebaute Funktion DrawHatch verwenden und sich dann beim Zeichnen des Musters mit eingeschaltetem SNAPMODE (wird vom Programm automatisch aktiviert) nur auf den Kreu ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Objekte wieder anwählen
jupa am 14.09.2015 um 10:51 Uhr (15)
Erstelle Dir eine Lisp-Routine, die im einfachsten Fall so aussehen könnte:(defun c:WV () (sssetfirst nil (ssget"_P")))Sorge dafür daß diese Routine bei jedem AutoCAD-Start geladen wird. Wenn Du nun in der Befehlszeile WV [ENTER] eintippst (kannst natürlich auch was kürzeres nehmen. Mußt Du selber prüfen, welche Einzelbuchsrtaben bei Dir noch nicht anderweitig belegt sind), werden die zuletzt gewählten Objekte markiert und können beliebig "behandelt" werden. Jürgen------------------Bildung kommt nicht vom ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Radius über drei Punkte berechnen
jupa am 08.11.2016 um 09:05 Uhr (1)
Zitat:Original erstellt von spider_dd:Ermittle Dir einen Punkt P3, der mit geringem Abstand senkrecht über dem Mittelpunkt der Linie P1 - P2 liegt Ist gar nicht notwendig. Einfach einen Bogen zeichnen mit Startpunkt (ein Endpunkt der Linie), zweiter Punkt (einen beliebigen Punkt nahe neben der Linie, Endpunkt (anderer Endpunkt der Linie). Oder muß es unbedingt eine LISP-Lösung sein? (Wir kennen den Zusammenhang der Aufgabe nicht)Jürgen ------------------Bildung kommt nicht vom Lesen, sondern vom Nachdenken ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Polylinie nach Befehl Ursprung bleibt Polylinie
jupa am 03.06.2020 um 15:33 Uhr (1)
Zitat:Original erstellt von fmfm:doch es gibt n Befehl bzw. ne Einstellung dazu...Auch ich kenne im Vanilla AutoCAD weder einen Befehl noch eine diesbezügliche Einstellung. Entweder hast/hattest Du ein Vertikalprodukt oder irgend ein selbstgebasteltes LISP. Letzteres könnte z.B. so aussehen (quick&dirty): (defun c:P_Explode (/ ss) (setq ss (car (entsel "
Pick Polyline: "))) (command "_explode" ss "") (If (= (getvar "peditaccept") 0) (command "_pedit" "_M" "_P" "" "" "") (command "_pedit" "_M" "_P" ...
|
| In das Form Rund um AutoCAD wechseln |
