chenxc 发表于 2014-3-7 22:01:01

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

(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 发表于 2014-3-7 23:15:47

把(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 发表于 2014-3-8 08:30:00

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

chenxc 发表于 2014-3-8 19:20:44

谢谢这位兄弟啊~~
页: [1]
查看完整版本: 哪位帮忙看看这个程序错在哪了？