[LISP程序]：请问我的程序的问题在那?(见内)

lgw

(DEFUN C:FF ()
   (SETQ P1 (LIST 1 -1))
   (SETQ P2 (LIST 2 3))
   (SETQ P3 (LIST 4 6))
   (SETQ P5 (LIST 4 -3))
   (SETQ P6 (LIST 5 8))
   (SETQ P7 (LIST 7 -9))
   (SETQ P8 (LIST 10 1))
   (SETQ P9 (LIST 12 -7))
   (SETQ P10 (LIST 17 9))

(SETQ PLIST '(P1 P2 P3 P5 P6 P7 P8 P9 P10))
(APPLY 'COMMAND (CONS "PLINE" PLIST))

);;END DEFUN

eachy

(setq plist '(p1 p2 p3 p5 p7 p8 p9 p10)) 返回值为 (p1 p2 p3 p5 p7 p8 p9 p10)而不是点表，这里应该用list。
另外apply应该再加一个(command "")退出pline命令。

2. 
   
3. 1. list
   
4. 
   
5. 将任意数目的表达式组合成一个表
   
6. (list [expr...])
   
7. 
   
8. 本函数常用于定义二维或三维点变量（由两个或三个实数组成的表）。
   
9. 
   
10. 参数
    
11. 
    
12. expr
    
13. 
    
14. AutoLISP 表达式。
    
15. 
    
16. 返回值
    
17. 
    
18. 表。如果未提供表达式，则 list 返回 nil。
    
19. 
    
20. 样例
    
21. 
    
22. 命令：(list 'a 'b 'c)
    
23. 
    
24. (A B C)
    
25. 
    
26. 命令：(list 'a '(b c) 'd)
    
27. 
    
28. (A (B C) D)
    
29. 
    
30. 命令：(list 3.9 6.7)
    
31. 
    
32. (3.9 6.7)
    
33. 
    
34. 如果表中没有变量和未定义的项，还可以用 quote 函数显式引用一个表，这和调用 list 函数效果相同。
    
35. 单引号 ( ' ) 被定义为 quote 函数。
    
36. 
    
37. 命令：'(3.9 6.7)              等于  (list 3.9 6.7)
    
38. 
    
39. 这对创建关联表和定义点来说很有用。
    
40. 
    
41. 2. command
    
42. 执行一条 AutoCAD 命令
    
43. (command [arguments] ...)
    
44. 
    
45. 参数
    
46. 
    
47. arguments
    
48. 
    
49. AutoCAD 命令、选项或表达式。
    
50. command 函数的参数可以是字符串、实数、整数或点，但必须与要执行的命令所需的参数一致。空字符串 ("") 表示从键盘键入 ENTER 键。
    
51. 不带参数调用 command 相当于键入 ESC 键，这样可取消大多数 AutoCAD 命令。
    
52. 
    
53. command 函数将每一个参数顺序传给 AutoCAD 以响应提示。它以字符串形式提交命令名和选项；以两个实数组成的表的形式提交二维点；
    
54. 以三个实数组成的表的形式提交三维点。只有在命令提示下 AutoCAD 才能识别命令名。
    
55. 要注意的是，如果从 Visual LISP 中使用 command 函数，控制并不会转移到 AutoCAD 中。如果命令要求用户输入，则可以在控制台窗口
    
56. 中看到返回结果 (nil)，但 AutoCAD 将等待输入，必须手动激活 AutoCAD 并响应提示。在这样做以前，任何后续命令都会失败。
    
57. 
    
58. 返回值
    
59. 
    
60. nil

<br /> 1. list<br /> <br /> 将任意数目的表达式组合成一个表<br /> (list [expr...])<br /> <br /> 本函数常用于定义二维或三维点变量（由两个或三个实数组成的表）。<br /> <br /> 参数<br /> <br /> expr <br /> <br /> AutoLISP 表达式。<br /> <br /> 返回值<br /> <br /> 表。如果未提供表达式，则 list 返回 nil。<br /> <br /> 样例<br /> <br /> 命令：(list 'a 'b 'c) <br /> <br /> (A B C) <br /> <br /> 命令：(list 'a '(b c) 'd) <br /> <br /> (A (B C) D) <br /> <br /> 命令：(list 3.9 6.7) <br /> <br /> (3.9 6.7)<br /> <br /> 如果表中没有变量和未定义的项，还可以用 quote 函数显式引用一个表，这和调用 list 函数效果相同。<br /> 单引号 ( ' ) 被定义为 quote 函数。<br /> <br /> 命令：'(3.9 6.7)              等于  (list 3.9 6.7)<br /> <br /> 这对创建关联表和定义点来说很有用。<br /> <br /> 2. command<br /> 执行一条 AutoCAD 命令<br /> (command [arguments] ...)<br /> <br /> 参数<br /> <br /> arguments <br /> <br /> AutoCAD 命令、选项或表达式。<br /> command 函数的参数可以是字符串、实数、整数或点，但必须与要执行的命令所需的参数一致。空字符串 ("") 表示从键盘键入 ENTER 键。<br /> 不带参数调用 command 相当于键入 ESC 键，这样可取消大多数 AutoCAD 命令。<br /> <br /> command 函数将每一个参数顺序传给 AutoCAD 以响应提示。它以字符串形式提交命令名和选项；以两个实数组成的表的形式提交二维点；<br /> 以三个实数组成的表的形式提交三维点。只有在命令提示下 AutoCAD 才能识别命令名。<br /> 要注意的是，如果从 Visual LISP 中使用 command 函数，控制并不会转移到 AutoCAD 中。如果命令要求用户输入，则可以在控制台窗口<br /> 中看到返回结果 (nil)，但 AutoCAD 将等待输入，必须手动激活 AutoCAD 并响应提示。在这样做以前，任何后续命令都会失败。<br /> <br /> 返回值<br /> <br /> nil

前生

转mjtd的多义线
;;(defun c:entmakelwpoly (/ vlist elist lay col wdt pt)                                        ;vertex list
(defun ent(Vlist LAY COL MDT  / elist  pt)                                        ;vertex list
;;  (Setq vlist '((50 50) (150 50) (150 150) (50 150)))
  ;Vlist__点的表,为世界坐标
  ;lay__层名
  ;col__实体颜号.256号颜色是随层的颜色
  ;mdt__实体线宽.
  (setq elist '())
;;  (setq lay "0")  (setq col 2)  (setq wdt 2.0)
  (setq        elist (append elist
                      (list
                        (cons 0 "LWPOLYLINE")
                        (cons 100 "AcDbEntity")
                        (cons 67 0)
                        (cons 62 col)
                        (cons 410 "Model")
                        (cons 8 lay)
                        (cons 100 "AcDbPolyline")
                        (cons 90 (length vlist))
                        (cons 70 1)
                        (cons 43 mdt)
                        (cons 38 0.0)
                        (cons 39 0.0)
                      )
              )
  )

  (foreach pt vlist
    (setq elist        (append        elist
                        (list
                          (cons 10 pt)
                          (cons 40 2.0)
                          (cons 41 2.0)
                          (cons 42 0.0)
                        )
                )
    )
  )

  (setq elist (append elist (list (list 210 0.0 0.0 1.0))))
  (entmake elist)

  (princ)
)

(DEFUN C:CZ()
  (setq lls (list p1 p2 p3 p4))
  (ENT lls "1" 256 0)
)