|
AutoLisp : Kreiskoordinaten Variable benutzen???
mapcar am 18.10.2004 um 13:50 Uhr (0)
Versuch s mal hiermit: Code: (defun c:rv( / r1 r2 tg p pi/3 _rb _dr) (defun _rb(r1 r2 tg p / loop drawn cen i _draw) (defun _draw( / ) (if( =(distance p cen)(- r1 r2)) (progn (command _circle cen r2) (setq drawn(1+ drawn)) ) ) ) (setq drawn 1) (setq cen p) (_draw) (setq loop 1) (while(not(zerop drawn)) (setq drawn 0) (setq i 0) (repeat 6 (setq cen(polar p(* i pi/3)(* loop tg))) (repeat loop (setq cen(polar cen(*(+ i 2)pi/3 ...
| | In das Form AutoLisp wechseln |
|
AutoLisp : BKS - Geometrie - AutoLisp
mapcar am 17.01.2003 um 08:52 Uhr (0)
Hi, dass der GC 210 was damit zu tun hat, bezweifele ich mal stark. Das ist ein Vektor, der die Hochzugsrichtung festlegt. Cadffm, folgende Verfahren kommen da in Frage: a) bei einfachen Sachen kann man die notwendigen Transformationen zu Fuss berechnen (mit polar usw.) b) Für Allgemeingültige Sachen sollte man das Konzept der Transformationsmatrizen anwenden c) Diese Arbeit spart man sich, wenn man ein BKS erzeugt (dann erledigt Acad das mit Transformationsmatrizen). Verursacht aber oft einen Haufen Bil ...
| | In das Form AutoLisp wechseln |
|
AutoLisp : Bogen mit Bogenlänge erzeugen!
mapcar am 20.02.2004 um 20:15 Uhr (0)
Also liebe Leute, hier ein Vorschlag, wie man die Dinge lösen kann: Code: (defun lbogen(cen p1 len / ang1 ang2 ang3 rad) (setq rad(distance cen p1)) (setq ang1(angle cen p1)) (setq ang2(+ ang1(/ len rad))) (if(minusp len)(setq ang3 ang1 ang1 ang2 ang2 ang3 len(abs len))) (entmake (list (0 . arc ) (cons 10 cen) (cons 40 rad) (cons 50 ang1) (cons 51 ang2) ) ) ) (defun c:lbogen1( / cen) (lbogen (setq cen(getpoint
Mittelpunkt: )) (getpoint cen
...
| | In das Form AutoLisp wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
