|
AutoLisp : Dialogfenster an Cursor
Helmut Schepers am 12.04.2005 um 14:36 Uhr (0)
Hallo Martin, hier mal ein Beispiel wie man sich die Position der DCL-Box merken kann um sie nach dem verschieben auf dem Bildschirm wieder an der selben Stelle zu öffnen. ******************************************************************************** als test.lsp speichern (defun c:merk-dcl-pos ( / OK OPEN_DCL) (setq open_dcl (load_dialog c:/lisp/test.dcl )) ;; Pfad anpassen (if merk_po (if (not (new_dialog schiebe open_dcl merk_po))(exit));; merk_po durch liste mit Koordinaten ersetzen. (if (not ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Mehrfachplot über LISP-Programm
Helmut Schepers am 21.10.2003 um 20:51 Uhr (0)
Hallo Werner wenn es eine reine Lisp-Lösung sein soll, solltest du dich einmal näher mit den VLA-Funktionen beschäftigen. Hier ein kleines Beispiel, wie man die Anzahl der Seiten einstellt. Ob dieser Aufruf mit (command _.plot ...) funktioniert habe ich nicht ausprobiert, da ich bei mir, wenn automatisch gedruckt werden soll, die gesamte Druckerausgabe über die VLA-Funktionen steuer. (vla-put-numberofcopies (vla-get-plot (vla-get-ActiveDocument (vlax-get-acad-object))) HIER_DIE_SEITENANZAHL_EINGEBEN ) v ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Punktkoordinaten auf einem Bogen mit Lisp ermitteln
Helmut Schepers am 08.03.2008 um 22:11 Uhr (0)
Hallo Lispelmannauf meiner HP findest du ein kleines Beispiel, das hilft die vielleicht etwas weiter------------------mfgHelmut SchepersHomepage
|
| In das Form Lisp wechseln |
|
AutoLisp : Enity Eintäge auslesen?
Helmut Schepers am 03.09.2002 um 10:06 Uhr (0)
Hallo Dirk, im Anhang findest du ein kleines Lisp-Programm, das alle Stützpunkte einer Polylinie in eine Liste schreib. MfG Helmut
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Elemente am Fadenkreuz (hängend) einfügen
Helmut Schepers am 15.10.2002 um 07:48 Uhr (0)
Hallo, hier mal ein kleines Beispiel in Lisp, wie so etwas machen könnte. Ich hoffe es hilft die weiter. Gruß Helmut (defun c:merk( / ab aw) ;letztes Element merken (setq ab (entlast)) ;neue Elemente zeichnen (command "kreis" (list 50 50) 50) (command "kreis" (list 50 50) 25) (command "rechteck" (list 0 0) (list 100 100)) ;wenn schon Elemente in der Zeichnung vorhanden sind, ;dann auf erstes neues Element (if ab(setq ab (entnext ab))) ;Auswahlsatz erzeugen (setq aw(ssadd)) ;wenn s ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Mehrfachplot über LISP-Programm
Helmut Schepers am 27.10.2003 um 22:01 Uhr (0)
Hallo Werner, hier einmal ein etwas größeres Beispiel, wie man einen Drucker mit VLisp ansteuern kann. (defun f:hs_plot (p0 p1 anz sc / al ll ur ) ;p0 -- Punkt links unten ;p1 -- Punkt rechts oben ;anz -- Anzahl der zu druckenden Seiten ;sc -- Plot-Maßstab (vl-load-com) (setq al (vla-item (vla-get-layouts(vla-get-ActiveDocument(vlax-get-acad-object))) Model )) (vla-put-configname al Epson Stylus COLOR 1520 ESC/P 2 ) (vla-put-CanonicalMediaName al A4 ) (vla ...
|
| In das Form AutoLisp wechseln |
