---

Servus

Code:

---

(defun c:addvert ()
  (setq #vlaobj (vlax-ename->vla-object (car (entsel "\nPolyLinie wählen: "))))
  (setq #pkt (getpoint "\nPunkt einfügen:))
  (vla-addvertex
    #vlaobj
    3                      ;zB. der 3. Pkt.
    #pkt
  )
)

---

Soweit ich herausgefunden hab, sollte vla-addvertex wie oben funktionieren - dachte ich.
Krieg aber

Code:

---

"ActiveX-Server gab folgenden Fehler zurück: unbekannter Name: AddVertex"

---

zurück.

Ich habe den #pkt in Verdacht ...
Könnt ihr mir weiterhelfen?

------------------
Schöne Grüße
Ernst

www.geopaint.at

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

---

für PKT will addvertex ein safearray mit den xy-koordinaten im OCS der PL .. klappt so auch nur für LW -PLs

wenn wks sollte das  klappen:
(vl-load-com)
(defun c:addvert ()
  (setq #vlaobj (vlax-ename->vla-object (car (entsel "\nPolyLinie wählen: "))))
  (setq #pkt (getpoint "\nPunkt einfügen:"))
  (vla-addvertex
    #vlaobj
    3
    (vlax-safearray-fill
      (vlax-make-safearray vlax-vbdouble (cons 0 1))
      (list (car #pkt)(cadr #pkt))
    )
  )
)

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

Ich bin zwar im WKS, schmeckt ihm aber auch net ...?
(Die ausgewählte Poly hat übrigens 6 Pkte)

Code:

---

Befehl: bks

Aktueller BKS-Name:  *WELT*
Ursprung des neuen BKS angeben oder
[FLäche/bENannt/Objekt/VOrher/ANsicht/Welt/X/Y/Z/ZAchse] <Welt>: w

Befehl: (defun c:addvert ()
(_>  (setq #vlaobj (vlax-ename->vla-object (car (entsel "\nPolyLinie wählen:
"))))
(_>  (setq #pkt (getpoint "\nPunkt einfügen:"))
(_>  (vla-addvertex
((_>    #vlaobj
((_>    3
((_>    (vlax-safearray-fill
(((_>      (vlax-make-safearray vlax-vbdouble (cons 0 1))
(((_>      (list (car #pkt)(cadr #pkt))
(((_>    )
((_>  )
(_> )
C:ADDVERT

Befehl: addvert

PolyLinie wählen:
Punkt einfügen:
"ActiveX-Server gab folgenden Fehler zurück: unbekannter Name: AddVertex"

Befehl:

---

------------------
Schöne Grüße
Ernst

www.geopaint.at

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

---

Cadmiums Zeilen gehen...

probier mal die:

(setq #vlaobj (vlax-ename->vla-object (car (entsel "\nPolyLinie wählen: "))))
(setq pt (getpoint))
(vlax-invoke #vlaobj 'AddVertex 2 (list (car pt) (cadr pt)))

------------------
Mfg Heiko

Elefantenjagd in Afrika
"... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."

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

---

Sorry - hab grad entdeckt - is eine POLYLINE, keine LWPOLYLINE!
(bei einer LW-Poly gehts)

Funktioniert vla-addvertex nur bei leichten PLs?

Gibts auch was für die schweren?

------------------
Schöne Grüße
Ernst

www.geopaint.at

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

---

activex mit (vl-load-com) initialisiert ?
ist es wirklich eine LW-PL ? .. bei einer 2d-PL heißt das nämlich appendvertex

...deine Fahlermeldung deutet auf eins von beiden ...

bei mir klapps jedenfalls mit dem Code ... du bist dran

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

---

pl-add-vertex.VLX.txt

 

Zitat:

---

Original erstellt von Geos:
Sorry - hab grad entdeckt - is eine POLYLINE, keine LWPOLYLINE!
(bei einer LW-Poly gehts)

Funktioniert vla-addvertex nur bei leichten PLs?

Gibts auch was für die schweren?

---

Lisphilfe bemühen! ins Objektmodell gehen und feststellen , das da die Methode APPENDVERTEX heißt. .. und die fügt hinten an ....

(defun c:addvert ()
  (setq #vlaobj (vlax-ename->vla-object (setq OBJ(car (entsel "\nPolyLinie wählen: ")))))
  (setq #pkt (getpoint "\nPunkt einfügen:"))
  (vla-appendvertex
    #vlaobj
    (vlax-3d-point (trans #pkt 1 OBJ))   
  )
)

wenns um einfügen geht -> property Coordinates .... aber ich würde die PL mit Eigenschaftenübenahme neu zeichnen

Anbei mal was für beide Typen ....
------------------
      - 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

---

Danke

und ja, es geht ums Einfügen ...
(oder eigentlich um movevertex, gibts aber offensichtlich net - also alt raus neu rein)

------------------
Schöne Grüße
Ernst

www.geopaint.at

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