entmake动态生成带弧度的填充实体时遇到的问题求助，谢谢~

逗亦斗霸

2. (defun c:tt (/ p0)
   
3. (setq p0 (getpoint "\n起点: ")
   
4.     pn (getpoint p0 "\n终点: ")
   
5.     jd (angle p0 pn)
   
6.       p1 (mapcar '+ p0 '(420 0 0) )
   
7.       p2 (mapcar '+ p0 '(0 -210 0) )
   
8.     jd1 (angle p0 p2)
   
9. )
   
10. (setq
    
11.       pt1  (polar p0 jd 420)
    
12.       pt2  (polar p0 (+ jd jd1) 210)
    
13.       pt3  (polar pt2 jd 420)
    
14. )
    
15. (entmake
    
16.     (list
    
17.      '(0 . "hatch")
    
18.        '(100 . "AcDbEntity")
    
19.        '(67 . 0)
    
20.        '(410 . "Model")
    
21.         (cons 8 "0")
    
22.        '(100 . "AcDbHatch")
    
23.        '(10 0.0 0.0 0.0)
    
24.        '(210 0.0 0.0 1.0)
    
25.         (cons 2 "SOLID")
    
26.        '(70 . 1)
    
27.        '(71 . 1)
    
28.        '(91 . 1)
    
29.        '(92 . 1)
    
30.        '(93 . 3)
    
31.        '(72 . 1)
    
32.        (cons 10 p0)
    
33.        (cons 11 pt1)
    
34.        '(72 . 2)
    
35.        (cons 10 pt3)
    
36.        '(40 . 210)
    
37.        (cons 50 (+ (* pi (/ jd 180.) ) (/ pi 2) ) )
    
38.        (cons 51 (+ (* pi (/ jd 180.) ) pi) )
    
39.        '(73 . 1)
    
40.        '(72 . 2)
    
41.        (cons 10 pt2)
    
42.        '(40 . 210)
    
43.        (cons 50 (+ (* pi (/ jd 180.) ) (* pi 2) ) )
    
44.        (cons 51 (+ (* pi (/ jd 180.) ) (* pi 2.5) ) )
    
45.        '(73 . 1)
    
46.        '(97 . 0)
    
47.        '(75 . 1)
    
48.        '(76 . 1)
    
49.        '(98 . 1)
    
50.        (cons 10 p0)
    
51.       '(453 . 2)
    
52.       '(463 . 0)
    
53.       '(463 . 1)
    
54.       '(470 . "LINEAR")
    
55.      )
    
56. )
    
57. (princ)
    
58. )

(defun c:tt (/ p0)<br /> (setq p0 (getpoint "\n起点: ")<br />     pn (getpoint p0 "\n终点: ")<br />     jd (angle p0 pn)<br />       p1 (mapcar '+ p0 '(420 0 0) )<br />       p2 (mapcar '+ p0 '(0 -210 0) )<br />     jd1 (angle p0 p2)<br /> )<br /> (setq <br />       pt1  (polar p0 jd 420)<br />       pt2  (polar p0 (+ jd jd1) 210)<br />       pt3  (polar pt2 jd 420)<br /> )<br /> (entmake<br />     (list<br />      '(0 . "hatch")<br />        '(100 . "AcDbEntity")<br />        '(67 . 0)<br />        '(410 . "Model")<br />         (cons 8 "0")<br />        '(100 . "AcDbHatch")<br />        '(10 0.0 0.0 0.0)<br />        '(210 0.0 0.0 1.0)<br />         (cons 2 "SOLID")<br />        '(70 . 1)<br />        '(71 . 1)<br />        '(91 . 1)<br />        '(92 . 1)<br />        '(93 . 3)<br />        '(72 . 1)<br />        (cons 10 p0)<br />        (cons 11 pt1)<br />        '(72 . 2)<br />        (cons 10 pt3)<br />        '(40 . 210)<br />        (cons 50 (+ (* pi (/ jd 180.) ) (/ pi 2) ) )<br />        (cons 51 (+ (* pi (/ jd 180.) ) pi) )<br />        '(73 . 1)<br />        '(72 . 2)<br />        (cons 10 pt2)<br />        '(40 . 210)<br />        (cons 50 (+ (* pi (/ jd 180.) ) (* pi 2) ) )<br />        (cons 51 (+ (* pi (/ jd 180.) ) (* pi 2.5) ) )<br />        '(73 . 1)<br />        '(97 . 0)<br />        '(75 . 1)<br />        '(76 . 1)<br />        '(98 . 1)<br />        (cons 10 p0)<br />       '(453 . 2)<br />       '(463 . 0)<br />       '(463 . 1)<br />       '(470 . "LINEAR")<br />      )<br /> )<br /> (princ)<br /> )

此代码水平零角度时可以正常生成我想要的填充样式（图1），但当有角度时则会出现异样（图2和图3），问题应该是出在DXF组码50和51，尝试修改却未成功，现请求大佬指点一下怎么修改？谢谢~

飞雪神光

@统一网名 回复的就是一种答案 我换掉了command  

1. (defun c:tt (/ an lastobj num p0 p1 pt pt1 pt2 pt3)
   
2.   (setq
   
3.     p0 (getpoint "\n起点:")
   
4.     pt (getpoint p0 "\n终点:")
   
5.     num (getint "\n生成数量:<1>")
   
6.     pt1(polar p0 0 420)
   
7.     pt2(polar p0 (* pi 1.5) 210)
   
8.     pt3(polar pt2 0 420)
   
9.   )
   
10.         (or num (setq num 1))
    
11.         (entmake
    
12.                 (list
    
13.                         '(0 . "hatch")
    
14.                         '(100 . "AcDbEntity")
    
15.                         '(67 . 0)
    
16.                         '(410 . "Model")
    
17.                         (cons 8 "0")
    
18.                         '(100 . "AcDbHatch")
    
19.                         '(10 0.0 0.0 0.0)
    
20.                         '(210 0.0 0.0 1.0)
    
21.                         (cons 2 "SOLID")
    
22.                         '(70 . 1)
    
23.                         '(71 . 1)
    
24.                         '(91 . 1)
    
25.                         '(92 . 1)
    
26.                         '(93 . 3)
    
27.                         '(72 . 1)
    
28.                         (cons 10 p0)
    
29.                         (cons 11 pt1)
    
30.                         '(72 . 2)
    
31.                         (cons 10 pt3)
    
32.                         '(40 . 210)
    
33.                         (cons 50 (* pi 0.5))
    
34.                         (cons 51 pi)
    
35.                         '(73 . 1)
    
36.                         '(72 . 2)
    
37.                         (cons 10 pt2)
    
38.                         '(40 . 210)
    
39.                         (cons 50 (* pi 2.))
    
40.                         (cons 51 (* pi 2.5))
    
41.                         '(73 . 1)
    
42.                         '(97 . 0)
    
43.                         '(75 . 1)
    
44.                         '(76 . 1)
    
45.                         '(98 . 1)
    
46.                         (cons 10 p0)
    
47.                         '(453 . 2)
    
48.                         '(463 . 0)
    
49.                         '(463 . 1)
    
50.                         '(470 . "LINEAR")
    
51.                 )
    
52.         )
    
53.         (vla-Rotate (setq lastobj (vlax-ename->vla-object (entlast))) (vlax-3D-point p0) (setq an (angle p0 pt)))
    
54.         (repeat (1- num)
    
55.                 (setq p1 (polar p0 an 420));间距
    
56.                 (vla-Move (setq lastobj (vla-Copy lastobj)) (vlax-3D-point p0) (vlax-3D-point p1))
    
57.                 (setq p0 p1)
    
58.         )
    
59.         (princ)
    
60. )
    

(defun c:tt (/ an lastobj num p0 p1 pt pt1 pt2 pt3)<br />   (setq<br />     p0 (getpoint "\n起点:")<br />     pt (getpoint p0 "\n终点:")<br />     num (getint "\n生成数量:<1>")<br />     pt1(polar p0 0 420)<br />     pt2(polar p0 (* pi 1.5) 210)<br />     pt3(polar pt2 0 420)<br />   )<br />         (or num (setq num 1))<br />         (entmake<br />                 (list<br />                         '(0 . "hatch")<br />                         '(100 . "AcDbEntity")<br />                         '(67 . 0)<br />                         '(410 . "Model")<br />                         (cons 8 "0")<br />                         '(100 . "AcDbHatch")<br />                         '(10 0.0 0.0 0.0)<br />                         '(210 0.0 0.0 1.0)<br />                         (cons 2 "SOLID")<br />                         '(70 . 1)<br />                         '(71 . 1)<br />                         '(91 . 1)<br />                         '(92 . 1)<br />                         '(93 . 3)<br />                         '(72 . 1)<br />                         (cons 10 p0)<br />                         (cons 11 pt1)<br />                         '(72 . 2)<br />                         (cons 10 pt3)<br />                         '(40 . 210)<br />                         (cons 50 (* pi 0.5))<br />                         (cons 51 pi)<br />                         '(73 . 1)<br />                         '(72 . 2)<br />                         (cons 10 pt2)<br />                         '(40 . 210)<br />                         (cons 50 (* pi 2.))<br />                         (cons 51 (* pi 2.5))<br />                         '(73 . 1)<br />                         '(97 . 0)<br />                         '(75 . 1)<br />                         '(76 . 1)<br />                         '(98 . 1)<br />                         (cons 10 p0)<br />                         '(453 . 2)<br />                         '(463 . 0)<br />                         '(463 . 1)<br />                         '(470 . "LINEAR")<br />                 )<br />         )<br />         (vla-Rotate (setq lastobj (vlax-ename->vla-object (entlast))) (vlax-3D-point p0) (setq an (angle p0 pt)))<br />         (repeat (1- num)<br />                 (setq p1 (polar p0 an 420));间距<br />                 (vla-Move (setq lastobj (vla-Copy lastobj)) (vlax-3D-point p0) (vlax-3D-point p1))<br />                 (setq p0 p1)<br />         )<br />         (princ)<br /> )<br />

统一网名

没有搞明白是咋运行的，但是换个思路可以实现，先平行画一个，然后旋转就可以了。

• (defun c:tt (/ ang jd jd1 p0 p1 p2 pn pt pt1 pt2 pt3)
•   (setq
•     p0 (getpoint "\n起点: ")
•     pt (getpoint p0 "\n终点: ")
•   )
•   (setq
•     pn (polar p0 0 300)
•     jd (angle p0 pn)
•     p1 (mapcar '+ p0 '(420 0 0) )
•     p2 (mapcar '+ p0 '(0 -210 0) )
•     jd1 (angle p0 p2)
•   )
•   (setq
•     pt1  (polar p0 jd 420)
•     pt2  (polar p0 (+ jd jd1) 210)
•     pt3  (polar pt2 jd 420)
•   )
•   (entmake
•     (list
•       '(0 . "hatch")
•       '(100 . "AcDbEntity")
•       '(67 . 0)
•       '(410 . "Model")
•       (cons 8 "0")
•       '(100 . "AcDbHatch")
•       '(10 0.0 0.0 0.0)
•       '(210 0.0 0.0 1.0)
•       (cons 2 "SOLID")
•       '(70 . 1)
•       '(71 . 1)
•       '(91 . 1)
•       '(92 . 1)
•       '(93 . 3)
•       '(72 . 1)
•       (cons 10 p0)
•       (cons 11 pt1)
•       '(72 . 2)
•       (cons 10 pt3)
•       '(40 . 210)
•       (cons 50 (+ (* pi (/ jd 180.) ) (/ pi 2) ) )
•       (cons 51 (+ (* pi (/ jd 180.) ) pi) )
•       '(73 . 1)
•       '(72 . 2)
•       (cons 10 pt2)
•       '(40 . 210)
•       (cons 50 (+ (* pi (/ jd 180.) ) (* pi 2) ) )
•       (cons 51 (+ (* pi (/ jd 180.) ) (* pi 2.5) ) )
•       '(73 . 1)
•       '(97 . 0)
•       '(75 . 1)
•       '(76 . 1)
•       '(98 . 1)
•       (cons 10 p0)
•       '(453 . 2)
•       '(463 . 0)
•       '(463 . 1)
•       '(470 . "LINEAR")
•     )
•   )
•   (setq ang  (- 360 (* (- (angle p0 pn)(angle p0 pt))(/ 180 pi))))
•   (command "_.rotate" (entlast) "" p0 ang )
•   (princ)
• )
  

统一网名

逗亦斗霸 发表于 2024-9-26 14:45
恩恩，用command偶会哦，我就是想学用entmake的，那个快呀~

  哪个快我也不知道，更改以下代码，你原来的就可以正常运行了      
            (cons 50 (+ jd (/ pi 2.0)))  
            (cons 51 (+ jd pi))  
                                                                      
            (cons 50 (+ jd (* pi 2.0)))  
            (cons 51 (+ jd (* pi 2.5)))  

逗亦斗霸

统一网名 发表于 2024-9-26 08:56
没有搞明白是咋运行的，但是换个思路可以实现，先平行画一个，然后旋转就可以了。

感谢回复！单独一个的这样确实可以，但我想生成多个的话(  (entlast) 换成“p”  )没有旋转成功。另外我用command来填充的话也可以成功，但数量多的话使用command生成确实要慢不少~

统一网名

逗亦斗霸 发表于 2024-9-26 10:49
感谢回复！单独一个的这样确实可以，但我想生成多个的话(  (entlast) 换成“p”  )没有旋转成功。另外我 ...

不明白你说的多个具体是啥情况

逗亦斗霸

统一网名 发表于 2024-9-26 11:24
不明白你说的多个具体是啥情况

沿着起点和终点路径生成多个~

统一网名

逗亦斗霸 发表于 2024-9-26 11:28
沿着起点和终点路径生成多个~

        (repeat 2                
                (setq d2 (polar p0 (angle p0 pt)  440))
                (command "copy" (entlast) "" p0 d2);
                (setq p0 d2)
        )
后面加一个循环复制，次数和间距自己设置吧

逗亦斗霸

统一网名 发表于 2024-9-26 13:54
(repeat 2                
                (setq d2 (polar p0 (angle p0 pt)  440))
                (command "copy" (entlast) "" p0 d2);

恩恩，用command偶会哦，我就是想学用entmake的，那个快呀~

逗亦斗霸

飞雪神光 发表于 2024-9-29 09:01
@统一网名 回复的就是一种答案 我换掉了command

感谢飞版！这就是我想要的，之前的指北角度问题和这个问题都是不会用pi（这段代码里的pi其实也没看太懂）我再去琢磨一下~