如何创建POLYLINE??

野狼谷/〈M〉

就是看了帮助

多段线组码里就没有这几项

还有42组码的意义也找不到

我也遇到这个问题了

skg123

2. (defun c:tt ( / )
   
3. (entmake '((0 . "POLY-LINE")
   
4.              (100 . "AcDbEntity")
   
5.              (67 . 0)
   
6.              (8 . "0")
   
7.              (100 . "AcDbPolyline")
   
8.               (90 . 7)
   
9.              (70 . 128)
   
10.              (43 . 0.0)
    
11.              (38 . 0.0)
    
12.              (66 . 1)
    
13.              (10 1.9 10.0)  (40 . 0.0) (41 . 0.0) (42 . 0.0)
    
14.              (10 0.1 0.0)   (40 . 0.0) (41 . 0.0) (42 . 1.0)
    
15.              (10 3.9 0.0)   (40 . 0.0) (41 . 0.0) (42 . 0.0)
    
16.              (10 2.1 10.0 0.0)  (40 . 0.0) (41 . 0.0) (42 . -1.0)
    
17.              (10 5.9 10.0 0.0)  (40 . 0.0) (41 . 0.0) (42 . 0.0)
    
18.              (10 4.1 0.0 0.0)   (40 . 0.0) (41 . 0.0) (42 . 1.0)
    
19.              (10 7.9 0.0 0.0)   (40 . 0.0) (41 . 0.0) (42 . 0.0)
    
20.              (210 0.0 0.0 1.0)
    
21.           )
    
22. )
    
23. (princ)
    
24. )
    
25. 
    
26. 
    
27. 
    
28. ;;By Longxin 明经通道 2006.03
    
29. 
    
30. ;;生成一条pline
    
31. ;;参数：
    
32. ;;plist:坐标点表，如：((x1 y1 z1) (x2 y2 z2) (x2 y2 z2))或((x1 y1) (x2 y2) (x2 y2))
    
33. ;;tudulist:各点之间的凸度表，与plist相对应，可为nil
    
34. ;;bg：标高
    
35. ;;clo:是否闭合，1:闭合，0：不闭合
    
36. (defun c:test ()
    
37. (setq a '((102.946 68.6354 3) (112.102 97.4851 3) (125.484 59.4879 3) (103.651 52.4513 3))
    
38. b '(-1.02092 -0.485629 0 -1.31201)
    
39. )
    
40. (makepline a b 211 1)
    
41. )
    
42. 
    
43. (defun makepline (plist clo bg tudulist / dxf n i pt)
    
44.   (setq bg  (cons 38 bg)
    
45. i   0
    
46. n   (length plist)
    
47. dxf nil
    
48.   )
    
49. 
    
50.   (if (= clo 1)
    
51.     (entmake (list '(0 . "POLYLINE") '(66 . 1) '(70 . 1) bg))
    
52.     (entmake (list '(0 . "POLYLINE") '(66 . 1) bg))
    
53.   )
    
54.   (repeat n
    
55.     (setq pt (nth i plist)
    
56.    pt (list (nth 0 pt) (nth 1 pt))
    
57.     )
    
58.     (if tudulist
    
59.       (entmake (list (cons 0 "VERTEX")
    
60.        (cons 10 pt)
    
61.        (cons 42 (nth i tudulist))
    
62.         )
    
63.       )
    
64.       (entmake (list (cons 0 "VERTEX")
    
65.        (cons 10 pt)
    
66.         )
    
67.       )
    
68.     )
    
69.     (setq i (1+ i))
    
70.   )
    
71.   (entmake '((0 . "SEQEND")))
    
72.   (princ)
    
73. )

(defun c:tt ( / )<br /> (entmake '((0 . "POLY-LINE")<br />              (100 . "AcDbEntity")<br />              (67 . 0)<br />              (8 . "0")<br />              (100 . "AcDbPolyline")<br />               (90 . 7)<br />              (70 . 128)<br />              (43 . 0.0)<br />              (38 . 0.0)<br />              (66 . 1)<br />              (10 1.9 10.0)  (40 . 0.0) (41 . 0.0) (42 . 0.0)<br />              (10 0.1 0.0)   (40 . 0.0) (41 . 0.0) (42 . 1.0)<br />              (10 3.9 0.0)   (40 . 0.0) (41 . 0.0) (42 . 0.0)<br />              (10 2.1 10.0 0.0)  (40 . 0.0) (41 . 0.0) (42 . -1.0)<br />              (10 5.9 10.0 0.0)  (40 . 0.0) (41 . 0.0) (42 . 0.0)<br />              (10 4.1 0.0 0.0)   (40 . 0.0) (41 . 0.0) (42 . 1.0)<br />              (10 7.9 0.0 0.0)   (40 . 0.0) (41 . 0.0) (42 . 0.0)<br />              (210 0.0 0.0 1.0) <br />           )<br /> )<br /> (princ)<br /> )<br /> <br /> <br /> <br /> ;;By Longxin 明经通道 2006.03<br /> <br /> ;;生成一条pline<br /> ;;参数：<br /> ;;plist:坐标点表，如：((x1 y1 z1) (x2 y2 z2) (x2 y2 z2))或((x1 y1) (x2 y2) (x2 y2))<br /> ;;tudulist:各点之间的凸度表，与plist相对应，可为nil<br /> ;;bg：标高<br /> ;;clo:是否闭合，1:闭合，0：不闭合<br /> (defun c:test ()<br /> (setq a '((102.946 68.6354 3) (112.102 97.4851 3) (125.484 59.4879 3) (103.651 52.4513 3))<br /> b '(-1.02092 -0.485629 0 -1.31201)<br /> )<br /> (makepline a b 211 1)<br /> )<br /> <br /> (defun makepline (plist clo bg tudulist / dxf n i pt)<br />   (setq bg  (cons 38 bg)<br /> i   0<br /> n   (length plist)<br /> dxf nil<br />   )<br /> <br />   (if (= clo 1)<br />     (entmake (list '(0 . "POLYLINE") '(66 . 1) '(70 . 1) bg))<br />     (entmake (list '(0 . "POLYLINE") '(66 . 1) bg))<br />   )<br />   (repeat n<br />     (setq pt (nth i plist)<br />    pt (list (nth 0 pt) (nth 1 pt))<br />     )<br />     (if tudulist<br />       (entmake (list (cons 0 "VERTEX")<br />        (cons 10 pt)<br />        (cons 42 (nth i tudulist))<br />         )<br />       )<br />       (entmake (list (cons 0 "VERTEX")<br />        (cons 10 pt)<br />         )<br />       )<br />     )<br />     (setq i (1+ i))<br />   )<br />   (entmake '((0 . "SEQEND")))<br />   (princ)<br /> )

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=44662&highlight=POLYLINE
代码来源 上面帖子的 5楼，但是我没有测试成功
(entmake '((0 . "POLYLINE")

skg123

(conmand ".3dpoly" pt1 pt2 pt 3 pt4 "C")

完整代码，请翻看论文
https://www.docin.com/p-1521012869.html

高飞鸟大神的代码

https://www.highflybird.cn/drupal/node/148

skg123

搜索了一晚上，终于成功了
https://www.highflybird.cn/drupal/node/148

2. (defun c:test ()
   
3. (setq pts '((102.946 68.6354 3) (112.102 97.4851 3) (125.484 59.4879 3) (103.651 52.4513 3))
   
4. Closed 1
   
5. )
   
6. (Ent:Make_Poly pts 1)
   
7. )
   
8. (defun Ent:Make_Poly (pts Closed / e)
   
9.   (if (=  Closed 1)
   
10.     (setq e (Entmake (list '(0 . "POLYLINE") '(70 . 9))))
    
11.     (setq e (Entmake (list '(0 . "POLYLINE") '(70 . 8))))
    
12.   )
    
13.   (foreach p pts
    
14.     (entmake (list '(0 . "VERTEX") '(70 . 32) (cons 10 p)))
    
15.   )
    
16.   (entmake '((0 . "SEQEND")))
    
17.   (entlast)
    
18. )

(defun c:test ()<br /> (setq pts '((102.946 68.6354 3) (112.102 97.4851 3) (125.484 59.4879 3) (103.651 52.4513 3))<br /> Closed 1<br /> )<br /> (Ent:Make_Poly pts 1)<br /> )<br /> (defun Ent:Make_Poly (pts Closed / e)<br />   (if (=  Closed 1)<br />     (setq e (Entmake (list '(0 . "POLYLINE") '(70 . 9))))<br />     (setq e (Entmake (list '(0 . "POLYLINE") '(70 . 8))))<br />   )<br />   (foreach p pts<br />     (entmake (list '(0 . "VERTEX") '(70 . 32) (cons 10 p)))<br />   )<br />   (entmake '((0 . "SEQEND")))<br />   (entlast)<br /> )