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?
(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
Ik vermoed dat een textstyle met vaste hoogte jou weer parten speelt... Zie hier (http://www.cadsite.be/smf/index.php?topic=3679.0). :mrgreen:
Probeer deze regel:
(command "dtext" DR PT3 TH "0")
te vervangen door:
(command "dtext" DR PT3 "0")
Roy,
Je bent weer geweldig :lol:
Het werkt weer.
Dank je voor de oplossing :vreegoe:
Atwist