---

Hallo!

Hab das Lisp bei mir wieder gefunden: Es ist von Thomas aus dem Jahr 2007.
Habe mir auch einen Button mit ^C^Cdimx;\;@80<0;belegt.
Funktioniert soweit gut.
Nur wenn ich das gleich Maß erneut anklicke sollte es wiederum um 80 Einheiten verschoben werden. Dies tut es leider nicht.
Kann mir da vieleicht jemand helfen?
Danke!

lg. Martin

(defun c IMX( / AWS)
  (if(and(Setq AWS(ssget '((0 . "DIMENSION"))))
        (setq P(getpoint "\nX-Koordinate: "))
    )
    (progn
      (setq INDEX -1)
      (repeat(sslength AWS)
        (setq OBJ(ssname AWS(setq INDEX(1+ INDEX))))
        (setq OBJ(vlax-ename->vla-object OBJ))
        (setq POS(vlax-safearray->list
                  (vlax-variant-value
                    (vla-get-TextPosition OBJ)
                  )
                )
        )     
        (vla-put-TextPosition OBJ(vlax-3d-point(list(car P)(cadr POS)(caddr POS))))   
      ) 
    )
  )
)

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

---

ersetze
(vla-put-TextPosition OBJ(vlax-3d-point(list(car P)(cadr POS)(caddr POS))))   

durch
(vla-put-TextPosition OBJ(vlax-3d-point(list(+(car P)(car Pos))(cadr POS)(caddr POS))))   

oder so ähnlich ...
oder durch
(vla-put-TextPosition OBJ(vlax-3d-point(list(+ 80.0(car Pos))(cadr POS)(caddr POS))))   

wenn es immer 80 sind

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

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