|
AutoLisp : Datei öffnen & schließen; crosspost. VBA
Helmut F am 15.08.2003 um 15:42 Uhr (0)
Hallo Sebastian, wie wäre es mit folgendem Trick? Du schreibst mit Lisp eine Script-Datei und führts diese aus, z. B.: (defun C:close_open ( / ) (setq scr_file (open (strcat (getvar TEMPPREFIX ) My_script.scr ) w )) (if (= (getvar DBMOD ) 0) (write-line _CLOSE scr_file) (write-line _CLOSE _Y scr_file) ) (write-line (strcat _OPEN (getvar DWGPREFIX ) (getvar DWGNAME )) scr_file) (close scr_file) (princ) ) Dann belegst du einen Button eines Werkzeugkastens mit dem Befehl: ^C^C ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Z-Wert in Blockattribut um Wert x erhöhen
zimmernagel am 23.04.2020 um 09:34 Uhr (1)
Hallo zusammen!Ich habe von einer Vermessungsdatei Blöcke in AutoCAD übertragen lassen. Der Attributtext von der Z-Höhe ist allerdings hier z.b. um 2 m zu tief, z.b. steht bei einem Block 415.49, und es müsste aber 417.49 sein von der Höhe her, da das Gerät falsch eingestellt war!Das ist aber von den vielen Punkte her vermischt, daher wollte ich das händisch anklicken können bzw. als Auswahl vielleicht, welche Höhe mit einem Wert x geändert werden sollen.Habe schon bei Lee-Mac alles durchforstet, aber bin ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Lisp und Schraffuren
SilkeRS am 21.05.2006 um 21:16 Uhr (0)
Hallo Jörn,zwar schon eine Woche her, aber zu diesen Tricks habe ich auch schon gegriffen. Die inneren Punkte sind echte Punkte (POINT). Das Problem ist, daß es einfach zu viele Maschen sind, die am Bildschirm erscheinen und der Ausschnitt (zoom) aufgrund der sehr unterschiedlichen Maschengröße nicht sinnvoll vorab berechnet werden kann. Auch mit einer Error-Routine ist es schwierig (ich habe es nicht geschafft), da das Programm nicht ganz aussteigt, sondern eben in die Abfrage hineinläuft, ob man sicher i ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Schleifen kontrollieren
Dorfy am 01.02.2012 um 10:04 Uhr (0)
heute noch nicht munter?Code:(setq cplist (("TB" "BRUNN" "LAYER1") ("SS" "SCHACHT" "LAYER2") ("BL" "MAST" "LAYER3")))(setq relist (assoc "BL" cplist))und dann mit car, cdr... weiterEdit: oder du wertest den Rückgabewert weiter aus, falls dein gesuchter Wert öfters vorkommt, auf die schnell und ungetestetCode:(setq cplist (("TB" "BRUNN" "LAYER1") ("SS" "SCHACHT" "LAYER2") ("BL" "MAST" "LAYER3") ("BL" "MAST1" "LAYER4") ))(setq re ())(mapcar (lambda (x) (and (= "BL" (car x)) (setq re (cons ...
|
| In das Form Lisp wechseln |
|
AutoLisp : EED und Variable
U. Neumann am 27.01.2004 um 09:18 Uhr (0)
Hallo Lisp-Gemeinde, ich möchte an Zeichnungsobjekte EED s anhängen. Die anzuhängenden Daten liegen in Variablen gespeichert vor. Der nachfolgende Ansatz liefert mir aber immer einen Fehler, da fehlerhafte DXF-Gruppe. Ersetze ich die Variablen durch Festwerte funktioniert es. Wo liegt mein Fehler? (defun c:Test ( / ) (if (NOT (tblsearch APPID LINIENPUNKTE )) (regapp LINIENPUNKTE )) (setq P1 (getpoint
Anfangspunkt: )) (setq PN1 (getstring Punktnummer: )) (setq P2 (getpoint
Endpunkt: )) (s ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : abrunden mit lisp
flaschenpost am 28.01.2005 um 14:58 Uhr (0)
@Udo Der Befehl _.fillet verhält sich sehr unterschiedlich. Linien mit Linien, P-linien mit Linien, P-linien mit P-linien ... und genauso in der Verwendung von (getpoint) oder (entsel). Zum Beispiel müssen bei getpoint nicht die P-linien auf dem Schirm voll sichtbar sein, die Linien aber müssen wieder voll sichtbar sein. Der deutsche Befehl abrunden scheint in Command-Zeilen ne Macke zu haben. Ich dachte erst an einen Bug in 2004. Jetzt muß ich alle Möglichkeiten mal systematisch testen und melde mich, wen ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Blöcke bzw. Attribute suchen
CAD-Huebner am 27.07.2005 um 22:32 Uhr (0)
Ich sollte mich ja auch schämen - hab ich auch ein paar Sekunden lang getan (weil ich den Fehler ssget in Verbindung mit Attrib gar nicht weiter zur Kenntniss genommen habe). Dann hab ich noch gedacht - vielleicht hilft der Hinweis auf die Möglichkeiten des Designcenters ja noch anderen Lesers weiter - dafür schäme ich micht nicht (hier wurde ja nur nach einem Tool gefragt). Manchmal kommen auch Tipps zu Lisp in "Rund und AutoCAD" Forum - warum nicht auch umgekehrt. Ach ja, mapcar darf das - mich ents ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Visual Lisp
CADmium am 01.03.2005 um 19:29 Uhr (0)
Bitte: (defun Test (DWGNAME / DWG) (if;vorhandene Datei (or(not(vl-catch-all-error-p (setq DWG(vl-catch-all-apply vla-open (if (=(getvar SDI )1) (list (vla-get-Activedocument(vlax-get-acad-object)) DWGNAME ) (list ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Polylinien und Kreisbögen in einem Lisp
Theodor Schoenwald am 05.03.2009 um 14:44 Uhr (0)
Wenn ich einen Namen gefunden hätte, könnte ich Dich mit Namen ansprechen.Zu Deinem Problem ein ganz anderer Ansatz:Es ist manchmal einfacher verschiedene Element wie Linien und Bögen als Linien und Bögen zu zeichnen und zum Schluss den Konturzug in eine Polylinie umzuwandeln.Dabei funktioniert auch folgendes Beispiel:Linie mit Bogen.Eine Linie zeichnen und danach der Befehl Bogen verwenden.Wenn dem Bogen kein Anfangspunkt gegeben wird, wird er automatisch tangential an die vorher gezeichnete Linie angesch ...
|
| In das Form Lisp wechseln |
|
Lisp : Variable in Lisp aus Excel
Dolcetto am 21.03.2006 um 07:40 Uhr (1)
Also ich komme einfach nicht weiter.(setq excel (vlax-get-object "excel.application")ExcelWorkbook (if excel (vlax-get-property excel "ActiveWorkbook"))ExcelSheet (if ExcelWorkbook(vlax-get-property ExcelWorkbook "ACTIVESHEET"))ExcelCells (if ExcelSheet(vlax-get-property ExcelSheet "CELLS")))(setq a (vlax-variant-value (vlax-get-property ExcelCells "item" 2 1)))Lasse ich genau diesen Code laufen mit einer geöffneten Excel, in der ich in der Zelle A1 den wert 50 eingetragen habe, bekomme ich vollgende meldu ...
|
| In das Form Lisp wechseln |
|
Lisp : Linienstärke - Farbe
CADmium am 26.09.2008 um 08:49 Uhr (0)
Zitat:Original erstellt von kh-arnold:Hallo Leute,ich benötige Eure Hilfe, .. und ich das richtige Programm dazu noch nicht gefunden habe.Könnt Ihr mir Helfen ???Eine Variante könnte so aussehen ... für deinen Zweck kann man das abspecken und Ini-gesteuert realisieren...Ohne Lisp mit Bordmitteln geht das für Top-Level-Geometrieobjekte aber auch mit der Schnellauswahl und dem Eigenschaftsfenster.Mit "bescheidenen" Lispkenntnissen sollte man aber nicht unbedingt gleich so ein Projekt angehen .. das wird d ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Zweites Element
startrek am 22.07.2005 um 23:42 Uhr (0)
Hi Wolfgang, Einrückungen und Kommentare sind sehr wichtig, nicht nur für den Schreiber, mehr für den Leser/Versteher, aber auch Schreiber werden irgendwann mal ihre eigenen Leser - und wenns nach zwei Jahren ist;-) Ob das nun was mit Ordnung zu tun hat, weiss ich auch nicht, bin ja eher der schlampige Typ und lege auf Ordnung wenig Wert, aber auf Einrückungen schon;;-)) Und die Sache mit dem Tod, nein den Tot - oder Torturials von Axel find ich genauso gut wie du. Nochwas: (defun C:Zählen () keine Ahnun ...
|
| In das Form AutoLisp wechseln |
|
Lisp : 3D Objekte ausfiltern und speichern
mundal am 19.12.2008 um 12:32 Uhr (0)
Hallo Zusammen,ich möchte eine AutoCAD 3D Zeichnung (Zusammenbauzeichnung) in Einzelbauteile zerlegen.Dabei sind die Teilegruppen auf je einer Layer gezeichnet.Es sollen zumindest die Geometrien der einzelnen Layer als separates File in eine eigene DWG besser ACIS-Datei (SAT) gespeichert werden.Optimal wäre wenn die einzelnen 3D Teile auf den Layern extrahiert werden.Beispiel:Zusammenbauzeichnung: ein komplettes AutoTeilegruppe: Motor, Karosserie, Innenausstattung, Räder etc liegen auf eigenen Layern.Das L ...
|
| In das Form Lisp wechseln |
