---

Hallo!

Bitte um Hilfe!

Ich will an dieser Stelle "(if(and(setq PL-OBJ(entsel "\nPolyliniensegment wählen : ")" einen Auswahlsatz übergeben den ich vorher mit (setq auswahl(ssget)) ausgewählt habe. Warum funktioniert das einfach nicht?

..... (if(and(setq PL-OBJ(entsel "\nPolyliniensegment wählen : "))
        (setq PKT(cadr PL-OBJ))
        (setq PL-OBJ (car PL-OBJ))
        (setq PL-OBJ(cond                                        ;_ VLA-OBJEKT erzeugen
                      ((=(type PL-OBJ) 'VLA-OBJECT) PL-OBJ)
                      ((=(type PL-OBJ) 'Ename) (vlax-ename->vla-object PL-OBJ))   
                    )
        )       
        (setq PKT  (vlax-curve-getClosestPointTo PL-OBJ PKT))
        (setq PARAM(vlax-curve-getparamAtPoint PL-OBJ PKT))
        (setq PRE(vlax-curve-getpointatparam PL-OBJ (fix PARAM)))
        (setq SUF(vlax-curve-getpointatparam PL-OBJ (1+(fix PARAM))))       
    )
()
)............

lg. Martin

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

---

Was hast du vor ??????

entsel...  liefert Klickpunkt und Objekt ....

------------------
  - 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

---

Hallo cadmium!

vorab schon eingestellt:
(command "_ucs" "W")
(setvar "PEDITACCEPT" 1)

dann:
ich wähle ein objekt----(setq auswahl (ssget))
danach versuche ich es in eine polylinie umzuwandeln mit----(command "pedit" auswahl "")
wenn es schon eine polylinie war sollte da nichts passieren.
Anschließend die Übergabe---(if(and(setq PL-OBJ auswahl)

Funktioniert leider nicht --Fehler!

lg. Martin

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

---

Zitat:

---

Original erstellt von MARTINLE:
Hallo cadmium!

vorab schon eingestellt:
(command "_ucs" "W")
(setvar "PEDITACCEPT" 1)

dann:
ich wähle ein objekt----(setq auswahl (ssget))
danach versuche ich es in eine polylinie umzuwandeln mit----(command "pedit" auswahl "")
wenn es schon eine polylinie war sollte da nichts passieren.
Anschließend die Übergabe---(if(and(setq PL-OBJ auswahl)

Funktioniert leider nicht --Fehler!

lg. Martin 

---

kann ja auch nicht .... (ssget..) kann mehrere Objekte enthalten
(command "pedit" ... funktioniert bloß auf Bögen Linien PLs ... wenn es eine Polylinie wird, ist es garantiert ein anderes Objekt als das gewählte... ist ja auch ein anderer Objekttyp!

(ssname (ssget ":S" '((0 . "*POLYLINE")))0)  liefert eine einzelne PL

und für den nachfolgenden Code bruacht du auch den Pickpunkt wegen Ermitllung der aktuellen segmentlänge ...

Also, was willst du genau danach ???

------------------
  - 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

---

Hallo Thomas!

Hab gleich einen Termin!

Melde mich morgen wieder!
Danke erstmal!

lg. Martin

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

---

Zitat:

---

Original erstellt von CADmium:

kann ja auch nicht .... (ssget..) kann mehrere Objekte enthalten
(command "pedit" ... funktioniert bloß auf Bögen Linien PLs ... wenn es eine Polylinie wird, ist es garantiert ein anderes Objekt als das gewählte... ist ja auch ein anderer Objekttyp!

(ssname (ssget ":S" '((0 . "*POLYLINE")))0)  liefert eine einzelne PL

und für den nachfolgenden Code bruacht du auch den Pickpunkt wegen Ermitllung der aktuellen segmentlänge ...

Also, was willst du genau danach ???

---

Also Guten Morgen Thomas! Es ist 5 Uhr 23  der Arbeitstag beginnt!

Also danach kommt:

(command "_ucs" "VO")
  (command "_Mline" "s" "ST1" "M" SKF1 "a" "o" PRE SUF "")

wobei SKF1 eine Zahl aus dem Blackboard ist.

lg. Martin 

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