|
Lisp : Positionsnummern
besele am 13.09.2011 um 19:26 Uhr (0)
Hallo habe hier eine LISP Datei gefunden,die aber nicht richtig funktioniert.werden immer nur Nullen geschrieben??(Defun C:ZAHLEN () (START) (prompt "Die aktuelle Texthöhe wird übernommen...") (Setq A (Getint "
Startnummer: ")) (Setq E 1) (Setq I 0) (Initget 1 "A") (Setq P1T (Setq P1 (Getpoint"
Einfuegepunkt oder Abbruch"))) (While(/= P1T "A") (Setq F (Itoa A)) (Command "Text" "z" P1 "" I F) (Setq A (+ A E)) (Initget 1 "A") (Setq P1T (Setq P1 (Getpoint "
Einfuegepunkt oder A für Abbruch"))) ) ...
|
| In das Form Lisp wechseln |
|
Lisp : Plotstildatei
mkl-cad am 31.07.2003 um 11:48 Uhr (9)
Schade. Auch mit Visual Basic nicht?Ich habe mit Lisp ein Programm geschieben in dem der Benutzer für 10 verschiedene Gewerke Layer einstellen kann, die dann immer erstellt werden wenn der Benutzer Menüs für die jeweiligen Gewerke öffnet.Zusätzlich wird durch die Eingabe der Layer das Pull-Down Menü von ACAD umprogrammiert. Das Einzigste was dann noch fehlt währe das auch die Plotlinienstärke in den Plotstiltabellen angepaßt wird, und nicht nur die Linienstärke in der Layereinstellung, und das für verschie ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Zweites Element
Rabbit 007 am 22.07.2005 um 23:12 Uhr (0)
Hallo Axel Hier das LISP wie du es zu lesen möchtest. Und du hast recht Ordnung ist das halbe leben. Nicht als Entschundigung aber ich stecke mit dem Programmieren hier voll in den Kinderschuhen und bin froh wenn ich einfache einzelne Programmzeilen lesen und halbwegs verstehen kann.(dank dem Toturial) Aber vieles bleibt einfach ein Geheimniss für mich, andere Literatur exestier ja nun auch nicht wirklich dazu. Das mit der Formatierung sieht hier in der Vorschau nicht wirklich gut aus (nicht so wie ich e ...
|
| In das Form AutoLisp wechseln |
|
Lisp : 3d länge
nebuCADnezzar am 06.02.2013 um 11:43 Uhr (0)
Hallo zusammen.Ich bin gerade drann n paar alte LISPs ins neue ACAD 2013 anzupassen. Eins davon macht mir gerade etwas schwierigkeiten (naja meine LISP skills waren schonmal besser...)Code:(defun C:3dlength () (setq LENGTH 0) (setq C nil) (setq PT2 nil) (setq ENAME (car (entsel "
3d Polyline: "))) (setq E (entget ENAME)) (if (= (cdr (assoc 0 E)) "POLYLINE") (progn (if (= (logand (cdr (assoc 70 E)) 1) 1) (setq C 1) ) (setq T C) (setq ENAME (entnext ENAME)) (setq E (entget ENAME)) ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp und Dialogboxen
DrCNC am 12.07.2014 um 13:56 Uhr (1)
Hallo Jörn,Dank deiner genaueren Beschreibung deines Codes, habe ichdieses Problem einigermaßen kappiert.Ich habe meinen Code etwas abgeändert und es funktioniert bestens.Code:(defun DialogFraesen (/ I1 OK) (setq I1 (load_dialog "CNC.DCL")) (if (null (new_dialog "CNC" I1)) (alert "Laden der Dialogbox nicht moeglich!") ) (setq ZAchse (atof (get_tile "ZAchse"))) (setq WZNr (atof (get_tile "WZNr"))) (setq Vor (atof (get_tile "Vor"))) (setq Ab (atof (get_tile "Ab"))) (setq Wzkr "NoWRK") (action_tile "ZAchse ...
|
| In das Form Lisp wechseln |
|
CoCreate Modeling : Speicherung nach Fehlermeldung noch möglich?
Knuddel25 am 09.07.2009 um 14:02 Uhr (0)
Hat sich erledigt, war etwas voreilig. Hab grad einfach die Panik bekommen. Hatte grad mal befreie Modeling versucht und ein paar Tasten gedrückt (ESC und Pause). Irgendwas davon muss geholfen haben. Jetzt weiß ich wenigstens, dass man nach dieser Fehlermeldung noch was machen kann. Hatte sie schon öfters, aber früher hab ich dann einfach auf "Nicht senden" geklickt und schon war das Modeling geschlossen. Kann mir trotzdem jemand sagen, wodurch diese Fehlermeldung entsteht?Knuddeligen Gruß EDIT: zu d ...
|
| In das Form CoCreate Modeling wechseln |
|
OneSpace Modeling : Verbesserung? Text erstellen Annotation
Heiko Engel am 01.02.2006 um 07:12 Uhr (0)
Moinsens,bin heute morgen mit dem falschen Fuss aufgestanden und deshalb etwas mies gelaunt Die Vorschläge die hier stehen werden nicht zum ersten mal genannt und jedesmal heisst es immer "seht euch V11 an, seht euch V12 an etc. etc."Kaum hat man dann diese "ach so tolle und neue Version" auf dem Rechner dann heisst es gleich dass die Nachfolgeversion noch toller sei. Ich glaube es ist manchen Leuten nicht bewusst was es heisst eine ganze Firma mit 100 Konstrukteuren von 1 Version auf die nächste zu befö ...
|
| In das Form OneSpace Modeling wechseln |
|
Autocad VBA : Endpunkte in VBA ansteuern
dan_rather am 24.08.2004 um 13:35 Uhr (0)
Hallo Axel, leider sind meine Kenntnisse in Lisp noch viel besch...eidener als in VBA. Die Frage ist wie sag ich in VBA suche alle Linnien in meiner Auswahl die mit ihrem Endpunkt auf einer Linie des gleichen Layer liegen und setze mir dort einen Punkt(besser noch einen Ring, aber den scheint VBA nicht zu kennen?). hier erstmal der bisherige code: Sub Massenermittlung() Dim startPoint As Variant Dim endPoint As Variant Dim Vpunkt As AcadCircle Dim LayerAkt As AcadLayer Dim intPoint ...
|
| In das Form Autocad VBA wechseln |
|
Rund um AutoCAD : Gruppenfilter per makro
bikerholic am 28.09.2009 um 12:31 Uhr (0)
Zitat:Original erstellt von wwplus:hall alfred,ich suche nach einer möglichkeit, den Layerfilter "zu aktivieren" ohne den layerdialog aufzurufen.Also soetwas ähnliches wie einen shortcut. Diesen Shortcut würde ich gerne auf einen Button legen (ohne VBA, LISP u.ä, sondern nur mit Autocad-Bordmitteln. ähnlich wie hier ^C^Cwahl \_xclip;v;;l;n;i;v zum zuschndeien von Blöcken). Das ganze sollte nämlich auch unter LT funktionieren.hallo andreasalso ich hätte da was für dich womit es möglich währe deinen wunsch ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Expresstools 2006: Tframe ignoriert Option 2
Peter2 am 08.11.2006 um 19:01 Uhr (0)
(still nachfragend):Äh - scheint nicht das zu sein, was ich wollte - jetzt ist anscheinend Code "2" fix codiert und wechselt damit nicht nur 0-2-0-2-..., sondern geht auch von 1 weg: 1-0-2-0-2 ...Und anscheinend passt auch die Wipeout - Logik nicht dazu: Die kann man anscheinend nur wie bisher zwischen ein und aus wechseln, und damit setzt man die Bilder auf "2" (sehen, nicht plotten) und die Wipeouts auf "1" (sehen und plotten)..Folgende Fragen:1)Die DXF-Referenz zu Objects - Rastervariables zeigt zu Code ...
|
| In das Form Lisp wechseln |
|
Autocad VBA : Plotstil Pfad ändern - richtige auswahl jedoch falscher Ausdruck
Brischke am 15.06.2005 um 13:01 Uhr (0)
Hallo Michael, das Problem kenne ich: Ich habe es wie folgt gelöst: Der Pfad verweist auf das Verzeichnis, in dem alle CTB s enthalten sind. Beim Start wird der Pfad (so wie du es auch gemacht hast) auf des Verzeichnis verbogen, indem nur ein paar oder besser noch gar keine CTB s vorhanden sind. Jetzt läuft acad schnell, die negativen Auswirkungen sind behoben. Nun habe ich 3 Reactoren am laufen: Command-Start (Plott): der biegt den Pfad auf das richtige Verzeichnis Command-End (Plott): der biegt den Pfad ...
|
| In das Form Autocad VBA wechseln |
|
Rund um Autocad : Umzug - welche Dateien mitnehmen
j-sc am 15.06.2004 um 17:29 Uhr (0)
Hallo und herzlich willkommen. Ein klein wenig mehr ist schon noch vorhanden, wo benutzerspezifische Sachen für acad abgelegt werden. Als erstes solltest Du nachsehen, welche Pfade für die unterschiedlichen Komponenten definiert wurden. - EXTRAS - OPTIONEN - DATEIEN . Unter diesen Pfaden sucht acad zuerst nach den entsprechenden Dateien. Dann müsstest Du auch noch wissen, welche Dateien sich anpassen lassen *.lin - Linientypendefinitionen *.pat - Schraffurmusterdefinitionen *.pgp - Tastaturkurzbefehl ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Schraffur
Proxy am 28.08.2006 um 22:56 Uhr (0)
Würde es dir reichen, die Schraffurskalierung einfach global für alle Schraffuren zu multiplizieren, z.B. alle Schraffurskalierungen x einen bestimmten Wert ?Als Beispiel ein Lisp dass es abhänig von dem aktuellen Bemassungstillmaßstab anpasst.Code:(defun c:dimhatch (/ ss n dimscale) (if (setq ss (ssget ":L" ((0 . "HATCH")))) (progn (setq n 0) (if (zerop (setq dimscale (getvar "dimscale"))) (setq dimscale 1.0) ) (repeat (sslength ss) (vl-cmdf "._hatchedit" (ssname ss n) "_prop" "" dimscale "" ...
|
| In das Form Rund um Autocad wechseln |
