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 |
|
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 |
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 |
|
Lisp : Zeichnung als Block einfügen
Nano am 05.11.2013 um 11:07 Uhr (1)
HalloHabe hier ein Lisp der mir ein Kanalbogen zeichnet,möchte gerne diese als Block einfügen.Wäre froh für eine Lösung, Danke.Starten mit: L005B1Nano
|
| In das Form Lisp wechseln |
|
Lisp : Dynamischer Block Lisp
Nano am 13.02.2014 um 12:56 Uhr (1)
Hier ist ja B1siehe http://ww3.cad.de/foren/ubb/Forum145/HTML/004005.shtmlGruss Nano starten mit L005B1
|
| In das Form Lisp wechseln |
|
Lisp : Dynamischer Block Lisp
Nano am 18.02.2014 um 09:32 Uhr (1)
HalloHabe Probleme mit Parameter als Objekt zu definieren,(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 "")"Muss immer mit einen Punkt den Parameter anklicken. "l001pb1" zu unsicher.(COMMAND "_BActionTool" "deHnen" "_non" l001pb1 "S" "_non" l001pw1 "_non" l0 ...
|
| In das Form Lisp wechseln |
|
Lisp : Dynamischer Block Lisp
Nano am 18.02.2014 um 11:36 Uhr (1)
HalloKann man eine Zoom-Grenzen befehl verhindern,mit Parameter als Objekt??Danke für die RückmeldungGruss Nano
|
| In das Form Lisp wechseln |
|
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 : Dynamischer Block Lisp
Nano am 18.02.2014 um 11:48 Uhr (1)
mit (ENTLAST) nach Parameter erstellung
|
| In das Form Lisp wechseln |
|
Rund um Autocad : Hilfe erstellen
Nano am 01.11.2004 um 15:29 Uhr (0)
Hallo zusammen, möchte gerne zu mein Lisp-Programm auch noch Hilfe erstellen. Am liebsten wie AutoCAD. Bin Dankbar für jede Antwort Nano
|
| In das Form Rund um Autocad wechseln |
