|
Autor
|
Thema: Polylinie in Kreis umwandeln (7433 mal gelesen)
|
CADmium
Moderator
Maschinenbaukonstrukteur
    
   Beiträge: 8611
Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 22. Mrz. 2005 18:04    Unities abgeben:          
.. stell doch mal bitte eine Zeichnung mit solchen "Polylinienkreisen" rein ... Mit Polylinie nachgezogene Kreise macht es nämlich bei mir, Stützpunktanzahl /LWPoly/2D-Poly ... egal ..------------------
 - 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 |
cadworker
Mitglied
Holztechniker
Beiträge: 106
Registriert: 09.10.2004 AMD K7 2400
256 DDR; XP-Prof. SP2; ACAD 2002+2004 Voll; ET
|
erstellt am: 22. Mrz. 2005 20:49 Unities abgeben:
@moderatoren: einfach rechteck (1000x1000) erstellen, 4-5 kreise (r=1.5), oder selbst bei einem, anderer layer, umgrenzung, isolieren, schieben, fertig.
dann pl2circle und ?
oder liegt es an 2002? werde es gleich mal checken.jörg Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium
Moderator
Maschinenbaukonstrukteur
Beiträge: 8611
Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 22. Mrz. 2005 20:58 Unities abgeben:
Zitat:
Original erstellt von cadworker:
@moderatoren: einfach rechteck (1000x1000) erstellen, 4-5 kreise (r=1.5), oder selbst bei einem, anderer layer, umgrenzung, isolieren, schieben, fertig.
dann pl2circle und ?
Hab ich gemacht .. und funzt super! Muß allerdings gestehen, das ich zwischendurch mal ne andere vlx hochgeladen habe weil es bei der ersten mit 2D-Polys Probleme gab. Zieh dir nochmal die aktuelle Version und probiers noch mal.------------------
- 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 |
cadworker
Mitglied
Holztechniker
Beiträge: 106
Registriert: 09.10.2004 AMD K7 2400
256 DDR; XP-Prof. SP2; ACAD 2002+2004 Voll; ET
|
erstellt am: 22. Mrz. 2005 21:11 Unities abgeben:
hi,ist wohl ein 2002 problem, im 2004 fuktioniert es.
kann man das auch 2002 tauglich machen? denn im betrieb herscht noch die steinzeit. mensch das wäre schön. ;-) jörg Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
newcad
Mitglied
Schreinermeister in der AV
Beiträge: 255
Registriert: 12.11.2003 Acad 2008 LT DE SP1
Acad 2008 DE SP1
Expresstools <P>Intel Pentium 4
2,6Ghz
Windows xp pro, SP3
1024MB DDR2 Ram
Nvidia GeForce 7600GS 256MB
Zwei-Bildschirm-Arbeitsplatz
TFT=V7 22"Wide
TFT=V7 22"Wide
|
erstellt am: 23. Mrz. 2005 07:03 Unities abgeben:
Hallo Cadworker,vielleicht würde es ja auch Sinn machen, wenn das Programm einen zusätzlichen Layer, für die Umgrenzung, erstellen würde.
Dadurch könnte später auch einfacher der Umgrenzungslayer isoliert werden. Ansgar Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadworker
Mitglied
Holztechniker
Beiträge: 106
Registriert: 09.10.2004 AMD K7 2400
256 DDR; XP-Prof. SP2; ACAD 2002+2004 Voll; ET
|
erstellt am: 23. Mrz. 2005 20:39 Unities abgeben:
haallooooo,hört mich denn keiner mehr??????? gibt es sowas auch auf steintafeln für 2002? lg, jörg Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
flaschenpost
Mitglied
Architekt
Beiträge: 497
Registriert: 29.09.2004 ADT 2004 / Windows XP
|
erstellt am: 23. Mrz. 2005 23:33 Unities abgeben:
Wenn Bögen vorliegen und kein 2006 zur Verfügung steht, kann man sich auch das auf einen Button packen:^C^C(while(setq x(car(entsel)))(setq y(entget x))(setq y(reverse(cdr(member(assoc 50(reverse y))(reverse y)))))(setq y(subst '(0 . "CIRCLE")'(0 . "ARC") y))(entmake y)(entdel x)) Gruß Carsten Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadworker
Mitglied
Holztechniker
Beiträge: 106
Registriert: 09.10.2004 AMD K7 2400
256 DDR; XP-Prof. SP2; ACAD 2002+2004 Voll; ET
|
erstellt am: 24. Mrz. 2005 06:58 Unities abgeben:
morgen,@carsten: verstehe ich da was nicht?
bei mir, 2002, werden die polylinien damit entfernt, aber keine kreise erstellt oder irgendetwas gewandelt. jörg Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADwiesel
Moderator
Nasenpopler
Beiträge: 1394
Registriert: 05.09.2000 Wir machen das Mögliche unmöglich
|
erstellt am: 24. Mrz. 2005 08:33 Unities abgeben:
Hier das tuts auf alle Fälle
ps das macht dier auch aus eckigen Kreisen einen Kreis
Code:
(defun C:P2C ( / elem minx maxx miny maxy mitte )
(vl-load-com)
(while
(setq elem(entsel))
(if(wcmatch(cdr(assoc 0 (entget (car elem))))"*POLYLINE")
(progn
(setq elem(car elem))
(vla-getboundingbox
(vlax-ename->vla-object elem)
'xmin
'xmax
) ;_ end of vla-getboundingbox
(setq MINX (car (vlax-safearray->list xmin))
MINY (cadr (vlax-safearray->list xmin))
MAXX (car (vlax-safearray->list xmax))
MAXY (cadr (vlax-safearray->list xmax))
MITTE (list (/ (+ MINX MAXX) 2)
(/ (+ MINY MAXY) 2)
) ;_ end of list
)
(entmake
(list
(cons 0 "CIRCLE")
(cons 100 "AcDbEntity")
(cons 67 0)
(cons 410 "Model")
(cons 8 "0")
(cons 100 "AcDbCircle")
(cons 10 mitte)
(cons 40 (abs(distance mitte(list (/(+ maxx minx)2)miny))))
) ;_ end of list
) ;_ end of entmake
)
)
)
)
------------------
Gruß
 CADwiesel
Besucht uns im CHAT
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadworker
Mitglied
Holztechniker
Beiträge: 106
Registriert: 09.10.2004 AMD K7 2400
256 DDR; XP-Prof. SP2; ACAD 2002+2004 Voll; ET
|
erstellt am: 24. Mrz. 2005 09:27 Unities abgeben:
der cadwiesel, der hat´s ja drauf.
funzt super.
danke und 10 points goes to
jörg
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de (alle Foren)
UBBFriend: Senden Sie diese Seite per eMail an einen Freund!
| 
Dieses Thema ist 4 Seiten lang: 1 2 3 4 
