[求助]：如何生成"LWPOLYLINE"类型圆弧的DXF组码

light_dream

有一个问题想请教：调用nentsel函数选择实体后，用函数entget 生成DXF形式的list关连表。但当实体为"LWPOLYLINE"类型的圆弧时，关连表中不会有关于"ARC"的数据，如：半径、圆心等。怎样能生成这部分数据？！谢谢！

eachy

最初由 light_dream 发布
[B]有一个问题想请教：调用nentsel函数选择实体后，用函数entget 生成DXF形式的list关连表。但当实体为"LWPOLYLINE"类型的圆弧时，关连表中不会有关于"ARC"的数据，如：半径、圆心等。怎样能生成这部分数据？！谢谢！ [/B]

半径和圆心要靠计算吧。

黄卫文

说明:pt1是圆弧端的第一个点，pt2是圆弧端的另一个点，gxb是弓弦比，通过组码42得到，再用下列函数就能求出来了。

2. (defun hww_pl_cen-r (pt1 pt2 gxb / pl-r ptcen cen_r ang)
   
3.   (setq        pl_r  (/ (+ (expt (* (distance pt1 pt2) 0.5) 2.0)
   
4.                     (expt (* gxb (distance pt1 pt2) 0.5) 2.0)
   
5.                  )
   
6.                  (* gxb (distance pt1 pt2))
   
7.               )
   
8.         ptcen (polar (polar pt1
   
9.                             (angle pt1 pt2)
   
10.                             (* (distance pt1 pt2) 0.5)
    
11.                      )
    
12.                      (+        (angle pt1 pt2)
    
13.                         (* 0.5 pi)
    
14.                      )
    
15.                      (- pl_r (* gxb (distance pt1 pt2) 0.5))
    
16.               )
    
17. ;;;pl_r  (distance ptcen pt1)
    
18. ;;;        cen_r (list ptcen pl_r)
    
19.   )
    
20. )

(defun hww_pl_cen-r (pt1 pt2 gxb / pl-r ptcen cen_r ang)<br />   (setq        pl_r  (/ (+ (expt (* (distance pt1 pt2) 0.5) 2.0)<br />                     (expt (* gxb (distance pt1 pt2) 0.5) 2.0)<br />                  )<br />                  (* gxb (distance pt1 pt2))<br />               )<br />         ptcen (polar (polar pt1<br />                             (angle pt1 pt2)<br />                             (* (distance pt1 pt2) 0.5)<br />                      )<br />                      (+        (angle pt1 pt2)<br />                         (* 0.5 pi)<br />                      )<br />                      (- pl_r (* gxb (distance pt1 pt2) 0.5))<br />               )<br /> ;;;pl_r  (distance ptcen pt1)<br /> ;;;        cen_r (list ptcen pl_r)<br />   )<br /> )

eachy

还可以用两个点的SecondDeriv

1. 
   
2. (vlax-curve-getsecondderiv
   
3.     (vlax-ename->vla-object e)
   
4.     (vlax-curve-getparamatpoint (vlax-ename->vla-object e) pt)
   
5.   )

复制代码

然后 ptcen (inters p1 p1_secondderiv p2 p2_secondderiv nil) 就是圆心，
半径为 (distance p1 ptcen)