|
AutoLisp : Linien und Kreise
Sue21 am 06.01.2006 um 19:13 Uhr (0)
Hallo,als Prüfungsvorbereitung habe ich folgende AutoLISP-Programmieraufgaben gelöst, bin mir aber mit der Richtigkeit nicht ganz sicher:1. Schreiben Sie ein AutoLISP-Programm, welches den Benutzer auffordert, eine Linie oder einen Kreis zu picken.Falls eine Linie gepickt wurde, ist deren Länge zu ermitteln und auszugeben.Falls ein Kreis gepickt wurde, sind der waagerecht und senkrecht stehende Durchmesser zu zeichnen.Danach ist das Programm jeweils zu beenden.Wurde weder Linie noch Kreis gepickt oder der ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : _TRIM
spider_dd am 17.05.2005 um 10:00 Uhr (0)
Hallo RoyCad, probier mal folgendes. ; Objekte wählen (setq stutz_1 (entget (car (entsel
Erste Stutzkante )))) (setq stutz_2 (entget (car (entsel
Zweite Stutzkante )))) (setq objekt_1 (entget (car (entsel
Erste Objekt )))) (setq objekt_2 (entget (car (entsel
Zweite Objekt )))) ;ermittle Anfang und Endpunkte der Objekte (setq anf1 (cdr (assoc 10 stutz_1))) (setq end1 (cdr (assoc 11 stutz_1))) (setq anf2 (cdr (assoc 10 stutz_2))) (setq end2 (cdr (assoc 11 stutz_2))) (setq anf_o1 (cdr (assoc 10 ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Mittellinie
Zec am 16.02.2006 um 09:22 Uhr (0)
Hallo,hab da ein kleines problem, vieleicht könnt ihr helfen da ich nicht der lisp-profi bin.folgendes lisp zum erzeugen von mittellinien, aber er übernimmt mir nicht den im programm eingestellten linietyp und linienstärke.;; Mittellinie zeichnen an Kreise, Bögen, Linien LWPolylinien und Polylinien;; Die Mittellinien werden zu einer Gruppe zusammengefügt.;; (d) Schönwald;; 28.7.2003 V 4.0 ACAD2000;;(defun C:M_L (/ ELEM ELDA KR L P1 P2 P3 P4 DS WB WG WB1 DS2 CLTS E1 E2 E3 E4 AS LEER) (defun *ERROR* (MSG) (R ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : mittellinie (und ewig grüßt das murmeltier)
Zec am 24.07.2006 um 09:21 Uhr (0)
hallo zusammen,benötige mal hilfe bei einem kleine problem, ich stell den linientyp ein und er wird nicht so ausgeführt, geschweige den die farbe.danke vorab autocad 2004tga-desktop 6.0lisp:---------------------------------------------------------------;; Mittellinie zeichnen an Kreise, Bögen, Linien LWPolylinien und Polylinien;; Die Mittellinien werden zu einer Gruppe zusammengefügt.;; (d) Schönwald;; 28.7.2003 V 4.0 ACAD2000;;(defun C:M_L (/ ELEM ELDA KR L P1 P2 P3 P4 DS WB WG WB1 DS2 CLTS E1 E2 E3 E4 AS ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Probleme mit If-Funktion
caxman am 29.01.2004 um 15:01 Uhr (0)
Hallo, ich bin neu als AutoLISP ler und noch in der Übungsphase. Ich hab mir ein Programm geschrieben mit dem ich einen Pfeil für eine Ansicht erzeuge. Nun möchte ich am Ende eine Abfrage einbauen die es ermöglicht einen zweiten und dritten usw. Pfeil zu zeichnen. Ich wollte das mit If regeln aber kriegs ums ... nicht hin. Kann mir jemand nen Tipp geben? Hier der Code: ; Dieses Programm erzeugt einen Ansichtspfeil mit dem Befehl Polylinie; mit Winkelfunktion berechnet ; ; Programmstart mit: APFEIL2 ; ; Ve ...
|
| In das Form AutoLisp wechseln |
|
Lisp : sphärische Punkteingabe
CAD-Huebner am 28.02.2008 um 20:38 Uhr (0)
Zitat:Original erstellt von Werner-Maahs.de:...mit der Funktion (polar Punkt Winkel Abstand)...sphärischen Punkteingabe...Mach dir einfach eine Funktion (Polar3D pt dist ang1 ang2)genau wie von Jörn vorgeschlagen.Hier aus meinem Fundus - und sie sieht exakt wie die Funktion von Jörn ausCode:((defun Polar3D (3dpt 3ddist xyAng zAng) (mapcar + (polar 3dpt xyAng (* (cos zAng) 3ddist)) (list 0.0 0.0 (* (sin zAng) 3ddist)) ))Die Winkel kann man sich vorher ja mit (ANGTOF Winkeltext) umrechnen lassen.-- ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Probleme mit If-Funktion
marc.scherer am 29.01.2004 um 18:24 Uhr (0)
Hi Caxman, willkommen im Club ;-). Ich habe Deine Funktion mal ein wenig aufgepeppt: Code: ;| Dieses Programm erzeugt einen Ansichtspfeil mit dem Befehl Polylinie; mit Winkelfunktion berechnet Programmstart mit: APFEIL2 Verwendete Variablen: osn Einstellungen für Ofang sichern ORTH EINSTELLUNGEN FÜR ORTHO SICHERN P1 Startpunkt Ansichtspfeil P2 Endpunkt Ansichtspfeil (Pfeilspitze) br1_2 1/2 Pfeilbreite sk Skalierung für Ansichtspfeil wi Winkel Ansichtspfeil gra Argument für Winkelumrechnungsfumktion |; ; ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Zentrumsmarke
spider_dd am 11.01.2007 um 09:56 Uhr (0)
Hallo Dorfy,ich denke ich würde zwei Linine zeichnen. Die Endpunkte lassen sich ja enfach mit (polar ..) bezüglich dem Mittelpunkt des Bogens ermitteln.LGThomas
|
| In das Form Lisp wechseln |
|
AutoLisp : Kreiskoordinaten Variable benutzen???
mapcar am 18.10.2004 um 13:50 Uhr (0)
Versuch s mal hiermit: Code: (defun c:rv( / r1 r2 tg p pi/3 _rb _dr) (defun _rb(r1 r2 tg p / loop drawn cen i _draw) (defun _draw( / ) (if( =(distance p cen)(- r1 r2)) (progn (command _circle cen r2) (setq drawn(1+ drawn)) ) ) ) (setq drawn 1) (setq cen p) (_draw) (setq loop 1) (while(not(zerop drawn)) (setq drawn 0) (setq i 0) (repeat 6 (setq cen(polar p(* i pi/3)(* loop tg))) (repeat loop (setq cen(polar cen(*(+ i 2)pi/3 ...
|
| In das Form AutoLisp wechseln |
 |
Lisp : Polylinie ... Schnittpunkte ???
edo2000 am 27.10.2012 um 21:22 Uhr (0)
Hallo Leute ...irgend wie Habe ich n geometrischen BlackOut und komme einfach nicht weiter. Und was Lisp betrifft sind mir nur die "Basics" Vertraut Zum Vorhaben:Gegeben ist eine Polylinie (Trasse) und sozusagen 2 Wagons die über eine Stange verbunden sind. Hierzu siehe angehängte Prinzip-Skizze. L1, L2 und L3 sind feste Größen die sich entlang der Trasse bewegen.Ich Starte am Anfang der Polyline und möchte die Punkte P1 bis P4 in gewissen Abschnitten ermitteln.Mit einem Hilfsbogen und Mapcars htt ...
|
| In das Form Lisp wechseln |
|
Lisp : StartUndoMark EndUndoMark?
archtools am 08.08.2023 um 12:44 Uhr (1)
Zitat:Original erstellt von kadirozen:Ich danke Ihnen für den Vorschlag.Ich habe dies als Beispiel geschrieben. Wenn ich es ausführe, entstehen 4 Punkte in der Mitte des Bildschirms. Wenn ich Strg Z drücke, werden alle 4 Punkte gleichzeitig entfernt und nicht einer nach dem anderen.Code:(defun c:zBeispiel ( / *error* c pt1 pt2 pt3 msg) (vl-load-com)(setq doc (vla-get-ActiveDocument (vlax-get-acad-object))) (vla-startundomark doc) (defun *error* ( msg ) (and msg (not (wcmatch (strcase msg) "*CANCEL*,*QUI ...
|
| In das Form Lisp wechseln |
|
Lisp : Hilfe bei lisp! Block Attrtibute rotation und position!
Geos am 15.02.2013 um 18:01 Uhr (0)
Dirk, ich weiß nicht, was Du vor hast, aber (angle)/(distance)-(polar) oder (trans) könnte auch weiterhelfen...?------------------Schöne GrüßeErnst www.geopaint.at
|
| 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 |
