|
Lisp : Trennen von Linien
Amadeo52 am 14.06.2005 um 04:18 Uhr (0)
Hallo mal,ich habe diese kleine Lisproutine noch irgendwo bei mir auf dem Rechner gefunden um sich kreuzende Linie in einem Schema zu trennen. Die obere Line ist durchgehend und die untere Linie soll mit einem vorgegeben Abstand getrennt werden. Soweit funktioniert das ganz nett, nur lästig ist das ich jedesmal den Befehl neu aufrufen muss, auch wenn ich 250 mal das gleiche Nacheinander mache und das ich jedesmal den Abstand eingeben muss. Das wäre angenehmer, wenn ich den Abstand nur am Anfang eingebe und ...
|
| In das Form Lisp wechseln |
|
Lisp : Trennen von Linien
Dober Heinz am 21.04.2011 um 06:24 Uhr (0)
@motokoGenau Im Lisp ist alles super beschrieben.------------------ Heinz
|
| In das Form Lisp wechseln |
|
Lisp : Benutzerabfrage
chris888 am 29.04.2011 um 14:44 Uhr (0)
Hallo!!Frage: Wie kann ich eine Benutzerabfrage in einer Lisp erstellen?Also zum beispiel eine Variable "a" definieren der dann mein eingegebener wert zugewiesen wird und dieser dann verwendet wird.Bsp:Ich will ein Objekt Varia(ieren) also größe ändern. Einmal will ich das mit F= 2 und einmal mit F= 3,78. Ich will nun vor der Objektwahl den faktor angeben und dann auswählen...Und bitte ich weiß das der befehl Varia das umgekehrt selber macht -.- ES IST JA NUR EIN BEISPIEL. Es geht ums Prinzip, Wie ich eine ...
|
| In das Form Lisp wechseln |
|
Lisp : Blockeditor im Hintergrund laufen lassen?
alfred neswadba am 02.05.2011 um 16:45 Uhr (0)
Hi, aber bei großen Zeichnungen kann es doch mal 3 sekunden dauernJunge, Junge, was sind das für Sorgen ... Ich möcht nicht wissen, wofür ich schon 3 Sekunden verbraten hätte, ohne mir darüber Gedanken zu machen.Wenn eins fix ist, dann dass ich nicht länger arbeiten muss, weil der Blockeditor 3 Sekunden gebraucht hätte. Die eigentliche Antwort: nein, gibt es nicht (und hätte auch nix mit LISP zu tun).Wendest Du den Blockeditor für Referenzen an, dann wäre es noch denkbar, entweder die Referenz als eigene ...
|
| In das Form Lisp wechseln |
|
Lisp : letzter Befehl wird ausgeführt.
Daniel Möller am 03.05.2011 um 11:31 Uhr (0)
Hallo zusammen,hoffe ihr könnt das schöne Wetter etwas genießen :-)Mittlerweile gibts bei uns dank euch schon ein paar nette LISP Routinen allerdings hab ich bei manchen noch ein Problem das beim ausführen oft der letzte Autocad Befehl ausgeführt wird. Was kann ich dagegen tun?z.b zeichne ich in autocad eine linie und führe zb. dann folgende Routine aus:(defun C:260Text() (progn (command "LAYZUSF" "N" "AQA-TEXT00260" "" "N" "TAG-Nummer" "J") ) )nilManchmal macht er dass dann nicht und will eine Linie zei ...
|
| In das Form Lisp wechseln |
|
Lisp : letzter Befehl wird ausgeführt.
alfred neswadba am 03.05.2011 um 12:12 Uhr (0)
Hi,wenn es das nächste mal auftritt, dann bitte langen Befehlsbereich (über F2 ) zuschalten und die letzten Zeilen durchlesen, denn dann wird vielleicht klar, wo Dein LISP nicht weiterkann, dadurch abbricht und z.B. durch "" dann den letzten Befehl anstartet.Erliest Du aus dem Bereich nichts ungewöhnliches, dann zeig uns diese letzten Zeilen.- alfred -------------------www.hollaus.at
|
| In das Form Lisp wechseln |
Attributproblem.zip |
Lisp : Problem mit Attributsblock
bertl24 am 03.05.2011 um 16:07 Uhr (0)
Hallo!Ich hab folgendes Problem mit Blockattributen in AutoLisp!Meine Blöcke enthalten je ein Attribut welches als Schriftfeld den Blocknamen anzeigt. Sprich den "Effective Name".Das bedeutet dass der Blockname als Text neben einem Block angezeigt wird. Ändere ich den Blocknamen (kommt sehr häufig vor) ändert sich auch dieser Text (das Attribut) dementsprechend.Der Vorteil an dem Attribut liegt für mich darin, dass ich die Position und die Schrifthöhe individuell abändern kann.Und genau hierin liegt wieder ...
|
| In das Form Lisp wechseln |
|
Lisp : Problem mit Attributsblock
CADmium am 03.05.2011 um 17:21 Uhr (0)
Zitat:Original erstellt von bertl24:Nur kann ich eben das Attribut in Lisp nicht "anpacken" :-)entweder mit (entget(car(nentsel "Att wählen:")))oder mit(if (and(setq OBJEKTDATEN(entget (car (entsel "Blockref wählen:")))) (assoc 66 OBJEKTDATEN) ) (while (/= (cdr (assoc 0 OBJEKTDATEN)) "SEQEND") (setq OBJEKTDATEN (entget (entnext (cdr (assoc -1 OBJEKTDATEN))))) (if (and(=(cdr (assoc 0 OBJEKTDATEN)) "ATTRIB") (=(strcase (cdr(assoc 2 OBJEKTDATEN))) "ATTRIBUTS ...
|
| In das Form Lisp wechseln |
|
Lisp : Funktion Falsch -.-
wronzky am 04.05.2011 um 15:47 Uhr (0)
Hallo Chris,aaaalso, fangen wir von vorne an:die Objektnamen der Elemente eines Auswahlsatzes bekommst Du mit (SSNAME [Auswahlsatz] [Nummer des Elements]. Ist die Nummer größer als die Anzahl der Objekte wird NIL zurück gegeben. Einen Auswahlsatz kannst Du also so abarbeiten:Code: (setq ss (ssget) z -1) (while (setq ele (ssname ss (setq z (1+ z)))) [MACH WAS] )hat ein INSERT Attribute, steht im GC 66 eine 1. Um Sicherzustellen, dass nur Inserts mit Attributen gewählt werden, solltest Du also ssget mit Fil ...
|
| In das Form Lisp wechseln |
|
Lisp : Fonts in Textstilen automatisch ersetzen lassen
alfred neswadba am 16.11.2009 um 10:31 Uhr (0)
Hi,herzlich willkommen bei CAD-de! Da brauchst Du nicht unbedingt programmieren. Denn unter der Voraussetzung, dass es mehrere Zeichnungen gibt, die immer mit der gleichen Übersetzungstabelle behandelt werden sollten, dann:Mach Dir eine leere Zeichnung, in der die Textstile mal richtig eingestellt sind (auf die richtigen Fonts zeigen). Dann kopierst Du die Geometrieelemente aus Deiner Zeichnung in diese neue Zeichnung, ev. holst Du die Layouts dann auch noch per DesignCenter dazu und hast eine neue Zeichn ...
|
| In das Form Lisp wechseln |
|
Lisp : Fonts in Textstilen automatisch ersetzen lassen
Der Turl am 04.05.2011 um 17:15 Uhr (0)
Ich möchte diesen alten Thread wiederbeleben :-)also ich hab da ein ähnlich gelagertes problem welches sich bei der übernahme von architekturzeichnungen in extrem vielen TEXTSTILE nach dem schema STIL 1 = ARIAL STIL 2 = ARIAL ..STIL 234 = ARIAL STIL 235 = VERDANASTIL 236 = VERDANASTIL 237 = VERDANA..STIL 333 = VERDANAusw äußert. somit sind unzählige schriftstile mit jedoch nur einigen SCHRIFTARTEN vorhanden.mein ziel ist es diese Stile zu belassen aber global in zB. SIMPLEX abzuändern wobei jedoch auch bes ...
|
| In das Form Lisp wechseln |
|
Lisp : Fonts in Textstilen automatisch ersetzen lassen
iwa am 16.11.2009 um 10:07 Uhr (0)
Hallo. Wir haben folgendes Problem. Bisher haben wir zum Ersetzen der Autocad-Schriftarten eine eigene Schriftzuordnungsdatei benutzt. Dadurch ist das Arbeiten in unseren Zeichnungen mit viel Text sehr langsam geworden. Wir haben festgestellt, dass das Bearbeiten ohne Schriftzuordnungsdatei um ein Vielfaches schneller geht! Wir haben uns daher überlegt, in unseren Zeichnungen die Textstile entsprechend umzustellen. Allerdings gibt es alte Dateien und von fremden Systemen erstellte Dateien, bei denen bis zu ...
|
| In das Form Lisp wechseln |
|
Lisp : Fonts in Textstilen automatisch ersetzen lassen
wronzky am 04.05.2011 um 18:52 Uhr (0)
Da hast Du schlechte Karten mit Scripts, da Du nicht weißt, wie die einzelnen Stile heißen, und über den Befehl "_-style" nur einzeln geändert werden können. Mit Thomas Lisp-Zeilen könnte es so gehen:Code:(vl-load-com)(vlax-for ITEM (vla-get-textstyles (vla-get-activedocument (vlax-get-acad-object))) (vla-put-fontfile ITEM "SIMPLEX.SHX"))Grüsse, Henning------------------Henning JesseVoxelManufakturComputer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form Lisp wechseln |
