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

zml84

作为趣味练习，试一试下面这个如何？

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

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

chen10jing

能否实现象点选一样，选那边留哪边，而不乱呢？就是把点选变成框选。

zml84

这就要从两个函数的返回值说起了。
<br>
(entsel)  返回一个双元表，格式是 （ 对象图元名     点取的坐标 ）
(ssget)   返回的是一个选择集。
<br>
想要框选还要点位，方法是使用GETPOINT来模拟ssget。
把我在四楼的代码改造后应该可以实现。

chen10jing

zm184老大，不好意思啊，我们只会用，对程序不懂，还是请老大辛劳一下，把程序改造一下，万分感谢。16楼的那个改进版效果不大呀，还是不能保留选择的那一边，还往老大改进一下，造福社会要。

zml84

2. 
   
3. ;;;=========================================
   
4. ;;功能：圆角 框选
   
5. ;;日期：zml84 于 2007-08-01 22:00
   
6. (defun C:FF (/ TEST PT1 PT2 A B)
   
7.     ;;选择对象1
   
8.     (setq TEST t)
   
9.     (while TEST
   
10.         (if (setq PT1 (getpoint "\n选择对象:"))
    
11.             (if        (and
    
12.                     (setq PT2 (getcorner PT1 " >>>第二点:"))
    
13.                     (setq SS (ssget "c" PT1 PT2))
    
14.                 )
    
15.                 (progn
    
16.                     (setq A    (list (ssname SS 0) PT1)
    
17.                           TEST NIL
    
18.                     )
    
19.                     (if        (>= (sslength SS) 2)
    
20.                         (setq B (list (ssname SS 1) PT2))
    
21.                     )
    
22.                 )
    
23.             )
    
24.             (setq TEST NIL)
    
25.         )
    
26.     )
    
27.     ;;选择对象2
    
28.     (setq TEST t)
    
29.     (if        (and A (= B NIL))
    
30.         (while TEST
    
31.             (if        (setq PT1 (getpoint "\n选择对象:"))
    
32.                 (if (and
    
33.                         (setq PT2 (getcorner PT1 " >>>第二点:"))
    
34.                         (setq SS (ssget "c" PT1 PT2))
    
35.                     )
    
36.                     (setq B    (list (ssname SS 0) PT1)
    
37.                           TEST NIL
    
38.                     )
    
39.                 )
    
40.                 (setq TEST NIL)
    
41.             )
    
42.         )
    
43.     )
    
44.     ;;圆角操作
    
45.     (if        (and A B)
    
46.         (command "_.fillet" A B)
    
47.     )
    
48.     (princ)
    
49. ) ;_结束 defun
    
50. ;;;=========================================
    

<br /> ;;;=========================================<br /> ;;功能：圆角 框选<br /> ;;日期：zml84 于 2007-08-01 22:00<br /> (defun C:FF (/ TEST PT1 PT2 A B)<br />     ;;选择对象1<br />     (setq TEST t)<br />     (while TEST<br />         (if (setq PT1 (getpoint "\n选择对象:"))<br />             (if        (and<br />                     (setq PT2 (getcorner PT1 " >>>第二点:"))<br />                     (setq SS (ssget "c" PT1 PT2))<br />                 )<br />                 (progn<br />                     (setq A    (list (ssname SS 0) PT1)<br />                           TEST NIL<br />                     )<br />                     (if        (>= (sslength SS) 2)<br />                         (setq B (list (ssname SS 1) PT2))<br />                     )<br />                 )<br />             )<br />             (setq TEST NIL)<br />         )<br />     )<br />     ;;选择对象2<br />     (setq TEST t)<br />     (if        (and A (= B NIL))<br />         (while TEST<br />             (if        (setq PT1 (getpoint "\n选择对象:"))<br />                 (if (and<br />                         (setq PT2 (getcorner PT1 " >>>第二点:"))<br />                         (setq SS (ssget "c" PT1 PT2))<br />                     )<br />                     (setq B    (list (ssname SS 0) PT1)<br />                           TEST NIL<br />                     )<br />                 )<br />                 (setq TEST NIL)<br />             )<br />         )<br />     )<br />     ;;圆角操作<br />     (if        (and A B)<br />         (command "_.fillet" A B)<br />     )<br />     (princ)<br /> ) ;_结束 defun<br /> ;;;=========================================<br />

更多讨论，请参见：http://www.acad.net.cn/viewthread.php?tid=284&extra=page%3D1

雨箭风刀

[iframe h=600 w=100%]http://p4.xdcad.net/forum/showthread.php?s=&threadid=638784[/iframe]

chen10jing

zm184的改进程序已经很完美了，用起来非常舒服，有此程序，此生足也。还有三条意见，不知该提不该提：
1、可否像拷贝一样，实现继可点选，又可窗选，如果其中一条线较短，框选是不好选的；
2、可否让它在选择时，像其它命令一样，选中后变成虚线，以显示此线已被选中，由于没有变成虚线，不知选中否，结果其实已经选中。
3、单条线分别选择时，不会出错了，但双线同时选择时，有时会出错，把想留下的线剪切掉了，此问题好像很难解决。
如果实现了这三点，就非常非常完美了。
请老大不要见怪，如果实现这二点有难度，就不勉为其难了。感谢中。

taner

2. 
   
3.   [FONT=courier new]
   
4. (defun c:test (/ a b c d e f fence1 fence2 g h i j lst1 lst2 rad)
   
5.   (tt-begin '(("cmdecho" 0) ("osmode" 0)))
   
6.   (princ "\n一次FILLET两组非平行线. 版权所有：人无完人,蛋有完蛋.")
   
7.   (setq a (upoint 1 "" "\n\t請選擇第一個FENCE的第一個點" a nil)
   
8.         b (upoint 1 "" "\n\t請選擇第一個FENCE的第二個點" b a)
   
9.         c (upoint 1 "" "\n\t請選擇第二個FENCE的第一個點" c nil)
   
10.         d (upoint 1 "" "\n\t請選擇第二個FENCE的第二個點" d c)
    
11.         rad (ureal 4 "" "\n\t請輸入FILLET的半徑" rad)
    
12.   )
    
13.   (if (numberp rad)
    
14.     (setvar "FILLETRAD" rad)
    
15.   )
    
16.   (if (and
    
17.         (setq e (ssget "F" (list a b)))
    
18.         (setq f (ssget "F" (list c d)))
    
19.       )
    
20.     (progn
    
21.       (setq fence1 (txt-mkline a b)
    
22.             fence2 (txt-mkline c d)
    
23.             lst1 (txt-obj-int-ss fence1 e)
    
24.             lst2 (txt-obj-int-ss fence2 f)
    
25.       )
    
26.       (command "erase" fence1 fence2 "")
    
27.       (setq i (min
    
28.                 (sslength e)
    
29.                 (sslength f)
    
30.               )
    
31.       )
    
32.       (setq j 0)
    
33.       (while (<= j i)
    
34.         (setq g (list (ssname e j) (nth j lst1))
    
35.               h (list (ssname f j) (nth j lst2))
    
36.         )
    
37.         (command "FILLET" g h)
    
38.         (setq j (1+ j))
    
39.       )
    
40.     )
    
41.   )
    
42.   (tt-end)
    
43. )
    
44. 
    
45.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:test (/ a b c d e f fence1 fence2 g h i j lst1 lst2 rad)<br />   (tt-begin '(("cmdecho" 0) ("osmode" 0)))<br />   (princ "\n一次FILLET两组非平行线. 版权所有：人无完人,蛋有完蛋.")<br />   (setq a (upoint 1 "" "\n\t請選擇第一個FENCE的第一個點" a nil)<br />         b (upoint 1 "" "\n\t請選擇第一個FENCE的第二個點" b a)<br />         c (upoint 1 "" "\n\t請選擇第二個FENCE的第一個點" c nil)<br />         d (upoint 1 "" "\n\t請選擇第二個FENCE的第二個點" d c)<br />         rad (ureal 4 "" "\n\t請輸入FILLET的半徑" rad)<br />   )<br />   (if (numberp rad)<br />     (setvar "FILLETRAD" rad)<br />   )<br />   (if (and<br />         (setq e (ssget "F" (list a b)))<br />         (setq f (ssget "F" (list c d)))<br />       )<br />     (progn<br />       (setq fence1 (txt-mkline a b)<br />             fence2 (txt-mkline c d)<br />             lst1 (txt-obj-int-ss fence1 e)<br />             lst2 (txt-obj-int-ss fence2 f)<br />       )<br />       (command "erase" fence1 fence2 "")<br />       (setq i (min<br />                 (sslength e)<br />                 (sslength f)<br />               )<br />       )<br />       (setq j 0)<br />       (while (<= j i)<br />         (setq g (list (ssname e j) (nth j lst1))<br />               h (list (ssname f j) (nth j lst2))<br />         )<br />         (command "FILLET" g h)<br />         (setq j (1+ j))<br />       )<br />     )<br />   )<br />   (tt-end)<br /> )<br /> <br />   [/FONT]<br />

chen10jing

错误: no function definition: TT-BEGIN
如何处理，老大

zml84

楼上的代码中，好多都是自定义的函数啊！
楼主的问题，请见：
http://www.acad.net.cn/viewthrea ... tra=page%3D1#pid944

yzr20020626

zml84 改的支持虚显不错，但是最好有动态显示并取消捕作，支持倒多个就象那F的M选项,不用倒一个就退出.

chen10jing

程序已经越改越好用了，各人有各人的要求，满足所有人的需求，那这个程序就太完美了。

chen10jing

程序已经越改越好用了，各人有各人的要求，满足所有人的需求，那这个程序就太完美了。

zml84

应 26 楼的要求，代码改进如下：
1、在执行时，暂时关闭对象捕捉设置；
2、实现连续执行；
3、修正了一次框选两个对象时，“把想留下的线剪切掉了”的错误。
<br>
代码位置（11楼）：
http://www.acad.net.cn/viewthrea ... tra=page%3D1#pid952

zml84

应 26 楼的要求，代码改进如下：
1、在执行时，暂时关闭对象捕捉设置；
2、实现连续执行；
3、修正了一次框选两个对象时，“把想留下的线剪切掉了”的错误。
<br>
代码位置（11楼）：
http://www.acad.net.cn/viewthrea ... tra=page%3D1#pid952