|
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 : Befehlszeile
Semy am 24.05.2004 um 19:34 Uhr (0)
Hallo Leute, ich habe hier ein Lisp-Programm das zeichnet mir ein Platte mit verschiedenen Löchern und schreibt mir dann, oben einen Text hinein. Wenn ich das Programm aus dem Visual-Lisp Editor mehrere Male starte dann läuft das Programm bis zum Schluss. Wenn ich das Programm öfter in der Befehlszeile von Autocad starte,dann bleibt es nach der ersten Textausgabe mit einer Fehlermeldung stehen. Was mache ich verkehrt? Wie könnte man das Programm sonst mit Textausgabe schreiben? (Defun C:Wel() (setq falt( ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : kompakte Lisp Code
RoyCAD am 15.03.2005 um 09:51 Uhr (0)
Hallo Kann man dieser Code bearbeiten, weil jetzt ist das eine Endlose Geschichte. Ich denke es ist doch möglich das Ding viel kürzer zu schreiben. Für ein Beispiel werde ich sehr dankbar. Mit freundlichen Grüßen RoyCAD (setq bock_seit_an1 (polar (setq startbock_an (getpoint Startpunkt )) 0.0 (- (+ (+ (+(-(* b1 (sqrt 2.0))9.95 )2.9) (* b2 (sqrt 2.0))) (+ (* Breite_3 (sqrt 2.0)) 4.0)) 5.4) )) (setq bock_seit_an2 (polar bock_seit_an1 w45 (* 5.4 (sqrt 2.0)))) (setq bock_seit_an3 (polar bock_ ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Problem mit (* Realzahl -1)
CADmium am 18.05.2009 um 15:35 Uhr (0)
bei mir klappt als reduziertes Problem(defun TESTUS ( ) (setq Steigung1 2) (setq Tagentenlänge 100) (setq STICHMAß 50) (setq hoehsPK (polar (list 100 0 0) (/ pi 2) (* (/ (* 100 Steigung1) 100)10))) (setq strsatzPK (/ (* (* (/ (* 100 Steigung1) 100)10) Tagentenlänge) 100 )) (setq strsatzPK (* strsatzPK 1)) (setq zwPK (polar hoehsPK (/ pi 2) strsatzPK)) (setq bogenpk1 (polar zwPK 0 (* -1 Tagentenlänge))) (setq bogenpk2 (polar hoehsPK (/ pi 2) (* Stichmaß 10))) (setq bogenpk3 (polar bogenpk1 0 (* 2 Tagentenlä ...
|
| In das Form Lisp wechseln |
|
Lisp : Zentrumsmarke
joern bosse am 11.01.2007 um 10:02 Uhr (0)
Hallo Dorfy,eingentlich müßte es mit (command "_dimcenter" (ssname a 0)"") funktionieren, tut es aber nicht.Daher würde ich es dann vielleicht doch mit Linien probieren:Code:(defun c:zmarke (/ a r z) (setq a (ssget)) (setq r (* 1.5(cdr(assoc 40(entget(ssname a 0))))) z (cdr(assoc 10(entget(ssname a 0))))) (entmake (list (0 . "LINE") (cons 10 (polar z pi r)) (cons 11 (polar z 0.0 r)))) (entmake (list (0 . "LINE") (cons 10 (polar z (* pi 0.5) r)) (cons 11 (polar z (* pi 1.5) r)))) (princ) )--------- ...
|
| In das Form Lisp wechseln |
|
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 |
|
Lisp : Lisp Programme von R14 nach 2007 portieren
CAD-Huebner am 03.09.2006 um 21:51 Uhr (0)
Ich habe den Code etwas überarbeitet, schön ist er aber nicht. Vor allen Dingen die extensive Nutuzng von Variablen ist für dieses Programm völlig unnötig. Code:(defun c:fens1( / FEP GD1 GD1M I1 I1A I1E I1H I1HF L1 LGD1 OS PI2 PIWIN WIN X1 X2 X3 X4 X5 X6 XL1A XL1E XPI2) (if ( (setq os (getvar "OSMODE")) 16384) ; Objektfang deaktivieren (setvar "OSMODE" (+ os 16384)) ) (setq L1 (getpoint "
Winkel P1: ")) (setq WIN (getangle L1 "
Winkel P2: ")) (setq PI2 (+ (/ pi 2) WIN)) (setq XPI2 (+ (/ (* 3 pi) ...
|
| In das Form Lisp wechseln |
|
Lisp : Textbox für mehrzeilige Attribute?
joern bosse am 19.04.2013 um 11:39 Uhr (0)
Hallo Dirk,danke für Deine Rückmeldung, ich habe es jetzt aber schon gelöst:Code:;;;Mehrzeiliges Attribut picken(defun c:test ( / KOORDS OBJ) (if (=(vlax-get (vlax-ename-vla-object (setq obj(car(nentsel)))) MtextAttribute)-1) (progn (setq koords(JBf_TextBox:EckpunkteWelt:AttMehrzeilig obj 1.1)) (command "_.pline" (car koords) (cadr koords) (caddr koords) (cadddr koords) "_c" "")))) ;;;Rückgabe von Weltkoordinaten lu, ru, ro, lo(defun JBf_TextBox:EckpunkteWelt:AttMehrzeilig (objAtt Aus ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp Programme von R14 nach 2007 portieren
Zoff am 03.09.2006 um 18:22 Uhr (0)
Hallo,nach dem Umstieg von R14 auf Autocad 2007 funktionieren einige unserer LISP Programme nicht mehr.Dummerweise ist der Autor nicht mehr greifbar, die Listings sind komplett unkommentiert und meine Kenntnisse auf diesem Gebiet sind leider nur gering.Die Programme sehen z.B. aus wie folgt. (Schnitt durch eine Fensterscheibe)(defun c:fens1 ()(graphscr)(setq L1 (getpoint "
Winkel P1: "))(setq WIN (getangle L1 "
Winkel P2: "))(setq PI2 (+ (/ pi 2) WIN))(setq XPI2 (+ (/ (* 3 pi) 2) WIN))(setq PIWIN (+ pi WIN ...
|
| In das Form Lisp wechseln |
|
Lisp : Zentrumsmarke
Dorfy am 11.01.2007 um 11:35 Uhr (0)
@Thomas und Jörn - !!!Danke!!!So hab ich mir das vorgestellt!(defun c:zmarke (/ a r d z) (setq a (ssget (list(0 . "circle")) )) ; (command "-layer" "se" "AM_7" "") (repeat (sslength a) (progn (setq r (* 1.5(cdr(assoc 40(entget (ssname a (setq D (if D (1+ D) 0))))))) z (cdr(assoc 10(entget (ssname a D))))) (entmake (list (0 . "LINE")(cons 10 (polar z pi r))(cons 11 (polar z 0.0 r)))) (entmake (list (0 . "LINE")(cons 10 (polar z (* pi 0.5) r))(cons 11 (polar z (* pi 1.5) r)))) (princ))))? Liegt es am ...
|
| In das Form Lisp wechseln |
|
Lisp : Gruppieren mit AutoLISP
DivePete am 22.02.2017 um 11:14 Uhr (1)
Hallo liebe Foren-MitgliederIch habe mich heute in diesem Forum angemeldet, da ich nicht mehr weiter weiss und auch mit Google bin ich nicht mehr weitergekommen. Wir sind im Lüftungsbau tätig und zeichnen daher immer mal wieder Lüftungskanäle. Um den Zeichnungsaufwand zu verringern, habe ich versucht ein kleines LISP-Programm zu schreiben, welches die Kanäle durch Eingabe von Parametern automatisch erzeugt. Das Programm funktioniert gut.Die Kanäle werden häufig in der Zeichnung verschoben. Bis jetzt muss i ...
|
| In das Form Lisp wechseln |
|
Lisp : sphärische Punkteingabe
joern bosse am 28.02.2008 um 14:52 Uhr (0)
Hallo Werner,oder erst Polar in der Ebene anhängen und dann um z korrigieren:Code:(defun c:test ( / ) (setq pkt (0.0 0.0 0.0) dist 10.0 w1 (/ pi 2.0) w2 (/ pi 3.0)) (command "_.line" pkt (mapcar +(polar pkt w1 (*(cos w2) dist)) (list 0.0 0.0 (*(sin w2) dist)))""))------------------viele GrüßeJörn
|
| In das Form Lisp wechseln |
|
Lisp : Text versetzt einfügen
cadffm am 16.08.2013 um 11:07 Uhr (1)
Die Quintessenz von den vielen Zeilen ist ja aber die passende Antwort gewesen:statt mit Mapcar würde man einfach mit Polar arbeiten: (polar Pkt (* rot (/ pi 180)) 0.25)Das bringt dann auch den einen oder anderen Mitleser weniger durcheinander ------------------CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD
|
| In das Form Lisp wechseln |
