|
Lisp : trans - was ist falsch
gmk am 04.03.2008 um 09:17 Uhr (0)
Zitat:Original erstellt von Geos:Die VE kann aber auch schräg im KoordSystem liegen, weshalb die Berechnung des "Restes" - (polar ...), Richtungen - etwas aufwendiger ist.Einfacher wäre, das Ganze relativ zur Linie aufzubauen.Der Anfangspunkt hätte dann (0 0 0), der Endpunkt (linienlänge 0 0).Die Geländepunkte wären dann mit (stat (- höhe ve)) zu kriegen, die Liste mit (foreach ...) abzuarbeiten.Servus Ernst,erstell doch das Querprofile im WKS und schieb es dann mit _align auf die VE. Dann brauchst du kei ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Koordinatenbemassung mit Ergänzung
gmk am 15.11.2005 um 16:08 Uhr (0)
hi bassi!guggst du in anhang (in dwg umbenennen) wegen dem bemassungsstil.bks auf basislinie (0) und los gehts.für die automatisierung in lisp brauchts dann nur noch ein paarpunkte die du mit polar und angle leicht ausrechnen kannst.ciao georg
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Obejkte auf Layer legen
gmk am 01.10.2003 um 16:13 Uhr (0)
funzt bei mir 1a! Befehl: TEST Bauabschnitt: 1 Start Radialachse (Zähler): 1 Start Ringachse (konstant): 1 Ttextabstand: 1.5 schau mal im textstil nach ob da für höhe 0 drin steht. wenn ja ändern auf das was du bei textabstand eintippst. ciao georg kleiner nachtrag: nehme an, daß das umstellen der layer nur dann funkt wenn du _text ganz beendest (am ende noch ein ). daher mein umweg über polar für den nächsten einfügepunkt. (_layer und setvar sind nicht transparent!) [Diese Nachricht wurde von gmk ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Abstand mit entsel die zweite
gmk am 22.06.2004 um 09:38 Uhr (0)
-angle berechnet den richtungswinkel der ersten gerade -richt1 + pi/2 dreht den winkel um 100gon -polar ergibt einen punkt senkrecht zur ersten gerade im anfangspunkt der ersten gerade -inters berechnet den schnittpunkt der senkrechten und der zweiten gerade -distance berechnet den abstand schnittpunkt - anfangspunkt (=abstand der geraden) ich würde an deiner stelle aber, egal welchen code du verwendest, erst mal prüfen ob die geraden überhaupt parallel sind (equal). ciao georg
|
| In das Form AutoLisp wechseln |
|
AutoLisp : ansichtsfenster koordianten
gmk am 19.02.2003 um 14:14 Uhr (0)
Hi Axel! Bei Reini Urban habe ich folgende lisp gefunden. Wie schon vermutet und von Dir auch angesprochen befinden sich die Transformations-parameter im EED-Bereich des viewports. Bis zu ca. 5 Vorkommastellen funktioniert das ganze ohne Probleme. Ab 6-7 Vorkommastellen wird das Ergebnis jedoch sehr unscharf. (arbeite hauptsächlich mit Gauss-Krüger-Koordinaten, 7 Vorkommast. siehe auch Anhang) Kennst Du das Probl.? Wie kann ich die Genauigkeit in diesem Bereich erhöhen? (DEFUN C:ele () ; (defun #VPT_BOX ( ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Block einfügen und bearbeiten
gmk am 17.11.2005 um 13:18 Uhr (0)
servus heinz!ich nehme an es geht dir immer noch um die beschriftung deiner schemapläne. übergib an dein programm eine liste die ungefähr so aussieht:((layername1 blockname1 freistellungsradius1) ((layername2 blockname2 freistellungsradius2) ((layername3 blockname3 freistellungsradius3) .....)dann brauchst du nur noch die linie anklicken, holst dir die blockinfo aus obiger liste, gibst den einfügepunkt für den block an und läßt im programm mit dem winkel der linie und dem freistellungsradius die linie aufb ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Messen / Teilen mit Punktnummerierung - Intelligenter Linientyp
gmk am 27.05.2004 um 17:09 Uhr (0)
units an CADchup !!!!! ;;; STA geändert von CADchup (defun C:STA (/ TXL AO MS EP was?) (setq savezin (getvar DIMZIN )) (setvar DIMZIN 0) (setq SC 1000.0 ; ZE Meter, Maßstab 1:1000 TXL (* (getvar TEXTSIZE ) 12.0 ) ;_ end * ) ;_ end setq (initget Kilometer Station Meter ) (setq was? (getkword Kilometer, Station oder Meter? )) ;Abfrage, wie bemasst werden soll (defun DOLOOP (PL / PT CPT LEN LENSTR PAR FD ANG PT2 TX WID) (while (setq PT (getpoint
Punkt wählen: ) ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Abstand mit entsel die zweite
gmk am 21.06.2004 um 16:46 Uhr (0)
(DEFUN c:as ( / e1 e2 anfp1 richt1 ) (SETQ e1 (ENTGET (CAR (ENTSEL
erste Linie wählen: ))) e2 (ENTGET (CAR (ENTSEL
zweite Linie wählen: ))) anfp1 (CDR(ASSOC 10 e1)) richt1 (+ (ANGLE anfp1 (CDR(ASSOC 11 e1))) (/ pi 2)) ) (ALERT (STRCAT Abstand: (RTOS (DISTANCE anfp1 (INTERS anfp1 (POLAR anfp1 richt1 1) (CDR(ASSOC 10 e2)) (CDR(ASSOC 11 e2)) nil)) 2 2))) (PRINC) ) ciao georg
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Abstand mit entsel die zweite
gmk am 22.06.2004 um 11:19 Uhr (0)
(DEFUN c:as ( / ele e1 e2 anfp1 ) (SETQ ele (CAR (ENTSEL
erste Linie wählen (_dist mit enter) : ))) (IF ele (PROGN (SETQ e1 (ENTGET ele) e2 (ENTGET (CAR (ENTSEL
zweite Linie wählen: ))) anfp1 (CDR(ASSOC 10 e1)) ) (ALERT (STRCAT Abstand: (RTOS (DISTANCE anfp1 (INTERS anfp1 (POLAR anfp1 (+ (ANGLE anfp1 (CDR(ASSOC 11 e1))) (/ pi 2)) 1) (CDR(ASSOC 10 e2)) (CDR(ASSOC 11 e2)) nil)) 2 2))) ) ;progn (COMMAND _dist ) ) (PRINC) ) lies mal in der hilfe was die fu ...
|
| In das Form AutoLisp wechseln |
