[求助]：等分弧长如何自动标注？

zhkingl

如题，直线画多了，遇到弧线就傻眼了。谢谢指点。

lsjjm

先不说"自动", 如果手工你如何标注?

283b845db0c245b

如果是手动标注弧长我的步骤是:先使用DIV(等分)命令,等分出所需的段数,再有LIST命令测量出它们的长度,再用标注角度标上角度,然后把角度的数值改为弧长便可

zhkingl

谢谢楼上朋友，也只好用这个办法。

wwf616

最初由 龙啸天　 发布
[B]如果是手动标注弧长我的步骤是:先使用DIV(等分)命令,等分出所需的段数,再有LIST命令测量出它们的长度,再用标注角度标上角度,然后把角度的数值改为弧长便可 [/B]

好办法，谢谢楼主！

txwgf5817

最初由 龙啸天　 发布
[B]如果是手动标注弧长我的步骤是:先使用DIV(等分)命令,等分出所需的段数,再有LIST命令测量出它们的长度,再用标注角度标上角度,然后把角度的数值改为弧长便可 [/B]

却实是一个非常好的办法,我就是想不到,谢了,这应该加分嘛*-*2 *-*2 *-*2

lsjjm

自动标注等分弧长:
请参考:
[php]
(defun c:test ()
  (setq cur (entsel)
         pd (cadr cur)
        cur (car cur))
  (setvar "pdmode" 2)
  (setq  dn (getint "Enter the number of segments: "))
  (setq  p0 (getpoint "pick the point of Notes: "))
  (setq   l (vlax-curve-getdistatparam cur (vlax-curve-getendparam cur)))
  (vl-cmdf "divide" cur dn)
  (vl-cmdf "dimangular" pd "t" (strcat (itoa dn) "x" (rtos (/ l dn) 2 2)) p0 "exit")
)
[/php]
1. 准确地说 只是"半自动"---因为不知道原始数据;
2. 如果是非圆曲线可以LEADER 替代DIMANGULAR;
3. 该标注样式符合所在公司标准, 不知是否符合国内标准---这就是让楼主手动标注的原由.

cqnj023

2. 
   
3.   (defun c:hcbz  (/ DIM DIST DIST1 DIST2 EN END ENOBJ OSM P1 P2)
   
4.   (vl-load-com)
   
5.   (defun new-err  (s)
   
6.     (setvar "OSMode" osm)
   
7.     (setq *ERROR* old-err)
   
8.     )
   
9.   (setq        new-err        *ERROR*
   
10.         *ERROR*        old-err)
    
11.   (setq en (car (entsel "\n选择需标注的线：")))
    
12.   (setq osm (getvar "OSMode"))
    
13.   (setvar "OSMode" 544)
    
14.   (setq enobj (vlax-ename->vla-object en))
    
15. 
    
16.   (setq p1 (getpoint "\n选择第一点："))
    
17.   (while (not (vlax-curve-getDistAtPoint enobj p1))
    
18.     (setq p1 (getpoint "\n第一点不在线上，重新选择第一点："))
    
19.     )
    
20.   (setq dist1 (vlax-curve-getDistAtPoint enobj p1))
    
21. 
    
22.   (setq p2 (getpoint "\n选择第二点："))
    
23.   (while (not (vlax-curve-getDistAtPoint enobj p2))
    
24.     (setq p2 (getpoint "\n第二点不在线上，重新选择第二点："))
    
25.     )
    
26.   (setq dist2 (vlax-curve-getDistAtPoint enobj p2))
    
27.   (setq dist (rtos (abs (- dist1 dist2))))
    
28.   (command "_dimlinear" p1 p2 pause)
    
29.   (setq dim (entlast))
    
30.   (setq end (entget dim))
    
31.   (setq end (subst (cons 1 dist) (assoc 1 end) end))
    
32.   (entmod end)
    
33.   (setvar "OSMode" osm)
    
34.   (setq *ERROR* old-err)
    
35.   (princ)
    
36.   )  

<br />   (defun c:hcbz  (/ DIM DIST DIST1 DIST2 EN END ENOBJ OSM P1 P2)<br />   (vl-load-com)<br />   (defun new-err  (s)<br />     (setvar "OSMode" osm)<br />     (setq *ERROR* old-err)<br />     )<br />   (setq        new-err        *ERROR*<br />         *ERROR*        old-err)<br />   (setq en (car (entsel "\n选择需标注的线：")))<br />   (setq osm (getvar "OSMode"))<br />   (setvar "OSMode" 544)<br />   (setq enobj (vlax-ename->vla-object en))<br /> <br />   (setq p1 (getpoint "\n选择第一点："))<br />   (while (not (vlax-curve-getDistAtPoint enobj p1))<br />     (setq p1 (getpoint "\n第一点不在线上，重新选择第一点："))<br />     )<br />   (setq dist1 (vlax-curve-getDistAtPoint enobj p1))<br /> <br />   (setq p2 (getpoint "\n选择第二点："))<br />   (while (not (vlax-curve-getDistAtPoint enobj p2))<br />     (setq p2 (getpoint "\n第二点不在线上，重新选择第二点："))<br />     )<br />   (setq dist2 (vlax-curve-getDistAtPoint enobj p2))<br />   (setq dist (rtos (abs (- dist1 dist2))))<br />   (command "_dimlinear" p1 p2 pause)<br />   (setq dim (entlast))<br />   (setq end (entget dim))<br />   (setq end (subst (cons 1 dist) (assoc 1 end) end))<br />   (entmod end)<br />   (setvar "OSMode" osm)<br />   (setq *ERROR* old-err)<br />   (princ)<br />   )