Welcome,
Guest
. Please
login
or
register
.
1 Hour
1 Day
1 Week
1 Month
Forever
Login with username, password and session length
News:
Home
Help
Login
Register
TheSwamp
»
Code Red
»
AutoLISP (Vanilla / Visual)
»
Topic:
Text alignment p0-p1,
« previous
next »
Print
Pages: [
1
] |
Go Down
Author
Topic: Text alignment p0-p1, (Read 1483 times)
0 Members and 1 Guest are viewing this topic.
well20152016
Newt
Posts: 130
Text alignment p0-p1,
«
on:
July 08, 2017, 07:39:21 PM »
Text alignment p0-p1,
Text and line p2-p1 do not collide,
«
Last Edit: July 08, 2017, 07:42:45 PM by well20152016
»
Logged
ssdd
Newt
Posts: 35
Re: Text alignment p0-p1,
«
Reply #1 on:
July 09, 2017, 12:11:54 AM »
Code - Auto/Visual Lisp:
[Select]
(
defun
c:tt
(
)
(
setq
en
(
car
(
entsel
)
)
)
(
duiqi en
(
setq
p0
(
getpoint
"
\n
p0"
)
)
(
setq
p1
(
getpoint
"
\n
p1"
)
)
(
setq
p2
(
getpoint
"
\n
p2"
)
)
)
(
princ
)
)
(
defun
duiqi
(
en p0 p1 p2
/
ang b1 b3 dd ent gd kd rot
)
(
setq
ent
(
entget
en
)
)
(
if
(
LM:Clockwise
-
p p0 p1 p2
)
(
setq
ang
(
-
(
angle
p0 p1
)
(
angle
p0 p2
)
)
ent
(
entmod
(
subst
(
cons
10
(
polar
p0
(
+
pi
(
angle
p1 p0
)
)
(
+
(
/
(
cdr
(
assoc
40
ent
)
)
(
tan ang
)
)
(
caadr
(
textbox
ent
)
)
)
)
)
(
assoc
10
ent
)
ent
)
)
ent
(
entmod
(
subst
(
cons
50
(
+
pi
(
angle
p0 p1
)
)
)
(
assoc
50
ent
)
ent
)
)
)
(
setq
ang
(
-
(
angle
p0 p2
)
(
angle
p0 p1
)
)
ent
(
entmod
(
subst
(
cons
10
(
polar
p0
(
angle
p0 p1
)
(
/
(
cdr
(
assoc
40
ent
)
)
(
tan ang
)
)
)
)
(
assoc
10
ent
)
ent
)
)
ent
(
entmod
(
subst
(
cons
50
(
angle
p0 p1
)
)
(
assoc
50
ent
)
ent
)
)
)
)
(
entmod
ent
)
)
(
defun
LM:Clockwise
-
p
(
p1 p2 p3
)
(
<
(
-
(
*
(
-
(
car
p2
)
(
car
p1
)
)
(
-
(
cadr
p3
)
(
cadr
p1
)
)
)
(
*
(
-
(
cadr
p2
)
(
cadr
p1
)
)
(
-
(
car
p3
)
(
car
p1
)
)
)
)
1e
-
8
)
)
(
defun
tan
(
rad
)
(
/
(
sin
rad
)
(
cos
rad
)
)
)
Logged
well20152016
Newt
Posts: 130
Re: Text alignment p0-p1,
«
Reply #2 on:
July 09, 2017, 01:10:52 AM »
thank!
Red text is correct.
Yellow text error?
Logged
tombu
Bull Frog
Posts: 289
ByLayer=>Not0
Re: Text alignment p0-p1,
«
Reply #3 on:
July 10, 2017, 10:50:44 AM »
Try Lee Mac's Align Text to Curve
http://www.lee-mac.com/curvealignedtext.html
or With Automatic Re-Alignment
http://www.lee-mac.com/dtcurve.html
Logged
Tom Beauford P.S.M.
Leon County FL Public Works - Windows 7 64 bit AutoCAD Civil 3D
well20152016
Newt
Posts: 130
Re: Text alignment p0-p1,
«
Reply #4 on:
July 30, 2017, 11:08:53 AM »
please help me!
thank!
Logged
Print
Pages: [
1
] |
Go Up
« previous
next »
TheSwamp
»
Code Red
»
AutoLISP (Vanilla / Visual)
»
Topic:
Text alignment p0-p1,