（更新 6.27）[测试]：多义线圆弧角度及半径标注。

eachy

说明：标注改用 API 函数，请下载 XDRX_API30511 版本。

2. 
   
3. (defun c:xdtb_dmcurad (/ $dim_arv_rad&angle e ss e1)
   
4.   (defun $dim_arv_rad&angle (e / pt cen ra p)
   
5.     (xdrx_setenttodb e)
   
6.     (setq pt  (xdrx_curve_getpoint e)
   
7.           cen (xdrx_getentdxf 10)
   
8.           ra  (xdrx_getentdxf 40)
   
9.           p   (xdrx_curve_getpointatdist
   
10.                 e
    
11.                 (/ (last (xdrx_getarea e))
    
12.                    3
    
13.                 )
    
14.               )
    
15.     )
    
16.     (xdrx_dimension_makeradial cen p (- 10))
    
17.     (xdrx_dimension_Make3PAng
    
18.       cen
    
19.       (car pt)
    
20.       (last pt)
    
21.       (polar (cadr pt)
    
22.              (angle (cadr pt) cen)
    
23.              (/ ra 3)
    
24.       )
    
25.     )
    
26.   )
    
27.   (xdrx_begin)
    
28.   (xdrx_ucson)
    
29.   (xdrx_sysvar_push "osmode")
    
30.   (setvar "osmode" 0)
    
31.   (setq e (xdrx_entsel "\n选择中线: " '((0 . "*polyline,arc"))))
    
32.   (if e
    
33.     (progn
    
34.       (xdrx_setenttodb (car e))
    
35.       (if (= (xdrx_getentdxf 0) "ARC")
    
36.          ($dim_arv_rad&angle (car e))
    
37.          (progn
    
38.            (if (xdrx_polyline_hasBulges (car e))
    
39.              (progn
    
40.                (xdrx_entity_transformedcopy (car e) (xdrx_matrix_identity))
    
41.                (c:xdrx_setmark)
    
42.                (xdrx_entity_explode (entlast))
    
43.                (setq ss (xdrx_getss))
    
44.                (xdrx_setsstodb ss 0)
    
45.                (while (setq e1 (xdrx_getentdata 0))
    
46.                  (if (= (xdrx_getentdxf 0) "ARC")
    
47.                    ($dim_arv_rad&angle e1)
    
48.                  )
    
49.                )
    
50.                (xdrx_entity_delete ss)
    
51.              )
    
52.            )
    
53.          )
    
54.       )
    
55.     )
    
56.   )
    
57.   (xdrx_sysvar_pop)
    
58.   (xdrx_ucsoff)
    
59.   (xdrx_end)
    
60.   (princ)
    
61. )

<br /> (defun c:xdtb_dmcurad (/ $dim_arv_rad&angle e ss e1)<br />   (defun $dim_arv_rad&angle (e / pt cen ra p)<br />     (xdrx_setenttodb e)<br />     (setq pt  (xdrx_curve_getpoint e)<br />           cen (xdrx_getentdxf 10)<br />           ra  (xdrx_getentdxf 40)<br />           p   (xdrx_curve_getpointatdist<br />                 e<br />                 (/ (last (xdrx_getarea e))<br />                    3<br />                 )<br />               )<br />     )<br />     (xdrx_dimension_makeradial cen p (- 10))<br />     (xdrx_dimension_Make3PAng<br />       cen<br />       (car pt)<br />       (last pt)<br />       (polar (cadr pt)<br />              (angle (cadr pt) cen)<br />              (/ ra 3)<br />       )<br />     )<br />   )<br />   (xdrx_begin)<br />   (xdrx_ucson)<br />   (xdrx_sysvar_push "osmode")<br />   (setvar "osmode" 0)<br />   (setq e (xdrx_entsel "\n选择中线: " '((0 . "*polyline,arc"))))<br />   (if e<br />     (progn<br />       (xdrx_setenttodb (car e))<br />       (if (= (xdrx_getentdxf 0) "ARC")<br />          ($dim_arv_rad&angle (car e))<br />          (progn<br />            (if (xdrx_polyline_hasBulges (car e))<br />              (progn<br />                (xdrx_entity_transformedcopy (car e) (xdrx_matrix_identity))<br />                (c:xdrx_setmark)<br />                (xdrx_entity_explode (entlast))<br />                (setq ss (xdrx_getss))<br />                (xdrx_setsstodb ss 0)<br />                (while (setq e1 (xdrx_getentdata 0))<br />                  (if (= (xdrx_getentdxf 0) "ARC")<br />                    ($dim_arv_rad&angle e1)<br />                  )<br />                )<br />                (xdrx_entity_delete ss)<br />              )<br />            )<br />          )<br />       )<br />     )<br />   )<br />   (xdrx_sysvar_pop)<br />   (xdrx_ucsoff)<br />   (xdrx_end)<br />   (princ)<br /> )

msdg

好！配合桩号标注程序，即可标出渠道、公路、或其它中线的转角和转变弯半径。
但加载后出现如下问题：
是文件名不对？

lsjjm

我不懂渠道, 公路. 对机械零件之类的, 直接标注不就行了吗? 还用的着那么复杂的程序?
请开导开导?

eachy

最初由 lsjjm 发布
[B]我不懂渠道, 公路. 对机械零件之类的, 直接标注不就行了吗? 还用的着那么复杂的程序?
请开导开导? [/B]

这个是桩号标注的一个子程序，我不能确定水利等专业是否这样标注，所以单独拿出来征询意见。这样在点取曲线后桩号、角度、半径、圆弧端点的坐标一次完成，不用一个个标注，这在水利、市政上都用的到。