|
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 |
 |
Lisp : Autocad Mechanical Befehle in Lisp
Maxon777 am 22.01.2019 um 09:40 Uhr (15)
Dankeee es hat geklappt!!!
|
| In das Form Lisp wechseln |
|
Lisp : Isolate 3DSOLID aus Block
Dirk.B am 22.01.2019 um 09:59 Uhr (1)
Hallo Holger!Danke für dein Feedback.Da an diesen Blöcken eine Menge Informationen (XDATA) hängen, da diese Bestandteil einer Aufsatzsoftware auf AutoCAD sind,würde ich die Blöcke nur ungern sprengen.Müsste da aber auch beim einsammeln der Solids passen, da ich nicht wüste, wie ich das per Lisp hinbekomme.In AutoCAD gibt es ja den Befehl NKOPIE mit dem ich ein Solid aus einen Block kopieren kann.Könnte man das irgendwie mit Lisp umsetzen?------------------GrußDirk
|
| 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 |
