Tekst staat onder een hoek van 4 graden (Opgelost door Roy)

[Atwist]

Hallo Forumleden

Ik heb een Lisp waarmee ik een pijl met tekst maak maar nu staat de tekst oner een hoek van 4 graden hoe krijg ik deze weer op horizontaal.
Heb zelf al zitten puzzellen maar ik kom er niet achter, zou jullie eens willen kijken?

Code Selecteer Uitklappen

(defun C:LD (/ A B C D E PT1 PT2 PT3 TH DR PTX)
  (graphscr)
  (setq A (getvar "DIMASZ")
        B (getvar "DIMTAD")
        C (getvar "ORTHOMODE")
        D (getvar "OSMODE")
        E (getvar "SNAPMODE"))
 
  (setvar "DIMASZ" 3) ;set arrow head size
  (setvar "DIMTAD" 0)
  (setvar "ORTHOMODE" 0)
  (setvar "OSMODE" 575)
  (setvar "SNAPMODE" 0)
  (setq PT1 (getpoint "\n Start punt : "))
  (setvar "OSMODE" 0)
  (setq PT2 (getpoint PT1 "\n Eind punt: "))
  (command "dim1" "lea" PT1 PT2 "" commandnil )
  (setq TH (* (getvar "DIMSCALE")(getvar "DIMTXT")))
  (if (> (car PT1) (car PT2))(setq DR "MR"))
  (if (> (car PT2) (car PT1))(setq DR "ML"))
  (setq PTX (* (getvar "DIMSCALE")(+ 2.5 (getvar "DIMASZ"))))
  (if (= DR "ML")(setq PT3 (list (+ (car PT2) PTX)(cadr PT2))))
  (if (= DR "MR")(setq PT3 (list (- (car PT2) PTX)(cadr PT2))))
  (prompt "\n Voer tekst in: ")
  (command "dtext" DR PT3 TH "0")
  (setvar "DIMASZ" A)
  (setvar "DIMTAD" B)
  (setvar "ORTHOMODE" C)
  (setvar "OSMODE" D)
  (setvar "SNAPMODE" E)
  (princ)
); end ld.lsp


Alvast bedankt

Atwist

[roy_043]

Ik vermoed dat een textstyle met vaste hoogte jou weer parten speelt... Zie hier.

Probeer deze regel:
   (command "dtext" DR PT3 TH "0")
te vervangen door:
   (command "dtext" DR PT3 "0")

[Atwist]

Roy,

Je bent weer geweldig 

Het werkt weer.

Dank je voor de oplossing

Atwist