---

Hallo

Ein neuer Tag ein neues Problem. Ich will zwei Objekte stützen, dafür verwende ich zwei Stützkanten jedoch mit dem command funktioniert das ganze nicht richtig. Kann mir jemand sagen was ich falsch mache.

das sind meine Stutzkanten
(setq stutz_1 (entget  (car (entsel"\nErste Stutzkante" )))) 
(setq stutz_2 (entget  (car (entsel"\nZweite Stutzkante" )))) 

und das sind meine Objekte die gestutzt werden sollen 

  (command "_OFFSET" ABST ELEM PAUSE "")
  (setq Objekt_1 (entget (entlast)))
  (command "_OFFSET" (- ABST 3.8) ELEM PAUSE "")
  (setq Objekt_2 (entget (entlast)))

und das ist mein command der wahrscheinlich total falsch ist 
(command "_TRIM" stutz_1 "" Objekt_1 Objekt_2  "" "_.ERASE" stutz_2 ""  "_P")

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

---

Hallo RoyCAD!
Also fangen wir mit den Stutzkanten an:
da brauchst Du zur Übergabe an den Befehl STUTZEN den Elementnamen, also reicht:
setq stutz_1 ((car (entsel"\nErste Stutzkante" )))

Der STUTZEN-Befehl benötigt bei den zu stutzenden Objekten nicht nur das Objekt, sondern auch einen Punkt, damit klar ist welcher Teil abgestutzt werden soll.

Die benötigte Liste sieht dann so aus: (NAME (Punkt))
Anstelle von (command "_OFFSET" ABST ELEM PAUSE "")
solltest Du den Punkt speichern:
(command "_OFFSET" ABST ELEM (setq p1 (getpoint)) "")
Und dann die benötigte Liste zusammenstellen:
(setq Objekt_1 (list (entlast) p1))

dann sollte das Stutzen eigentlich gehen.

Grüsse Henning
(alert (apply 'strcat (mapcar '(lambda (x) (chr x)) '(68 97 115 32 119 97 114 39 115 32 101 114 115 116 32 109 97 108 33 10 70 114 111 104 101 115 32 76 105 115 112 101 108 110 46 46 46))))

------------------
VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

_trim.pdf

Da ich aber zwei Stutzkanten [_trim.pdf]  habe und nur ein Punkt funktioniert das nicht so richtig.

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

---

Hallo RoyCad,
probier mal folgendes.

; Objekte wählen
(setq stutz_1 (entget  (car (entsel"\nErste Stutzkante" ))))
(setq stutz_2 (entget  (car (entsel"\nZweite Stutzkante" ))))
(setq objekt_1 (entget  (car (entsel"\nErste Objekt" ))))
(setq objekt_2 (entget  (car (entsel"\nZweite Objekt" ))))
 
;ermittle Anfang und Endpunkte der Objekte
(setq anf1 (cdr (assoc 10 stutz_1)))
(setq end1 (cdr (assoc 11 stutz_1)))
(setq anf2 (cdr (assoc 10 stutz_2)))
(setq end2 (cdr (assoc 11 stutz_2)))
(setq anf_o1 (cdr (assoc 10 objekt_1)))
(setq end_o1 (cdr (assoc 11 objekt_1)))
(setq anf_o2 (cdr (assoc 10 objekt_2)))
(setq end_o2 (cdr (assoc 11 objekt_2)))

;ermittle Schnittpunkte der Objekte
(setq i11 (inters anf1 end1 anf_o1 end_o1))
(setq i12 (inters anf2 end2 anf_o1 end_o1))
(setq i21 (inters anf1 end1 anf_o2 end_o2))
(setq i22 (inters anf2 end2 anf_o2 end_o2))

; ermittle Punkte auf zu stutzenden Objekten zwischen den Stutzlinine
(setq mit_1 (polar i11 (angle i11 i12) (/ (distance i11 i12) 2)))
(setq mit_2 (polar i21 (angle i21 i22) (/ (distance i21 i22) 2)))
(setq mit_s1 (polar anf1 (angle anf1 end1) (/ (distance anf1 end1) 2)))
(setq mit_s2 (polar anf2 (angle anf2 end2) (/ (distance anf2 end2) 2)))

; stutzen durchführen
(command "_trim" mit_s1 mit_s2 "" mit_1 mit_2 "")

Viele Grüße
spider

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

---

hier noch eins nur mit wahl der beiden Stutzkanten

Code:

---

(defun pts(ENAME)
(cons
(vlax-curve-getendpoint (vlax-ename->vla-object ENAME))
(vlax-curve-getstartpoint (vlax-ename->vla-object ENAME))
)
)
(if(setq elem1(car(entsel"\n1. Kante wählen: ")))
  (setq p1 (car (pts elem1))
        p2 (cdr (pts elem1))
        )
  )
(if(setq elem2(car(entsel"\n2. Kante wählen: ")))
  (setq p3 (car (pts elem2))
        p4 (cdr(pts elem2))
        )
  )

(if(and p1 p3)
  (progn
    (setq as1(ssget "_C" p1 p3))
(repeat(sslength(setq as2(ssget "_C" p1 p4)))
                (if (not(ssmemb(ssname as2 0)as1))
                (setq as1(ssadd(ssname as2 0)as1))
                  )
                  (setq as2 (ssdel (ssname as2 0)as2))
  )
    (command "_trim" elem1 elem2 ""
             (repeat(sslength
             as1)
             (command (cons(ssname as1 0)(list(list(/ (car (mapcar '+ p1 p3))2)(/ (cadr (mapcar '+ p1 p3))2)))))
             (setq as1 (ssdel (ssname as1 0)as1))
             )
             ""
)
  )
  )

---

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Hallo CAD Wiesel

PTS no function definition. Wie soll ich PTS definieren ?

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

---

sorry, nu isses richtig
(vl-load-com) nicht vergessen!

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Es funktioniert, aber leider er stutzt alle Objekte die sich zwischen Kanten 1 und 2 befinden. Kann man das geschickt umbauen das er nur die Objekte stutzt die ich will.

Gruß
RoyCAD

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

---

naja, wo ist dann der Unterschied, Zwischen deinem Programm und dem Stutzen-befehl?

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Das ist ein Teil von einem Großen Lisp- Programm und der soll wie der Stutzen-befehl  in grunde genommen funktionieren. Aber trotzdem danke für die Hilfe.

Gruß
RoyCAD

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