|
Lisp : Dynamischer Block Lisp
Nano am 18.02.2014 um 11:47 Uhr (1)
So ungefähr(COMMAND "_BParameter" "Linear" "Bezeichnung" "Höhe:" "S" "Mittelpunkt" "W" "I" 0 100 5000 "_non" l001pb1 "_non" l001pb2 "_non" l001pb1 "0")(SETQ Dy-höhe (ENTLAST))so dass man nicht den Parameter "Dy-höhe" wählen kann.(COMMAND "_BActionTool" "deHnen" Dy-höhe "S" "_non" l001pw1 "_non" l001pw5 Dy-H "")
|
| In das Form Lisp wechseln |
|
Lisp : Block kann nicht aufgelöst werden
Nano am 19.02.2007 um 10:12 Uhr (0)
Habe das Lisp gefundenIch habe nur noch Mühe das Lisp umzuändern.Möchte gerne das es die ganze Zeichnung scanntund alle Blöcke die nicht auflösen kannumzustellen in(Auflösen zulassen).Gruss NanoOriginal:(defun c:BLOCK-UNLOCK (/ OBJ BL NAME NEWNAME NR)(if (and (setq OBJ (car (entsel)))(= (cdr (assoc 0 (entget OBJ))) "INSERT") (setq NAME (cdr (assoc 2 (entget OBJ)))) (setq VLA-OBJ (vlax-ename-vla-object OBJ)) ) (progn (setq NR 0) (while (tblobjname "BLOCK" (setq NEWNAME (strcat NAME "_" (itoa NR))) ) (setq N ...
|
| In das Form Lisp wechseln |
|
Lisp : Wert von dynamischer Block lesen?
Nano am 01.02.2009 um 16:55 Uhr (0)
hallo UdoKannst Du mir erklären, warum ich die Kanal-Breite nicht ändern kann.Habe hier ein kleines LISP.(DEFUN C:kbr()(command "_Insert" "kanal4" (setq pt (getpoint "Einfügepunkt: ")) "" "" "") (SETQ object (entlast)) (SETQ breite (GETDIST "Wert für Breite: ")) (setProperty (vlax-ename-vla-object object) "Kanal-Breite" breite))Gruss Nano
|
| In das Form Lisp wechseln |
|
Lisp : autocad-farbfenster aufrufen
Nano am 08.12.2007 um 13:47 Uhr (0)
Hallo Thomas Farbfenster aufrufen, dass der Benützer die Farbe auswählen kannum den xRef-Zeichnung zu zuweissen.Habe schon Lisp mit DCL gemacht, dass mir die Liste der xRef-Zeichnungen anzeigt und der Benützer kann dieser wählen.Thomas habe dies eingegeben, das Farbfenster erscheint nicht.Was habe ich falsch gemacht???(acad_truecolordlg color [allowbylayer] [currentlayercolor])Gruss Nano
|
| In das Form Lisp wechseln |
|
Lisp : Layer-Leichen eliminieren
Nano am 12.12.2006 um 11:20 Uhr (0)
HalloMit Hilfe von Jörn konnte ich eine Bau-Zeichnung konvertieren,die mit verschachtelte Blöcke versehen waren.Nach der Konvertierung sind jedoch noch Layers auf der Zeichnung,die keine Elementen beinhalten.Habe es versucht mit Bereinigung der Zeichnung. GEHT NICHT!Nur mit Layerkonverter konnte ich die Layer-Leichen auf Layer "0" setzten.Kann mir Jemand helfen, wie ich mit ein Lisp-Programm die Leichen eliminieren kann??????Als Beilage die Zeichnung (zip-Datei).Gruss Nano
|
| In das Form Lisp wechseln |
|
Lisp : Layout-Modus die Layer gefroren oder getaut
Nano am 13.06.2010 um 09:19 Uhr (0)
HalloMit diesem Lisp kann ich feststelle ob ein Layerein- oder aus-geblendet ist.(SETQ mf026dump (tblnext "LAYER" T)) (WHILE (/= mf026dump nil) (SETQ mf026-an-aus (cdr (assoc 62 mf026dump))) (SETQ mf026dump (tblnext "layer")) ))bei "assoc 62" Farbe ob negativ oder positiv istAusgaben: ((0 . "LAYER") (2 . "0") (70 . 0) (62 . 7) (6 . "Continuous"))EINGEBLENDETAusgaben: ((0 . "LAYER") (2 . "0") (70 . 0) (62 . -7) (6 . "Continuous"))AUSGEBLENDETWie kann ich feststellen ob im MansFenster "Layout-Modus" die L ...
|
| In das Form Lisp wechseln |
|
Lisp : Attributen importieren
Nano am 27.09.2007 um 20:37 Uhr (0)
Hallo Thomas Ich habe ein Block mit Attributen.Blockname: Raum-Luft-Angaben1. Attributtbezeichnung: RAUM-NUMMER2. Attributtbezeichnung: ZUL-MONOBLOCK3. Attributtbezeichnung: ZUL-MENGE4. Attributtbezeichnung: ABL-MONOBLOCK5. Attributtbezeichnung: ABL-MENGEJetzt habe ein xls-Dateierste Zeile: RAUM-NUMMER Datenzeite Zeile: ZUL-MONOBLOCK Daten und so weiter......Es sollte eigendlich mit der Raum-Nummer wissen welcher Block es ist.In der Zeichnung sind die Blöcke mit Raum-Nummer geschrieben,aber ohne Monoblock- ...
|
| In das Form Lisp wechseln |
|
Lisp : Linie im Block
Nano am 09.12.2006 um 13:50 Uhr (0)
Hallo zusammenHabe hier ein kleines Lisp erstellt.Es sollte für mich alle Linien-Elemente im einem Block filtrieren,Die Linien auf ein Layer und die Farben auf "Vonlayer" setzten.Habe bemerkt das es alle Linien im Block findet.Layer und Farbe neu setzten habe ich probleme,kann mir jemand sagen an was es liegt im (DEFUN AL1()??Danke Nano(DEFUN C:AL() (setq Jblock (tblnext "BLOCK" t)) (while Jblock (setq blk (tblobjname "BLOCK" (cdr (assoc 2 Jblock)))) (while(setq blk (entnext blk)) (setq blkdaten (entg ...
|
| In das Form Lisp wechseln |
Block-Mtextdwg.txt |
Lisp : MTEXT im Block Ursprung setzten
Nano am 12.01.2011 um 13:55 Uhr (0)
habe es schon mit diesem Lisp versucht. doch die Farbe verändert sich nichtLayer = a_txt/ Farbe rot(defun c:mt ( / BLOCK ob subenti farbe) (setq BLOCK (tblobjname "BLOCK" (cdr(assoc 2 (entget(car(entsel))))))) (setq OB BLOCK) (while (setq ob (entnext ob)) (if (= (cdr(assoc 0 (setq subenti(entget ob))))"MTEXT") (progn (if (assoc 62 subenti) (setq subenti (subst (cons 62 256) (assoc 62 subenti) subenti)) (setq subenti (append subenti (list (cons 62 256)))) ) (entmod sube ...
|
| In das Form Lisp wechseln |
3D-Kanal-DWG.txt |
Lisp : 3D Objekte Zeichnen
Nano am 18.05.2013 um 07:35 Uhr (0)
HalloHier Versuche ich ein 3D-Kanal zu erstellen.Das kleine Lisp geht auch, jedoch möchte ich den letzten Schnitt sparren, den Befehl "3DDREHEN".Das heisst das ich mit 3D-Polar mühe habe.Weiß jemand wie, vielen Dank.... mfg NanoIm Anhang eine DWG mit Darstellung und Erleuterung.(DEFUN c:3dKanal() (SETVAR "cmdecho" 0) (SETQ $breite (Getreal "
Kanal-Breite angeben: ") $hoehe (Getreal "
Kanal-Höhe angeben: ") $laenge (Getreal "
Kanal-Länge angeben: ") $flansch 22 $flanschbreite (+ (* $flansch 2) $bre ...
|
| In das Form Lisp wechseln |
3dKanal_Problem-DWG.txt |
Lisp : 3D Objekte Zeichnen
Nano am 18.05.2013 um 09:52 Uhr (0)
Hallo JürgenKannst du behilflich sein, da wäre ich froh.bei diese Zeile habe ich noch ein Problem und ich weiss nicht mehr weiter.Habe noch eine Zeichnung im Anhang, so dass mann den Fehler sieht.Lisp:(DEFUN c:3dKanal() (SETVAR "cmdecho" 0) (SETQ $breite (Getreal "
Kanal-Breite angeben: ") $hoehe (Getreal "
Kanal-Höhe angeben: ") $laenge (Getreal "
Kanal-Länge angeben: ") $flansch 22 $flanschbreite (+ (* $flansch 2) $breite) $flanschhoehe (+ (* $flansch 2) $hoehe) $blechdicke 5 ) (command "bks" " ...
|
| In das Form Lisp wechseln |
