批量“增量”倒圆角（函数 xd::polyline:setradius应用）

Lispboy

xd::polyline:setradius 函数见 http://bbs.xdcad.net/thread-711525-1-1.html

1、下面代码按指定半径批量设置选择的多段线的所有角，输入0，删除圆角。

1. (defun c:tt ()
   
2.   (if (and (setq r (getreal "\n输入圆角半径<退出>:"))
   
3.            (xdrx_initssget "\n选择设置圆角的多段线<退出>:")
   
4.            (setq ss (xdrx_ssget '((0 . "LWPOLYLINE"))))
   
5.       )
   
6.     (progn
   
7.       (mapcar '(lambda (x)
   
8.                  (setq verts (xdrx_getpropertyvalue x "vertices"))
   
9.                  (mapcar '(lambda (y)
   
10.                             (setq inx (xd::polyline:nearindex x y))
    
11.                             (xd::polyline:setradius x inx r)
    
12.                           )
    
13.                          verts
    
14.                  )
    
15.                )
    
16.               (xdrx_pickset->ents ss)
    
17.       )
    
18.     )
    
19.   )
    
20.   (princ)
    
21. )

(defun c:tt ()<br />   (if (and (setq r (getreal "\n输入圆角半径<退出>:"))<br />            (xdrx_initssget "\n选择设置圆角的多段线<退出>:")<br />            (setq ss (xdrx_ssget '((0 . "LWPOLYLINE"))))<br />       )<br />     (progn<br />       (mapcar '(lambda (x)<br />                  (setq verts (xdrx_getpropertyvalue x "vertices"))<br />                  (mapcar '(lambda (y)<br />                             (setq inx (xd::polyline:nearindex x y))<br />                             (xd::polyline:setradius x inx r)<br />                           )<br />                          verts<br />                  )<br />                )<br />               (xdrx_pickset->ents ss)<br />       )<br />     )<br />   )<br />   (princ)<br /> )

2、下面代码按 增量 批量设置选择的多段线

1. (defun c:tt ()
   
2.   (if (and (setq zl (getreal "\n输入增量<退出>:"))
   
3.            (xdrx_initssget "\n选择设置圆角的多段线<退出>:")
   
4.            (setq ss (xdrx_ssget '((0 . "LWPOLYLINE"))))
   
5.       )
   
6.     (progn
   
7.       (mapcar
   
8.         '(lambda (x)
   
9.            (setq arcs (xd::polyline:IndexAtArc x))
   
10.            (mapcar '(lambda (y)
    
11.                       (setq r (nth 2 (xdrx_polyline_getarcsegat x y)))
    
12.                       (xd::polyline:setradius x y (+ zl r))
    
13.                     )
    
14.                    arcs
    
15.            )
    
16.          )
    
17.         (xdrx_pickset->ents ss)
    
18.       )
    
19.     )
    
20.   )
    
21.   (princ)
    
22. )
    
23. 
    

(defun c:tt ()<br />   (if (and (setq zl (getreal "\n输入增量<退出>:"))<br />            (xdrx_initssget "\n选择设置圆角的多段线<退出>:")<br />            (setq ss (xdrx_ssget '((0 . "LWPOLYLINE"))))<br />       )<br />     (progn<br />       (mapcar<br />         '(lambda (x)<br />            (setq arcs (xd::polyline:IndexAtArc x))<br />            (mapcar '(lambda (y)<br />                       (setq r (nth 2 (xdrx_polyline_getarcsegat x y)))<br />                       (xd::polyline:setradius x y (+ zl r))<br />                     )<br />                    arcs<br />            )<br />          )<br />         (xdrx_pickset->ents ss)<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

shqvc

这两个是不是可以弄成一个呀  我感觉功能差不多呢

aoway

没有倒角。功能没实现。求解！！

marting

aoway 发表于 2019-5-8 11:16
没有倒角。功能没实现。求解！！

你得把遇到的描述清楚啊，
这个代码要装XDRX API

aoway

marting 发表于 2019-5-8 11:51
你得把遇到的描述清楚啊，
这个代码要装XDRX API

首先表示感谢，在百忙之中回复。
我这儿的问题是：
单位的电脑是日文系统，XDRX API不能安装。
笨办法：只能先把地域和显示语言改到中文，安装之后，再回到日文系统。