 |
Lisp : Autocad Mechanical Befehle in Lisp
Maxon777 am 21.01.2019 um 22:07 Uhr (15)
Hallo zusammen! Da ich bei der Arbeit kein Zugriff auf pgp Datei habe, mache ich die aliases über lisp . Acad-Mechanical Befehle,wie zB _amcentline oder _ampoweredit, erkennt es aber nicht. Ich habe auch verschiedene Variationen versucht ( ohne "_" und gross geschrieben)gibt unbekannter Befehl zurück.Danke im Vorraus !Maxim
|
| In das Form Lisp wechseln |
|
Lisp : Wände über Lisp
Maxon777 am 12.07.2019 um 22:49 Uhr (15)
Hallo libe Lisp Freunde, Da ich noch grosse Lücken in meine Lisp Kenntnisse habe benötige ich immer wieder Hilfe von erfahrenen Spezialisten Das Programm soll Wände darstellen. Wie kriege ich denn das es, nicht von vier Punkte Kordinate für plinie fragt sondan abhängig von Bedarf. Danke im voraus. (defun c:das () (setq p (getpoint "
Punkt")) (setq p1 (getpoint p "
Punkt")) (setq p2 (getpoint p1 "
Punkt")) (setq p3 (getpoint p2 "
Punkt")) (setq ugl (angle p p1)) (setq ugl1 (angle p2 p3)) (setq m (polar p ( ...
|
| 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
Maxon777 am 22.01.2019 um 09:40 Uhr (15)
Dankeee es hat geklappt!!!
|
| 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 : Wände über Lisp
Maxon777 am 15.07.2019 um 14:30 Uhr (15)
Vielen Dank! Es hat geklappt! )))
|
| In das Form Lisp wechseln |
|
Lisp : Wände über Lisp
Maxon777 am 15.07.2019 um 20:40 Uhr (1)
Zeichnet aber leider nichts, wo könnte denn der Fähler sein?Code:(defun c:wa () (setq p (getpoint "Startpunkt : ")) (setq p_list (list p)) (while (setq p1 (getpoint "nächster Punkt : " p)) (setq p_list (cons p1 p_list)) )(setq p_line (reverse p_list)) (setq OSM (getvar "osmode")) (setvar "osmode" 0) (command "_.pline" p_line "" ) (setvar "osmode" OSM) )
|
| In das Form Lisp wechseln |
