[求助]：倒角时如何实现窗选

chen10jing

请教，倒角时如何能实现窗选，点选是一件非常麻烦的事情，如果能实现窗选，就会快很多了，也方便很多。

taner

最初由 chen10jing 发布
[B]请教，倒角时如何能实现窗选，点选是一件非常麻烦的事情，如果能实现窗选，就会快很多了，也方便很多。 [/B]

2. 
   
3.   [FONT=courier new]
   
4. ;;;用FENCE
   
5. (defun c:ff (/ a b c d e f g h i j k z)
   
6.   
   
7.   (princ "\n一次FILLET两组非平行线. ")
   
8.   (initget 7)
   
9.   (setq a (getpoint "\n請選擇第一個FENCE的第一個點:"))
   
10.   (initget 7)
    
11.   (setq b (getpoint a "\n請選擇第一個FENCE的第二個點:"))
    
12.   (initget 7)
    
13.   (setq c (getpoint "\n請選擇第二個FENCE的第一個點:"))
    
14.   (initget 7)
    
15.   (setq d (getpoint c "\n請選擇第二個FENCE的第二個點:"))
    
16.   (setq rad (getreal "\n請輸入FILLET的半徑:"))
    
17.   (if (numberp rad)
    
18.     (command "fillet" "r" rad "")
    
19.   )
    
20.   (setq e (ssget "F" (list a b)))
    
21.   (setq f (ssget "F" (list c d)))
    
22.   (setq i (min
    
23.             (sslength e)
    
24.             (sslength f)
    
25.           )
    
26.   )
    
27.   (setq j 0)
    
28.   (while (<= j i)
    
29.     (setq g (ssname e j)
    
30.           h (ssname f j)
    
31.     )
    
32.     (command "FILLET" g h)
    
33.     (setq j (1+ j))
    
34.   )
    
35.   
    
36. )
    
37.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;;用FENCE<br /> (defun c:ff (/ a b c d e f g h i j k z)<br />   <br />   (princ "\n一次FILLET两组非平行线. ")<br />   (initget 7)<br />   (setq a (getpoint "\n請選擇第一個FENCE的第一個點:"))<br />   (initget 7)<br />   (setq b (getpoint a "\n請選擇第一個FENCE的第二個點:"))<br />   (initget 7)<br />   (setq c (getpoint "\n請選擇第二個FENCE的第一個點:"))<br />   (initget 7)<br />   (setq d (getpoint c "\n請選擇第二個FENCE的第二個點:"))<br />   (setq rad (getreal "\n請輸入FILLET的半徑:"))<br />   (if (numberp rad)<br />     (command "fillet" "r" rad "")<br />   )<br />   (setq e (ssget "F" (list a b)))<br />   (setq f (ssget "F" (list c d)))<br />   (setq i (min<br />             (sslength e)<br />             (sslength f)<br />           )<br />   )<br />   (setq j 0)<br />   (while (<= j i)<br />     (setq g (ssname e j)<br />           h (ssname f j)<br />     )<br />     (command "FILLET" g h)<br />     (setq j (1+ j))<br />   )<br />   <br /> )<br />   [/FONT]<br />

zml84

2楼代码未实现楼主的要求。
2楼代码在结构上可以改进的如下：

2. 
   
3. ;;;用FENCE
   
4. (defun C:FF (/ A B C D E F G H I J K Z)
   
5.     (princ "\n一次FILLET两组非平行线. ")
   
6.     (if        (and
   
7.             (not (initget 7))
   
8.             (setq A (getpoint "\n請選擇第一個FENCE的第一個點:"))
   
9.             (not (initget 7))
   
10.             (setq B (getpoint A "\n請選擇第一個FENCE的第二個點:"))
    
11.             (not (initget 7))
    
12.             (setq C (getpoint "\n請選擇第二個FENCE的第一個點:"))
    
13.             (not (initget 7))
    
14.             (setq D (getpoint C "\n請選擇第二個FENCE的第二個點:"))
    
15.             (setq RAD (getreal "\n請輸入FILLET的半徑:"))
    
16.         )
    
17.         (progn
    
18.             ;;设置圆角半径
    
19.             (if        (numberp RAD)
    
20.                 ;;(command "fillet" "r" RAD "")
    
21.                 (setvar "FILLETRAD" RAD)
    
22.             )
    
23.             (setq E (ssget "F" (list A B)))
    
24.             (setq F (ssget "F" (list C D)))
    
25.             (setq I (min
    
26.                         (sslength E)
    
27.                         (sslength F)
    
28.                     )
    
29.             )
    
30.             (setq J 0)
    
31.             ;;(while (<= J I)
    
32.             (repeat I
    
33.                 (setq G        (ssname E J)
    
34.                       H        (ssname F J)
    
35.                 )
    
36.                 (command "_.FILLET" G H)
    
37.                 (setq J (1+ J))
    
38.             )
    
39.         )
    
40.     )
    
41.     (progn)
    
42. )
    

<br /> ;;;用FENCE<br /> (defun C:FF (/ A B C D E F G H I J K Z)<br />     (princ "\n一次FILLET两组非平行线. ")<br />     (if        (and<br />             (not (initget 7))<br />             (setq A (getpoint "\n請選擇第一個FENCE的第一個點:"))<br />             (not (initget 7))<br />             (setq B (getpoint A "\n請選擇第一個FENCE的第二個點:"))<br />             (not (initget 7))<br />             (setq C (getpoint "\n請選擇第二個FENCE的第一個點:"))<br />             (not (initget 7))<br />             (setq D (getpoint C "\n請選擇第二個FENCE的第二個點:"))<br />             (setq RAD (getreal "\n請輸入FILLET的半徑:"))<br />         )<br />         (progn<br />             ;;设置圆角半径<br />             (if        (numberp RAD)<br />                 ;;(command "fillet" "r" RAD "")<br />                 (setvar "FILLETRAD" RAD)<br />             )<br />             (setq E (ssget "F" (list A B)))<br />             (setq F (ssget "F" (list C D)))<br />             (setq I (min<br />                         (sslength E)<br />                         (sslength F)<br />                     )<br />             )<br />             (setq J 0)<br />             ;;(while (<= J I)<br />             (repeat I<br />                 (setq G        (ssname E J)<br />                       H        (ssname F J)<br />                 )<br />                 (command "_.FILLET" G H)<br />                 (setq J (1+ J))<br />             )<br />         )<br />     )<br />     (progn)<br /> )<br />

zml84

2. 
   
3. ;;;=========================================
   
4. ;;;功能：框选 圆角
   
5. ;;;日期：zml84 于 2007-07-31
   
6. (defun C:FF (/ PT1 PT2 SS)
   
7.     (while (setq PT1 (getpoint "\n选择对象:"))
   
8.         (if (and (setq PT2 (getcorner PT1 " >>>第二点:"))
   
9.                  (setq SS (ssget "c" PT1 PT2))
   
10.                  (= (sslength SS) 2)
    
11.             )
    
12.             (command "_.fillet" (ssname SS 0) (ssname SS 1))
    
13.             (princ "\n请选择两个可以圆角的对象。")
    
14.         )
    
15.     ) ;_结束 while
    
16.     (princ)
    
17. ) ;_结束 defun
    
18. ;;;=========================================
    

<br /> ;;;=========================================<br /> ;;;功能：框选 圆角<br /> ;;;日期：zml84 于 2007-07-31<br /> (defun C:FF (/ PT1 PT2 SS)<br />     (while (setq PT1 (getpoint "\n选择对象:"))<br />         (if (and (setq PT2 (getcorner PT1 " >>>第二点:"))<br />                  (setq SS (ssget "c" PT1 PT2))<br />                  (= (sslength SS) 2)<br />             )<br />             (command "_.fillet" (ssname SS 0) (ssname SS 1))<br />             (princ "\n请选择两个可以圆角的对象。")<br />         )<br />     ) ;_结束 while<br />     (princ)<br /> ) ;_结束 defun<br /> ;;;=========================================<br />

http://www.acad.net.cn/viewthread.php?tid=284&extra=page%3D1

highflybird

建议：
不仅要能实现窗选，而且也能实现多选（一次选择多个角），对倒角和圆角都有用。也能对多段线产生此效果。
实际上CAD的倒角和圆角命令还不够方便，虽然有了M（多个）模式.

chen10jing

各位的智慧真不错，真神人也，但2、3楼主的程序不能实现一次多选，而且对半径不能保持默认值或上次输入的值，造成每次都要输入；而4楼的程序只能一次多选，不能单选。还是集大家智慧，包括5楼的建议，大家设计出一个好程序，方便大家。再次表示感谢！

zml84

一次窗选多个对象，会使欲操作的对象模糊不清的。估计这也是ACAD只提供点选的原因吧。

楼上所言“4楼的程序只能一次多选，不能单选。”，请测试后再回答。

zml84

一次窗选多个对象，会使欲操作的对象模糊不清的。估计这也是ACAD只提供点选的原因吧。

楼上所言“4楼的程序只能一次多选，不能单选。”，请测试后再回答。

chen10jing

zm184老大不要生气，不知道是不是我的cad出了问题，用这个程序时，只能二条线一起窗选才有用，如果单独选择每条线，就没有用了，好像选择不了一样。不知道问题出在哪里。请老大帮帮忙。

chen10jing

zm184老大不要生气，不知道是不是我的cad出了问题，用这个程序时，只能二条线一起窗选才有用，如果单独选择每条线，就没有用了，好像选择不了一样。不知道问题出在哪里。请老大帮帮忙。

zml84

可能我的理解有误。
你要的效果可是这样：

2. 
   
3. (defun C:FF (/ SS)
   
4.     (if        (and (setq SS (ssget))
   
5.              (= (sslength SS) 2)
   
6.         )
   
7.         (command "_.fillet" (ssname SS 0) (ssname SS 1))
   
8.     )
   
9.     (princ)
   
10. ) ;_结束 defun
    

<br /> (defun C:FF (/ SS)<br />     (if        (and (setq SS (ssget))<br />              (= (sslength SS) 2)<br />         )<br />         (command "_.fillet" (ssname SS 0) (ssname SS 1))<br />     )<br />     (princ)<br /> ) ;_结束 defun<br />

chen10jing

zml84 老大，非常感谢，我要的就是这个效果，实际上用倒角是比较少的，用的更多的是使二条不相交的线交于一点，或者是十字相交的线相互剪切，此程序实现这一功能着实完美，再次表示感谢。


zml84 老大，很高兴的使用了此程序，突然发现有一点美中不足，就是选择的时候，有时候本来是想保留这边，但结果总是把这边剪切掉，无论怎么选择总是剪切我想要保留的那一边，这是什么原因，还往老大帮帮忙。

雨箭风刀

这就是框选的缺点了.
如果没有点选,cad就按默认保留长度比较长的一边

黄河之水

很感谢zml84    大家不妨到他的博客看下，的解有好多好东东
http://zml84.blog.sohu.com/

雨箭风刀

1



[swf w=600 h=450]http://ys-c.ys168.com/?fff(框选倒角).swf_67dkiks5bs1bshikiktrml0c2bk5bs1bit0cohu15f19f02za[/swf]