|
Rund um Autocad : Pickbox
Geos am 19.08.2003 um 08:15 Uhr (0)
servus Seit einiger Zeit ist meine Pickbox nicht mehr quadratisch, sondern ein Rechteck. Durch eine Größenänderung (zB von 3 auf 4 und wieder zurück) entsteht wieder ein Quadrat. Es gab keine Änderungen an der Hardware, und softwaremäßig in Zusammenhang mit ACAD nur LISP-Änderung oder -Neuerungen. Ebensowenig gabs Änderungen in zusammenhang mit der Grafikkarte. Hat jemand eine Idee, woran das liegen könnte? Gruß, Ernst
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : Additions-LISP erweitern
Geos am 23.07.2004 um 07:59 Uhr (0)
Mit folgendem Prog-Schnipsel könnte man beliebige Rechenoperationen verwenden: ;----------Code Anfang (setq #op (getstring
Operation (+ - * /): )) (cond ( (= #op + ) (setq #op +) ) ( (= #op - ) (setq #op -) ) ( (= #op * ) (setq #op *) ) ( (= #op / ) (setq #op /) ) ) (setq #ergebnis (#op #wert1 #wert2)) ;----------Code Ende (Auf die Festlegung von #wert1, #wert2 wurde hier bewußt verzichtet) ------------------ Gruß, Ernst [Dies ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Lisp und Schraffuren
Geos am 23.05.2006 um 11:33 Uhr (0)
Hi SilkeIch hab ja gewisse Zweifel, ob ich Dein Problem richtig verstehe - auf meinen Lösungsweg wären dann vermutlich die anderen auch gekommen - naja, nützts nix, dann schadets nix.Die Points brauchst Du eigentlich für die Schraffur nicht - richtig?Dann könntest Du ja eine Vorauswahl treffen (Filter) und der Schraffur nur die relvanten Objekte "servieren". (ähnlich wie bei meinem Flächenprogramm: http://www.geopaint.at/CAD/Download/download.html )------------------Gruß, ErnstMeine Homepagesuche Job
|
| In das Form AutoLisp wechseln |
|
Lisp : 2 Plotfiles mit einem Lisp erstellen
Geos am 09.09.2008 um 17:23 Uhr (0)
Habs jetzt nicht ausprobiert, aber:entweder(defun C:BLATTRAHMEN( / FMT INSP OFANG_BAK)...)oder(defun BLATTRAHMEN ( FMT / INSP OFANG_BAK)...)Mit (defun c:xyz ... erzeugst Du ein "Command", willst Du FMT übergeben, musst eine "Funktion" (kein "c:") verwenden.Die wird dann aber so (blattrahmen fmt) aufgerufen. Diesen Aufruf kannst allerdings wieder in ein "Command" einbauen.------------------Schöne GrüßeErnst www.geopaint.at
|
| In das Form Lisp wechseln |
|
Lisp : Benutzerabfrage in einer Endlosschleife
Geos am 17.03.2009 um 18:24 Uhr (0)
Das "Messgerät" ist wohl ein GPS, das die Koordinaten liefert. Aber soweit ich weiß, kann man die Serielle nicht mit Lisp lesen (glaub nicht mal mit DosLib).Ginge wohl nur über "Zwischenspeicher" - Datei(en), wie Du schon angedeutet hast.(wechselweises Lesen und Schreiben ?)Beim Lesen:(while (read-line Datei) ..) würde dann das (exit) überflüssig machen.Weiters fällt mir "rekursiver Start" noch dazu ein ...Nur so ein paar Gedankenfetzen, aber vielleicht hilfts...------------------Schöne GrüßeErnst www.geop ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Dialogbox -> radio_column
Geos am 08.09.2004 um 08:08 Uhr (0)
Servus Versuchs mal so: DCL: (2 radio_columns nebeneinander) :radio_column { key = Button1 ; ... :radio_button { key = lfjasdfga ... :radio_button { key = jkjö ... :radio_button { key = öljsad ... :radio_column { key = Button2 ; ... :radio_button { key = sqwg ... :radio_button { key = oöulil ... :radio_button { key = vhvhjjo ... und im Lisp: (action_tile Button1 (setq #ABC $value) ) (action_tile Button2 (setq #ABC $value) ) Egal, welchen Button Du dann drückst (links oder rechts), d ...
|
| In das Form AutoLisp wechseln |
|
Rund um AutoCAD : Ausschalten von Filter-Textfenster
Geos am 25.05.2010 um 17:36 Uhr (0)
Code:(ssget "X" ((0 . "LINE"))) wählt alle Linien(ssget "X" ((0 . "CIRCLE"))) wählt alle Kreise...das dann an COPYCLIP übergeben ...Code:(command "_COPYCLIP" (ssget "X" ((0 . "LINE"))) "")... in der neuen Zeichnung:_pasteorig = Menü Bearbeiten = Mit Originalkoordinaten einfügenHthErgänzung:Du kannst nicht mit einer "Lisp" 2 DWGs "bedienen" - muss erst geladen und aufgerufen werdendazu: http://ww3.cad.de/foren/ubb/Forum54/HTML/009952.shtml ------------------Schöne GrüßeErnst www.geopaint.at[Diese Nachrich ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Passwort für ACAD
Geos am 08.08.2007 um 19:16 Uhr (0)
Servus MartinDie Zeichnungen kommen schon auf einem Server - wenn sie fertig sind. (das mit dem Filezugriff war auch nur eine Vermutung)Bei meinen Arbeiten sind die Layer, Blöcke, usw. meist vom AG vorgegeben. In anderen Abteilungen werden meist Applikationen verwendet, die das "eingebaut" haben. Wenn ich im Büro (neue) Lisp-Programme schreibe, dann gehören die auch der Firma und stehen allen zur Verfügung. Aber ich verwende meine eigenen. Da gibts höchstens Anpassungen an geänderte Bedingungen oder kleine ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Linie brechen
Geos am 08.08.2003 um 08:15 Uhr (0)
Hi Pan (wer Jan ist? - weiß nicht - Blackout - sorry) Wenn Du nur die Linie klicken willst, muß dem Programm irgendwie übermittelt werden, wo die Bruch/Schnittpunkte liegen. Eventuell gehts mit einem Lisp-Programm und Objektfang (müßte ich mir auf einem ACAD-Rechner anschauen) - fürchte aber nein . Eine weitere Möglichkeit (allerdings schon aufwendiger)könnte ich mir vorstellen, wenn die Schnittpunkte AUSSCHLIESSLICH durch Linien gebildet werden (keine Polylinien, kreise, Bögen etc.). Mit der Funktion ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Ploteinstellungen per Lisp
Geos am 02.06.2009 um 13:53 Uhr (0)
HiWeils grad wieder aktuell ist ...Code:(defun c lt () (vla-put-configname (f#actlay) "DesignJet 750C.pc3") (vla-RefreshPlotDeviceInfo (f#actlay)) (vla-put-PaperUnits (f#actlay) 1) (vla-put-usestandardscale (f#actlay) :vlax-true) (vla-put-CanonicalMediaName (f#actlay) "UserDefinedMetric (430.00 x 310.00MM)") (vla-put-PlotRotation (f#actlay) 1) (vla-put-PlotWithLineweights (f#actlay) :vlax-true) (vla-put-ScaleLineweights (f#actlay) :vlax-true)bis hierher läufts, aber dann verursachen sowohlCode:(vla-put-plo ...
|
| In das Form Lisp wechseln |
|
Lisp : Signaturen auf/in Bögen
Geos am 06.08.2008 um 15:30 Uhr (0)
Grüß EuchZwischen gebogene "Linien" - in der Regel ausgerundete PLINEs oder ARCs - sollen Signaturen gezeichnet werden.Im Beispiel (Bild) handelt es sich um eine ausgerundete PLINE, die Symbole (Blöcke) wurden mit _MEASURE eingefügt.Das zu proggen wäre auch kein Problem. Jetzt soll das Ganze aber noch behübscht werden - sprich die INSERTs gesprengt und die einzelnen Linien auf die Begrenzungslinien (blau) gedehnt / gestutzt werden.Seht Ihr da Lösungsmöglichkeiten (in LISP )?Bin auch für halbe Lösungen/Ans ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Umstellung Acad2000 > 2004
Geos am 29.04.2005 um 08:04 Uhr (0)
Hallo Sebastian In meiner Hektik hab ich versehentlich das Lisp-Forum erwischt - vielleicht kann man den Beitrag verschieben. Es geht mir nicht primär um das Proxy-Objekt (und so etwa weiß ich auch was das ist). Die Zeichnung (und auch andere) wurde mit ACAD2000 erstellt (dort funktioniert das alles) und unverändert in ACAD2004 geöffnet. Es müßte meines Erachtens eine generelle Einstellung (Sysvar?) oder ähnliches sein, die verhindert, dass ein Teil dieser Zeichnung als neue Zeichnung erstellt wird (soll ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Erweiterung Lisp zum Ermitteln von einem Schnittpunkt
Geos am 18.12.2008 um 07:50 Uhr (0)
Meinst Du sowasCode:(defun c:schnittp ( / P1 P2 P3 P4 P5 P6); by Stefan Schwankner - 2008-04-10(arxload "GEOMCAL") ;;;Rechner muss geladen werden (setq P3 (getpoint "
Erster Punkt der Ebene:")) (setq P4 (getpoint "
Zweiter Punkt der Ebene:")) (setq P5 (getpoint "
Dritter Punkt der Ebene:")) (while (setq P1 (getpoint "
Erster Punkt der Linie:")) (setq P2 (getpoint "
Zweiter Punkt der Linie:")) (setq OSCHNAePP (getvar "osmode")) (command "osmode" 0) (cal "P6=ilp (p1,p2,p3,p4,p5)") (command "_sp ...
|
| In das Form Lisp wechseln |
