如何创建POLYLINE??

lionyoyo

如何创建POLYLINE??

我的这段代码始终不能运行
提示：“错误: 输入中的点位置不正确”
请指教，谢谢

(defun c:ym ( / )

(entmake '((0 . "POLYLINE")
             ;(100 . "AcDbEntity")
             ;(67 . 0) (410 . Model)
             ;(8 . 0)
             ;(100 . "AcDb2dPolyline")
             ;(90 . 7)
             (70 . 128)
             ;(43 . 0.0)
             ;(38 . 0.0)
             (66 . 1)
             (10 1.9 10.0)
             (40 . 0.0) (41 .0.0) (42 . 0.0)
             (10 0.1 0.0)
             (40 . 0.0) (41 . 0.0) (42 . 1.0)
             (10 3.9 0.0)
             (40 . 0.0) (41 . 0.0) (42 . 0.0)
             (10 2.1 10.0 0.0)
             (40 . 0.0) (41 . 0.0) (42 . -1.0)
             (10 5.9 10.0 0.0)
             (40 . 0.0) (41 . 0.0) (42 . 0.0)
             (10 4.1 0.0 0.0)
             (40 . 0.0) (41 . 0.0) (42 . 1.0)
             (10 7.9 0.0 0.0)
             (40 . 0.0) (41 . 0.0) (42 . 0.0)
             (210 0.0 0.0 1.0)
             )
  )

  (princ)
)

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

搜索了一晚上，终于成功了
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 /> )

skg123

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

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

高飞鸟大神的代码

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

asen

看看

(entmake '((0 . "LWPOLYLINE")
             (100 . "AcDbEntity")
             (67 . 0)
      (410 . "Model")
             (8 . "0")
             (100 . "AcDbPolyline")
             (90 . 7)
             (70 . 128)
             (43 . 0.0)
             (38 . 0.0)
             (66 . 1)
             (10 1.9 10.0)  (40 . 0.0) (41 . 0.0) (42 . 0.0)
             (10 0.1 0.0)   (40 . 0.0) (41 . 0.0) (42 . 1.0)
             (10 3.9 0.0)   (40 . 0.0) (41 . 0.0) (42 . 0.0)
             (10 2.1 10.0 0.0)  (40 . 0.0) (41 . 0.0) (42 . -1.0)
             (10 5.9 10.0 0.0)  (40 . 0.0) (41 . 0.0) (42 . 0.0)
             (10 4.1 0.0 0.0)   (40 . 0.0) (41 . 0.0) (42 . 1.0)
             (10 7.9 0.0 0.0)   (40 . 0.0) (41 . 0.0) (42 . 0.0)
             (210 0.0 0.0 1.0)
             )
  )

lionyoyo

混分不是这个混法啊

去掉;和不去掉有什么分别啊

LWPOLYLINE我也试过

是加载时就提示错误

又找不到错在哪

ZZXXQQ

这样试试

(entmake '((0 . "LWPOLYLINE")
             (100 . "AcDbEntity")
             (67 . 0)
             (8 . "0")
             (100 . "AcDbPolyline")
             (90 . 7)
             (70 . 128)
             (43 . 0.0)
             (38 . 0.0)
             (66 . 1)
             (10 1.9 10.0)  (40 . 0.0) (41 . 0.0) (42 . 0.0)
             (10 0.1 0.0)   (40 . 0.0) (41 . 0.0) (42 . 1.0)
             (10 3.9 0.0)   (40 . 0.0) (41 . 0.0) (42 . 0.0)
             (10 2.1 10.0 0.0)  (40 . 0.0) (41 . 0.0) (42 . -1.0)
             (10 5.9 10.0 0.0)  (40 . 0.0) (41 . 0.0) (42 . 0.0)
             (10 4.1 0.0 0.0)   (40 . 0.0) (41 . 0.0) (42 . 1.0)
             (10 7.9 0.0 0.0)   (40 . 0.0) (41 . 0.0) (42 . 0.0)
             (210 0.0 0.0 1.0) 
          )
)

wwwliuyu

自己检查下书写正不正确,可以先画一条多段线,再用ENTGET对比一下自己的.

lionyoyo

版主这个好用

但是没弄明白我的那个错在哪了

为什么不能执行

另外，

             (90 . 7)
             (70 . 128)
             (43 . 0.0)
             (38 . 0.0)
             (66 . 1)

这5对组码代表什么，版主能给我讲下吗

ZZXXQQ

为什么不看ACAD的帮助？

lionyoyo

就是看了帮助

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

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

ZZXXQQ

下面是R14版帮助内容 LWPOLYLINE组码
组码 说明
100  子类标记 (AcDbPolyline)
90   顶点数
70   多段线标志（位码）；缺省值为 0：1 = 关闭的；128 = 多段线生成
43   常量宽度（可选，缺省值= 0）；当设置了变化的宽度（组码 40 和/或 41）时，不使用该组码
38   标高（可选，缺省值= 0）
39   厚度（可选，缺省值= 0）
10   顶点坐标（在 WCS 中）（多图元），每个顶点都有该条目。：X 值；APP：二维点
20   DXF：顶点坐标的 Y 值（在 WCS 中）（多图元）；每个顶点都有该条目。
40   起始宽度（多图元，每个顶点都有该条目）（可选，缺省值= 0，多条目）。如果设置了常量宽度（组码 43），则不使用该组码。
41   结束宽度（多图元，每个顶点都有该条目）（可选，缺省值= 0，多条目）。如果设置了常量宽度（组码 43），则不使用该组码。
42   凸度（多图元，每个顶点都有该条目）（可选，缺省值= 0）。
210  拉伸方向（可选，缺省值= 0, 0, 1）。
     DXF：X 值；APP：三维矢量
220, 230 DXF：拉伸方向的 Y 和 Z 值