[求助]enmake建立多段线的问题

li_abcxyz

用lisp写了一个小程序，从文本文件读入坐标，在cad里画多段线，文本格式为：

1 495227 4143786
1 495226 4143788
1 495225 4143790

程序源码如下：

(defun c:tkl (/ filename pointgroup corlist data POINTNUMBER)
  (setq filename (open (getfiled "选择数据文件" " " "" 0) "r"))
  (setq pointgroup
      nil
 OINTNUMBER 0
  )
  (while (sETQ DATA (read-line filename))
    (setq corlist (list (list 10
         (CAdR (READ (STRCAT "(" DATA ")")))
         (CAddR (READ (STRCAT "(" DATA ")")))
   )
   (cons 40 0)
   (cons 41 0)
   (cons 42 0)
    )
    )
    (setq pointgroup (append corlist pointgroup))
    (SETQ POINTNUMBER
    (1+ POINTNUMBER)
    )
  )
     ;(setq pointgroup (reverse pointgroup))
  (print pointgroup)
  (close filename)
  (entmake
    (list (append
     (list      
       (cons 0 "LWPOLYLINE")      
       (CONS 5 "150")
       (cons 100 "AcDbEntity")
       (CONS 67 0)
       (cons 410 "model")
       (cons 8 "tracklines")
       (cons 100 "AcDbPolyline")
       (cons 90 POINTNUMBER)             
       (cons 70 0)
       (cons 43 0)
       (cons 38 0)
       (cons 39 0)

     )
     pointgroup
    (LIST (list 210 0.0 0.0 1))
   )
    )
  )
  (gc)
)

运行后提示：

错误: DXF
组不正确: ((0 . "LWPOLYLINE") (5 . "150") (100 . "AcDbEntity") (67 . 0) (410 .
"model") (8 . "tracklines") (100 . "AcDbPolyline") (90 . 3) (70 . 0) (43 . 0)
(38 . 0) (39 . 0) (10 495225 4143790) (40 . 0) (41 . 0) (42 . 0) (10 495226
4143788) (40 . 0) (41 . 0) (42 . 0) (10 495227 4143786) (40 . 0) (41 . 0) (42 .
0) (210 0.0 0.0 1))

请高手指点，错在何处了，不胜感激。

rongyifei

我觉得最好用vlisp写,这样省得记繁杂的dxf组码!

li_abcxyz

vlisp不熟呢，否则也用不着这么麻烦。

rongyifei

找本资料好好研究一下!

wzz1968

如果图省事,直接用command函数,调用AUTOCAD的pline命令.程序十分明了.

当然显得不是十分专业.

rongyifei

这个问题好象在哪儿见过,版主已经给了你很好的答复!

龙龙仔

2. ;;表錯了!
3. (entmake
4.     (append
5.       (list
6. (cons 0 "LWPOLYLINE")
7. (cons 100 "AcDbEntity")
8. (cons 410 "model")
9. (cons 8 "tracklines")
10. (cons 100 "AcDbPolyline")
11. (cons 90 POINTNUMBER)
12. (cons 70 0)
13.       )
14.       POINTGROUP
15.       (list (list 210 0.0 0.0 1))
16.     )
17.   )

复制代码

njcknfy

(CONS 5 "150")
这一句有问题，DXF组码为5的是实体的句柄，是由CAD自动生成的，做为对实体在图形的唯一索引，相当于数据库中的自动编号的ID号，在使用entmake语句时不能定义实体的句柄

烟盒迷唇

组码错了，修改一下就得了