API应用 等分数应用之圆弧等分标注

st788796

1. (defun c:tt (/ e n sp ep pcen radius pl pts)
   
2.   (while
   
3.     (and (setq e (car (xdrx_entsel "\nPick Arc: " '((0 . "arc")))))
   
4.          (setq n (getint "\nDivide Number: "))
   
5.     )
   
6.      (setq sp          (xdrx_curve_getstartparam e)
   
7.            ep          (xdrx_curve_getendparam e)
   
8.            pcen          (xdrx_getpropertyvalue e "Center")
   
9.            radius (+ 20 (xdrx_getpropertyvalue e "Radius")) ;_距圆弧距离
   
10.            pl          (XD::Geom:NumDiv ep sp n)
    
11.            pts          (mapcar '(lambda (x)
    
12.                              (xdrx_curve_getpointatparam e x)
    
13.                            )
    
14.                           pl
    
15.                   )
    
16.      )
    
17.      (mapcar
    
18.        '(lambda        (p)
    
19.           (xdrx_dimension_make3pang
    
20.             pcen
    
21.             (car p)
    
22.             (cadr p)
    
23.             (polar pcen (angle pcen (apply 'xdrx_line_midp p)) radius)
    
24.           )
    
25.         )
    
26.        (mapcar 'list pts (cdr pts))
    
27.      )
    
28.   )
    
29.   (princ)
    
30. )

(defun c:tt (/ e n sp ep pcen radius pl pts)<br />   (while<br />     (and (setq e (car (xdrx_entsel "\nPick Arc: " '((0 . "arc")))))<br />          (setq n (getint "\nDivide Number: "))<br />     )<br />      (setq sp          (xdrx_curve_getstartparam e)<br />            ep          (xdrx_curve_getendparam e)<br />            pcen          (xdrx_getpropertyvalue e "Center")<br />            radius (+ 20 (xdrx_getpropertyvalue e "Radius")) ;_距圆弧距离<br />            pl          (XD::Geom:NumDiv ep sp n)<br />            pts          (mapcar '(lambda (x)<br />                              (xdrx_curve_getpointatparam e x)<br />                            )<br />                           pl<br />                   )<br />      )<br />      (mapcar<br />        '(lambda        (p)<br />           (xdrx_dimension_make3pang<br />             pcen<br />             (car p)<br />             (cadr p)<br />             (polar pcen (angle pcen (apply 'xdrx_line_midp p)) radius)<br />           )<br />         )<br />        (mapcar 'list pts (cdr pts))<br />      )<br />   )<br />   (princ)<br /> )

守仁格竹GM

最想看的  如何处理弧长标注的 出来，command的和直接修改的感觉都不满意

Free-Lancer

守仁格竹GM 发表于 2013-11-30 20:18
最想看的  如何处理弧长标注的 出来，command的和直接修改的感觉都不满意

个人理解，AutoCAD 中有基本图元，有些高级组合图元是在基本图元上加了反应器，反应器的实质是关系运算，将运算结果反应到实体上，在ARX的Dimension下是没有这个弧长标注的，从 DXF 也可以看到，角度等是正常组码，唯独弧长标注下多了一个扩展词典，再往下可以看到这个词典是一个 DIMASSOC 既反应器，说明弧长标注不是Autodesk单独定义的