如何Emake出单个对象的多线段，这个多线段中有直的，也有圆弧？

vpddup

请教各位老师，如何Emake出单个对象的多线段，这个多线段中有直的，也有圆弧？

以下是 两点多线段，多点多线段，圆弧的EMAKE 方法。我所知道的是，可以先分别EM出，然后再用COMMAND命令JOIN成单个对象，但我想知道有没有一气呵成把它们EM出单个对象的方法。  谢谢

• (defun EMlwpolyline-2 (pt1 pt2) (entmakeX (list '(0 . "LWPOLYLINE")  '(100 . "AcDbEntity")  '(100 . "AcDbPolyline") (cons 90 2) (cons 10 pt1) (cons 10 pt2))))
• (defun EMlwpolyline-N (lst / PT) (entmakeX (append (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 90 (length lst))) (mapcar '(lambda (pt) (cons 10 pt)) lst))))
• (defun EMArc (pt r ang1 ang2) (entmakeX (list '(0 . "ARC") (cons 10 pt) (cons 40 r) (cons 50 ang1) (cons 51 ang2) ) ) )
• 
  

ssyfeng

多段线中圆弧段就是多了个42组码的凸度，只要组码表中加上这个就可以生成带圆弧的多段线了

vitalgg

1. (entity:make-lwpolyline '((0 0) (2 2)) '(0.3 0) '((0.5 1.0)(0 0)) 0 nil)

(entity:make-lwpolyline '((0 0) (2 2)) '(0.3 0) '((0.5 1.0)(0 0)) 0 nil)

飞雪神光

1. (entmakex
   
2.   (list
   
3.     (cons 0 "LWPOLYLINE")
   
4.     (cons 100 "AcDbEntity")
   
5.     (cons 67 0)
   
6.     (cons 410 "Model")
   
7.     (cons 8 "0")
   
8.     (cons 100 "AcDbPolyline")
   
9.     (cons 90 9)
   
10.     (cons 70 0)
    
11.     (cons 43 0.0)
    
12.     (cons 38 0.0)
    
13.     (cons 39 0.0)
    
14.     (cons 10 '(895.894 705.448))
    
15.     (cons 40 0.0)
    
16.     (cons 41 0.0)
    
17.     (cons 42 0.0)
    
18.     (cons 10 '(1037.5 842.768))
    
19.     (cons 40 0.0)
    
20.     (cons 41 0.0)
    
21.     (cons 42 0.0)
    
22.     (cons 10 '(1236.59 827.354))
    
23.     (cons 40 0.0)
    
24.     (cons 41 0.0)
    
25.     (cons 42 0.0)
    
26.     (cons 10 '(1235.18 660.609))
    
27.     (cons 40 0.0)
    
28.     (cons 41 0.0)
    
29.     (cons 42 -0.808111)
    
30.     (cons 10 '(908.512 593.35))
    
31.     (cons 40 0.0)
    
32.     (cons 41 0.0)
    
33.     (cons 42 0.0)
    
34.     (cons 10 '(1078.16 590.547))
    
35.     (cons 40 0.0)
    
36.     (cons 41 0.0)
    
37.     (cons 42 0.975163)
    
38.     (cons 10 '(1082.36 691.435))
    
39.     (cons 40 0.0)
    
40.     (cons 41 0.0)
    
41.     (cons 42 0.0)
    
42.     (cons 10 '(1080.96 631.183))
    
43.     (cons 40 0.0)
    
44.     (cons 41 0.0)
    
45.     (cons 42 0.0)
    
46.     (cons 10 '(902.904 629.782))
    
47.     (cons 40 0.0)
    
48.     (cons 41 0.0)
    
49.     (cons 42 0.0)
    
50.     (cons 210 '(0.0 0.0 1.0))
    
51.   )
    
52. )

(entmakex<br />   (list<br />     (cons 0 "LWPOLYLINE")<br />     (cons 100 "AcDbEntity")<br />     (cons 67 0)<br />     (cons 410 "Model")<br />     (cons 8 "0")<br />     (cons 100 "AcDbPolyline")<br />     (cons 90 9)<br />     (cons 70 0)<br />     (cons 43 0.0)<br />     (cons 38 0.0)<br />     (cons 39 0.0)<br />     (cons 10 '(895.894 705.448))<br />     (cons 40 0.0)<br />     (cons 41 0.0)<br />     (cons 42 0.0)<br />     (cons 10 '(1037.5 842.768))<br />     (cons 40 0.0)<br />     (cons 41 0.0)<br />     (cons 42 0.0)<br />     (cons 10 '(1236.59 827.354))<br />     (cons 40 0.0)<br />     (cons 41 0.0)<br />     (cons 42 0.0)<br />     (cons 10 '(1235.18 660.609))<br />     (cons 40 0.0)<br />     (cons 41 0.0)<br />     (cons 42 -0.808111)<br />     (cons 10 '(908.512 593.35))<br />     (cons 40 0.0)<br />     (cons 41 0.0)<br />     (cons 42 0.0)<br />     (cons 10 '(1078.16 590.547))<br />     (cons 40 0.0)<br />     (cons 41 0.0)<br />     (cons 42 0.975163)<br />     (cons 10 '(1082.36 691.435))<br />     (cons 40 0.0)<br />     (cons 41 0.0)<br />     (cons 42 0.0)<br />     (cons 10 '(1080.96 631.183))<br />     (cons 40 0.0)<br />     (cons 41 0.0)<br />     (cons 42 0.0)<br />     (cons 10 '(902.904 629.782))<br />     (cons 40 0.0)<br />     (cons 41 0.0)<br />     (cons 42 0.0)<br />     (cons 210 '(0.0 0.0 1.0))<br />   )<br /> )

逗亦斗霸

飞雪神光 发表于 2024-9-27 09:27

敢问飞版：entmake生成带弧度的填充该怎么写50和51的组码来控制整个图元动态旋转的角度？

vpddup

感谢以上各位。

飞雪神光

逗亦斗霸 发表于 2024-9-27 15:28
敢问飞版：entmake生成带弧度的填充该怎么写50和51的组码来控制整个图元动态旋转的角度？

填充 entmake 弄不了 用这个 vla-addhatch

逗亦斗霸

飞雪神光 发表于 2024-9-28 08:26
填充 entmake 弄不了 用这个 vla-addhatch

http://bbs.mjtd.com/thread-191253-1-1.html
vla-addhatch不会弄啊，请求飞版有空的话指点一下，感谢感谢~
PS：私信不了，借用一下楼主的帖子，请莫责怪，谢谢~