如何批量倒角

米克

米克

之前下载了一个PLDJ插件 不过这个插件是收费的 用几次后  说次数已到 晕  哪位高手  给个免费长久用的批量倒角插件  非常感谢！！！！！！！！！！！！！！！一键批量倒

Lisphk

米克 发表于 2013-8-19 16:15
之前下载了一个PLDJ插件 不过这个插件是收费的 用几次后  说次数已到 晕  哪位高手  给个免费长久用的批量 ...

原来软件做的过程截取个动画贴上来啊，让高手看看，就知道怎么给你写了。

関吣

对批量倒直角有兴趣~~嘿嘿~~

newer

你用的插件，是选两次，水平的线选一次，然后在选一次垂直的线，  还是总共选一个框选住所有的线？

米克

怎么没人会啊？？这么多高手  没人会？？？

米克

期待高手~~~~~~~~~~~~~~

taner

給你個思路

2. (defun c:t021 (/ a b c d line1 line2 lst1 lst2 rad0 t021-rad)
   
3.   (p-s (list "osmode" 0 "cmdecho" 0 "filletrad" 0) t)
   
4.   (princ "\n一次FILLET两组非平行线.")
   
5.   (setq        a (upoint 3 "" "請選擇第一個FENCE的第一個點" a nil)
   
6.         b (upoint 3 "" "請選擇第一個FENCE的第二個點" b a)
   
7.         c (upoint 3 "" "請選擇第二個FENCE的第一個點" c nil)
   
8.         d (upoint 3 "" "請選擇第二個FENCE的第二個點" d c)
   
9.   )
   
10.   (setq t021-rad (vlax-ldata-get "mydict" "t021-rad"))
    
11.   (setq t021-rad (udist 5 "" "請輸入FILLET半徑" t021-rad nil))
    
12.   (vlax-ldata-put "mydict" "t021-rad" t021-rad)
    
13.   (setvar "filletrad" t021-rad)
    
14.   (setq lst1 (th-ss2elst (ssget "F" (list a b))))
    
15.   (setq lst2 (th-ss2elst (ssget "F" (list c d))))
    
16.   (setq        line1 (txt-mkline a b)
    
17.         line2 (txt-mkline c d)
    
18.   )
    
19.   (mapcar
    
20.     (function (lambda (e1 e2)
    
21.                 (vl-cmdf "FILLET"
    
22.                          (cons e1 (Th-Get-2eint e1 line1 0))
    
23.                          (cons e2 (Th-Get-2eint e2 line2 0))
    
24.                 )
    
25.               )
    
26.     )
    
27.     lst1
    
28.     lst2
    
29.   )
    
30.   (entdel line1)
    
31.   (entdel line2)
    
32.   (p-e)
    
33. )

(defun c:t021 (/ a b c d line1 line2 lst1 lst2 rad0 t021-rad)<br />   (p-s (list "osmode" 0 "cmdecho" 0 "filletrad" 0) t)<br />   (princ "\n一次FILLET两组非平行线.")<br />   (setq        a (upoint 3 "" "請選擇第一個FENCE的第一個點" a nil)<br />         b (upoint 3 "" "請選擇第一個FENCE的第二個點" b a)<br />         c (upoint 3 "" "請選擇第二個FENCE的第一個點" c nil)<br />         d (upoint 3 "" "請選擇第二個FENCE的第二個點" d c)<br />   )<br />   (setq t021-rad (vlax-ldata-get "mydict" "t021-rad"))<br />   (setq t021-rad (udist 5 "" "請輸入FILLET半徑" t021-rad nil))<br />   (vlax-ldata-put "mydict" "t021-rad" t021-rad)<br />   (setvar "filletrad" t021-rad)<br />   (setq lst1 (th-ss2elst (ssget "F" (list a b))))<br />   (setq lst2 (th-ss2elst (ssget "F" (list c d))))<br />   (setq        line1 (txt-mkline a b)<br />         line2 (txt-mkline c d)<br />   )<br />   (mapcar<br />     (function (lambda (e1 e2)<br />                 (vl-cmdf "FILLET"<br />                          (cons e1 (Th-Get-2eint e1 line1 0))<br />                          (cons e2 (Th-Get-2eint e2 line2 0))<br />                 )<br />               )<br />     )<br />     lst1<br />     lst2<br />   )<br />   (entdel line1)<br />   (entdel line2)<br />   (p-e)<br /> )

米克

taner 发表于 2013-8-22 19:43
給你個思路

你给的这个 有错误啊？能给个全的吗？？？