|
Lisp : Erzeugen von Regeloberflächen
Werner-Maahs.de am 03.02.2008 um 13:36 Uhr (0)
Hallo Jörn, danke für Deine Antwort!Allerdings glaube ich, dass sie nicht das ist was ich wollte.Bei Deinem Lösungsansatz wird m.E. ein Punkt herausgegeben. Ich wollte aber eine Objekt wählen.Der Grund liegt darin, weil meine Routine auch mit einer komplexen Zeichnung umgehen soll und nicht das vermeintlich zuletzt gezeichnete Objekt an der gewählten Stelle wählt. Zudem müsste m.E. für die polar ...-Eingabe auch das BKS auf das gewählte Objekt ausgerichtet werden. Wenn es keine andere Lösung gibt, stellt d ...
|
| In das Form Lisp 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 |
|
Lisp : Text versetzt einfügen
cadplayer am 16.08.2013 um 08:20 Uhr (1)
Code:(defun c:foo ( / pkt rot) (princ "Funktion zum versetzten Beschriften von Punkten") (setvar "AUPREC" 0) (setq NR "Punktnummer" Pkt (list 1 1 1)) ; visible POINT MODE (if (= 0 (getvar "PDMODE")) (progn (initget "Yes No") (setq swMod (getkword "
Change points style to good visible? [Yes/No] Yes: ")) (if(null swMod)(setq swMod "Yes")) (if (= swMod "Yes") (progn (princ "
Please wait...
") (setvar "PDMODE" 35) (setvar "PDSIZE" -2) ) ...
|
| In das Form Lisp wechseln |
|
AutoLisp : BKS - Geometrie - AutoLisp
mapcar am 17.01.2003 um 08:52 Uhr (0)
Hi, dass der GC 210 was damit zu tun hat, bezweifele ich mal stark. Das ist ein Vektor, der die Hochzugsrichtung festlegt. Cadffm, folgende Verfahren kommen da in Frage: a) bei einfachen Sachen kann man die notwendigen Transformationen zu Fuss berechnen (mit polar usw.) b) Für Allgemeingültige Sachen sollte man das Konzept der Transformationsmatrizen anwenden c) Diese Arbeit spart man sich, wenn man ein BKS erzeugt (dann erledigt Acad das mit Transformationsmatrizen). Verursacht aber oft einen Haufen Bil ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Polylinienendpunktabstände markieren
Proxy am 28.05.2004 um 11:42 Uhr (0)
Hab da Lisp gefunden, jedoch funktioniert es nicht mit Polylinien Fehlerhafter Argumenttyp: numberp: nil . Kann da einer mit Krücke an den Kopp werfen ? Code: ; Locates and marks ends of arcs, lines, and plines that are close ; but not exactly coincident. ; Gaps are marked by drawing circles on the current layer. ; Set to the layer you want the marker circles on and run ; Command: GAPS ; You can select part of a drawing to check or press ENTER to check ; The whole drawing. ; 9/27/93 LW, Robert ...
|
| In das Form AutoLisp wechseln |
|
Lisp : sphärische Punkteingabe
Werner-Maahs.de am 01.03.2008 um 09:53 Uhr (0)
Jetzt habe ich auch das mit der Mapcar-Funktion verstanden. Ist einfach genial!Udo, klappt eigentlich Dein Fundus bei Dir? Ich habe es damit jedenfalls nicht hinbekommen. Aber Dein Hinweis, dass es exakt die Funktion von Jörn ist, hat mich veranlaßt die Sachen zu vergleichen.Die Funktion von Jörn funktionierte jedenfalls auf anhieb. Ich hatte zunächst nur nicht seine Erklärung verstanden.Da Ihr ja in der Regel wissen wollt wie das Ergebnis Eurer Hilfe ausschaut, hier meine Vereinigung von Jörns und Udos Fu ...
|
| In das Form Lisp wechseln |
|
Lisp : Schnittpunkt ermitteln
cadplayer am 24.01.2012 um 12:34 Uhr (0)
Code:(defun c p ( / l1 l2 w1 w2 erg di)(while (not (and (setq l1 (car (entsel "
Select line 1: "))) (wcmatch (cdr (assoc 0 (entget l1))) "LINE"))) (princ "
No line select") )(while (not (and (setq l2 (car (entsel "
Select line 2: "))) (wcmatch (cdr (assoc 0 (entget l2))) "LINE"))) (princ "
No line select") ) (progn (cond ((equal (setq win1 (angle (cdr (assoc 10 (entget l1))) (cdr (assoc 11 (entget l1))))) (setq win2 (angle (cdr (assoc 10 (entget l2))) (cdr (assoc 11 (entget l2))))) 0) ( ...
|
| In das Form Lisp wechseln |
|
Lisp : Alle Konturen nach innen versetzen
Geos am 18.08.2008 um 19:56 Uhr (1)
Hallo TheodorDie Idee, den Seitpunkt einfach nach links und rechts (im rechten Winkel) zu rechnen, war nicht so gut. Ich hab leider nur mit Vielecken getestet. Im "Spezialfall Rechteck" fällt dann ein Punkt genau auf die Linie.Wenn man aber beim Berechnen der Seitpunkte -Code:(setq #spkt (polar #p2 ([+/-] (angle #p2 #p1) (/ pi 3)) #versatz ) )anstelle von pi/2 pi/3 nimmt, sollte es bei Rechtecken und Kreisen funktionieren. Bei Konturen mit spitzen Winkeln (falls Du solche auch hast) wird da ...
|
| In das Form Lisp wechseln |
|
Lisp : Schnittpunkt ermitteln
cadplayer am 22.02.2012 um 10:00 Uhr (0)
Mein Versuch mit cal eine Berechnung durchzuführen funktioniert soweitCode:(defun c p ( / l1 l2 l1a l1e l2a l2e l1wi l2wi di)(while (not (and (setq l1 (car (entsel "
Select line 1: "))) (wcmatch (cdr (assoc 0 (entget l1))) "LINE"))) (princ "
No line select") )(while (not (and (setq l2 (car (entsel "
Select line 2: "))) (wcmatch (cdr (assoc 0 (entget l2))) "LINE"))) (princ "
No line select") )(if (not c:cal)(arxload "geomcal"))(setq l1a (cdr (assoc 10 (entget l1))) l1e (cdr (assoc 11 (entget l1) ...
|
| In das Form Lisp wechseln |
|
Lisp : Erzeugen von Regeloberflächen
joern bosse am 03.02.2008 um 19:13 Uhr (0)
Hallo Werner, Zitat:Bei Deinem Lösungsansatz wird m.E. ein Punkt herausgegeben. Ich wollte aber eine Objekt wählen.Das verstehe ich nicht ganz, Du willst doch dem Command-Befehl "regelob" 2 Objekte übergeben. Zudem müssen diese Objekte die Information über den Pickpunkt haben, damit das Ergebnis ordentlich erstellt werden kann.Ich habe der Funktion jetzt pro Objekt eine Liste übergeben, wie sie sonst ENTSEL zurückgibt.Wenn Du im BKS arbeitest, dann mußt Du noch ein TRANS mit einbauen:Code:(command "Regelob ...
|
| In das Form Lisp wechseln |
|
Lisp : Ansichtsfenster drehen
cadplayer am 15.02.2012 um 16:43 Uhr (0)
Hi Robin!Bei mir lag das hier rum, vllt hilfts weiter...Musst halt 2 Punkte von deinem Objekt anklicken.Code:(defun C:DA ( / p0 p1 p2 a pi_2 _expert _osmode) (setq _expert (getvar "EXPERT")) (setq _osmode (getvar "OSMODE")) (setvar "UCSFOLLOW" 0) (initget 1) (setq p0 (getpoint "
Point at lower left corner: ")) (setq p0 (list (car p0) (cadr p0) 0.0)) (initget 1) (setq p1 (getpoint p0 "
Point out direction of lower line: ")) (setq p1 (list (car p1) (cadr p1) 0.0)) (setq a (angle ...
|
| In das Form Lisp wechseln |
|
Lisp : Auf- & Abtrags fläche ermitteln
cadplayer am 13.06.2012 um 15:01 Uhr (0)
Code:;;; Ermittle befindlige Geländeprofil aus 2 gewählten Geländepunkten;;; obj; Textobjekt;;; bef_h; befindlige höhe zahlwert;;; bef_p; befindlige höhe koordinate;;; bef_list; Liste aus höhe und koordinate(alert "
Entnommene Höhenangaben liegen in einer Flucht! ")(repeat 2(while (not (and (setq obj (car (entsel "
Wähle 2 Geländehöhen !"))) (not (if (/= (cdr(assoc 0 (entget OBJ))) "TEXT") (princ "
kein Text gewählt") ) ) (setq bef_h (atof (cdr (assoc 1 (entget obj)))) ) (setq bef_p (cdr (as ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Abstand
Schachinger am 07.09.2004 um 13:10 Uhr (0)
hallo RoyCAD! so einfach ist das nicht zu beantworten deine gewünschte position der bemaßung ja von mehreren faktoren abhängig sein wird?! aber mal ein paar gedanken dazu... angenommen du hast zwei punkte die du vermaßen willst (schräg im raum). der 3te punkt der für die bemaßungsposition zuständig ist soll z.b. 10 zeichnungseinzeiten parallel zur achse punkt1-punkt2 laufen (wär z.b. eine logischer vermutung) dann mal diese zeile zu gemüte führen: Code: (setq pt3 (polar pt1 (+ (angle pt1 pt2) (/ PI 2)) 1 ...
|
| In das Form AutoLisp wechseln |
