Zwei Offseträder zeichnen

[errico]

hallo?
ich versuche, ein programm zu erstellen, damit ich zwei offseträder entwerfen kann
ich habe es bis zu einem gewissen punkt geschafft... ich möchte den prozess automatisch erhalten, ohne das objekt und die richtung wie ich wählen zu müssen!!!

(defunc c:circus)
(setq ra (getdist "\nraggio ")
thk (getdist "\nthk:")
(setq c (getpoint "\insertion point:"))

(befehl "_circle" c ra)
(befehl "_offset" thk)
)

 

[Legs]

ich versuche, ein programm zu erstellen, damit ich zwei offseträder entwerfen kann

können sie einfach hinzufügen (oder entfernen, hängt von der richtung, die sie nehmen möchten) die dicke des rings?
in der praxis müssen sie nichts tun, als einen strahlkreis und einen ra+thk radius (oder ra-thk). sie brauchen nicht den offset-befehl.

 

[rpor66]

hallo?
ich versuche, ein programm zu erstellen, damit ich zwei offseträder entwerfen kann
ich habe es bis zu einem gewissen punkt geschafft... ich möchte den prozess automatisch erhalten, ohne das objekt und die richtung wie ich wählen zu müssen!!!

(defunc c:circus)
(setq ra (getdist "\nraggio ")
thk (getdist "\nthk:")
(setq c (getpoint "\insertion point:"))(Einsatz pt)(Befehl "_circle" c ra)(setq tmp)
(Befehl "_offset" thk tmp pt "))

servito
Bye