---

Hi,

seit kurzem habe ich ein recht sonderbares Problem. Ich kann bei einer Polylinie (2D) die einzelnen Scheitelpunkte im Eigenschaftenfenster nicht mehr "durchschalten". Es bleibt immer nur der erste Punkt markiert.

Weiß jemand Rat??

Grüße Lutz

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

---

Servus Lutz,

ist das in jeder Zeichnung so?
hast Du schon versucht so zu zoomen daß die ganze PL sichtbar ist?

Gruß Wolfgang

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

---

Ja, das ist in jeder Zeichnung so. Selbs wenn ich eine neue erstelle und eine PLinie mit zwei Punkten zeichne, geht das nicht.

Gruß Lutz

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

---

Hallo Lutz,
schon mal probiert, ob das auch im Befehl Pedit so ist?

Pedit, dann Option: be für Bearbeiten und n für Nächster oder v für Vorher um zu den Kontrollpunkten zu kommen geht das noch?

Gruss Angelika

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

---

Ja, dieser Befehl geht noch. Editieren kann ich die Linienpunkte noch (Einfügen, Schieben, etc.)

Gruß Lutz

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

---

Eigenschaften.jpg

Servus Lutz,

in deinem ersten Beitrag schreibst Du vom durchschalten der Punkte im Eigenschaftsfenster, das kenn ich nicht,
wie geht das???
ich mach es über _pedit

Gruß Wolfgang

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

---

Zitat:

---

Original erstellt von Wolli:
Servus Lutz,

in deinem ersten Beitrag schreibst Du vom durchschalten der Punkte im Eigenschaftsfenster, das kenn ich nicht,
wie geht das???
ich mach es über _pedit

Gruß Wolfgang

---

Klick mal bei Scheitelpunkt rein :-)

------------------
Bernd Cuder
Cad&Co makes CAD easy - z.B. Applikation für lineare Bemaßung

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

---

Hallo Bernd,

da hab ich wieder was neues gelernt.
Obwohl, bringen tut das durchschalten ja eigentlich nichts, zum verschieben der Punkte geht es über die Griffe schneller und zum Einfügen zusätzlicher Punkte brauche ich trotzdem Pedit.
Sehe ich das so richtig?

Danke und Gruß Wolfgang

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

---

Ich benutzte ja auch pedit,
aber du hast gefragt :-)

------------------
Bernd Cuder
Cad&Co makes CAD easy - z.B. Applikation für lineare Bemaßung

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

---

Hi,
zum Thema Punkt in Pline einfügen.
Ich hab' da mal 'n Lisp gefunden das etwas einfacher funzt als PEdit:

Code:

---

;;; ADVERT.LSP Add a Vertex (c)1995, Steve Houghton
;;;revised 3/23/95 to ensure new vertex is at crosshairs
;;;thanks to Patrick Wheatley

;;;Inserts a vertex in a polyline. If a line is selected, it offers to convert
;;;it to a polyline and then insert the vertex.
;;;Will report: At least one break point must be on polyline. if the end of
;;;a polyline is chosen

;;; Modifiziert und übersetzt für den ZVO
;;; am 30.05.2002 by Marc Scherer
;;;***************************************************************************

(defun C:ADVERT (/ OB OC OO OH
POLYLINE POLYNAME PICKPOINT POLYDXF ENTTYPE
LASTENT NEWVERT OLDERR ANSWER
)

(princ
"\nKontrollpunkt in Polylinie einfügen und neu positionieren..."
) ;_ end princ

(defun MC_ERR (MSG)
(princ
(strcat "\nFehler, Acad meldet: \"" MSG "\" als Ursache!")
) ;_ end princ
(setvar "OSMODE" OO)
(setvar "BLIPMODE" OB)
(setvar "HIGHLIGHT" OH)
(setvar "CMDECHO" OC)
(setq *ERROR* OLDERR
MC_ERR NIL
OLDERR NIL
) ;_ end setq
(princ)
) ;_ end defun
;_ *set all env variables,
;_ *osmode to avoid conflicts with the osnap
;_ *blipmode to make her pretty
(setq OO (getvar "OSMODE")
OB (getvar "BLIPMODE")
OH (getvar "HIGHLIGHT")
OC (getvar "CMDECHO")
OLDERR *ERROR*
*ERROR* MC_ERR
) ;_ end setq
;_ *vertext insert routine
(setvar "OSMODE" 0)
(setvar "BLIPMODE" 0)
(setvar "HIGHLIGHT" 0)
(setvar "CMDECHO" 0)

(while (setq POLYLINE
(entsel
"\nPolylinie anklicken wo ein Kontrollpunkt erzeugt werden soll:(R.klick=Ende)"
) ;_ end entsel
) ;_ end setq
(setq POLYNAME (car POLYLINE)
PICKPOINT (osnap (cadr POLYLINE) "_nea")
POLYDXF (entget POLYNAME)
ENTTYPE (cdr (assoc 0 POLYDXF))
) ;_ end setq

(if (= ENTTYPE "POLYLINE")
(INSERTVERT)
(if (= ENTTYPE "LINE")
(progn
(initget "Ja Nein")
(setq ANSWER
(getkword
(strcat
"\n>>>>>>>>>>>>>>>>>> Linie gewählt! <<<<<<<<<<<<<<<<<<<<<<<<<<<<"
"\nSoll diese Linie zur Polylinie gemacht werden? [Ja/Nein] <Ja> "
) ;_ end strcat
) ;_ end getkword
) ;_ end setq
(if (not ANSWER)
(setq ANSWER "Ja")
) ;_ end if
(cond
((= ANSWER "Nein")
(princ "\nLinie nicht in Polylinie konvertiert!")
)
(t
;_ *turn current line into a polyline
(command "_.pedit" POLYNAME "_y" "")
(INSERTVERT)
)
) ;_ end cond
) ;_ progn

(princ
"\nDas gewählte Objekt war keine Polyline oder Linie."
) ;_ end princ
) ;_ if
) ;_ if
) ;_ while

(setvar "OSMODE" OO)
(setvar "BLIPMODE" OB)
(setvar "HIGHLIGHT" OH)
(setvar "CMDECHO" OC)
(setq *ERROR* OLDERR)
(princ)
) ;_ end advert.lsp

(defun INSERTVERT ()
;_ *ensure that last entity is not a compound entity
;_ *by creating a simple temporary entity as the last entity in the
;_ *database this way we can be sure that the next two entities
;_ *will be the two new polylines created by breaking the current
;_ *polyline
(entmake (list '(0 . "POINT") (cons 10 (getvar "VSMIN"))))
(setq LASTENT (entlast))
;_ *breaks polyline at pickpoint
(command "_.break" POLYNAME PICKPOINT PICKPOINT)

;_ *(entnext lastent) will be the next polyline created after lastent
;_ *(entlast) will be the other polyline created
;_ *so now join the two and we have a polyline with the new vertex
;_ *inserted
(command "_.PEDIT"
(entnext LASTENT)
"_join"
(entlast)
""
"_exit"
) ;_ end command
;_ *get rid of temporary point
(entdel LASTENT)
(princ "\nBitte den neuen Kontrollpunkt positionieren: ")
(setq NEWVERT (osnap PICKPOINT "_int,_near"))
(command "_.STRETCH" "_C" NEWVERT NEWVERT "" PICKPOINT PAUSE) ;_ end command
;_ end command
;_ end COMMAND
) ;_ end defun

(princ)

---

------------------
Ciao,
Marc

[Diese Nachricht wurde von marc.scherer am 07. März 2003 editiert.]

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

---

Hallo Marc,

kannst Du das Lisp bitte noch als txt anhängen ich glaube das Forum hat den Quelltext verhunzt.
mit advert lässt es sich starten aber ich bringe keine neuen Punkte in die PL.

Danke und Gruß Wolfgang

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

---

Hi Wolli,
sorry, ich vergeß doch immer die "LWPOLYLINES" zu berücksichtigen...
Hier nochmal der verbesserte Code:

Code:

---

;;; ADVERT.LSP Add a Vertex (c)1995, Steve Houghton
;;;revised 3/23/95 to ensure new vertex is at crosshairs
;;;thanks to Patrick Wheatley
;;;Inserts a vertex in a polyline. If a line is selected, it offers to convert
;;;it to a polyline and then insert the vertex.
;;;Will report: At least one break point must be on polyline. if the end of
;;;a polyline is chosen

;;; Modifiziert und übersetzt für den ZVO
;;; am 30.05.2002 by Marc Scherer
;;;***************************************************************************

(defun C:ADVERT (/ OB OC OO OH
POLYLINE POLYNAME PICKPOINT POLYDXF ENTTYPE
LASTENT NEWVERT OLDERR ANSWER
)

(princ
"\nKontrollpunkt in Polylinie einfügen und neu positionieren..."
) ;_ end princ

(defun MC_ERR (MSG)
(princ
(strcat "\nFehler, Acad meldet: \"" MSG "\" als Ursache!")
) ;_ end princ
(setvar "OSMODE" OO)
(setvar "BLIPMODE" OB)
(setvar "HIGHLIGHT" OH)
(setvar "CMDECHO" OC)
(setq *ERROR* OLDERR
MC_ERR NIL
OLDERR NIL
) ;_ end setq
(princ)
) ;_ end defun
;_ *set all env variables,
;_ *osmode to avoid conflicts with the osnap
;_ *blipmode to make her pretty
(setq OO (getvar "OSMODE")
OB (getvar "BLIPMODE")
OH (getvar "HIGHLIGHT")
OC (getvar "CMDECHO")
OLDERR *ERROR*
*ERROR* MC_ERR
) ;_ end setq
;_ *vertext insert routine
(setvar "OSMODE" 0)
(setvar "BLIPMODE" 0)
(setvar "HIGHLIGHT" 0)
(setvar "CMDECHO" 0)

(while (setq POLYLINE
(entsel
"\nPolylinie anklicken wo ein Kontrollpunkt erzeugt werden soll:(R.klick=Ende)"
) ;_ end entsel
) ;_ end setq
(setq POLYNAME (car POLYLINE)
PICKPOINT (osnap (cadr POLYLINE) "_nea")
POLYDXF (entget POLYNAME)
ENTTYPE (cdr (assoc 0 POLYDXF))
) ;_ end setq

(if (wcmatch ENTTYPE "*POLYLINE")
(INSERTVERT)
(if (= ENTTYPE "LINE")
(progn
(initget "Ja Nein")
(setq ANSWER
(getkword
(strcat
"\n>>>>>>>>>>>>>>>>>> Linie gewählt! <<<<<<<<<<<<<<<<<<<<<<<<<<<<"
"\nSoll diese Linie zur Polylinie gemacht werden? [Ja/Nein] <Ja> "
) ;_ end strcat
) ;_ end getkword
) ;_ end setq
(if (not ANSWER)
(setq ANSWER "Ja")
) ;_ end if
(cond
((= ANSWER "Nein")
(princ "\nLinie nicht in Polylinie konvertiert!")
)
(t
;_ *turn current line into a polyline
(command "_.pedit" POLYNAME "_y" "")
(INSERTVERT)
)
) ;_ end cond
) ;_ progn

(princ
"\nDas gewählte Objekt war keine Polyline oder Linie."
) ;_ end princ
) ;_ if
) ;_ if
) ;_ while

(setvar "OSMODE" OO)
(setvar "BLIPMODE" OB)
(setvar "HIGHLIGHT" OH)
(setvar "CMDECHO" OC)
(setq *ERROR* OLDERR)
(princ)
) ;_ end advert.lsp

(defun INSERTVERT ()
;_ *ensure that last entity is not a compound entity
;_ *by creating a simple temporary entity as the last entity in the
;_ *database this way we can be sure that the next two entities
;_ *will be the two new polylines created by breaking the current
;_ *polyline
(entmake (list '(0 . "POINT") (cons 10 (getvar "VSMIN"))))
(setq LASTENT (entlast))
;_ *breaks polyline at pickpoint
(command "_.break" POLYNAME PICKPOINT PICKPOINT)

;_ *(entnext lastent) will be the next polyline created after lastent
;_ *(entlast) will be the other polyline created
;_ *so now join the two and we have a polyline with the new vertex
;_ *inserted
(command "_.PEDIT"
(entnext LASTENT)
"_join"
(entlast)
""
"_exit"
) ;_ end command
;_ *get rid of temporary point
(entdel LASTENT)
(princ "\nBitte den neuen Kontrollpunkt positionieren: ")
(setq NEWVERT (osnap PICKPOINT "_int,_near"))
(command "_.STRETCH" "_C" NEWVERT NEWVERT "" PICKPOINT PAUSE) ;_ end command
;_ end command
;_ end COMMAND
) ;_ end defun

(princ)

---

------------------
Ciao,
Marc

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

---

Hallo Marc,

ich bins nochmal, jetzt zerbricht die PL an dem neu eingefügten Punkt in zwei Teile, das sollte doch so nicht sein oder?

Gruß Wolfgang

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

---

Hi Wolli,
@: "jetzt zerbricht die PL an dem neu eingefügten Punkt in zwei Teile, das sollte doch so nicht sein oder?"
Nö, sollte so nicht sein. Kann ich mir auch so nicht erklären.
Funktion läuft bei uns problemlos unte R2000i bis Map5...
Könnte es sein, das da Mechanical zwischenhaut?
Ansonsten versuch doch mal folgendes:
Mit "_convertpoly" gewünschte Polylinie in "Fett" umwandeln und dann Punkt einfügen. Geht's dann richtig?
Wenn ja, dann liegts an den LWPolylines. Das hatte ich nicht gegengecheckt. Hm, da werde ich wohl nochmal schauen müssen, oder komplett selber was basteln...

------------------
Ciao,
Marc

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

---

Hallo Ihr fleißigen Schreiber,

ich finde Eure Lösungsvorschläge und Listing hochinteressant, aber so richtig hilft mir das auch nicht weiter.
Noch weitere Vorschläge??

Grüße Lutz

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

---

wolfgang.zip

@Hallo Marc,
ich hab mal ACAD ohne Mech-Pauapäck gestartet, PL zerbricht trotzdem.

@Hallo Lutz
vielleicht könnten wir das Problem Eingrenzen indem wir testen ob es an einer Systemvariablen liegt.
Hast Du Express-Tools?
In den ET gibt es einen System Variable Editor damit hab ich meine Systemvariablen-Einstellungen als svf-Datei rausgeschrieben, die könntest Du mit dem gleichen Tool bei Dir einlesen, aber nicht bevor Du Deine Systemvariablen gesichert hast. !!!Vorsicht!!!
Evtl. hat ja jemand im Forum noch einen besseren Vorschlag.
Gruß Wolfgang

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