Wie der Betreff schon verrät, wollte ich ein kleines helferlein zusammenlispeln welches einen Kreis (mit wählbarem Radius) entlang eines Pfades (polyline im Raum) extrudiert...
Nun habe ich auch schon ein ganzes Stück dieser Aufgabe lösen können (ich gebe ja zu, dass der code nicht gerade der "sauberste" ist...) aber komme beim entscheidenden Punkt nicht weiter:
Es klappt zwar wunderbar, den Extrusionspfad auszuwählen, das Bks auf diese auszurichten und drehen. Der Kreis am Pfadanfang wird auch noch gezeichnet und zum Extrudieren ausgewählt (_extrude l) aber dann verließen sie mich... Der Code steigt wegen eines Fehlers aus...
Ich habe auch schon probiert den kreis mittels (setq kreis(car(entlast))) selbst auszuwählen und dann wie beim UCS an EXTRUDE zu übergeben (command "_.extrude" kreis) und anschließend das selbe mit dem Pfadobjekt zu tun aber Fehlanzeige...
(defun c 
rofiler( / radius pfad kreis spoint stpt el)
(command "_.ucs")
(command "w")
(initget 7)
(setq radius (getreal "\Radius:"))
(setq el (car(entsel "\Pfad auswählen:")))
(command "_.ucs")
(command "n")
(command "ob" el)
(command "_.ucs")
(command "n")
(command "x" 90)
(vl-load-com)
(setq el (vlax-ename->vla-object el)
stpt (vlax-curve-getStartPoint el))
(setq spoint(trans stpt 0 1))
(command "_.circle" spoint radius)
;(setq kreis(car(entlast)))
(command "_extrude" )
(command "_l")
(command "p")
(command pfad)
)
Das es überhaup nicht klappt ist natürlich mein Hauptproblem... Nebenbei ergibt sich aber noch ein zweiter Haken für den ich auch noch einen kleinen Tipp brauchen könnte:
Solange es sich bei dem Pfad um eine beispielsweise gebogene Polylinie oder nen Bogen im Raum handelt, muß das BKS um X gedreht werden, ist das Pfadobjekt aber ne Linie, hätte man es um Y drehen müssen... Wie kriege ich also heraus, ob das BKS nun richtig steht oder nicht???
------------------
http://www.die-seite-der-schilder.de/ddcad/
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Foren auf CAD.de (alle Foren)
| 
