【动态】绘制带倒角的多段线

newer

1. (defun c:tt ()
   
2.   (defun _callback (dynpt)
   
3.     (if        (and (> (length pts) 0)
   
4.              (setq temp (append pts (list dynpt)))
   
5.              (setq g (xdge::constructor "kcompositecrv3d" temp))
   
6.              (setq data (xdrx_polyline_set_radius g radius t))
   
7.              (xdge::free g)
   
8.         )
   
9.       (xdrx_setpropertyvalue pl "set" (apply 'append data))
   
10.     )
    
11.   )
    
12.   (xdrx_begin)
    
13.   (if (setq radius (getreal "\n倒角半径:"))
    
14.     (progn (setq pts nil
    
15.                  pl  (xdrx_polyline_make)
    
16.            )
    
17.            (xdrx_setpropertyvalue pl "color" 1)
    
18.            (xdrx_pointmonitor "_callback")
    
19.            (while (setq        pt (getpoint (if (= (length pts) 0)
    
20.                                        "\n多段线第一点<退出>:"
    
21.                                        "\n下一点[半径(R)]<退出>:"
    
22.                                      )
    
23.                            )
    
24.                   )
    
25.              (setq data1 data
    
26.                    pts         (append pts (list pt))
    
27.              )
    
28.            )
    
29.            (xdrx_setpropertyvalue pl "set" data1)
    
30.     )
    
31.   )
    
32.   (xdrx_pointmonitor)
    
33.   (xdrx_end)
    
34.   (princ)
    
35. )
    
36. 
    

(defun c:tt ()<br />   (defun _callback (dynpt)<br />     (if        (and (> (length pts) 0)<br />              (setq temp (append pts (list dynpt)))<br />              (setq g (xdge::constructor "kcompositecrv3d" temp))<br />              (setq data (xdrx_polyline_set_radius g radius t))<br />              (xdge::free g)<br />         )<br />       (xdrx_setpropertyvalue pl "set" (apply 'append data))<br />     )<br />   )<br />   (xdrx_begin)<br />   (if (setq radius (getreal "\n倒角半径:"))<br />     (progn (setq pts nil<br />                  pl  (xdrx_polyline_make)<br />            )<br />            (xdrx_setpropertyvalue pl "color" 1)<br />            (xdrx_pointmonitor "_callback")<br />            (while (setq        pt (getpoint (if (= (length pts) 0)<br />                                        "\n多段线第一点<退出>:"<br />                                        "\n下一点[半径(R)]<退出>:"<br />                                      )<br />                            )<br />                   )<br />              (setq data1 data<br />                    pts         (append pts (list pt))<br />              )<br />            )<br />            (xdrx_setpropertyvalue pl "set" data1)<br />     )<br />   )<br />   (xdrx_pointmonitor)<br />   (xdrx_end)<br />   (princ)<br /> )<br /> <br />

/db_自贡黄明儒_

这个强，vl就只有删除重画了。

jwj0805

牛，可惜你里面的函数，我在论坛文档中都没找到用法

marting

jwj0805 发表于 2018-1-28 17:01

下载 XDRX API， 里面有函数手册。