CADsite forum

AutoCAD => AutoCAD probleem => Topic gestart door: dijkman64 op ma 12 01 2015, 12:27:06

Titel: Text langs pline (OPGELOST)
Bericht door: dijkman64 op ma 12 01 2015, 12:27:06
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.
Titel: Re: Text langs pline
Bericht door: EddyBeerke op ma 12 01 2015, 12:52:20
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.
Titel: Re: Text langs pline
Bericht door: EddyBeerke op ma 12 01 2015, 12:56:15
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:
...
Titel: Re: Text langs pline
Bericht door: julien op ma 12 01 2015, 13:04:10
Prutsen is dat toch niet?
Rotate - reference doet dat perfect.
Als de rotatiehoek duidelijk bepaald is kan je deze ook ingeven via de properties.
Titel: Re: Text langs pline
Bericht door: dijkman64 op ma 12 01 2015, 13:23:09
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?
Titel: Re: Text langs pline
Bericht door: HofCAD op ma 12 01 2015, 14:04:33
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.
Titel: Re: Text langs pline
Bericht door: 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
Titel: Re: Text langs pline
Bericht door: julien op ma 12 01 2015, 14:50:59
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
Titel: Re: Text langs pline
Bericht door: dijkman64 op ma 12 01 2015, 15:39:01
Ah bedankt Julien!
Titel: Re: Text langs pline
Bericht door: HofCAD op ma 12 01 2015, 16:23:40
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.