---

hi ,

wie kann ich innerhalb eines reaktors ein element kopieren ?

------------------
MfG
Frank

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

---

vla-copy vielleicht?

Holger

---Brischke

[Diese Nachricht wurde von Bene am 11. Okt. 2004 editiert.]

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

---

oder
(entmake
  (vl-remove-if
  '(lambda(X) (member(car X)) '(-1 5 330)))
    (entget OBJEKT '("*"))
  )
)

die Entget-liste läßt sich natürlich auch weiter "substen" GC 10 usw..
(klappt aber nur mit autocadobjekten)

------------------
- Thomas -
"Bei 99% aller Problemen 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

---

vla-copy kennt mein autocad aber nicht, woran liegt das ?

------------------
MfG
Frank

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

---

das ist activex .. also (vl-load-com) an den Anfang und in der Lisphilfe mal unter VBA-/ ActivX Referenz informieren..

------------------
- Thomas -
"Bei 99% aller Problemen 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

---

moin,

hier ein ausschnitt aus meinem programm :

(vl-load-com)
(setq altelement (vlax-ename->vla-object (handent m)))
(setq neuelement (vla-copy altelement))
(vla-move neuelement (list 0.0 0.0 0.0) (list 1.0 1.0 0.0))

Fehler: Keine Umwandlung des lisp-Wertes in VARIANT mit folgendem Typ:  (0.0 0.0 0.0)

muss ich den basispunkt und den endpunkt noch irgendwie umwandeln ?

------------------
MfG
Frank

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

---

ja, move will die Arguemente in einer etwas anderen form :
probier mal folgendes :

(setq altelement (vlax-ename->vla-object (car(entsel))))
(setq neuelement (vla-copy altelement))
(vla-move neuelement
  (vlax-safearray-fill (vlax-make-safearray vlax-vbdouble (cons 0 2)) '(0.0 0.0 0.0))
  (vlax-safearray-fill (vlax-make-safearray vlax-vbdouble (cons 0 2)) '(1.0 1.0 0.0))
)

------------------
- Thomas -
"Bei 99% aller Problemen 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

---

Zitat:

---

[..]
  (vlax-safearray-fill (vlax-make-safearray vlax-vbdouble (cons 0 2)) '(0.0 0.0 0.0))
[..]

---

oder (vlax-3D-point 0.0 0.0 0.0) bzw. (vlax-3D-point '(0.0 0.0 0.0))

Ist etwas weniger 'direkt' und übersichtlicher, verschleiert dafür aber den tatsächlichen Vorgang.

Achim Dabrunz

------------------

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