Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  Routine gesucht

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Routine gesucht (666 mal gelesen)
Pronto
Mitglied



Sehen Sie sich das Profil von Pronto an!   Senden Sie eine Private Message an Pronto  Schreiben Sie einen Gästebucheintrag für Pronto

Beiträge: 17
Registriert: 24.10.2005

erstellt am: 06. Dez. 2006 17:05    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13508
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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Pronto 10 Unities + Antwort hilfreich

Vorabfrage : In bogenförmige oder gerade Segmente?

------------------
  - 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

scj
Mitglied
 


Sehen Sie sich das Profil von scj an!   Senden Sie eine Private Message an scj  Schreiben Sie einen Gästebucheintrag für scj

Beiträge: 554
Registriert: 09.08.2001

erstellt am: 06. Dez. 2006 17:30    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Pronto 10 Unities + Antwort hilfreich

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!
Jochen

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

CADmium
Moderator
Maschinenbaukonstrukteur




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13508
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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Pronto 10 Unities + Antwort hilfreich


Arc2ArcPL.VLX.txt

 
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



Sehen Sie sich das Profil von cad4fun an!   Senden Sie eine Private Message an cad4fun  Schreiben Sie einen Gästebucheintrag für cad4fun

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Pronto 10 Unities + Antwort hilfreich

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



Sehen Sie sich das Profil von Pronto an!   Senden Sie eine Private Message an Pronto  Schreiben Sie einen Gästebucheintrag für Pronto

Beiträge: 17
Registriert: 24.10.2005

erstellt am: 07. Dez. 2006 10:00    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities


Bogen.png

 
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


Sehen Sie sich das Profil von criecky an!   Senden Sie eine Private Message an criecky  Schreiben Sie einen Gästebucheintrag für criecky

Beiträge: 251
Registriert: 13.01.2004

ACAD 2011- 2017
www.cbyte.eu

erstellt am: 07. Dez. 2006 14:12    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Pronto 10 Unities + Antwort hilfreich


Bogenseg.zip

 
hi,

als anhang ein arx- tool. befehl: BPOLY (für acad2004 - 2006)

gruss criecky    

------------------
   
Softlan macht das Netzwerk weich!

www.cbyte.de

[Diese Nachricht wurde von criecky am 07. Dez. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz