怎么对多段线倒角

wyl219

目标是分两次栏选多条直线或多段线，之后依次倒园角
有两个问题：
1.只能用与直线，多段线无效且没提醒。
2.原想的是如果两次选择线段数不同，为了避免错误，取数量少的为准，但是函数（min (sslength ss1) (sslength ss2)）会提示参数错误。
谢谢

2. (defun c:tt()
   
3.         (setq f (getint "输入倒角半径"))
   
4.         (setvar "filletrad" f)
   
5.         (setq
   
6.                 p1 (getpoint "选择第一点")
   
7.                 p2 (getpoint p1 "选择第二点")
   
8.                 p3 (getpoint "选择第一点")
   
9.                 p4 (getpoint p3 "选择第二点")
   
10.   )
    
11.        
    
12.         (setq
    
13.                 ss1 (ssget "_F" (list p1 p2) '((0 . "*LINE")))
    
14.                 ss2 (ssget "_F" (list p3 p4) '((0 . "*LINE")))
    
15.         )
    
16.         (setq i1 (sslength ss1))
    
17.         (setq i2 (sslength ss2))
    
18.         (setq i (min i1 i2));;直接把(sslength ss1)嵌入到min里面会提示参数错误
    
19.         (repeat i
    
20.                 (setq i (- i 1))
    
21.                 (vl-cmdf "FILLET"
    
22.                         (cons (ssname ss1 i) (list p1))
    
23.                         (cons (ssname ss2 i) (list p2))
    
24.                 )
    
25.         )
    
26. )

(defun c:tt()<br />         (setq f (getint "输入倒角半径"))<br />         (setvar "filletrad" f)<br />         (setq<br />                 p1 (getpoint "选择第一点")<br />                 p2 (getpoint p1 "选择第二点")<br />                 p3 (getpoint "选择第一点")<br />                 p4 (getpoint p3 "选择第二点")<br />   )<br />         <br />         (setq<br />                 ss1 (ssget "_F" (list p1 p2) '((0 . "*LINE")))<br />                 ss2 (ssget "_F" (list p3 p4) '((0 . "*LINE")))<br />         )<br />         (setq i1 (sslength ss1))<br />         (setq i2 (sslength ss2))<br />         (setq i (min i1 i2));;直接把(sslength ss1)嵌入到min里面会提示参数错误<br />         (repeat i<br />                 (setq i (- i 1))<br />                 (vl-cmdf "FILLET"<br />                         (cons (ssname ss1 i) (list p1))<br />                         (cons (ssname ss2 i) (list p2))<br />                 )<br />         )<br /> )

Lisphk

好的编程习惯就是数据要判断是否获取，然后再进行操作
所以你用的SS1,SS2最好判断下，再用）
(if (and ss1 ss2)
  (progn
     .....
  )
)

kqqt6236

论坛有好多多段线倒角的实例，搜索一下。

sicky111

多段线不是可以直接倒角吗