三点画圆二个点相切，分别把二个点的值给AA和BB！代码如下

xtdwynij

扣扣上不了啊！说白了就是倒个圆角啊！

st788796

xtdwynij 发表于 2013-11-20 19:46
扣扣上不了啊！说白了就是倒个圆角啊！

画完用xdrx_curve_intersectbreak，然后删除

xtdwynij

xdrx_curve_intersectbreak
倒圆角么？这我不知道哦！ST788796兄还请指点一下！

newer

xtdwynij 发表于 2013-11-20 19:46
扣扣上不了啊！说白了就是倒个圆角啊！

截图不一定非用QQ吧，搜狗输入法本身就带了。

xtdwynij

Z版指点过我。说是先画圆出来。然后再找半径圆心。 根据CP什么的我不记得了取得圆的切点。只要取得切点就能够选择图元又知道半径。就能倒圆角了。！

st788796

xtdwynij 发表于 2013-11-20 20:27
Z版指点过我。说是先画圆出来。然后再找半径圆心。 根据CP什么的我不记得了取得圆的切点。只要取得切点就能 ...

刚试了下，一、二是相切，第三个点因为没有实体不能用 tan  实际描出来的也是近似

xtdwynij

对的。要找切点貌似初三的知识就有。可是学的都还给老师了！有空找找旧书吧！我给的那个代码一二是能相切。但是不能给值！

st788796

xtdwynij 发表于 2013-11-21 16:01
对的。要找切点貌似初三的知识就有。可是学的都还给老师了！有空找找旧书吧！我给的那个代码一二是能相切。 ...

做为描图，给两个切点如果第三个不是切点，前面两个也就费了，实质是三点圆，都不切

xyp1964

2. (command "circle" "3p" "tan" pause "tan" pause pause)

(command "circle" "3p" "tan" pause "tan" pause pause)

xtdwynij

xyp1964 发表于 2013-11-21 21:00

院长也来了。院长你好！我也是这样写的。但我想给第一和第二个切点给值。然后以这二个点选择图元。再剪了多余的线。现在就是这二个切点的值给不了！院长几时有空再出手让后辈学习学习？

xtdwynij

st788796 发表于 2013-11-21 19:11
做为描图，给两个切点如果第三个不是切点，前面两个也就费了，实质是三点圆，都不切

如图。和二个图元相切，第三个点不捕捉任何点。以扫描出来的图为准。因为有大量的这样的图。所以想做一个倒圆角出来。这样就能少了剪切一步了。省时间！

st788796

xtdwynij 发表于 2013-11-22 14:00
如图。和二个图元相切，第三个点不捕捉任何点。以扫描出来的图为准。因为有大量的这样的图。所以想做一个 ...

应该可以通过三点计算一个倒角半径
先用 tan tan pt 画出圆，获取半径，重新fillet，删除圆

st788796

xtdwynij 发表于 2013-11-20 20:27
Z版指点过我。说是先画圆出来。然后再找半径圆心。 根据CP什么的我不记得了取得圆的切点。只要取得切点就能 ...

1. (defun c:tt (/ e1 e2 p en r c)
   
2.   (setq en (entlast))
   
3.   (if (and (setq e1 (entsel "\nFirst Curve: "))
   
4.            (setq e2 (entsel "\nSecond Curve: "))
   
5.            (setq p (getpoint "\nPoint: "))
   
6.       )
   
7.     (progn
   
8.       (vl-cmdf ".circle" "3p" "Tan" (cadr e1) "tan" (cadr e2) p)
   
9.       (if (not (equal en (setq c (entlast))))
   
10.         (progn
    
11.           (setq r (cdr (assoc 40 (entget c))))
    
12.           (entdel c)
    
13.           (setvar "filletrad" r)
    
14.           (vl-cmdf "fillet"  e1 e2)
    
15.         )
    
16.       )
    
17.     )
    
18.   )
    
19.   (princ)
    
20. )
    

(defun c:tt (/ e1 e2 p en r c)<br />   (setq en (entlast))<br />   (if (and (setq e1 (entsel "\nFirst Curve: "))<br />            (setq e2 (entsel "\nSecond Curve: "))<br />            (setq p (getpoint "\nPoint: "))<br />       )<br />     (progn<br />       (vl-cmdf ".circle" "3p" "Tan" (cadr e1) "tan" (cadr e2) p)<br />       (if (not (equal en (setq c (entlast))))<br />         (progn<br />           (setq r (cdr (assoc 40 (entget c))))<br />           (entdel c)<br />           (setvar "filletrad" r)<br />           (vl-cmdf "fillet"  e1 e2)<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

xyp1964

2. (defun c:tt ()
   
3.   (setq        e1 (entsel "\n选择: ")
   
4.         s1 (car e1)
   
5.         p1 (cadr e1)
   
6.         e2 (entsel "\n选择: ")
   
7.         s2 (car e2)
   
8.         p2 (cadr e2)
   
9.         p3 (getpoint p2 "\n基点<退出>: ")
   
10.   )
    
11.   (command "circle" "3p" "tan" p1 "tan" p2 p3)
    
12.   (setq        s3 (entlast)
    
13.         p0 (cdr (assoc 10 (entget s3)))
    
14.         p1 (vlax-curve-getclosestpointto s1 p0 t)
    
15.         p2 (vlax-curve-getclosestpointto s2 p0 t)
    
16.   )
    
17.   (entdel s3)
    
18.   (command "arc" "c" p0 p1 p2)
    
19.   (princ)
    
20. )

(defun c:tt ()<br />   (setq        e1 (entsel "\n选择: ")<br />         s1 (car e1)<br />         p1 (cadr e1)<br />         e2 (entsel "\n选择: ")<br />         s2 (car e2)<br />         p2 (cadr e2)<br />         p3 (getpoint p2 "\n基点<退出>: ")<br />   )<br />   (command "circle" "3p" "tan" p1 "tan" p2 p3)<br />   (setq        s3 (entlast)<br />         p0 (cdr (assoc 10 (entget s3)))<br />         p1 (vlax-curve-getclosestpointto s1 p0 t)<br />         p2 (vlax-curve-getclosestpointto s2 p0 t)<br />   )<br />   (entdel s3)<br />   (command "arc" "c" p0 p1 p2)<br />   (princ)<br /> )