动态倒角,框选倒角

GNJLISP

luyu9635的动态倒角,框选倒角 ，langjs修改 ，可用一次后命令结束，怎么改为重复使用？

自贡黄明儒

GNJLISP 发表于 2016-9-29 13:42
谢谢你的回复，你这个也很好，可以框选或点选后直接相连吗？就不用再一次确认了，感觉我发那个很好用，就 ...

1. (defun c:fdt (/ P P1 P11 P12 P2 P21 P22 SS)
   
2.   (vl-load-com)
   
3.   (setvar "filletrad" 0)
   
4.   (setvar "cmdecho" 0)
   
5.   (prompt "\n请选择对象:")
   
6.   (cond
   
7.     ((and
   
8.        (setq ss (ssget '((0 . "LINE"))))
   
9.        (= (sslength ss) 2)
   
10.      )
    
11.      (setq p11 (vlax-curve-getStartPoint (ssname ss 0)))
    
12.      (setq p21 (vlax-curve-getStartPoint (ssname ss 1)))
    
13.      (setq p12 (vlax-curve-getEndPoint (ssname ss 0)))
    
14.      (setq p22 (vlax-curve-getEndPoint (ssname ss 1)))
    
15.      (setq p (inters p11 p12 p21 p22 nil))
    
16.      (cond
    
17.        ((> (distance p11 p) (distance p12 p)) (setq p1 p12))
    
18.        (T (setq p1 p11))
    
19.      )
    
20.      (cond
    
21.        ((> (distance p21 p) (distance p22 p)) (setq p2 p22))
    
22.        (T (setq p2 p21))
    
23.      )
    
24.      (command ".UNDO" "BE")
    
25.      (command "_.pedit" (ssname ss 0) "Y" "")
    
26.      (command "_.fillet" (list (entlast) p1) (list (ssname ss 1) p2))
    
27.      (command ".UNDO" "E")
    
28.     )
    
29.   )
    
30.   (princ)
    
31. )

(defun c:fdt (/ P P1 P11 P12 P2 P21 P22 SS)<br />   (vl-load-com)<br />   (setvar "filletrad" 0)<br />   (setvar "cmdecho" 0)<br />   (prompt "\n请选择对象:")<br />   (cond<br />     ((and<br />        (setq ss (ssget '((0 . "LINE"))))<br />        (= (sslength ss) 2)<br />      )<br />      (setq p11 (vlax-curve-getStartPoint (ssname ss 0)))<br />      (setq p21 (vlax-curve-getStartPoint (ssname ss 1)))<br />      (setq p12 (vlax-curve-getEndPoint (ssname ss 0)))<br />      (setq p22 (vlax-curve-getEndPoint (ssname ss 1)))<br />      (setq p (inters p11 p12 p21 p22 nil))<br />      (cond<br />        ((> (distance p11 p) (distance p12 p)) (setq p1 p12))<br />        (T (setq p1 p11))<br />      )<br />      (cond<br />        ((> (distance p21 p) (distance p22 p)) (setq p2 p22))<br />        (T (setq p2 p21))<br />      )<br />      (command ".UNDO" "BE")<br />      (command "_.pedit" (ssname ss 0) "Y" "")<br />      (command "_.fillet" (list (entlast) p1) (list (ssname ss 1) p2))<br />      (command ".UNDO" "E")<br />     )<br />   )<br />   (princ)<br /> )

自贡黄明儒

1. ;;框选倒角
   
2. (defun c:fdt (/ P P1 P11 P12 P2 P21 P22 SS)
   
3.   (vl-load-com)
   
4.   ;;(setvar "filletrad" 0)
   
5. ;; (setvar "cmdecho" 0)
   
6.   (prompt "\n请选择对象:")
   
7.   (cond
   
8.     ((and
   
9.        (setq ss (ssget '((0 . "LINE"))))
   
10.        (= (sslength ss) 2)
    
11.      )
    
12.      (setq p11 (vlax-curve-getStartPoint (ssname ss 0)))
    
13.      (setq p21 (vlax-curve-getStartPoint (ssname ss 1)))
    
14.      (setq p12 (vlax-curve-getEndPoint (ssname ss 0)))
    
15.      (setq p22 (vlax-curve-getEndPoint (ssname ss 1)))
    
16.      (setq p (inters p11 p12 p21 p22 nil))
    
17.      (cond
    
18.        ((> (distance p11 p) (distance p12 p)) (setq p1 p12))
    
19.        (T (setq p1 p11))
    
20.      )
    
21.      (cond
    
22.        ((> (distance p21 p) (distance p22 p)) (setq p2 p22))
    
23.        (T (setq p2 p21))
    
24.      )
    
25.      (command ".UNDO" "BE")
    
26.      (command "fillet" (list (ssname ss 0) p1) (list (ssname ss 1) p2))
    
27.      (command ".UNDO" "E")
    
28.     )
    
29.   )
    
30.   (princ)
    
31. )

;;框选倒角<br /> (defun c:fdt (/ P P1 P11 P12 P2 P21 P22 SS)<br />   (vl-load-com)<br />   ;;(setvar "filletrad" 0)<br /> ;; (setvar "cmdecho" 0)<br />   (prompt "\n请选择对象:")<br />   (cond<br />     ((and<br />        (setq ss (ssget '((0 . "LINE"))))<br />        (= (sslength ss) 2)<br />      )<br />      (setq p11 (vlax-curve-getStartPoint (ssname ss 0)))<br />      (setq p21 (vlax-curve-getStartPoint (ssname ss 1)))<br />      (setq p12 (vlax-curve-getEndPoint (ssname ss 0)))<br />      (setq p22 (vlax-curve-getEndPoint (ssname ss 1)))<br />      (setq p (inters p11 p12 p21 p22 nil))<br />      (cond<br />        ((> (distance p11 p) (distance p12 p)) (setq p1 p12))<br />        (T (setq p1 p11))<br />      )<br />      (cond<br />        ((> (distance p21 p) (distance p22 p)) (setq p2 p22))<br />        (T (setq p2 p21))<br />      )<br />      (command ".UNDO" "BE")<br />      (command "fillet" (list (ssname ss 0) p1) (list (ssname ss 1) p2))<br />      (command ".UNDO" "E")<br />     )<br />   )<br />   (princ)<br /> )

GNJLISP

自贡黄明儒 发表于 2016-9-29 13:21

谢谢你的回复，你这个也很好，可以框选或点选后直接相连吗？就不用再一次确认了，感觉我发那个很好用，就是用一次就退出命令了，能帮我改改不？谢谢

GNJLISP

自贡黄明儒 发表于 2016-9-29 14:26

效果还是一样啊，

自贡黄明儒

GNJLISP 发表于 2016-9-29 16:41
效果还是一样啊，

那你要怎么相连？？？

GNJLISP

自贡黄明儒 发表于 2016-9-29 16:53
那你要怎么相连？？？

也就是不论点选还是框选选中两条线就自动相连了，就不用再一次确定后才相连，就像langjs大师修改后的那个，也就是我上传那个的效果再加上输入一次命令后可以使用多次，而不是相连一次后就退出该命令

自贡黄明儒

难道4楼不相连?

GNJLISP

自贡黄明儒 发表于 2016-9-29 20:16
难道4楼不相连?

4楼的不知道什么情况，效果是下图这样的，选中没有相连。

xiao88gang

自贡黄明儒 发表于 2016-9-29 14:26

大师你好，能不能帮我改一个可以倒圆角的，并且支持圆弧的，急需要这样的功能。谢谢