MTEXT对齐曲线

Lisphk

1. (vl-load-com)
   
2. 
   
3. (setq es    (entsel)
   
4.       entpt (osnap (cadr es) "_nea")
   
5.       ang   (angle '(0 0 0)
   
6.                    (vlax-curve-getFirstDeriv
   
7.                      (vlax-ename->vla-object (car es))
   
8.                      (vlax-curve-getParamAtPoint
   
9.                        (vlax-ename->vla-object (car es))
   
10.                        entpt
    
11.                      )
    
12.                    )
    
13.             )
    
14. )
    
15. (if (and (> ang (/ pi 2)) (<= ang (* pi 1.5)))
    
16.   (setq ang (+ ang pi))
    
17. )
    
18. (setq hght (getreal "\nText Height : "))
    
19. (setq
    
20.   mspace (vla-get-modelspace
    
21.            (vla-get-activedocument (vlax-get-acad-object))
    
22.          )
    
23. )
    
24. 
    
25. (setq mtextobj (vla-addMText
    
26.                  mspace
    
27.                  (vlax-3d-point entpt)
    
28.                  0.0
    
29.                  "AUTOCAD"
    
30.                )
    
31. )
    
32. (vla-put-attachmentPoint
    
33.   mtextobj
    
34.   acAttachmentPointMiddleCenter
    
35. )
    
36. (vla-put-insertionPoint mtextobj (vlax-3d-point entpt))
    
37. (vla-put-Rotation mtextobj ang)
    
38. (vla-put-Height mtextobj hght)
    
39. (vla-put-Color mtextobj 7)
    
40. (vla-put-backgroundfill mtextobj :vlax-true)
    
41. 
    

(vl-load-com)<br /> <br /> (setq es    (entsel)<br />       entpt (osnap (cadr es) "_nea")<br />       ang   (angle '(0 0 0)<br />                    (vlax-curve-getFirstDeriv<br />                      (vlax-ename->vla-object (car es))<br />                      (vlax-curve-getParamAtPoint<br />                        (vlax-ename->vla-object (car es))<br />                        entpt<br />                      )<br />                    )<br />             )<br /> )<br /> (if (and (> ang (/ pi 2)) (<= ang (* pi 1.5)))<br />   (setq ang (+ ang pi))<br /> )<br /> (setq hght (getreal "\nText Height : "))<br /> (setq<br />   mspace (vla-get-modelspace<br />            (vla-get-activedocument (vlax-get-acad-object))<br />          )<br /> )<br /> <br /> (setq mtextobj (vla-addMText<br />                  mspace<br />                  (vlax-3d-point entpt)<br />                  0.0<br />                  "AUTOCAD"<br />                )<br /> )<br /> (vla-put-attachmentPoint<br />   mtextobj<br />   acAttachmentPointMiddleCenter<br /> )<br /> (vla-put-insertionPoint mtextobj (vlax-3d-point entpt))<br /> (vla-put-Rotation mtextobj ang)<br /> (vla-put-Height mtextobj hght)<br /> (vla-put-Color mtextobj 7)<br /> (vla-put-backgroundfill mtextobj :vlax-true)<br /> <br />

[size=1.2em]

xvjiex

感谢楼主分享MTEXT对齐曲线

ynpxqjlb

学习一下~~~~~~~