 |
Lisp : AutoCAD Objektfang (Ofang) Ein oder Aus (toggle) wie F3 aber als LISP
neo4matrix am 15.11.2016 um 16:29 Uhr (15)
Hallo GemeindeIch tüftle schon seit längerem an einem Listp, welches GENAU das gleiche macht, wie die F3 Taste unter AutoCAD. Nämlich den Objektfang umschalten. Hier schon mal mein List Code:(defun C:OFangToggle ( / aosmo) (setq aosmo (getvar "OSMODE")) (if ( aosmo 16383) ((setvar "OSMODE" (- aosmo 16384))(princ "
Ofang ein")) ((setvar "OSMODE" (+ aosmo 16384))(princ "
Ofang aus")) ) (prin1))Er funktioniert so weit ganz gut, Nur leider kommt beim Aufrufen des Befehls OFangToggle stets eine Fehlermeldung!Je ...
|
| In das Form Lisp wechseln |
|
Lisp : Hilfethema aus CHM-Datei direkt aufrufen
Niggemann am 22.09.2011 um 22:26 Uhr (0)
Hallo Andreas,mache es mittlerweile so:(acad_helpdlg "NIGGEMANN.chm" "BELEG")Die "NIGGEMANN.chm" steht im Suchverzeichniß von ACAD.Die "NIGGEMANN.chm" enthält eine Datei Namens "BELEG.HTM", diese Datei wird beim Kompilieren mit dem Windows Help Workshop in die "NIGGEMANN.chm" integiert.Ich rufe die Hilfe über ein DCL-Fenster über eine Button auf, klappt super.Seltsam ist nur gebe ich den Aufruf in der Befehlszeile von ACAD einspringt die Hilfe auf, auch mit der richtigen Seite, aber die Hilfe ist minimiert ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Volumenkörper auflösen
mapcar am 27.11.2004 um 13:18 Uhr (0)
Wenns weiter nichts ist: Lass das hier auf Zeichnung los, und schon hast du echte 3DSolids, die du dann bis zum Umfallen verursprungen kannst: Code: ; Hilfsfunktion (defun ss-foreach(ss expr / i) (if ss (repeat(setq i(sslength ss)) ((eval expr)(ssname ss(setq i(1- i)))) ) ) ) ; Befehl (defun c:solids- 3DSolids( / ) (ss-foreach(ssget"X" ((0 . "Solid"))) (function (lambda(solid / height) (if(not(zerop(setq height(cdr(assoc 39(entget solid)))))) (command"_ext ...
|
| In das Form AutoLisp wechseln |
|
Lisp : ACad Versionsnummer abfragen
DrCNC am 14.08.2018 um 21:07 Uhr (1)
Wie kann ich mit Lisp die ACad Versionsnummer abfragen?ich möchte z.B. mit Version 2017 dieses Programm "(command "netload" "c:/Program files/Autodesk/CadCam/WeekeCadCam17_64.dll")"Version 2018 dieses Programm "(command "netload" "c:/Program files/Autodesk/CadCam/WeekeCadCam18_64.dll")"Version 2019 dieses Programm "(command "netload" "c:/Program files/Autodesk/CadCam/WeekeCadCam19_64.dll")"laden.kann mir jemand helfenDanke Johann
|
| In das Form Lisp wechseln |
|
Lisp : BURST in LISP integrieren
Daniel Möller am 13.06.2012 um 18:30 Uhr (0)
Hallo zusammen,wir wollen in einer Zeichnung alle Attribute von allen Blöcken in Text umwandeln ( mit dem Befehl burst ) und anschließend alle Texte in eine Excel Datei schreiben.An sich funktioniert alles allerdings bekommen wir es nicht hin dass der Befehl burst durchläuft.(defun C:convert()(C:burst)(command "alle" )(C:TXTXLS)(command "z" "z" )) )Gibt es eine Möglichkeit dem Befehl burst zu übermitteln dass er einfach alles auswählt? Über command geht es nicht.Oder ist die einzige Alternative die burst.l ...
|
| In das Form Lisp wechseln |
|
AutoLisp : POLYLINIEN
Brischke am 03.02.2003 um 09:14 Uhr (0)
Hi, also ein Winkel ist bei Linien/LW/Polylinen nicht in den Gruppencode s gespeichert. Den mußt du dir aus dem Anfangs und Endpunkt errechnen. Mit dem Rest Deiner Ausführungen weiß ich nichts so recht anzufangen, weiß also auch nicht, was du da wissen möchtest. Zu deinem Code: Ich denke, dass dieser nicht funkt, weil die Prüfung fehlt. Was hast Du überhaupt vor? Es ist immer schwierig zu antworten wenn man nicht alles weiß. Deswegen: Lieber etwas ausführlicher posten. ...nerv manchmal vieleicht ein weni ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : BlackBoard unter 2004 langsamer und Daten-Container
Brischke am 13.06.2003 um 13:41 Uhr (0)
Hallo Achim, prinzipiell ist das sicher interessant, ich arbeite in solchen Fällen auch nur mit globalen Variablen, mit dem Nachteil, dass diese für jede Zeichnung neu gebastelt werden müssen. Mir fällt allerdings keine Lösung ein, wie man das anders machen sollte, als eben über das BB. Nur die INI-Lösung von Marc wäre dann interessant, wobei dann zusätzliche Prüfroutinen rein müßten, ob die Datei nun aktuell ist, oder eben nicht. Alles ziemlich aufwendig. Zusammengefasst heißt das: Interesse ja, aber mir ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Grundriss bearbeitung Automatisieren
globerDa am 08.01.2016 um 09:07 Uhr (1)
Also ich bin begeistert Binde die Lösung bei mir noch ein, wird dann wohl besser sein als alles zu sprengen.Hat mir eigentlich an zwei wötern "Ändern" und "Model" gefehlt, aber trotzdem wieder was dazu gelernt. Ich hab eigentlich vor paar Jahren angefangen fertige Lisp Befehle in AutoCAD einzuspielen. Darauf folgten Automatische Köpfe (mit Diesel Befehlen), automatisierte Werkzeugpalettenstruktur, Makros, MEP bezogene Bauteile usw.Mit viel testen, kopfzerbrechen und hilfe über dieses Forum immer wieder zu ...
|
| In das Form Lisp wechseln |
|
Lisp : Polyface mesh erzeugen
cadplayer am 15.02.2016 um 19:12 Uhr (1)
Vielen Dank bis hierhin für eure Beiträge. Die Lösung mit Command finde ich meinem Fall nicht sehr effizient. Hier werden wiedermal die Grenzen mittels Lisp aufgezeigt. Deine Entmake-variante Marco muss ich noch prüfen, finde ich auf jeden Fall besser.Was mir schlussendlich die Lösung präsentierte ist Keans Beitrag hier:http://through-the-interface.typepad.com/through_the_interface/2009/04/triangulating-an-autocad-polyface-mesh-from-a-set-of-points-using-net.htmlund hierhttp://through-the-interface.typepad ...
|
| In das Form Lisp wechseln |
|
Lisp : Maßstab erzeugen
Danillo am 21.04.2013 um 14:59 Uhr (0)
Hallo Leute,kann mir jemand verraten, wie ich über Lisp einen Maßstab (Cannoscale) erzeugen kann. Das Problem rührt daher, dass ich bisher eine Benutzereingabe hatte, über welche der Maßstab inkl. Maßeinheit festgelegt wurde. Nachdem jetzt (?) in AutoCAD die annotativen Stile vorhanden sind, welche in Abhängigkeit von Cannoscale erzeugt werden, würde ich gerne meine bisherige Abfrage gleich lassen und einen entsprechenden Scale erzeugen und aktuell setzen. Vor dem Erzeugen muss man wahrscheinlich abchecken ...
|
| In das Form Lisp wechseln |
|
Lisp : autocad-farbfenster aufrufen
CAD-Huebner am 08.12.2007 um 15:13 Uhr (0)
Zitat:Original erstellt von Nano:...Thomas habe dies eingegeben, das Farbfenster erscheint nicht.Was habe ich falsch gemacht???(acad_truecolordlg color [allowbylayer] [currentlayercolor])Gruss Nano Blind abgeschrieben!Als es nicht geklappt hat, Nachdenken vergessen.Nicht versucht in der LISP Hilfe eine Erläuterung von acad_truecolordlg mit Beispiel zu finden - gibt es nämlich.Schreib hier 5 Versuche hin, acad_truecolordlg aufzurufen,tausche mal die Platzhalter "color", "[allowbylayer]", "[currentlayercolo ...
|
| In das Form Lisp wechseln |
|
Lisp : Schriftart in Textstilen ändern
cadffm am 11.08.2017 um 12:19 Uhr (1)
Na dann interessiert es mich:Bitte lösche ALLES AUSSER einem Textobjekt (mit dem es nachvollziehbar ist bei dir),bereinige, SpeichernUnter DXF2013Poste die Datei,ich führe dann das Lisp aus, und wenn es so läuft wie bei dir und so wie ich es verstehe:im Stil-Dialog sind dann andere Fonts eingestellt?ich speichere die Datei unter anderem Namen,ich öffne die Datei erneut , im Stil Editor stehen wieder die alten Fonts und lassen sich nicht ändern,ich speichere die Datei unter anderem Namen,ich öffne die datei ...
|
| In das Form Lisp wechseln |
|
Lisp : StartUndoMark EndUndoMark?
archtools am 09.08.2023 um 09:55 Uhr (1)
Zitat:Original erstellt von kadirozen:Nach den lokalen Variablen kommt also das Dokument-Setup und die Startundo-Marke. Dann kommt der Error-Handler mit der Endundomarke und mein Code mit allen möglichen Ergebnissen, der zum Error-Handler führt, der die Endundomarke aktiviert.Für die Fehlersuche würde ich die komplette *error* Definition rauswerfen. Der Fehler tritt ja auf, ohne dass der Code auf einen Fehler stößt. Baue ein einfaches funktionierendes Beispiel auf, und erweitere das dann Schritt für Schrit ...
|
| In das Form Lisp wechseln |
