|
AutoLisp : bildeigenschaften via lisp abfragen
fuchsi am 21.10.2003 um 10:53 Uhr (0)
sorry noch ne kleine ergänzung, der U-vektor ist nur der vektor eines einzigen pixels ! und nicht der bildbreite im GC13 hast du eine liste aus (xPixel und YPixel) dir berrechnung ´des rechten oberen punktes läuft dann so (setq en1 (car (entsel))) elementname image (setq ed1 (entget en1)) elemtdaten image (setq LiUn (cdr (assoc 10 ed1))) einfügepunkt (setq u (cdr (assoc 11 ed1))) u-vektor (setq u1 (polar LiUn 0 (car u))) (setq u1 (polar u1 (/ pi 2.) (cadr u))) u-punkt abs ...
| | In das Form AutoLisp wechseln |
|
AutoLisp : Koordinateneingabe bei (command "_offset")...
fuchsi am 12.12.2003 um 12:13 Uhr (0)
bögen sind ja noch leichter, da du den mittelpunkt radius und startwinkel hast. (polar MP startwinkel (+ radius 50)) (polar MP startwinkel (- radius 50)) ------------------
| | In das Form AutoLisp wechseln |
|
AutoLisp : Koordinateneingabe bei (command "_offset")...
fuchsi am 12.12.2003 um 10:40 Uhr (0)
das liegt nicht daran dass er 0,-1 nicht akzeptiert aber du gibst die punkte absolut ein, und die absoluten 0,1 und 0,-1 werden halt beide auf einer seite der linie liegen du musst vom startpunkt der lineie nach links unf rechts rechnen (setq dn 50) (setq en (car (entsel))) (setq ed (entget en)) (setq p1 (cdr (assoc 10 ed))) (setq p2 (cdr (assoc 11 ed))) (setq wi (angle p1 p2)) (command _offset (/ DN 2.0) en (polar p1 (+ wi (/ pi 2.)) dn) ) (command _offset (/ DN 2.0) en (polar p1 ...
| | In das Form AutoLisp wechseln |
|
AutoLisp : Num.LSP (Einfügepunkt)
fuchsi am 11.08.2004 um 09:31 Uhr (0)
hallo alpschorsch wenn du den text um 10 einheiten nach oben haben möchtest ist das einfachst diese lösung ersetz in deinem code vom 1. posting diese zeile (cons 10 ipt) mit (cons 10 (polar ipt (/ pi 2.) 10)) ------------------
| | In das Form AutoLisp wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
