鼠标点选P1\P2\P3然后就画图如下图所示的图形。65跟150是固定的。麻烦大神给搞个编码

chq168168

鼠标点选P1\P2\P3然后就画图如下图所示的图形。65跟150是固定的。麻烦大神给搞个编码

liuhe

2. (defun c:tt (/ p1 p2 p3 e e1 e11 e2 e22)
   
3.   (setq p1 (getpoint "\n指定第一点"))
   
4.   (if (not p1)
   
5.     (vl-exit-with-value 0)
   
6.   )
   
7.   (setq p2 (getpoint p1 "\n指定第一点"))
   
8.   (if (not p2)
   
9.     (vl-exit-with-value 0)
   
10.   )
    
11.   (setq p3 (getpoint p2 "\n指定第一点"))
    
12.   (if (not p3)
    
13.     (vl-exit-with-value 0)
    
14.   )
    
15.   (setq e (Make-LWPOLYLINE (list p1 p2 p3)))
    
16.   (vla-Offset (vlax-ename->vla-object e) -65)
    
17.   (setq e1 (entlast))
    
18.   (vla-Offset (vlax-ename->vla-object e) 65)
    
19.   (setq e2 (entlast))
    
20.   (if (< (vlax-curve-getDistAtPoint e1 (vlax-curve-getEndPoint e1))
    
21.          (vlax-curve-getDistAtPoint e2 (vlax-curve-getEndPoint e2))
    
22.       )
    
23.     (entdel e2)
    
24.     (progn (entdel e1) (setq e1 e2))
    
25.   )
    
26.   (vla-Offset (vlax-ename->vla-object e) 150)
    
27.   (setq e11 (entlast))
    
28.   (vla-Offset (vlax-ename->vla-object e) -150)
    
29.   (setq e22 (entlast))
    
30.   (if (< (vlax-curve-getDistAtPoint e11 (vlax-curve-getEndPoint e11))
    
31.          (vlax-curve-getDistAtPoint e22 (vlax-curve-getEndPoint e22))
    
32.       )
    
33.     (entdel e22)
    
34.     (progn (entdel e11) (setq e11 e22))
    
35.   )
    
36.   (Make-LWPOLYLINE
    
37.     (list (vlax-curve-getStartPoint e) (vlax-curve-getStartPoint e11))
    
38.   )
    
39.   (Make-LWPOLYLINE
    
40.     (list (vlax-curve-getEndPoint e) (vlax-curve-getEndPoint e11))
    
41.   )
    
42. )
    
43. ;;167.3 [功能] Entmake点表生成多段线
    
44. (defun Make-LWPOLYLINE (lst / PT)
    
45.   (entmakeX
    
46.     (append
    
47.       (list '(0 . "LWPOLYLINE")
    
48.             '(100 . "AcDbEntity")
    
49.             '(100 . "AcDbPolyline")
    
50.             (cons 90 (length lst))
    
51.       )
    
52.       (mapcar '(lambda (pt) (cons 10 pt)) lst)
    
53.     )
    
54.   )
    
55. )

(defun c:tt (/ p1 p2 p3 e e1 e11 e2 e22)<br />   (setq p1 (getpoint "\n指定第一点"))<br />   (if (not p1)<br />     (vl-exit-with-value 0)<br />   )<br />   (setq p2 (getpoint p1 "\n指定第一点"))<br />   (if (not p2)<br />     (vl-exit-with-value 0)<br />   )<br />   (setq p3 (getpoint p2 "\n指定第一点"))<br />   (if (not p3)<br />     (vl-exit-with-value 0)<br />   )<br />   (setq e (Make-LWPOLYLINE (list p1 p2 p3)))<br />   (vla-Offset (vlax-ename->vla-object e) -65)<br />   (setq e1 (entlast))<br />   (vla-Offset (vlax-ename->vla-object e) 65)<br />   (setq e2 (entlast))<br />   (if (< (vlax-curve-getDistAtPoint e1 (vlax-curve-getEndPoint e1))<br />          (vlax-curve-getDistAtPoint e2 (vlax-curve-getEndPoint e2))<br />       )<br />     (entdel e2)<br />     (progn (entdel e1) (setq e1 e2))<br />   )<br />   (vla-Offset (vlax-ename->vla-object e) 150)<br />   (setq e11 (entlast))<br />   (vla-Offset (vlax-ename->vla-object e) -150)<br />   (setq e22 (entlast))<br />   (if (< (vlax-curve-getDistAtPoint e11 (vlax-curve-getEndPoint e11))<br />          (vlax-curve-getDistAtPoint e22 (vlax-curve-getEndPoint e22))<br />       )<br />     (entdel e22)<br />     (progn (entdel e11) (setq e11 e22))<br />   )<br />   (Make-LWPOLYLINE<br />     (list (vlax-curve-getStartPoint e) (vlax-curve-getStartPoint e11))<br />   )<br />   (Make-LWPOLYLINE<br />     (list (vlax-curve-getEndPoint e) (vlax-curve-getEndPoint e11))<br />   )<br /> )<br /> ;;167.3 [功能] Entmake点表生成多段线<br /> (defun Make-LWPOLYLINE (lst / PT)<br />   (entmakeX<br />     (append<br />       (list '(0 . "LWPOLYLINE")<br />             '(100 . "AcDbEntity")<br />             '(100 . "AcDbPolyline")<br />             (cons 90 (length lst))<br />       )<br />       (mapcar '(lambda (pt) (cons 10 pt)) lst)<br />     )<br />   )<br /> )

chq168168

2. (setq p1 (getpoint "\n输入沾灰面P1点"))
   
3. (setq p2 (getpoint "\n输入沾灰面P2点"))
   
4. (setq p3 (getpoint "\n输入沾灰面P3点"))
   
5. (setq alf1 (angle p1 p2))
   
6. (setq alf2 (angle p3 p2))
   
7. (setq pm (polar p1 (+ alf1(* 1.5 pi))65))
   
8. (setq p6 (polar p1 (+ alf1(* 1.5 pi))150))
   
9. (setq pn (polar p3 (+ alf2(* 0.5 pi))65))
   
10. (setq p4 (polar p3 (+ alf2(* 0.5 pi))150))
    
11. 
    
12. (setq pp (inters pm (polar pm (angle p1 p2) 1) pn (polar pn (angle p2 p3) 1) nil))
    
13. (setq p5 (inters p6 (polar p6 (angle p1 p2) 1) p4 (polar p4 (angle p2 p3) 1) nil))
    
14. (command-s "pline" p1 p2 p3 p4 P5  p6 "c")
    
15. (command-s "pline" pm  PP pn  "")
    
16. (command-S "LINE" P2 P5 "")

(setq p1 (getpoint "\n输入沾灰面P1点"))<br /> (setq p2 (getpoint "\n输入沾灰面P2点"))<br /> (setq p3 (getpoint "\n输入沾灰面P3点"))<br /> (setq alf1 (angle p1 p2))<br /> (setq alf2 (angle p3 p2))<br /> (setq pm (polar p1 (+ alf1(* 1.5 pi))65))<br /> (setq p6 (polar p1 (+ alf1(* 1.5 pi))150))<br /> (setq pn (polar p3 (+ alf2(* 0.5 pi))65))<br /> (setq p4 (polar p3 (+ alf2(* 0.5 pi))150))<br /> <br /> (setq pp (inters pm (polar pm (angle p1 p2) 1) pn (polar pn (angle p2 p3) 1) nil))<br /> (setq p5 (inters p6 (polar p6 (angle p1 p2) 1) p4 (polar p4 (angle p2 p3) 1) nil))<br /> (command-s "pline" p1 p2 p3 p4 P5  p6 "c")<br /> (command-s "pline" pm  PP pn  "")<br /> (command-S "LINE" P2 P5 "")

liuhe 发表于 2023-8-14 15:42

谢谢大哥，你这个代码能画出来，就是看不懂，我就是初学者，刚开始编写个代码画个图试试，这不遇到了不会求点了。下边是我写的代码，画出来为什么有时候有个边是75，搞不明白。

liuhe

chq168168 发表于 2023-8-14 15:49
liuhe 发表于 2023-8-14 15:42

(setq p4 (polar p3 (+ alf2(* 0.5 pi))150))
(setq old(getvar 'osmode ))
(setvar 'osmode 0);;;;关闭捕捉
(setq pp (inters pm (polar pm (angle p1 p2) 100) pn (polar pn (angle p2 p3) 100) nil))
(setq p5 (inters p6 (polar p6 (angle p1 p2) 100) p4 (polar p4 (angle p2 p3) 100) nil))
(command-s "pline" p1 p2 p3 p4 P5  p6 "c")
(command-s "pline" pm  PP pn  "")
(command-S "LINE" P2 P5 "")
  (setvar 'osmode old)

llsheng_73

神一样的问题。。。

chq168168

llsheng_73 发表于 2023-8-14 14:44
神一样的问题。。。

大哥有图片的不知道为什么不显示，我又重新传了一个

包哥

上源码吧，不知道你要问啥

start4444

(setq pp (inters pm (polar pm (angle p1 p2) 1) pn (polar pn (angle p2 p3) 1) nil))
同理求p5

自贡黄明儒

p6p5与p1p2平行，angle可以求出，有polar可以求出p6p5上一点p51;同理可以求出p4p5上一点p52。
于是(inerts p6 p51 p4 p52 nil)求出p5

chq168168

自贡黄明儒 发表于 2023-8-14 15:09
p6p5与p1p2平行，angle可以求出，有polar可以求出p6p5上一点p51;同理可以求出p4p5上一点p52。
于是(inerts ...

大哥给个碼学习下，自己学着写这个图形的时候开在P5点了

chq168168

start4444 发表于 2023-8-14 15:04
(setq pp (inters pm (polar pm (angle p1 p2) 1) pn (polar pn (angle p2 p3) 1) nil))
同理求p5

谢谢大神，搞出来这两个点了