利用API画个面包圈

newer

今天看到API里面提供了面包圈的MAKE函数，如果用API现有的函数组合怎么写呢，抽空写了个小工具，主要是多段线函数的应用。

1. (defun c:tt()
   
2.    (if (and (setq r1 (getreal "\n内径<退出>:"))
   
3.             (setq r2 (getreal "\n外径<退出>:"))
   
4.        )
   
5.      (progn
   
6.        (while (setq pt (getpoint "\n插入点<退出>:"))
   
7.           (setq pt (trans pt 1 0)
   
8.                 v (list (/ (+ r1 r2) 4.0) 0.0 0.0) ;;面包圈多段线顶点距离圆心的距离
   
9.                 p2 (mapcar '+ pt v);;第二顶点
   
10.                 p1 (mapcar '- pt v);;第一顶点
    
11.           )
    
12.           (setq e (xdrx_polyline_make p1 p2 t));;生成2点封闭多段线
    
13.           (xdrx_polyline_setbulgeAt e 0 1.0 1 1.0);;第一点凸度，第二点凸度设置为1（生成POLY圆）
    
14.           (xdrx_polyline_setConstantWidth e (/ (- r2 r1) 2.0));;根据内径外径算出POLYLINE的宽度
    
15.        )
    
16.      )
    
17.    )
    
18.    (princ)
    
19. )
    
20. 
    

(defun c:tt()<br />    (if (and (setq r1 (getreal "\n内径<退出>:"))<br />             (setq r2 (getreal "\n外径<退出>:"))<br />        )<br />      (progn<br />        (while (setq pt (getpoint "\n插入点<退出>:"))<br />           (setq pt (trans pt 1 0)<br />                 v (list (/ (+ r1 r2) 4.0) 0.0 0.0) ;;面包圈多段线顶点距离圆心的距离<br />                 p2 (mapcar '+ pt v);;第二顶点<br />                 p1 (mapcar '- pt v);;第一顶点<br />           )<br />           (setq e (xdrx_polyline_make p1 p2 t));;生成2点封闭多段线<br />           (xdrx_polyline_setbulgeAt e 0 1.0 1 1.0);;第一点凸度，第二点凸度设置为1（生成POLY圆）<br />           (xdrx_polyline_setConstantWidth e (/ (- r2 r1) 2.0));;根据内径外径算出POLYLINE的宽度<br />        )<br />      )<br />    )<br />    (princ)<br /> )<br /> <br />

Free-Lancer

以前用vla 时直接生成闭合直线段再设凸度，闭合也是一语句，polyline_make可以直接生成闭合线，省句setclosed

XDSoft

Free-Lancer 发表于 2013-8-27 06:16
以前用vla 时直接生成闭合直线段再设凸度，闭合也是一语句，polyline_make可以直接生成闭合线，省句setclos ...

说的对，帖子编辑了，去掉了最后封闭的代码，改到MAKE时候封闭了。