|
AutoLisp : Bei Abruch oder Esc Benützereinstelungen zurücksetzten
vision am 20.10.2005 um 15:45 Uhr (0)
;Die Unterprogamme müssen oben stehen! (defun Init () (setq Err *error* *error* Fehler Osx (getvar "OSMODE") ) ) (defun ReInit () (setvar "OSMODE" Osx) (setq *error* Err) ;(redraw auswahl 4) (princ) ) (defun Fehler (s) (print (strcat "Fehler: "s)) (ReInit) ) (defun c:LispPrg (/ Err Osx) ;das vorhandene Lisp-Prg. (Init); Aufruf Unterprogramm (siehe oben) ;..... ;..... ;.....)Der fette Text muss zum vorhandenen Prog. hinzu gefügt werden!
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Mehrere Basispunkte!
vision am 29.02.2004 um 17:27 Uhr (0)
Hallo, die Variante mit vier Blöcken ist nicht so praktikabel. Den Basispunkt zu verschieben hat den Nachteil, dass sich das dann auf allen Blockreferenzen des Meßstellenblocks in der Zeichnung mit ändern. Wär es denn nicht möglich an den vier Stellen z.B. Punkte zu setzen und diese dann für den Cursor zu nehmen? Eine indirekte Vorgehensweise wäre z.B. per Lisp denkbar: - den Block in der Zeichnung einfügen - den Block aktiv machen - den Fang auf Mittelpunkt u. Endpunkt - den _move Befehl starten - einen ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : ENTSEL Linie
vision am 21.04.2004 um 13:27 Uhr (0)
Hallo! In dem unteren Lisp-Prg. (nicht von mir) wird nach der Auswahl einer Linie gefragt. Bei einer normalen Linie ist es OK, bei einer 2D-Polylinie kommt die Meldung: Fehlerhafter Argumenttyp: 2D-/3D-Punkt. Wie sollte die Abfrage für eine 2D-Polylinie aussehen? Für Eure Bemühungen bedanke ich mich schon im Voraus. (defun c:LINIENAUSWAHL() ;... (SETQ Q@@(ENTSEL Linie wählen: )) (SETQ ENAME(CAR Q@@)QQ@(CADR QO@)Ql@(ENTGET ENAME)Q|(TRANS(CDR(ASSOC 10 Ql@))ENAME 1)Q%(TRANS(CDR(ASSOC 11 Ql@))ENAME ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Polylinien
vision am 08.12.2003 um 20:31 Uhr (0)
AutoCAD 2002 Hallo, suche ein Lisp-Prg. was nur Blöcke mit den darin enthaltenen 2DPolylinien auflöst. Hintergrund: Durch Exportieren aus einem anderen Programm werden Zeichnungselemente wie z.B. Ventilsymbole und Linienverläufe jeweils in einzelnen Blöcken zusammengehalten. Um mit den 2DPolylinien weiter arbeiten zu können, müssen NUR die Blöcke der 2DPolylinien aufgelöst werden, so das die 2DPolylinien-Segmente in ursprünglicher Form in der Zeichnung vorhanden sind. Die 2DPolylinien haben die globale Br ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : ENTSEL Linie
vision am 21.04.2004 um 21:28 Uhr (0)
Hallo, wie ich oben angemerkt habe, ist das Lisp-Prg. nicht von mir. Ich möchte aber das Prg. so anpassen, dass es auch mit den von uns hauptsächlich benutzten 2D-Polylinien funktioniert. Das kompl. Prg. benutzt die Angabe um eine parallele Linie zu erzeugen. Leider verstehe ich das Prg. auch nur ganz grob. Also, wenn ich auf eine normale Linie klicke bekomme ich Koordinaten angezeigt (x, y, z) die zur weiteren Berechnung so benötigt werden. Diese Koordinaten müssten so auch aus einer 2D-Polylinien generie ...
|
| In das Form AutoLisp wechseln |
Att-Clone.txt |
Lisp : Attributwerte kopieren & einfügen
vision am 10.03.2017 um 19:46 Uhr (1)
Hallo,ich möchte die Attributwerte von einem Block in einen anderen Block kopieren und einfügen.Das funktioniert mit dem Lisp Att-Clone von CADwiesel soweit einwandfrei, wenn die Attributnamen bei beiden Blöcken gleicht sind. Ich möchte aber, wenn AutoCAD das zulässt, in einen Block kopieren der andere Attributnamen hat.Besteht die Möglichkeit, im Programmabschnitt ";;; Funktion tauscht Attributwerte aus. / (setq ATTNAME ... " andere Attributnamen anzugeben und wenn ja, wie.Für Eure Unterstützung bedanke i ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Pedit / Verbinden
vision am 09.12.2003 um 12:22 Uhr (0)
AutoCAD 2002 Hallo, wer hatt noch Ressourcen frei und kann mir den Befehlsablauf zum verbinden von 2DPolylinien, wie unten aufgeführt, als Button-Befehl oder Lisp-Prg. erstellen? Befehl PEDIT: _pedit Polylinie wählen oder [mehrere Objekte]: o Objekte wählen: Option eingeben [Schließen/Öffnen/Verbinden/BReite/kurve Angleichen/Kurvenlinie/kurve LÖschen/LInientyp/Zurück]: v Fuzzy-Abstand eingeben oder [Verbindungstyp] 0.0000 : v Verbindungstyp eingeben [Dehnen/Hinzufügen/Beides] Hinzufügen : h Fuzzy-Absta ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Linien-Bruch
vision am 09.12.2003 um 13:25 Uhr (0)
AutoCAD 2002 Hallo, ich möchte auf Linien (2DPolylinien mit einer Breite 0) die sich horizontal u. vertikal kreuzen, einen Bruch auf der horizontalen Linie mit dem Bruchabstand von jeweils 0,75 mm links u. rechts vom Schnittpunkt der vertikalen Linie einfügen. Ich habe dazu schon einige Tools ohne Erfolg ausprobiert. Auch verstehe ich nicht den Aufwand, den einige Prg. zum Brechen betreiben (z. B. _CIRCLE _TRIM _.ERASE KR _ZOOM ...). Ist es denn nicht möglich, den AutoCAD Bruchbefehl per LISP ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Texte in Blöcken löschen!
vision am 28.11.2003 um 18:53 Uhr (0)
AutoCAD 2002 Hallo, ich bitte um Eure Hilfe. Beim Konvertieren von Zeichnungen werden in Blöcken Texte angezeigt, die eigentlich unsichtbar sein sollten. Die Texte sind bei allen Blöcken gleich (z. B. NAME, NR oder nur *** als Platzhalter). Das Konvertieren läst sich leider nicht beeinflussen. Da diese Textplatzhalter nicht benötigt werden und auch optisch stören, lösche ich diesen Text z. Z. von Hand mit der Funktion Referenz bearbeiten . Leider sind das teilweise über 50 Blöcke. Ich denke (hoffe!), dass ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : Text kopieren und ändern
vision am 11.02.2004 um 18:12 Uhr (0)
Hallo, habe das LISP zum drehen (90°) von Blöcken geändert. Es funktioniert auch, bekomme aber nach jedem Schleifendurchlauf die Fehlermeldung: Unbekannter Befehl BLOCK_DREHEN90 . Wer hat einen Rat? (defun C:BLOCK_DREHEN90 (/ OBJEKT UCSFLAG) (setq UCSFLAG (WORLD-UCS)) (while (setq OBJEKT (ssget _:S ((0 . INSERT )))) (setq OBJEKT (ssname OBJEKT 0)) (command _.rotate OBJEKT (cdr (assoc (if ( 0 (cdr (assoc 72 ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Textausrichten
vision am 20.01.2004 um 19:46 Uhr (0)
Hallo, da mir in diesem Forum schon viel geholfen wurde, möchte ich auch mal was konstruktives beisteuern. Das Tool erzeugt ein Auswahl-Listenfeld. ;Das LISP-Programm: ListeDN.lsp (defun C:ListeDN () (setq NAMES ("DN10" "DN20" "DN25" "DN30" "DN40" "DN50" "DN65" "DN80" "DN100" "DN125" "DN150" "DN200") ) (setq dcl_id (load_dialog "ListeDN.dcl")) (if (not (new_dialog "ListeDN" dcl_id) ) (exit) ) (start_list "selections") (mapcar add_list NAMES) (end_list) (action_tile "ac ...
|
| In das Form Rund um Autocad wechseln |
|
Lisp : Polylinie Eigenschaften zuweisen
vision am 18.02.2005 um 13:13 Uhr (0)
Hallo,ich benutze dazu dieses Lisp:(defun Init () (setq Err *error* *error* Fehler ) )(defun ReInit () (redraw OBJEKT 4) (setq *error* Err) (princ) )(defun Fehler (s) ;(print (strcat "Fehler: "s)) (ReInit)) (defun Lesen () (progn (setq OBJEKT Ax) (redraw OBJEKT 3) (if(and (not(vl-catch-all-error-p (setq GB (vl-catch-all-apply vlax-get-property (list (vlax-ename-vla-object OBJEKT) ConstantWidth ) ) ...
|
| In das Form Lisp wechseln |
