|
Rund um Autocad : Lisp für Schaltfläche: Linie erzeugen
CADmium am 12.02.2004 um 10:35 Uhr (0)
Lad dir mal das : (defun c:Fadenkreuz ( / OLDLAYER LAYERNAME PUNKT) (setq OLDLAYER (getvar CLAYER )) (setq LAYERNAME 0 ) (if (tblsearch LAYER LAYERNAME) (setvar CLAYER LAYERNAME ) ;Layer aktuell setzen ) (if(setq PUNKT (getpoint Punkt eingeben : )) (progn (command _pline (mapcar - PUNKT (2500 0 0)) (mapcar + PUNKT (2500 0 0)) ) (command _pline (mapcar - PUNKT (0 2500 0)) (mapcar + PUNKT (0 2500 0)) ) ) ) (setvar CLAYER OLDLAYER ) (princ ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Layer auf Russisch
Proxy am 25.04.2004 um 19:01 Uhr (0)
Das sind UniCodes bei den Layernamen. Diese kannst du via Lisp in bestimmte Deutsche Buchstaben konvertieren oder ganze Reihen von russischen Unicodes in gleichsinnige deutsche Layernamen umbenennen. Zitat: U+0428U+0442U+0440U+0438U+0445U+043EU+0432U+043AU+0430 U+0422U+0435U+043AU+0441U+0442_U+0441U+0435U+0447U+0435U+043DU+0438U+044F U+0422U+0435U+043AU+0441U+0442_U+0434U+0435U+0442U+0430U+043BU+0438 U+042DU+043AU+0441U+043FU+043BU+0438U+043AU+0430U+0446U+0438U+044F U+041EU+0441U+0438_U+0440U+0 ...
|
| In das Form Rund um Autocad 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 |
|
Rund um Autocad : Systemfehler: Kein Speicher mehr Verfügbar - Anwendung wird beendet
Proxy am 14.07.2004 um 16:38 Uhr (0)
Kannst ja immer auch doofe Antwort auf solche Fragen geben, hab Nix dagegen solange es der Sache auch hilft. Wie gesagt bzw. verlinkt ist Autocad bei manchen Zeichnungen sehr Swapfreundlich, da können kurzfristig die paar hundert MB freier Speicherplatz auf der Platte kritisch werden. Wenn noch andere Anwendungen auch Plattenspeicher für sich beanspruchen ist es 2 late. P.S. Windows und AutoCAD swappen (pagefile.sys, ac$, sv$, bak, usw.) je nach Einstellungen sehr unterschiedlich. ------------------ ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Objekte und Texte Drehen
Christian21P am 20.10.2010 um 12:34 Uhr (0)
"Kann es sein das du dich einfach irrst ?" Hmm nein ich bin mir sicher das das Ergebnis nicht so sein sollte."Sind es dynamische Blockreferenzen oder nicht ?Ist es wirklich der Blockbasispunkt oder evtl. doch ein anderer Griff ?"Sind Dynamisch. Einfügepunkt ist auch gleichzeitig ein Ausrichtparameter."Ansonsten: Beispielzeichnung !(am besten dein besagtes Beispiel mit vorher/nachher - die Eindeutigkeitkannst du ja mit Wolhken&Text oder mit Farben darstellen)"Meine Beispielzeichnung war im ersten Beitrag - ...
|
| In das Form Rund um AutoCAD 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 |
|
Rund um AutoCAD : Autocad Skript erstellen
Ingo Struck am 28.10.2019 um 15:58 Uhr (1)
Hallo zusammen, @ muntafuner: Leider weiß ich dort auch nicht weiter, da ich keinen Befehl gefunden habe, der auch in Scripten die Auswahl von Objekten zulässt. @ Andreas: Deinen Vorschlag habe ich ausprobiert und den Code in ein Script kopiert. Leider läuft bei mir auch das nicht. Der Lisp-Code erscheint zwar in der Befehlszeile, endet aber mit "(nil nil)", ohne das etwas passiert. Die Option "vorher" des Befehls "Wahl" sagt, "Kein vorheriger Auswahlsatz". Wenn ich aus der test.scr eine test.lsp mache und ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Ordinatenbemassung, tausche X-Daten gegen Y-daten
ktww am 11.08.2009 um 11:48 Uhr (0)
Hallo Haiko!Dein Programm funktioniert total super, die Unities sind Dir sicher!Eine kleine Verbesserung wäre noch möglich, und zwar, das sich das Programm die erf. Daten aus einer Polylinie holt und nicht aus einer bestehenden Ordinatenbemassung. Ich wollte es selber probieren, mein LISP reicht dafür jedoch nicht aus.Der Grund ist, dass ich in den Plänen immer nur einmal die Station beschriften muss und danach mehere Maßbänder für unterschiedliche Wasserspiegellagen (Höhen) brauche.Wenn das auch noch klap ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : LISP Linientypfaktor und Farbe ändern
spider_dd am 07.04.2021 um 16:31 Uhr (1)
Zitat:Original erstellt von ReneReichel:... Die Wenn-Prüfung erschient mir überflüssig, da ich der mittleren PL immer einen LTF in Abhängigkeit der Foliendicke zuweisen will ...Zudem passiert nichts, wenn ich Deinen Ansatz probiere. Kann es sein, dass obj_data gar nicht abgerufen wird, weil ich die mittlere Linie ja nicht anklicke...zu 1) Wenn der Linientypfaktor 1 ist und Farbe oder Linientyp "VONLAYER", git es die entsprechenden Gruppen in den Daten nicht. Daher die Prüfung ob die Gruppe vorhanden ist.zu ...
|
| In das Form Rund um AutoCAD 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 |
|
Rund um Autocad : Filter auf Schaltfläche
marc.scherer am 05.07.2002 um 11:01 Uhr (0)
Hi, Filter hat keine Kommandozeilenoption (soweit ich weiß...). Da mußt Du mit der Lisp Funktion "ssget" arbeiten. Das macht Filter.lsp übrigens auch nicht anders... (sssetfirst nil (ssget "X" (list (cons 8 "AM_0")(cons 410 (getvar "ctab"))))) Im Klartext: (sssetfirst nil asatz) Sorgt für das Auswählen und aktivieren der Griffe bei gefundenem Auswahlsatz. - Asatz =(ssget "X" (list (cons 8 "AM_0")(cons 410 (getvar "ctab")))) (ssget "X"... = Wähle die gesamte Zeichnungsdatenbank... (list ... = und filtere S ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Text global in MText umwandeln (E-Tools)
SnowBallOne am 03.02.2005 um 12:38 Uhr (0)
Zitat:Original erstellt von CADuceus:Frage: Wie kann ich mehrere Texte gleichzeitig in mehrere MTexte umwandeln, die ihre Position und Ausrichtung beibehalten?Antwort: in dem du nicht mit einem großen Fenster über die Zeichnung gehst, sondern jeden text einzeln auswählst, oder du schaust, obs dafür nicht vielleicht ein LISP gibt... ich hab gestern mal auf www.cadwiesel.de gestöbert, musst schauen, aber vielleicht gibt´s da was...ansonst, jeden text einzeln...Edit: und danach die alle texte auswählen und ...
|
| In das Form Rund um AutoCAD 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 |
