|
AutoLisp : Syntax (@)
Brischke am 06.09.2002 um 09:40 Uhr (0)
Hallo Andrea, (POLAR...) so steht s in der Hilfe: (polar pt ang dist) Arguments pt A 2D or 3D point. ang An angle expressed in radians relative to the X axis, with respect to the current construction plane. Angles increase in the counterclockwise direction. dist Distance from the specified pt. Return Values A 2D or 3D point, depending on the type of point specified by pt. Examples Supplying a 3D point to polar: Command: (polar (1 1 3.5) 0.785398 1.414214) (2.0 2.0 3.5) Supplying a 2D point to polar: C ...
| | In das Form AutoLisp wechseln |
|
AutoLisp : koordinaten auslesen
Brischke am 26.12.2002 um 18:39 Uhr (0)
Hallo Peter, bei LWPolylinien sind alle Punkte hinter den Gruppencodes 10 versteckt, bei Linien gibt es nur den Anfangs und Endpunkt. Beim Bogen mußt du allerdings rechnen. Da hast du den Mittelpunkt, Startwinkel, Endwinkel und Radius. (Habe jetzt keinen Acad-Rechner zur HAnd, kann also nicht mal schnell in die DXF-Tabelle schauen) Aber daraus kann man ja dann ganz leicht z.B. mit (polar ....) den Start und endpunkt berechnen. Die Bögen in Polylinien haben allerdings nicht die gleiche Definition wie das Ac ...
| | In das Form AutoLisp wechseln |
|
Lisp : LASTPOINT
Brischke am 04.06.2015 um 08:11 Uhr (1)
... ist heute nicht Feiertag?Egal! - ich bin ja auch am Rechner.@Vision: Auch wenn es wie Klugschei ... klingt. Aber deine Aufgabenstellung ist unlogisch. Ein Punkt besteht aus 3 Koordinaten. Dem kann man nicht einfach eine Zahl hinzuaddieren. Es ist wie beim Zeichnen auch:Du benötigst einen Vektor für die Addition, der dann natürlich mit 3 Koordinaten definiert ist.Du kannst aber auch mit dem Wissen einer Länge und eines Winkels mit der Funktion (polar ..) einen Ergebnispunkt bestimmen.Fazit: bei deiner A ...
| | In das Form Lisp wechseln |
|
AutoLisp : Ausführung dieser Lisp-Datei der alte Layer wieder zurückgesetzt
Brischke am 06.05.2004 um 12:22 Uhr (0)
Hallo Ralph, dann sieht es so aus: 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 oldlayer) (setq oldlayer (getvar CLAYER )) (if (tblobjname LAYER 0_Li_Cy_013 ) (setvar CLAY ...
| | In das Form AutoLisp wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
