三线切弧

Lispboy

1. (defun c:xdtb_crv3tarc (/ _pick g1 e g-1 g-2 g-3 d1 d2 d3 garc)
   
2.   (defun _pick (no / g1)
   
3.     (setq tf t)
   
4.     (while (and        (not g1)
   
5.                 (setq e        (xdrx_entsel
   
6.                           (xdrx_prompt
   
7.                             "\n拾取"
   
8.                             (cond ((= no 1) "弧线起始线")
   
9.                                   ((= no 2) "弧线终止线")
   
10.                                   ((= no 3) "弧顶相切线")
    
11.                             )
    
12.                             "<退出>:"
    
13.                             t
    
14.                           )
    
15.                           '((0 . "*polyline,line"))
    
16.                         )
    
17.                 )
    
18.            )
    
19.       (setq pt (cadr e)
    
20.             e  (car e)
    
21.       )
    
22.       (cond ((xdrx_object_iskindof e "*polyline")
    
23.              (if (setq g1 (xdrx_polyline_getlinesegat
    
24.                             e
    
25.                             (xdrx_polyline_onsegat e pt)
    
26.                             t
    
27.                           )
    
28.                  )
    
29.                (setq g1 (list g1 (xdge::getpropertyvalue g1 "paramof" pt) e))
    
30.              )
    
31.             )
    
32.             (t
    
33.              (setq g1 (xdge::constructor e))
    
34.              (setq g1 (list g1 (xdge::getpropertyvalue g1 "paramof" pt) e))
    
35.             )
    
36.       )
    
37.       (if (not g1)
    
38.         (xdrx_prompt "\n >>没有选到直线段，重试.."))
    
39.     )
    
40.     g1
    
41.   )
    
42.   (xdrx_begin)
    
43.   (if (and (setq d1 (_pick 1))
    
44.            (setq d2 (_pick 2))
    
45.            (setq d3 (_pick 3))
    
46.       )
    
47.     (progn (setq g-1 (xdge::entity:3d->2d (car d1))
    
48.                  g-2 (xdge::entity:3d->2d (car d2))
    
49.                  g-3 (xdge::entity:3d->2d (car d3))
    
50.            )
    
51.            (setq garc (xdge::constructor "kcircarc2d"))
    
52.            (if (xdge::setpropertyvalue
    
53.                  garc
    
54.                  "set"
    
55.                  g-1
    
56.                  g-2
    
57.                  g-3
    
58.                  (cadr d1)
    
59.                  (cadr d2)
    
60.                  (cadr d3)
    
61.                )
    
62.              (progn (if        (and (setq int1
    
63.                                     (car (xdrx_entity_intersectwith (car d1) garc 3))
    
64.                              )
    
65.                              (setq int2
    
66.                                     (car (xdrx_entity_intersectwith (car d2) garc 3))
    
67.                              )
    
68.                              (setq int3
    
69.                                     (car (xdrx_entity_intersectwith (car d3) garc 3))
    
70.                              )
    
71.                         )
    
72.                       (progn
    
73.                         (setq g (xdge::constructor "kcircarc3d" int1 int3 int2))
    
74.                         (xdge::entity:make g)
    
75.                       (xdrx_entity_matchprop e (entlast)))
    
76.                     )
    
77.              )
    
78.              (xdrx_prompt "\n >>所选三线不能构造切弧...")
    
79.            )
    
80.     )
    
81.   )
    
82.   (xdrx_end)
    
83.   (princ)
    
84. )
    

(defun c:xdtb_crv3tarc (/ _pick g1 e g-1 g-2 g-3 d1 d2 d3 garc)<br />   (defun _pick (no / g1)<br />     (setq tf t)<br />     (while (and        (not g1)<br />                 (setq e        (xdrx_entsel<br />                           (xdrx_prompt<br />                             "\n拾取"<br />                             (cond ((= no 1) "弧线起始线")<br />                                   ((= no 2) "弧线终止线")<br />                                   ((= no 3) "弧顶相切线")<br />                             )<br />                             "<退出>:"<br />                             t<br />                           )<br />                           '((0 . "*polyline,line"))<br />                         )<br />                 )<br />            )<br />       (setq pt (cadr e)<br />             e  (car e)<br />       )<br />       (cond ((xdrx_object_iskindof e "*polyline")<br />              (if (setq g1 (xdrx_polyline_getlinesegat<br />                             e<br />                             (xdrx_polyline_onsegat e pt)<br />                             t<br />                           )<br />                  )<br />                (setq g1 (list g1 (xdge::getpropertyvalue g1 "paramof" pt) e))<br />              )<br />             )<br />             (t<br />              (setq g1 (xdge::constructor e))<br />              (setq g1 (list g1 (xdge::getpropertyvalue g1 "paramof" pt) e))<br />             )<br />       )<br />       (if (not g1)<br />         (xdrx_prompt "\n >>没有选到直线段，重试.."))<br />     )<br />     g1<br />   )<br />   (xdrx_begin)<br />   (if (and (setq d1 (_pick 1))<br />            (setq d2 (_pick 2))<br />            (setq d3 (_pick 3))<br />       )<br />     (progn (setq g-1 (xdge::entity:3d->2d (car d1))<br />                  g-2 (xdge::entity:3d->2d (car d2))<br />                  g-3 (xdge::entity:3d->2d (car d3))<br />            )<br />            (setq garc (xdge::constructor "kcircarc2d"))<br />            (if (xdge::setpropertyvalue<br />                  garc<br />                  "set"<br />                  g-1<br />                  g-2<br />                  g-3<br />                  (cadr d1)<br />                  (cadr d2)<br />                  (cadr d3)<br />                )<br />              (progn (if        (and (setq int1<br />                                     (car (xdrx_entity_intersectwith (car d1) garc 3))<br />                              )<br />                              (setq int2<br />                                     (car (xdrx_entity_intersectwith (car d2) garc 3))<br />                              )<br />                              (setq int3<br />                                     (car (xdrx_entity_intersectwith (car d3) garc 3))<br />                              )<br />                         )<br />                       (progn<br />                         (setq g (xdge::constructor "kcircarc3d" int1 int3 int2))<br />                         (xdge::entity:make g)<br />                       (xdrx_entity_matchprop e (entlast)))<br />                     )<br />              )<br />              (xdrx_prompt "\n >>所选三线不能构造切弧...")<br />            )<br />     )<br />   )<br />   (xdrx_end)<br />   (princ)<br /> )<br />

Michael527

非常实用，以前遇到这类问题，都是一点点弄出来，很麻烦

shqvc

以前我做这样的  是画圆  是相切相切相切画圆  然后再剪切才可以得到现在的这个

lisp_beginner

shqvc 发表于 2018-11-18 16:21
以前我做这样的  是画圆  是相切相切相切画圆  然后再剪切才可以得到现在的这个

大师，用手画，怎么画？ 能做个动图演示下吗？

shqvc

lisp_beginner 发表于 2018-11-18 16:41
大师，用手画，怎么画？ 能做个动图演示下吗？

在绘圆的里面你如果只看到相切相切半径这个是不对的  其实还有一个是相切相切相切  只不过不提示  在菜单栏里才有的一个工具  

kqqt6236

谢谢分享。

shqvc

可们  我试了一下  咱们的这个有一个缺点   就是必须是直线  为什么圆弧不能切呢   改进一下吧

newer

shqvc 发表于 2018-11-19 11:03
可们  我试了一下  咱们的这个有一个缺点   就是必须是直线  为什么圆弧不能切呢   改进一下吧

不是什么圆弧都能切到的

试试把里面的代码
'((0 . "*polyline,line"))
改成
'((0 . "*polyline,line,arc"))
切下弧线看看

shqvc

newer 发表于 2018-11-19 11:37
不是什么圆弧都能切到的

试试把里面的代码

谢谢了老大  我这就去试一下