---

Hallo Mitmenschen, habe wieder mal eine Frage :

Das hier (Aussschnitt) :

(command "_UCS" "_N" "3" p3 p2 "")
  (command "_text" "po" "uz" "0,0,0" "0.15" "0" Profnummer "" "")

  (if (and (setq OBJ (car (entsel "\nNummer picken - - -")))
  (setq DATA (entget OBJ))
  (setq BOX (textbox DATA))
  (setq M (cdr (assoc 10 DATA)))
      )
    (progn
      (command "_ucs" "_Entity" OBJ)
      (command
"_rectang"
(car BOX)
(cadr BOX)
      )
      (command "_ucs" "_p")
    )
  )

macht mir Rechtecke um den gewählten Text.
Allerdings wöllte ich diese gerne einen bestimmten Prozentsatz von der Texthöhe oder Abstand vom Text größer haben. Im Forum hab ich dazu nix gefunden. (Sonst sind die Boxen exakt so hoch wie der Text).
Hilft mir jemand auf die Sprünge ?

Danke, Frank

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

---

mal ein Ansatz:

(if (and (setq OBJ (car (entsel "\nNummer picken - - -")))
        (setq DATA (entget OBJ))
        (setq BOX (textbox DATA))
        (setq M (cdr (assoc 10 DATA)))
    )
  (progn
      (setq PROZENT (list(/ 15 100.0)(/ 15 100.0)(/ 15 100.0)))
      (setq ABSTAND (mapcar '- (cadr BOX)(car BOX)))
      (setq BOX (list (mapcar '- (car  BOX)(mapcar '* ABSTAND PROZENT))
                      (mapcar '+ (cadr BOX)(mapcar '* ABSTAND PROZENT))
                )
      )     
      (command "_ucs" "_Entity" OBJ)
      (command "_rectang" (car BOX)(cadr BOX))     
      (command "_ucs" "_p")
    )
  )

in der "Prozent"-Liste kannste dir dann den Versatz in x und y definieren

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

---

Herzlichen Dank !

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