找到一个公里桩标注的好程序，请帮忙改一下？

ljpnb

呵呵，眼睛都看花了，还不如你贴张图，说明一步步怎么操作，最终得到什么的结果，那样可能有人会帮忙。。。

ljpnb

程序最后加上这段

2. 
   
3. (defun m_DrawText (m_FontStyle            m_AlignmentStyle m_AlignmentPosition
   
4.                    m_TextHeight            m_Rotate             m_Text
   
5.                    /                    ztb
   
6.                   )
   
7.   (if (setq ztb (tblsearch "style" m_FontStyle))
   
8.     (if        (> (cdr (assoc '40 ztb)) 0.0)
   
9.       (progn
   
10.         (command "text"                  "s"                   m_FontStyle
    
11.                  m_AlignmentStyle m_AlignmentPosition
    
12.                  m_Rotate          m_Text
    
13.                 )
    
14.         (setq ztb (entget (entlast)))
    
15.         (setq ztb (subst (cons 40 m_TextHeight) (assoc '40 ztb) ztb))
    
16.         (entmod ztb)
    
17.       )
    
18.       (command "text"                "s"                 m_FontStyle
    
19.                m_AlignmentStyle        m_AlignmentPosition
    
20.                m_TextHeight        m_Rotate         m_Text
    
21.               )
    
22.     )
    
23.     (m_DrawText
    
24.       "STANDARD"         m_AlignmentStyle   m_AlignmentPosition
    
25.       m_TextHeight         m_Rotate            m_Text
    
26.      )
    
27.   )
    
28. )
    

<br /> (defun m_DrawText (m_FontStyle            m_AlignmentStyle m_AlignmentPosition<br />                    m_TextHeight            m_Rotate             m_Text<br />                    /                    ztb<br />                   )<br />   (if (setq ztb (tblsearch "style" m_FontStyle))<br />     (if        (> (cdr (assoc '40 ztb)) 0.0)<br />       (progn<br />         (command "text"                  "s"                   m_FontStyle<br />                  m_AlignmentStyle m_AlignmentPosition<br />                  m_Rotate          m_Text<br />                 )<br />         (setq ztb (entget (entlast)))<br />         (setq ztb (subst (cons 40 m_TextHeight) (assoc '40 ztb) ztb))<br />         (entmod ztb)<br />       )<br />       (command "text"                "s"                 m_FontStyle<br />                m_AlignmentStyle        m_AlignmentPosition<br />                m_TextHeight        m_Rotate         m_Text<br />               )<br />     )<br />     (m_DrawText<br />       "STANDARD"         m_AlignmentStyle   m_AlignmentPosition<br />       m_TextHeight         m_Rotate            m_Text<br />      )<br />   )<br /> )<br />

yfanzi

实在不行啊，就这个将就着用吧。也可以的，实现了基本的里程桩号标注。
http://bbs.mjtd.com/thread-87961-1-1.html

yxh1202

很好用，提个建议，能沿线路前进方向标注时实现：
  1、里程桩号线垂直于线路方向；
  2、桩号文字永远平行于桩号线；
  3、起点桩号能自定，就是不是0+000；
本人才疏学浅，烦请高人指点

ljttjl

自动标注线路中桩号和提取中桩坐标程序
（注：此为试用程序，仅对line和pline线适用，且pline线不能带圆弧）
以下为此最新版程序演示：

3xxx

可以用。就是文字不与桩号线平行。