|
Lisp : Probleme mit (polar ... )
neurosis am 22.06.2011 um 17:13 Uhr (0)
hallo florian,fuer vlisp sind das fuer "pruefen" zu viele zeilen. kopier das ganze mal in die vlisp-konsole, dann wird dir auch das ergebnis dessen angezeigt.grussmarco------------------Marco Heuer www.arc-aachen.de Airport Office
|
| In das Form Lisp wechseln |
|
Lisp : OT: Funktion polar in C++
Bernd10 am 19.10.2010 um 09:41 Uhr (0)
Hallo Alfred,ich habe es inzwischen so umgesetzt:double dWinkelEKBm = M_PI * (dWinkelEK / 180.0); // Winkel im Bogenmaßdouble dXNeu = dXAlt + cos(dWinkelEKBm) * dOffset;double dYNeu = dYAlt + sin(dWinkelEKBm) * dOffset;Danke und viele GrüßeBernd
|
| In das Form Lisp wechseln |
|
Lisp : abdecken: rahmen ein/aus
CADmium am 25.06.2008 um 12:42 Uhr (0)
wie ist es mit AUTOSNAP (für Polar)(defun c:POLARSWITCH( / AUTOSNAP) (if(=(logand(setq AUTOSNAP(getvar "AUTOSNAP"))8)8) (setvar "AUTOSNAP" (- AUTOSNAP 8)) (setvar "AUTOSNAP" (+ AUTOSNAP 8)) ))oder meinst du wie in der THreadüberschriftsowas (- kann man auch als switcher proggen)------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : Hilfe bei lisp! Block Attrtibute rotation und position!
cadffm am 15.02.2013 um 21:38 Uhr (0)
0 0 1 bedeutet: Das OCS ist parallel zum WKS,aber das ist offenbar (NOCH) nicht dein Problem Oben wurde es bereits geschrieben: POLAR ANGLE DISTANCE sind wohl die Funktionen die benötigt werdenum erst mal den Anfang zu finden.Einfachstes Testszenario zum Anfang: keine Drehung, Skalierung=1, alles im WKS:Insert Koordinate 5,7Attrib Koordinate 5,2Ermittle den Abstand und den Winkel vom InsertBP zum AttribBP.Abstand 5.0Winkel 270° - Aber HIER wird wohl bereits deine erste Aufgabe sein denn DXF kennt keine 2 ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Anordnung in Lisp
Dolcetto am 29.06.2005 um 07:19 Uhr (0)
Allgemein: Wie kann ich autoCAD befehle in eine Lisp schrieben, mit voergegebenen werten? z.B. soll er mir einen Kreis Zeichnen, diesen dan Automatisch auswählen und ihn über eine Anordnung Polar über einen festen Punkt zu einer eingegebenen Anzahl erstellen. (command _array ).......... und wie weiter??? geht das irgendwie so? Danke für die Antworten
|
| In das Form AutoLisp wechseln |
|
Lisp : Probleme mit (polar ... )
Oberpeilsteiner Florian am 22.06.2011 um 16:37 Uhr (0)
Hab jetzt das ganze noch mal überprüft und du hast recht.Da hab ich wohl den Wald vor lauter Bäumen nicht mehr gesehen. Das gemeine daran ist auch dass das anscheinend der einzige Punkt ist an dem die Berechnung des Zentrumspunktes auf diese Weise nicht funktioniert. (der Anfangspunkt der letzten Linie und der Endpunkt des Bogens sind identisch, dadurch entstehen die Parallelen)Danke für die rasche Antwort und ich Hoffe das nächste mal entdecke ich so einen Fehler bevor ich hier danach Fragemfg Florian
|
| In das Form Lisp wechseln |
|
Lisp : Probleme mit (polar ... )
cadffm am 22.06.2011 um 15:08 Uhr (0)
Servus,ich habe mir jetzt nicht alles angesehen sondern nur das INTERS samt Ergebnis, jetzt muß ich erst mal sagen das ich INTERS keinen Fehler nachsagen kann, zumindestwenn ich berücksichtige mit wieviel Nachkommastellen gerechnet werden kann. Zudemkonnte ich mit deinem folgenden Satz nichts anfangen kann:"Obwohl ich beim Prüfen des letzten Punktes der "inters" Funtkion nur eine "Leere Eingabe" erhalte, wird das Ergebnis richtig errechnet."Was bekommt du wo ------------------CAD.de System-Angaben - CAD o ...
|
| In das Form Lisp 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 : hilfe um befehl textsize in lsp einzubauen
Bauvermesser am 22.05.2006 um 22:49 Uhr (0)
hallo,habe eine kleine lsp um einen pfeil zu zeichnen, dieser wird durch die einstellung zu -textsize- in der größe bestimmt, wer kann mir helfen und in diese lsp den befehl " textsize" einbauen damit ich vor der erstellung des pfeiles die größe einstellen kann, habe schon einiges probiert bekomme es aber nicht hingruß der bauvermesser(DEFUN C:PFEIL();; hier aufruf textsize um pfeilgröße zu bestimmen (SETVAR "CMDECHO" 0) (SETQ S (GETPOINT "
Startpunkt: ") E (GETPOINT S "
Endpunkt: ")) (COMMAND "PLINIE" ...
|
| 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 |
|
AutoLisp : Abstand mit entsel die zweite
Jürgen Scheeren am 22.06.2004 um 10:37 Uhr (0)
Hallo Werner, vielen dank für Deinen Beitrag, dein Prog ist natürlich eine Punktlandung. Möchte aber erst noch ausprobieren ob ich es mit entsel hinbekomme. Du hast mir aber den richtigen Ansatz für das Aufrufen des DIST Befehls gegeben, kriegs aber trotzdem noch nicht hin, was mach ich falsch?? Gruß Jürgen (DEFUN c:as ( / e1 e2 anfp1 richt1 ) (princ nur parallele Linien messen ) (SETQ e1 (ENTGET (CAR (ENTSEL
erste Linie wählen ... weiter zu DIST mit Return : )))) (if e1 (progn (SETQ e2 (ENTG ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Probleme mit (polar ... )
cadffm am 22.06.2011 um 16:19 Uhr (0)
Also wenn ich mich wirklich nur auf den Codeschnipsel beziehe, vor den man sich dann noch (setq line (list "LINIE" 800 0 0 0 0)) ;aktueller Punkt(setq lastline (list "BOGEN" 800 -800 0 0 0)) ;letzter Punkt(setq lastlastline (list "PLBLOCK" 0 -800 0 0 27))oder(setq line (list "LINIE" -400 0 0 0 0))(setq lastline (list "BOGEN" 400 0 0 0 180))(setq lastlastline (list "PLBLOCK" 400 0 0 0 27))denken muß, dann kann ich deine Aussage nicht bestätigen.Wenn ich den Schnipsel Prüfen lasse d ...
|
| In das Form Lisp wechseln |
|
Lisp : Anfängerproblem Punkte auswählen Objektfang
tunnelbauer am 19.02.2008 um 17:50 Uhr (0)
ergänze dein Tool um folgende fett gedruckten Zeilen:Code:(defun c:test (/ ech ang pt1 pt2 pt3 x1 y1 x2 y2 x3 y3 ) (setq ech (getvar "CMDECHO")) (setvar "CMDECHO" 0) (setq oldsnco (getvar "OSNAPCOORD")) (setvar "OSNAPCOORD" 0) (princ "Angabe über %-Neigung zweischen zwei Punkten") (princ "Wert wird als Text in die Mitte der Punkte gesetzt") (SETQ pt1 (getpoint "
Erster Punkt:")) (SETQ pt2 (getpoint pt1 "
Zweiter Punkt:")) ;xy Koordinaten der Punkte filtern (ein anderer Weg wäre über "Polar") (SETQ x1 (c ...
|
| In das Form Lisp wechseln |
