---

Hallo liebe Lispgemeinde,

ich hab mir gerade ein Progi zusammengeschustert das Armaturen mit Antrieben zeichnet.
Alles gaaaaanz simpel.
An einem Antrieb hab ich einen Zylinder gezeichnet, dessen Kanten ich abrunden möchte und da komme ich nicht weiter, weil Autocad bei diesem Befehl ein Auswahlrechteck anbietet, mit der ich die Kante des Zylinders
markieren soll.... hab schon versucht über definierte Koordinaten das hin zu bekommen.....aber da hört halt mein Halbwissen auf.
Vielleicht kennt jemand ne passende Zeile......
Suche im Netz und hier war leider erfolglos....

(if (= Pro "M")(progn(setq DN1 (getstring "\n Nenndurchmesser DN <>:"))
(if (= DN1 "15")(progn(setq dugo 300 )(setq lang1 15 )(setq lang2 495)))
(if (= DN1 "20")(progn(setq dugo 300 )(setq lang1 20 )(setq lang2 495)))
(if (= DN1 "25")(progn(setq dugo 300 )(setq lang1 25 )(setq lang2 500)))
(if (= DN1 "32")(progn(setq dugo 300 )(setq lang1 32 )(setq lang2 500)))
(if (= DN1 "40")(progn(setq dugo 300 )(setq lang1 40 )(setq lang2 540)))
(if (= DN1 "50")(progn(setq dugo 300 )(setq lang1 50 )(setq lang2 540)))
(if (= DN1 "65")(progn(setq dugo 300 )(setq lang1 65 )(setq lang2 545)))
(if (= DN1 "80")(progn(setq dugo 300 )(setq lang1 80 )(setq lang2 585)))
(if (= DN1 "100")(progn(setq dugo 300 )(setq lang1 100 )(setq lang2 610)))

(setq lang3 135)

(setq startpkt (getpoint "\nEinfügepunkt wählen: "))
(setq xstart (car startpkt))
(setq ystart (car (cdr startpkt)))
(setq zstart (car (cddr startpkt)))

(setq X1 xstart)
(setq Y1 ystart)
(setq X2 xstart)
(setq Y2 ystart)
(setq Z2 (+ zstart (- lang2 lang3)))

(setq X3 xstart)
(setq Y3 (+ ystart (* dugo 0.5 )))
(setq Z3 (+ zstart lang2))

(setq p1 (list X1 Y1 zstart))
(setq p2 (list X2 Y2 Z2))
(setq p3 (list X3 Y3 Z3))

(command "_circle" p1 "_d" lang1 "")
(command "_extrude" "_last" "" lang2 "") (setq e1 (entlast))

(command "_circle" p2 "_d" dugo "")
(command "_extrude" "_last" "" lang3 "") (setq e2 (entlast))

(command "Abrunden" "30" e2 "" p3 "")

(command "_union" e1 e2 "")

));end progn;end if

[Diese Nachricht wurde von Jürgen Scheeren am 29. Okt. 2015 editiert.]

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

---

Ohne mich in dein Projekt einzulesen gehe ich einfach mal allgemein auf den AutoCAD Objektfang, insbesondere bei Verwendung von AutoCAD-Befehlen (command ...) ein,
vielleicht ist das ja schon der Weg zur Lösung.

1. Der Objektfang berücksichtigt, falls eingeschaltet und nicht  explizit anders angegeben, den OFang(fortlaufender Objektfang/Osmode)
In Abhängigkeit der Einstellung von der Systemvariable Osnapcoord, gerade für die Automatisierung ist der Vorgabewert falsch, dieser sollte daher Immer und bei jedem Profil (bzw. im Makro, Script oder Programm wie benötigt eingestellt werden).

2. Der AutoCAD-Objektfang ist Ansichtsabhängig (außer bei Objektangaben wie Vorher Letztes Alle oder Gruppe zB)

Stelle also Osnapcoord auf 2, stelle sicher das der betreffende Bereich ausreichend groß sichtbar im Dateifenster/aktueller Ansichtsbereich zu sehen ist.

Dann teste es noch Mal.

-editert-

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

Zitat:

---

Original erstellt von Jürgen Scheeren:
Hallo liebe Lispgemeinde,

ich hab mir gerade ein Progi zusammengeschustert das Armaturen mit Antrieben zeichnet.
Alles gaaaaanz simpel.

---

Weil Du ja alles über COMMAND erledigst, stellt sich zu allererst die entscheidende Frage: hast Du das auch genau so in der Befehlszeile schon mal getestet? Klappt's da?

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

---

@ Hallo cadffm,
@ Hallo archtools,

das Programm läuft einwandfrei, die Zeilen sind auch nur ein Ausschnitt von einem noch größeren Programm, dass ich mir zusammengeschustert habe.
Was ich eigentlich mit dem Abrundenbefehl möchte ist reine Kosmetik....
ich möchte eben die  Kanten eines Zylinders abrunden und komme mit meinen
bescheidenen Kenntnissen, dass über command zu lösen nicht weiter....
und so hatte ich gehofft, dass sich jemand erbarmt und mir ne Lispzeile spendiert,
wie ich das bewerkstellige kann....

Gruß Jürgen

[Diese Nachricht wurde von Jürgen Scheeren am 30. Okt. 2015 editiert.]

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

---

Du hast doch schon berechnet wo sich die Kante befindet, wenn nicht, so bin ich sicher das du es schaffst?
Unter berücksichtung meiner Tips zur Objektwahl sollte es eigentlich funktionieren (wie gesagt: ungetestet).

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

Zitat:

---

Original erstellt von Jürgen Scheeren:
@ Hallo cadffm,
@ Hallo archtools,

das Programm läuft einwandfrei, die Zeilen sind auch nur ein Ausschnitt von einem noch größeren Programm, dass ich mir zusammengeschustert habe.
Was ich eigentlich mit dem Abrundenbefehl möchte ist reine Kosmetik....

---

Ich wiederhole: Weil Du ja alles über COMMAND erledigst, stellt sich zu allererst die entscheidende Frage: hast Du das auch genau so in der Befehlszeile schon mal getestet? Klappt's da?

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

---

So Ihr lieben Helfenden,
hab noch einmal das www durchforstet und genau das gefunden was ich brauche.....
Die obere Kante des Zylinders wird mit einem Radius versehen.
Es funktioniert einwandfrei, ich brauchte es nur ein wenig abzuändert.

Trotzdem vielen Dank für Eure Hilfe und Anregungen   

(if (= Pro "M")(progn(setq DN1 (getstring "\n Nenndurchmesser DN <>:"))
(if (= DN1 "15")(progn(setq dugo 300 )(setq lang1 15 )(setq lang2 495)))
(if (= DN1 "20")(progn(setq dugo 300 )(setq lang1 20 )(setq lang2 495)))
(if (= DN1 "25")(progn(setq dugo 300 )(setq lang1 25 )(setq lang2 500)))
(if (= DN1 "32")(progn(setq dugo 300 )(setq lang1 32 )(setq lang2 500)))
(if (= DN1 "40")(progn(setq dugo 300 )(setq lang1 40 )(setq lang2 540)))
(if (= DN1 "50")(progn(setq dugo 300 )(setq lang1 50 )(setq lang2 540)))
(if (= DN1 "65")(progn(setq dugo 300 )(setq lang1 65 )(setq lang2 545)))
(if (= DN1 "80")(progn(setq dugo 300 )(setq lang1 80 )(setq lang2 585)))
(if (= DN1 "100")(progn(setq dugo 300 )(setq lang1 100 )(setq lang2 610)))

(setq lang3 135)
(setq lang4 (- lang2 lang3))

(setq startpkt (getpoint "\nEinfügepunkt wählen: "))
(setq xstart (car startpkt))
(setq ystart (car (cdr startpkt)))
(setq zstart (car (cddr startpkt)))

(setq X1 xstart)
(setq Y1 ystart)
(setq Z1 zstart)
(setq X2 xstart)
(setq Y2 ystart)
(setq Z2 (+ zstart (- lang2 lang3)))

(setq X3 xstart)
(setq Y3 (+ ystart (* dugo 0.5 )))
(setq Z3 (+ zstart lang2))

(setq p1 (list X1 Y1 zstart))
(setq p2 (list X2 Y2 Z2))
(setq p3 (list X3 Y3 Z3))

(command "_circle" p1 "_d" lang1 "")
(command "_extrude" "_last" "" lang2 "") (setq e1 (entlast))

(command "_circle" p2 "_d" dugo "")
(command "_extrude" "_last" "" lang3 "") (setq e2 (entlast))

;;Funktion Zylinderkante abrunden
(setq *osmode (getvar "osmode"))
(command "filletrad" "30" "")
(setvar "osmode" 512) ;;nearest
(initget (+ 1 2 128))
(setvar "osmode" *osmode)
(cond
((listp p3) (command "._fillet" p3 (getvar "filletrad") ""))
(T (setvar "filletrad" (distof p3)) (setq p3 nil))
);end of cond

(command "spirale" p1 lang1 "" "d" "15" lang4 ) (setq e3 (entlast))
(command "_circle" p1 "_d" "10" "")
(command "_sweep" "_last" "" e3 "") (setq e4 (entlast))

(command "_union" e1 e2 e4 "")

));end progn;end if

[Diese Nachricht wurde von Jürgen Scheeren am 30. Okt. 2015 editiert.]

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