|
AutoLisp : Block erstellung
Nano am 06.03.2006 um 11:25 Uhr (0)
Hallo zusammenMöchte gerne das Rechteck als Block einfügen.Blocknamen ist die Variable "blname".Ziel ist durch den Blocknamen, die nichts anderes ist als die Masse des Rechtseck zu ändern und neu Zeichnen, mit neue Werte.(defun c:recht2 () (setq p1 (getpoint "
Einfügepunkt: ")) (setq laenge (getdist p1 "
Länge: ")) (setq breite (getdist p1 "
Breite: ")) (setq w (getangle p1 "
Einfügewinkel: ")) (setq blname (strcat (rtos laenge) "-" (rtos breite) "-" (rtos w))) (setq p2 (polar p1 w laenge)) (setq p3 (polar ...
| | In das Form AutoLisp wechseln |
|
AutoLisp : Rechteck als Block einfügen
Nano am 06.03.2006 um 12:45 Uhr (0)
Hallo zusammenMöchte gerne das Rechteck als Block einfügen.Blockname ist die Variable "blname".Ziel Rechteck als Block einfügen mit Blockname (Variable "blname").(defun c:recht2 () (setq p1 (getpoint "
Einfügepunkt: ")) (setq laenge (getdist p1 "
Länge: ")) (setq breite (getdist p1 "
Breite: ")) (setq w (getangle p1 "
Einfügewinkel: ")) (setq blname (strcat (rtos laenge) "-" (rtos breite) "-" (rtos w))) (setq p2 (polar p1 w laenge)) (setq p3 (polar p2 (+(/ pi 2)w) breite)) (setq p4 (polar p3 (+ pi w) laeng ...
| | In das Form AutoLisp 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 |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
