|
Lisp : Lisp Autonummerierun Erweitern
Jungspunt am 14.06.2009 um 14:00 Uhr (0)
HalloIch würde gern folgende lisp erweitern und zwar das man die Text größe wählen kann.Weis aber nicht wie. Also die Abfrage schaf ich noch aberwo ist die Variable für die Textgröße? Code:(defun c:number (/ nr ipt ant) (setq nr (if (setq ant(getint "
Startnummer 0")) (1- ant) 0 ) ) (while (setq ipt (getpoint (strcat "
Einfügepunkt: " (itoa (setq nr (1+ nr))) ":"))) (entmake(list (0 . "TEXT") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbText") (cons 10 ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp Autonummerierun Erweitern
Jungspunt am 30.06.2009 um 20:35 Uhr (0)
Hiwie muss ich die lisp erweitern damit ich einen Vortext oder Nachtext hinzufühen kann?bei (cons 1 (itoa nr))mit einer Abfrage wie bei der Startnummer.(setq nr (getint "
Startnummer:"))Danke
|
| In das Form Lisp wechseln |
|
Lisp : Block im Block sprengen
Jungspunt am 14.06.2009 um 14:10 Uhr (0)
HiIch habe bei Cadwiesel eine Lisp gefunden wie man die Layer innerhalb eines Blockes auf Layer 0 setzt und als Layerfarbe vonLayer.Damit Nehmen die Blöcke automatisch die Farbe des Layers an.Bei meine Blöcken geht das aber leider nicht, denn es befinden sich innerhalb des Blockesnoch Blöcke die auch gesprengt werden müssen. Damit würde sich dann auchder Layer automatisch auf 0 Setzen.Wie muss ich jetzt die Lisp erweitern damit das geht?Code:;Redefines ALL objects in any block in the drawing on layer 0.;(c ...
|
| In das Form Lisp wechseln |
|
Lisp : Block im Block sprengen
Jungspunt am 15.06.2009 um 22:10 Uhr (0)
Hallo cadffm un dautocart. Es geht damit leider auch nicht. Wenn ich den Block anschließend öffne dannist zwar innerhalb des blockes alles auf Layer 0 gestellt. Trotzdem nimmt der Block nicht die Layerfarbe an. (Ist ziemlich paradox ich weiß)Es muss unbedingt alles gesprengt werden innerhalb des Blockes.Warum das so ist weiß ich auch nicht der block ist ein Element das mit Pit Cad erstellt wurde.Einer Erweiterung für Autocad.Die hab ich aber nicht. Bisher musste ich also immer um den Block die Layerfarbe a ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp Autonummerierun Erweitern
Jungspunt am 15.06.2009 um 21:58 Uhr (0)
Danke hat geklapt.Hier mein Code:Code:(defun c:nummer (/ nr th ipt ant) (setq nr (getint "
Startnummer:")) (if nr () (setq nr -1) ) (setq th (getreal "
Texthöhe:")) (if th () (setq th 10) ) (while (setq ipt (getpoint (strcat "
Einfügepunkt: " (itoa (setq nr (1+ nr))) ":"))) (entmake(list (0 . "TEXT") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcD ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp Autonummerierun Erweitern
Jungspunt am 02.07.2009 um 19:39 Uhr (0)
Danke geht super
|
| In das Form Lisp wechseln |
|
Lisp : Fehler im Fehler
Jungspunt am 13.07.2009 um 22:20 Uhr (0)
HiMein kleines LISP will leider nicht so wie ich es will.Das Problem ist dass wen ich keinen TEXT klicke oder einfach ins lehre dann bricht das LSIP ab.Kann mir bitte jemand einen Tip geben. Ich bin leider nochnicht so gewand mit dem programmieren. DankeCode:(defun c:ne (/ nr NACHTEXT STR obj ) (setq nr (getint "
Startnummer:")) (if nr () (setq nr 0) ) (setq nr (1- nr))(setq NACHTEXT (getstring "
Nachtext:"))(while (setq obj (entget(car(entsel "
TEXT wählen:")))) (if(="TEXT"(cdr(assoc 0 obj))) ...
|
| In das Form Lisp wechseln |
 |
Lisp : Arbeits-Support-Datei
Jungspunt am 03.12.2013 um 11:01 Uhr (15)
Sorry ich meinte "Vertrauenswürdige Speicherorte"dort möchte ich per Lisp einen Eintrag hinzufügen.oder diese Überprüfung abschalten.Danke[Diese Nachricht wurde von Jungspunt am 03. Dez. 2013 editiert.]
|
| In das Form Lisp wechseln |
