| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY WIRD VON NVIDIA ZUM HÄNDLER DES JAHRES GEWÄHLT, eine Pressemitteilung
|
Autor
|
Thema: Routine gesucht (668 mal gelesen)
|
Pronto Mitglied
Beiträge: 17 Registriert: 24.10.2005
|
erstellt am: 06. Dez. 2006 17:05 <-- editieren / zitieren --> Unities abgeben:
Hallo ich bin auf der Suche nach einem Tool, das mir ermöglicht einen Bogen zu segmentieren. Dabie sollte ich die Möglichkeit haben, dei Anzahl der Segmente anzugeben. So möchte ich z.B. den Bogen anklicken, dann die Anzahl der Segmente eingeben, und das Ganze wird in eine Polylinie konvertiert. Gibt es so was bereits standardmäßig, oder kann mir jemand helfen? Vielen Dank inzwischen für Eure Hilfe Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 06. Dez. 2006 17:27 <-- editieren / zitieren --> Unities abgeben: Nur für Pronto
|
scj Mitglied
Beiträge: 555 Registriert: 09.08.2001
|
erstellt am: 06. Dez. 2006 17:30 <-- editieren / zitieren --> Unities abgeben: Nur für Pronto
Versuch mal "arctopol.lsp" Code:
;-------ARCTOPOL.LSP----------------------------------------------------------------- ;--www.black-cad.de, 2000 ;------------------------------------------------------------------------------------ (defun C:arctopol(/ bog aufl elem ra pm aw ew sw ii pt) ;------------------------------------------------------------------------------------ (print "Please select an arc :") (setq bog (ssget)) (setq elem (entget (ssname bog 0))) (if (= (cdr (assoc 0 elem)) "ARC") (progn (setq aufl 10) (setq aufl (getreal "\nHow many vertices?")) (setq ra (cdr (assoc 40 elem))) (setq pm (cdr (assoc 10 elem))) (setq aw (cdr (assoc 50 elem))) (setq ew (cdr (assoc 51 elem))) (if (< ew aw) (setq ew (+ (* 2 pi) ew)) ) (setq sw (/ (- ew aw ) aufl)) (setq sw (abs sw)) ; (command "_ERASE" bog "") (setq ii 0) (command "_PLINE") (while (<= ii aufl) (setq pt (polar pm (+ aw (* ii sw)) ra)) (command pt) (setq ii (+ ii 1)) ) (command "") ) (princ (strcat (cdr (assoc 0 elem)) " is no ARC----->EXIT")) ) (princ) )
Viel Erfolg! JochenEine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 06. Dez. 2006 18:39 <-- editieren / zitieren --> Unities abgeben: Nur für Pronto
na und wenn aus dem Bogen oder dem Kreis es eine aus Bögen zusammengesetzte Polylinie werden soll, hilft das Tool im Anhang weiter .. ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cad4fun Ehrenmitglied
Beiträge: 1846 Registriert: 06.12.2004 privat ACAD 2013 und 2017 deutsch, Windows 7 64Bit HP Elite 7500 Series MT,Intel Cote i5-3470 CPU 3,20Ghz,16GB RAM ATI FirePro V (FireGL V) Graphics Adapter Treiberversion: 15.201.1151.1008
|
erstellt am: 07. Dez. 2006 07:56 <-- editieren / zitieren --> Unities abgeben: Nur für Pronto
Zitat: Original erstellt von CADmium: na und wenn aus dem Bogen oder dem Kreis es eine aus Bögen zusammengesetzte Polylinie werden soll, hilft das Tool im Anhang weiter
Bei mir hilft es nur bei Bogen, nicht aber bei Kreis Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Pronto Mitglied
Beiträge: 17 Registriert: 24.10.2005
|
erstellt am: 07. Dez. 2006 10:00 <-- editieren / zitieren --> Unities abgeben:
Hallo Jochen, Vielen Dank erst mal für deine schnelle Hilfe. Ich habe das Lisp probiert, ich werde aufgefordert den Bogen und die Anzahl der Vertices einzugeben. Jedoch passiert dann nix, sondern er schließt mir den Bogen einfach? Hab dir Image angehängt. Was kann der Grund dafür sein? Vielen Dank Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
criecky Mitglied MENSCH
Beiträge: 251 Registriert: 13.01.2004 ACAD 2011- 2017 www.cbyte.eu
|
erstellt am: 07. Dez. 2006 14:12 <-- editieren / zitieren --> Unities abgeben: Nur für Pronto
|