哪位帮忙看看这个程序错在哪了？

chenxc

(entmake
       (list
           (cons 0 "LWPOLYLINE")
           (cons 100 "AcDbEntity")
           (cons 100 "AcDbPolyline")
           (cons 6 "bylayer")
           (cons 8 "0")
           (cons 10 pt00)
           (cons 10 pt6)
           (cons 10 pt4)
           (cons 10 pt3)
           (cons 10 pt1)
           (cons 40 0.0)
           (cons 41 0.0)
           (cons 42 0.0)
           (cons 62 5)
           (cons 66 1)
           (cons 70 1)
           (cons 71 0)
           (cons 72 0)
           (cons 73 0)
           (cons 74 0)
           (cons 75 0)
           (cons 90 5)
           (cons 210 (list 0.0 0.0 1.0))
       )        
   )
其中pt00、pt6、pt4、pt3、pt1是五个坐标点；不知错在哪了，就是出不来多段线。

hgf876

把(cons 90 5)往前面放置，我试了可以的

(defun c:tt ()
  (setq        pt00 (getpoint)
        pt6  (getpoint)
        pt4  (getpoint)
        pt3  (getpoint)
        pt1  (getpoint)
  )
  (entmake
    (list
      (cons 0 "LWPOLYLINE")
      (cons 100 "AcDbEntity")
      (cons 100 "AcDbPolyline")
      (cons 6 "bylayer")
      (cons 8 "0")
      (cons 90 5)
      (cons 10 pt00)
      (cons 10 pt6)
      (cons 10 pt4)
      (cons 10 pt3)
      (cons 10 pt1)
      (cons 40 0.0)
      (cons 41 0.0)
      (cons 42 0.0)
      (cons 62 5)
      (cons 66 1)
      (cons 70 1)
      (cons 71 0)
      (cons 72 0)
      (cons 73 0)
      (cons 74 0)
      (cons 75 0)
      (cons 210 (list 0.0 0.0 1.0))
    )
  )
)

Andyhon

亦请参考: http://bbs.mjtd.com/forum.php?mod=viewthread&tid=109214

chenxc

谢谢这位兄弟啊~~