Author Topic: Text alignment p0-p1,  (Read 1404 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 »

ssdd

  • Newt
  • Posts: 35
Re: Text alignment p0-p1,
« Reply #1 on: July 09, 2017, 12:11:54 AM »
Code - Auto/Visual Lisp: [Select]
  1. (defun c:tt()
  2. (setq en (car (entsel)))
  3. (duiqi en (setq p0 (getpoint"\n p0"))  (setq p1 (getpoint"\n p1")) (setq p2 (getpoint"\n p2")))
  4.  
  5. (defun duiqi (en p0 p1 p2 / ang b1 b3 dd ent gd kd rot)
  6. (setq ent (entget en))
  7. (if (LM:Clockwise-p p0 p1 p2)
  8.     (setq ang (- (angle p0 p1)(angle p0 p2))
  9.           ent (entmod (subst (cons 10 (polar p0 (+ pi (angle p1 p0)) (+ (/ (cdr(assoc 40 ent)) (tan ang)) (caadr (textbox ent))))) (assoc 10 ent) ent))
  10.           ent (entmod (subst (cons 50 (+ pi (angle p0 p1))) (assoc 50 ent) ent)))
  11.    (setq  ang (- (angle p0 p2)(angle p0 p1))
  12.           ent (entmod (subst (cons 10 (polar p0 (angle p0 p1) (/ (cdr(assoc 40 ent)) (tan ang)))) (assoc 10 ent) ent))
  13.           ent (entmod (subst (cons 50 (angle p0 p1)) (assoc 50 ent) ent)))
  14.    
  15. )
  16. (entmod ent))
  17.  
  18. (defun LM:Clockwise-p ( p1 p2 p3 )
  19.       (<  (-  (* (- (car  p2) (car  p1)) (- (cadr p3) (cadr p1)))
  20.               (* (- (cadr p2) (cadr p1)) (- (car  p3) (car  p1)))
  21.           )
  22. 1e-8))
  23.  
  24. (defun tan (rad) (/ (sin rad) (cos rad)))

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?

tombu

  • Bull Frog
  • Posts: 288
  • 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
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!