|
AutoLisp : Ergänzung des gemessenen Wertes
Proxy am 26.04.2004 um 17:56 Uhr (0)
P.S. hier der Anhang Code: ; BEFEHL: ATI ; Addiert die Fläche zu markierenden Polylinien und schreibt die Fläsche als Mtext. ; ================================================================================== (defun suma-pol () (setq polilineas (ssget)) (setq n-pol (sslength polilineas) n 0 ) (repeat n-pol (setq nombre (ssname polilineas n)) (if (or (= LWPOLYLINE (cdr (assoc 0 (entget nombre)))) (= POLYLINE (cdr (assoc 0 (entget nombre)))) ) (progn (command _.area ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Blockattribute von Linien freistellen
kathi-witt am 24.04.2006 um 11:52 Uhr (0)
Hallo,ich habe da mal eine Frage:kann man Attribute in Blöcken mithilfe von WIPEOUT oder einem Lisp-Programm freistellen, so dass Linien, die durch dieses Attribut gehen, an der Stelle "unterbrochen" werden?Meine Blöcke haben nämlich alle die Punktnummer und die Höhe des jeweiligen Punktes als Attribut. Und wenn ich nun diese Punkte miteinander durch eine Linie verbinde, kann es ja passieren, dass diese Linie die Punktnummer oder Höhe durchkreuzt. Wollte nun fragen, ob es eine Möglichkeit gibt, dass mithil ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Layerlisten, Textbearbeitung
Werner-Maahs.de am 19.06.2013 um 15:46 Uhr (0)
Hallo, ich stehe mal wieder auf, Schlauch.Das Problem: Layerliste aus AutoCAD erzeugen, so verarbeiten, dass ich diese mit Ebenen in MegaCAD nutzen kann.Ich habe ein Lisp-Datei, die mir eine veränderte Layerliste erzeugt, diese auch in eine Datei schreibt. Nun will ich diese Datei aber in einer veränderten Form haben.Bisher habe ich:Code:0XY_Layer1_3DXY_Layer2_2DYZ_Layer3_3DYZ_Layer4_3D...umgesetzt für MegaCad zuCode:00001: 000002: XY_Layer1_3D00003: XY_Layer2_2D00004: YZ_Layer3_3D00005: YZ_Layer4_3D...Bis ...
|
| In das Form Lisp wechseln |
|
Lisp : Getstring mit Vorgabe
marc.scherer am 11.05.2006 um 12:20 Uhr (0)
Toll,hab wieder zu lange rumgemacht :-(Hier mein Senf:Code:(defun C:KANAL_SCHACHT (/ PUNKT SCHACHT STRANG) ;; (prompt "Schachtmitte: ") ;; Die Aufforderung kann man direkt in die GETXX Funktion bringen ;; Angaben in "" sind traditionell für "Vorgabe wenn Enter" gedacht. ;; Was ist, wenn der User keinen Punkt klickt? Dies muß abgefangen werden. (if (not (setq PUNKT (getpoint "
Schachtmitte: "))) (princ "
Ey, Du sollst n Punkt klicken... Funktionsende.") (progn ;_ fasst nachfolgendes zu einem Ausdruck zusa ...
|
| In das Form Lisp wechseln |
|
Lisp : AutoLISP englisch - deutsch
ARKarch am 29.02.2008 um 09:56 Uhr (0)
Hallo alle miteinander.Wir haben folgendes Problem: Bis vor kurzem haben wir noch mit älteren AutCAD -Versionen gearbeitet - allerdings in englischer Version. Nunmehr sind wir auf auf AutoCAD Architecture 2008 deutsch umgestiegen und haben das Problem, dass unsere vor Jahren erstellten AutoLISP -Programme nicht mehr funktionieren. Bei Ausführung erhalten wir Fehlermeldungen hinsichtlich der Inetrpretation einzelener Befehlsteile.zB:Nicht eindeutige Antwort, bitte präzisieren...SEtzen oder SPerren oder STat ...
|
| In das Form Lisp wechseln |
|
AutoLisp : 3D Volumenkörperhöhe ermitteln und
loup am 19.11.2002 um 17:34 Uhr (0)
Hallo hier ist LOUP ein neuer Lisper!! 1-Ich versuche derzeit die Höhe eines Volumenkörpers zu ermittel um danach eine geschlossene Polylinie auf diese Höhe zu extrudieren. Aber wie kann ich diese Höhe "z" herausfiltern? Ich muss derzeit die HÖhe noch von hand eingeben. Mein code sieht derzeit so aus: ;;; Die Form der Polylinie wird von dem bereits bestehenden Volumenkörper abgezogen (defun C:su1 () (graphscr) (prompt "
Select closed polyline you want to subtract: ") (setq po1 (ssget)) (promp ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Information aus Xref
fmfm am 11.04.2017 um 10:45 Uhr (1)
Hallo CadffmZitat:keinen Blocknamen "oder so ähnlich" von dir haben, sondern nur die Infoob das erste Tabellenobjekt zurückgegeben werden soll, oder das Nächste.Es gibt Pläne da hängen mehr oder weniger Xrefs dran.Spielt das eine Rolle? Ist dieser Befehl in diesem Fall überhaupt einsetzbar? (Ändert sich die Reihenfolge der Bezeichnungen wenn mehr oder weniger Blöcke vorhanden sind?)Zitat:Erstelle eine DWG mit 3 Layern und teste direkt in der Befehlszeile:ich bin diese Woche leider nur an einer Station mit ...
|
| In das Form Lisp wechseln |
|
Lisp : Layout direkt aus dem Modell erstellen
MDTiger am 10.11.2011 um 13:33 Uhr (0)
Hallo zusammen,Da meine Lisp kenntnisse leider noch in den Kinderschuhn stecken wende ich mich an euch.In unserer Fa. werden die Fließschema für ein Projekt immer alle zusammen in einer Zeichnung eingetragen, d.h. wir haben teilweise bis zu 50 Zeichnungen übereinander auf einem Blatt (dwg).Leider konnte ich diesen Zustand meinen Kollegen bisher nicht austreiben.Die Probleme ergeben sich jetzt, wenn man die Zeichnungen einzelnd plotten oder als PDF erstellen will, X-mal auf plotten, Lasso um die nächste Zei ...
|
| In das Form Lisp wechseln |
|
Lisp : Insert verschieben in anderen Insert
archtools am 21.08.2017 um 21:27 Uhr (1)
Zitat:Original erstellt von HPW:Hallo,Naja die Frage war: ...eine Lisp-Funktion die die beiden Handles übergeben bekommt und die Verschachtelung ausführt.Code habe ich noch nicht. Ich habe schon mal eine Funktion programmiert die einen Block durchliesst und Entyties darin mit (entmod .) modifiziert.Habe auch schon bei meiner Suche code gesehen wo mit entmake neue Blöcke erstellt wurden.Was jetzt der beste Weg ist einen vorhandenen Block um einen Sub-Block zu erweitern, da fehlt mir der Ansatz wie das am be ...
|
| In das Form Lisp wechseln |
|
Lisp : Sortierung Masstabsliste
cadffm am 21.03.2019 um 21:27 Uhr (1)
Gut einen Tip habe ich ja bereits gegeben (wenn gleich ich dies nie in Lisp getestet habe),aber wenn dir das als Starthilfe nichts taugt, dann mal was anderes - eher weg vom Programmieren und mehr hin zum Praktiker-Ansatz.Du importierst die Maßstäbe erst durch den Import eines Beschriftungsobjektes?Also wenn vorher keine dieser Maßstäbe vorhanden ist und man dann meine Aussage über die Erstellreihenfolge berücksichtigt, dann wäre es ja einen Versuch Wertdie Maßstäbe einzeln in der benötigten Reihenfolge zu ...
|
| In das Form Lisp wechseln |
Block-Mtextdwg.txt |
Lisp : MTEXT im Block Ursprung setzten
Nano am 12.01.2011 um 13:55 Uhr (0)
habe es schon mit diesem Lisp versucht. doch die Farbe verändert sich nichtLayer = a_txt/ Farbe rot(defun c:mt ( / BLOCK ob subenti farbe) (setq BLOCK (tblobjname "BLOCK" (cdr(assoc 2 (entget(car(entsel))))))) (setq OB BLOCK) (while (setq ob (entnext ob)) (if (= (cdr(assoc 0 (setq subenti(entget ob))))"MTEXT") (progn (if (assoc 62 subenti) (setq subenti (subst (cons 62 256) (assoc 62 subenti) subenti)) (setq subenti (append subenti (list (cons 62 256)))) ) (entmod sube ...
|
| In das Form Lisp wechseln |
|
Lisp : car und cdr Salat aus A´s und D´s
PsycoDad am 18.06.2012 um 15:32 Uhr (0)
Erstmal Danke euch allen für die Hilfe.Bin kein Student mehr, werde mein Profil gleich bearbeiten.Entschuldige mich für den fehlenden Link.Hab mich für die "nth"-Version entschieden, da ich mit "car" und "cdr" immer Probleme hab.An "nth" hat ich gar nicht mehr gedacht.Arbeite nur noch sehr selten mit AutoCAD.Mein Lisp sieht momentan so aus:Zitat:(defun c:test (/ file zeile) (setq file (getfiled "Verzeichnisliste" "" "" 2)) (if file (progn (setq file (open file "r")) (while (setq zeile (read-line fi ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Polylinien zur Gesamtlänge aufsummieren
Brischke am 09.09.2003 um 22:27 Uhr (0)
Hallo anno45, ich nehme an, du hast etwas Streß beim Programmieren, weshalb du dein Problem sehr wortkarg beschreibst. Ich bin mal kurz drüber geflogen, nicht getestet! Was mir aufgefallen ist: Du hast eine Variable plangli . Dieser wird aber nirgends ein Wert zugewiesen. Könnte schon die Lösung all Deiner Probleme sein. Ich möchte Dich aber für die Zukunft bitten, dein Problem etwas genauer zu beschreiben, dann kann man auch zielgerichtet danach schauen und Lösungen finden. Du kannst hier von niemandem e ...
|
| In das Form AutoLisp wechseln |
