|
AutoLisp : Koordinateneingabe bei (command "_offset")...
Schachinger am 16.12.2003 um 14:12 Uhr (0)
also einen herzlichen dank für eure hilfe! am objektfang is es bei meinem code leider auch nicht gelegen- keine ahnung was da los war - aber egal hauptsache es funktioniert jetzt ich rechne jetzt auch nur vom WKS aus - dann hauts hin. hintergrund ist das ich das selbe schon mal für den 3D-Bereich gemacht habe (Linien und Bögen mit Rohr überziehen) und dort bin ich nicht drumrum gekommen mit dem OKS zu arbeiten - hat aber auch gefuntzt dann. darum hab ich hier auch so angesetzt mit der lösung. der funkti ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Abstand
Schachinger am 07.09.2004 um 16:22 Uhr (0)
DIMEXO bestimmt wo der anfang der hilfslinie ist. das hat aber nichts mit der position der richtigen bemaßungslinie und des textes zu tun! zeichne mal eine linie und dann: Code: (setq pt1 (getpoint 1ter punkt: )) (setq pt2 (getpoint 2ter punkt: )) (setq osmode_save (getvar osmode )) (setvar osmode 0) (setq pt3 (polar pt1 (+ (angle pt1 pt2) (/ PI 2)) 10.0)) (command bemlinear pt1 pt2 pt3 ) (setvar osmode osmode_save) dann kommt bei mir das raus was du auf dem bild siehst! das müsste dir ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Abstand
Schachinger am 07.09.2004 um 13:10 Uhr (0)
hallo RoyCAD! so einfach ist das nicht zu beantworten deine gewünschte position der bemaßung ja von mehreren faktoren abhängig sein wird?! aber mal ein paar gedanken dazu... angenommen du hast zwei punkte die du vermaßen willst (schräg im raum). der 3te punkt der für die bemaßungsposition zuständig ist soll z.b. 10 zeichnungseinzeiten parallel zur achse punkt1-punkt2 laufen (wär z.b. eine logischer vermutung) dann mal diese zeile zu gemüte führen: Code: (setq pt3 (polar pt1 (+ (angle pt1 pt2) (/ PI 2)) 1 ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Punkte auf Linie erstellen
Schachinger am 01.09.2004 um 16:40 Uhr (0)
versuch mal das: Code: (defun c:l_teil () (setq obj (nentsel
Linie wählen: )) (setq pt1 (cdr (assoc 10 (entget (car obj))))) (setq pt2 (cdr (assoc 11 (entget (car obj))))) (setq p_klick (car (cdr obj))) (if ( (distance p_klick pt1) (distance p_klick pt2)) (progn (setq p_temp pt1) (setq pt1 pt2) (setq pt2 p_temp) (setq p_temp NIL) ) ) (while (setq ab (getreal
Abstand eigeben: )) (setq osmode_save (getvar osmode )) (setvar osmode 0) ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Abstand
Schachinger am 08.09.2004 um 12:45 Uhr (0)
du hast überall die zeilen Code: (command bemlinear pt1 pt2 pt1 ) drinnen! erster punkt: anfangspunkt der bemaßung zweiter punkt: endpunkt der bemaßung dritter punkt: POSITON DER BEMASSUNG was wäre es wenn du diese zeile durch Code: (setq pt12 (polar pt1 (+ (angle pt1 pt2) (/ PI 2)) 10.0)) (command bemlinear pt1 pt2 pt12 ) ersetzt? das selbe spiel natürlich auch für die anderen bemaßungen! und natürlich nicht auf das ausschalten des ofangs vergessen! sonst springt dir die bemaßung ev. wie ...
|
| In das Form AutoLisp wechseln |
