| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung
|
Autor
|
Thema: Dynamischer Block Lisp (1038 mal gelesen)
|
Nano Mitglied
Beiträge: 179 Registriert: 25.10.2004
|
erstellt am: 13. Feb. 2014 12:10 <-- editieren / zitieren --> Unities abgeben:
Hallo Hier ein dynamischer Block. "Lisp" Wenn ich das Lisp starte und es existiert nicht der Block "Kanal" dann flackert beim Umschalten zwischen Blockeditor und Modell. Kann man das verhindern??? Gruss Nano (DEFUN C:test() (SETVAR "cmdecho" 0) (IF (NOT (TBLSEARCH "BLOCK" "Kanal")) (PROGN (COMMAND "_bedit" "Kanal") (SETQ l005p1 (POLAR '(0 0 0) (* (/ PI 180) 90) (/ b1 2)) l005p2 (POLAR '(0 0 0) (* (/ PI 180) 270) (/ b1 2)) l005p3 (POLAR l005p1 (* (/ PI 180) 0) 2000) l005p33 (POLAR l005p1 (* (/ PI 180) 0) 2100) l005p4 (POLAR l005p2 (* (/ PI 180) 0) 2000) l005p44 (POLAR l005p2 (* (/ PI 180) 0) 1900) l005p5 (POLAR '(0 0 0) (* (/ PI 180) 0) 2000) ) (COMMAND "_rectang" "_non" l005p2 "_non" l005p3) (SETQ Dy-elem (ENTLAST)) (COMMAND "_BParameter" "Linear" "Bezeichnung" "Länge:" '(0 0 0) "_non" l005p5 "_non" l005p5 "1") (COMMAND "_BActionTool" "deHnen" "_non" l005p5 "Z" "_non" l005p44 "_non" l005p33 Dy-elem "") (COMMAND "_BCLOSE" "S") ) ) (SETQ b000p00 (GETPOINT "\nEINFÜGE-Punkt angeben: ")) (COMMAND "_insert" "Kanal" b000p00 1 1 "\\") )
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 13. Feb. 2014 12:32 <-- editieren / zitieren --> Unities abgeben: Nur für Nano
Antwort: NeinBTW: Falls dein B1, was du uns leider nicht geliefert hast.. unter Umständen auch einen Integer liefern kann, willst du wirklich l005p1&l005p2 immer duch 2 teilen (und nicht 2.0) ? Wenn immer ein REAL kommt ist das natürlich wurscht. ------------------ CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Nano Mitglied
Beiträge: 179 Registriert: 25.10.2004
|
erstellt am: 13. Feb. 2014 12:56 <-- editieren / zitieren --> Unities abgeben:
|
Nano Mitglied
Beiträge: 179 Registriert: 25.10.2004
|
erstellt am: 18. Feb. 2014 09:32 <-- editieren / zitieren --> Unities abgeben:
Hallo Habe Probleme mit Parameter als Objekt zu definieren, (COMMAND "_BParameter" "Linear" "Bezeichnung" "Höhe:" "S" "Mittelpunkt" "W" "I" 0 100 5000 "_non" l001pb1 "_non" l001pb2 "_non" l001pb1 "0") (SETQ Dy-höhe (ENTLAST)) so dass man nicht den Parameter "Dy-höhe" wählen kann. "(COMMAND "_BActionTool" "deHnen" Dy-höhe "S" "_non" l001pw1 "_non" l001pw5 Dy-H "")" Muss immer mit einen Punkt den Parameter anklicken. "l001pb1" zu unsicher. (COMMAND "_BActionTool" "deHnen" "_non" l001pb1 "S" "_non" l001pw1 "_non" l001pw5 Dy-H ""). Das heißt wenn der Block "Kanal" nichts existiert, den obigen Befehl nicht ausübt, erst nach mehrmalige Versuche wird es plötzlich erstellt. "Lisp im Anhang" vielleicht fällt jemandem etwas ein. Gruss Nano
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 18. Feb. 2014 09:44 <-- editieren / zitieren --> Unities abgeben: Nur für Nano
Ich schau mir den Code nicht wirklich an, aber grundsätzlich berücksichtigst du nicht das die AutoCAD-Objektwahl Ansichtsabhängig ist. Ein Zoom-Grenzen oder noch genauer, ein Zoom-Objekt, würden bestimmt einige dieser Phänomene beseitigen. ------------------ CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Nano Mitglied
Beiträge: 179 Registriert: 25.10.2004
|
erstellt am: 18. Feb. 2014 11:36 <-- editieren / zitieren --> Unities abgeben:
|
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 18. Feb. 2014 11:41 <-- editieren / zitieren --> Unities abgeben: Nur für Nano
|
Nano Mitglied
Beiträge: 179 Registriert: 25.10.2004
|
erstellt am: 18. Feb. 2014 11:47 <-- editieren / zitieren --> Unities abgeben:
So ungefähr (COMMAND "_BParameter" "Linear" "Bezeichnung" "Höhe:" "S" "Mittelpunkt" "W" "I" 0 100 5000 "_non" l001pb1 "_non" l001pb2 "_non" l001pb1 "0") (SETQ Dy-höhe (ENTLAST)) so dass man nicht den Parameter "Dy-höhe" wählen kann. (COMMAND "_BActionTool" "deHnen" Dy-höhe "S" "_non" l001pw1 "_non" l001pw5 Dy-H "") Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Nano Mitglied
Beiträge: 179 Registriert: 25.10.2004
|
erstellt am: 18. Feb. 2014 11:48 <-- editieren / zitieren --> Unities abgeben:
|