CADsite forum

Ik probeer een text gelijk te krijgen met een schuine lijn. kan dit sneller dan te prutsen met rotate of kun je op een manier automatisch text gelijk aan een lijn krijgen?

Alvast bedankt voor het antwoord en of het mee denken.

Ik gebruik daar een programma voor als de tekst al geplaatst is.
Werking:
Vraag de angle van de lijn op, door twee punten te selecteren en de hoek ervan te berekenen.
Dan de tekst selecteren en de hoek toepassen.
Kan en mag niet de broncode delen van mijn baas.

Misschien is mijn programma "RREF" wel iets voor je.

Citaat van: EddyBeerke op di 22 01 2008, 10:38:24
De functie Roteer met reference is nu verbeterd:
...

Prutsen is dat toch niet?
Rotate - reference doet dat perfect.
Als de rotatiehoek duidelijk bepaald is kan je deze ook ingeven via de properties.

Julien: Ik heb het geprobeert met Rotate - reference maar dit is mij niet gelukt.


Ik heb 2 foto's toegevoegd. Ik heb met rotate nu op het oog de text parralel aan de lijn gezet.

Is er standaard geen functie in AutoCAD die text op een manier parralel aan de lijn kan laten lopen?

Beste Dijkman,

Voor langs een line(lijn):

(defun c:AlignText (/ VlaObjLine LinAngle VlaObjText )
  (vl-load-com )
  (setq VlaObjLine (vlax-ename->vla-object (car (entsel "Select the line : " ))) )
  (setq LinAngle   (vla-get-Angle VlaObjLine ) )
  (while (setq VlaObjText (vlax-ename->vla-object (car (entsel "Select the text : " ))))
    (vla-put-Rotation VlaObjText LinAngle )
    (vlax-release-object VlaObjText )
  )
  (vlax-release-object VlaObjLine )
  (princ)
)

Met vriendelijke groet, HofCAD CSI.

Beste HofCAD
Ik kan niet echt veel wijs worden uit uw code.
Zou u dit anders kunnen omschrijven?

mvg. Dijkman

Het commando Rotate by reference vergt inderdaad wat oefening.
Ik ben eens gaan kijken onder de express tools, blijkbaar bestaat er toch een commando voor:
http://i.imgur.com/yadjkzq.png

Ah bedankt Julien!

Citaat van: dijkman64 op ma 12 01 2015, 14:22:02
Beste HofCAD
Ik kan niet echt veel wijs worden uit uw code.
Zou u dit anders kunnen omschrijven?

mvg. Dijkman

Beste Dijkman,

Laad het bijgevoegde bestand AlignText.lsp (bijv. met APPLOAD),
en type dan het commando ALIGNTEXT.
Dan wordt U gevraagd om een Line te selecteren en daarna een Text.

Bij een Polyline(pline) zou ik net als Julien het Express tool commando TORIENT gebruiken!

Met vriendelijke groet, HofCAD CSI.