 |
Lisp : Ignoriere alles außer...
C4DP4P57 am 07.12.2018 um 16:33 Uhr (15)
Hallo,kann man in Lisp irgendwie sagen "ignoriere alles außer..."?Hintergrund ist folgender: Das LISP schaltet mir in allen Layouts die Layer entsprechend der ersten zwei Zeichen des Layoutnamens (diese sind in der Regel bei Layout und Layernamen gleich).Das Problem sind Layoutbezeichnungen zu denen es keine Layerentsprechung gibt. Im Fall dieses Codes wären das alle Layouts außer die mit "E_*" und "Sm_*" beginnen.Ich will praktisch erreichen, dass der Code nicht nach Layernamen sucht, die nicht mit "E_*" ...
|
| In das Form Lisp wechseln |
|
Lisp : Informationen aus einer TTF-Schrift auslesen
cadffm am 12.12.2018 um 13:45 Uhr (1)
"Beim Erstellen des Textstils kann ich bei Schriftstil nur Normal auswählen.""In der Zwischenzeit habe ich noch die TTF-Datei mit dem Programm TTFEdit geöffnet. Dabei sehe ich keinen Hinweis auf bold oder fett."" um eine bold-Schrift handelt. Das ist aber nicht der Fall. Unser Lieferant der Schrift hat diese kontrolliert und keinen Fehler gefunden."Die drei Punkte passen super zusammen, das ist gut.Du solltest einfach noch mal "ganz frisch" testen.Rechnerneustart, falls nach Schriftart-Installatioon noch n ...
|
| In das Form Lisp wechseln |
 |
Lisp : Informationen aus einer TTF-Schrift auslesen
Bernd10 am 12.12.2018 um 15:03 Uhr (1)
Hallo cadffm,Zitat:Original erstellt von cadffm:Du solltest einfach noch mal "ganz frisch" testen.Rechnerneustart, falls nach Schriftart-Installatioon noch nicht geschehen. Wir wollen doch allen unnötigen Ärger vermeiden.Acadneustart, hat sich erledigt falls der Rechner neu gestartet wurde :-)Eine DWG neu erstellen, ohne Vorlage (damit sind Fehler in der Vorlage ausgeschlossen - nur so kann ICH 100% sicher sein was bei dir vorgeht)Textstil anlegen, die Schriftart zuordnen, Schriftstil Normal.Neu abfragen p ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp - Neigung 2D
LiebGuck am 07.01.2019 um 16:23 Uhr (1)
Hallo, liebe Profis Leider kann ich noch kein Lisp und möchte mir gerne etwas erleichtern. Es steht dieses Jahr auf meiner Ausbildungsliste.Bis dorthin kann mir bitte jemand helfen?Ich hätte gern die Neigung in Prozent ausgerechnet, jedoch im Lageplan, keine 3d-Höhen vorhanden.Das Lisp sollte ca. so gehen:Klick auf ein Attribut - Lisp liest den Wert ausKlick auf ein anderes Attribut - Lisp liest den Wert aus, zieht es vom davorigen Wert ab und multipliziert es mit 100Klick auf zwei Punkte - Lisp liest den ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp - Neigung 2D
LiebGuck am 08.01.2019 um 08:06 Uhr (1)
Guten Morgen! Vielen Dank für Deine nette Antwort. Anbei gleich mal eine Zeichnung.Natürlich hätte ich echt gern eine Lisp, aber eine VBA nehm ich auch. Hauptsache ich muss es nicht ständig in den Taschenrechner eingeben.Achja, es wäre gut, wenn die Neigung nur mit einer Kommastelle angezeigt wird.Danke schön.
|
| In das Form Lisp wechseln |
|
Lisp : Lisp - Neigung 2D
LiebGuck am 08.01.2019 um 08:11 Uhr (10)
Danke, Danke, Danke, Daaaaas ist soooo super, CADmium.Kannst du mir noch einbauen, dass es auf eine Kommastelle rundet und ein % anhängt.Ich bin soooo begeistert.
|
| In das Form Lisp wechseln |
|
Lisp : Lisp - Neigung 2D
CADmium am 08.01.2019 um 07:51 Uhr (1)
zum Zeilenweise Nachvollziehen:(defun C:NEIGUNG2D(/ ATT1 ATT2 ATT3 P1 P2 DIFF DIST VALUE) (if(and(setq ATT1(car(nentsel "
Attribut 1 : "))) (setq ATT1(entget ATT1)) (=(cdr(assoc 0 ATT1))"ATTRIB") (setq ATT1 (cdr(assoc 1 ATT1))) (setq ATT1 (atof ATT1)) (setq ATT2(car(nentsel "
Attribut 2 : "))) (setq ATT2(entget ATT2)) (=(cdr(assoc 0 ATT2))"ATTRIB") (setq ATT2 (cdr(assoc 1 ATT2))) (setq ATT2 (atof ATT2)) (setq DIFF (*(- ATT1 ATT2)100.0)) (setq P1(getpoint "
Punkt1 ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp - Neigung 2D
KlaK am 07.01.2019 um 16:59 Uhr (1)
Hallo LiebGuck (netter Name ),Hast Du das mal im "real" Autocad probiert?Üblicherweise hängen Attribute an einem Block. Sprich wenn Du das Attribut anklickst bekommst Du den Block zurück und nicht den Attributwert, so kenne ich das zumindest.Insofern müßte Deine Aufgabe anders aussehen:- Klicke auf Block_1, lese daraus XY und das Attribut "Hohe" (Beispiel, weiß nicht wie es bei Dir heißt- Klicke auf Block_2, lese daraus XY und das Attribut "Hohe"- Berechne aus Abstand und Höhendifferenz die Neigung- Klick ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp - Neigung 2D
LiebGuck am 08.01.2019 um 11:00 Uhr (1)
Schade Da werd ich mich wohl mal dahinter klemmen Danke dir
|
| In das Form Lisp wechseln |
|
Lisp : Autocad Mechanical Befehle in Lisp
CADmium am 22.01.2019 um 07:23 Uhr (1)
(c:AMCENTLINE)(c:AMpoweredit)... die Erweiterungen in Mechaical waren ganz früher mal eine eigenständige Toolsammlung - GENIUS und die war ursprünglich in Lisp programmiert ...------------------Also ich finde Unities gut ... und andere sicher auch--------------------------------------- - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : Autocad Mechanical Befehle in Lisp
Maxon777 am 22.01.2019 um 09:07 Uhr (1)
(DEFUN S::STARTUP () (COMAND "PURGE" "ALL"))(DEFUN C:W () (COMMAND "LINIE"))(DEFUN C:c () (COMMAND "_circle"))(DEFUN C:cd () (COMMAND "_circle" PAUSE "_d"))(DEFUN C:cc () (COMMAND "_circle""2p"))(DEFUN C:EW () (COMMAND "ELLIPSE"))(DEFUN C:rr () (COMMAND "_rectang" PAUSE "a"))(DEFUN C:r () (COMMAND "_rectang"))(DEFUN C:E () (COMMAND "SCHIEBEN"))(DEFUN C:ee () (COMMAND "_COPY")) (DEFUN C:eee () (COMMAND "Drehen"))(DEFUN C:Q () (COMMAND "LÖSCHEN"))(defun c:qq () (COMMAND "stutzen"))(DEFUN C () (COMMAND "DEHN ...
|
| In das Form Lisp wechseln |
|
Lisp : Autocad Mechanical Befehle in Lisp
Maxon777 am 22.01.2019 um 09:07 Uhr (1)
[Diese Nachricht wurde von Maxon777 am 22. Jan. 2019 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : Autocad Mechanical Befehle in Lisp
CADmium am 22.01.2019 um 09:25 Uhr (1)
du sollst die nicht als command aufrufen, sondern als Lispfunktion------------------Also ich finde Unities gut ... und andere sicher auch--------------------------------------- - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
