请教下这段代码有什么问题，为啥用list就报错

天之如一

;;多段线相对点计算函数
(defun createPline (basepoint points arc-pt-value-list / i temp )
  (vl-load-com)
  (setq acadObj (vlax-get-acad-object))
  (setq doc (vla-get-ActiveDocument acadObj))
  (setq modelSpace (vla-get-ModelSpace doc))
  ;; 创建多段线
  (setq i 0)
  (setq ptlist nil )
  (while (<= i (- (length points) 1)) ;;相对点计算
        (setq point (nth i points))
    (setq point-new (mapcar '+ basepoint point))
        (setq ptlist (cons point-new ptlist))
        (setq i (1+ i))
     )
  (setq temp (apply 'append ptlist ))
  (setq points (vlax-make-safearray vlax-vbDouble (cons 0 (- (length temp) 1))))
  (vlax-safearray-fill points temp )
  ;; 创建多段线
  (setq plineObj (vla-addPolyline modelSpace points))
  ;;多断线设置多点凸度值
  (set-convexity-for-multiple-points plineObj arc-pt-value-list )
)
  ;;设置多点凸度值函数
(defun set-convexity-for-multiple-points (plineObj arc-pt-value-list / a temp )
  (setq a 0)
  (if (/= nil arc-pt-value-list )
                       (repeat (length arc-pt-value-list)
      
      (progn
            (setq temp ( nth a arc-pt-value-list)
              arc-pt (nth 0 temp)
              arc-value (nth 1 temp))
        (vla-setBulge plineObj arc-pt arc-value)
        (setq a ( + 1 a))
       )
     )     
  )
)
;;绘制扶梯主程序
  (defun c:tt ()
  (setq bp (getpoint "\n确定基点："))
（setq top-length (getreal "\n请确定上水平长度"）
   (setq pts1 '(
                (-2826 0 0)
                (-2846.31 106.185 0)
                (-2827.908 200  0)
                (-2797.37 250  0)
                (-2776 250 0 )
                (-2776 150  0)
                (-2776 0 0)
                )
   )
   (setq line11 (createPline bp pts1 '(
                                       (3 0.2)
                                       )
                )
   )
;;创建直线1-2
    (setq pts2 '(
                 (-2797.37 250 0)
                 (-2876 250 0)
                 (-2876 950 0)
                 (-829 950 0)
                 (820.3194 507.8838 0)
                 )
    )
   (setq line12 (createPline bp pts2 '(
                                       (0 0.1325)
                                       (2 1)
                                       )
                )
   )
;;创建直线1-3
   (setq pts3 '(
                (-2827.908 200 0)
                (-2876 200 0)
                (-2876 1000 0)
                (-816.2831 1000 0)
                (833.7169 557.8838 0)
                )
   )
   (setq line13 (createPline bp pts3 '(
                                       (0 0.1325)
                                       (2 1)
                                       )
                )
   )
;;创建直线1-4
   (setq pts4 '(
                (-2776 150 0)
                (-193.7822 150 0)
                )
   )
   (setq line14 (createPline bp pts4 '(
                                       (0 0)
                                       )
                )
   )
;; 创建直线top-linex1
    (setq  ptsx1 (list
                  '(0 0 0)
                  ( list ((- ( - top-length) 250)) 0 0)
                  ( list ((- ( - top-length) 250)) -80 0)
                  ( list ((+ ( - top-length) 250)) -80 0)
                  ( list ((+( - top-length) 250)) 0 0)
                )
    )
;; 创建直线top-linex2
    (setq  ptsx2  (list
                   ( list ((+ ( - top-length) 50)) -80 0)
                   ( list ((+(-top-length) 50))  -1305 0)
                   ( 296.3263 -1305.0000 0)
                   )
    )
    (setq top-linex2 (createPline bp ptsx2 '(
                                             (0 0)
                                             )
                     )
    )
;; 创建直线top-linex3
    (setq  ptsx3  (list
                   (list (- top-length) -80 0)
                   (list (- top-length) -1700 0)
                   )
    )
    (setq top-linex3 (createPline bp ptsx3 '(
                                             (0 0)
                                             )
                     )
    )
)

飞雪神光

1. ;;绘制扶梯主程序
   
2. (defun c:tt ()
   
3.   (setq bp (getpoint "\n确定基点："))
   
4.         (setq top-length (getreal "\n请确定上水平长度"))
   
5.         (setq pts1 '(
   
6.                                                                 (-2826 0 0)
   
7.                                                                 (-2846.31 106.185 0)
   
8.                                                                 (-2827.908 200  0)
   
9.                                                                 (-2797.37 250  0)
   
10.                                                                 (-2776 250 0 )
    
11.                                                                 (-2776 150  0)
    
12.                                                                 (-2776 0 0)
    
13.                                                         )
    
14.         )
    
15.         (setq line11 (createPline bp pts1 '(
    
16.                                                                                                                                                          (3 0.2)
    
17.                                                                                                                                                  )
    
18.                                                          )
    
19.         )
    
20.         ;;创建直线1-2
    
21.         (setq pts2 '(
    
22.                                                                 (-2797.37 250 0)
    
23.                                                                 (-2876 250 0)
    
24.                                                                 (-2876 950 0)
    
25.                                                                 (-829 950 0)
    
26.                                                                 (820.3194 507.8838 0)
    
27.                                                         )
    
28.         )
    
29.         (setq line12 (createPline bp pts2 '(
    
30.                                                                                                                                                          (0 0.1325)
    
31.                                                                                                                                                          (2 1)
    
32.                                                                                                                                                  )
    
33.                                                          )
    
34.         )
    
35.         ;;创建直线1-3
    
36.         (setq pts3 '(
    
37.                                                                 (-2827.908 200 0)
    
38.                                                                 (-2876 200 0)
    
39.                                                                 (-2876 1000 0)
    
40.                                                                 (-816.2831 1000 0)
    
41.                                                                 (833.7169 557.8838 0)
    
42.                                                         )
    
43.         )
    
44.         (setq line13 (createPline bp pts3 '(
    
45.                                                                                                                                                          (0 0.1325)
    
46.                                                                                                                                                          (2 1)
    
47.                                                                                                                                                  )
    
48.                                                          )
    
49.         )
    
50.         ;;创建直线1-4
    
51.         (setq pts4 '(
    
52.                                                                 (-2776 150 0)
    
53.                                                                 (-193.7822 150 0)
    
54.                                                         )
    
55.         )
    
56.         (setq line14 (createPline bp pts4 '(
    
57.                                                                                                                                                          (0 0)
    
58.                                                                                                                                                  )
    
59.                                                          )
    
60.         )
    
61.         ;; 创建直线top-linex1
    
62.         (setq  ptsx1 (list
    
63.                                                                  '(0 0 0)
    
64.                                                                  (list (- (- top-length) 250) 0 0)
    
65.                                                                  (list (- (- top-length) 250) -80 0)
    
66.                                                                  (list (+ (- top-length) 250) -80 0)
    
67.                                                                  (list (+(- top-length) 250) 0 0)
    
68.                                                          )
    
69.         )
    
70.         ;; 创建直线top-linex2
    
71.         (setq  ptsx2  (list
    
72.                                                                         (list (+ ( - top-length) 50) -80 0)
    
73.                                                                         (list (+(- top-length) 50)  -1305 0)
    
74.                                                                         '(296.3263 -1305.0000 0)
    
75.                                                                 )
    
76.         )
    
77.         (setq top-linex2 (createPline bp ptsx2 '(
    
78.                                                                                                                                                                                 (0 0)
    
79.                                                                                                                                                                         )
    
80.                                                                          )
    
81.         )
    
82.         ;; 创建直线top-linex3
    
83.         (setq  ptsx3  (list
    
84.                                                                         (list (- top-length) -80 0)
    
85.                                                                         (list (- top-length) -1700 0)
    
86.                                                                 )
    
87.         )
    
88.         (setq top-linex3 (createPline bp ptsx3 '(
    
89.                                                                                                                                                                                 (0 0)
    
90.                                                                                                                                                                         )
    
91.                                                                          )
    
92.         )
    
93. )

;;绘制扶梯主程序<br /> (defun c:tt ()<br />   (setq bp (getpoint "\n确定基点："))<br />         (setq top-length (getreal "\n请确定上水平长度"))<br />         (setq pts1 '(<br />                                                                 (-2826 0 0)<br />                                                                 (-2846.31 106.185 0)<br />                                                                 (-2827.908 200  0)<br />                                                                 (-2797.37 250  0)<br />                                                                 (-2776 250 0 )<br />                                                                 (-2776 150  0)<br />                                                                 (-2776 0 0)<br />                                                         )<br />         )<br />         (setq line11 (createPline bp pts1 '(<br />                                                                                                                                                          (3 0.2)<br />                                                                                                                                                  )<br />                                                          )<br />         )<br />         ;;创建直线1-2<br />         (setq pts2 '(<br />                                                                 (-2797.37 250 0)<br />                                                                 (-2876 250 0)<br />                                                                 (-2876 950 0)<br />                                                                 (-829 950 0)<br />                                                                 (820.3194 507.8838 0)<br />                                                         )<br />         )<br />         (setq line12 (createPline bp pts2 '(<br />                                                                                                                                                          (0 0.1325)<br />                                                                                                                                                          (2 1)<br />                                                                                                                                                  )<br />                                                          )<br />         )<br />         ;;创建直线1-3<br />         (setq pts3 '(<br />                                                                 (-2827.908 200 0)<br />                                                                 (-2876 200 0)<br />                                                                 (-2876 1000 0)<br />                                                                 (-816.2831 1000 0)<br />                                                                 (833.7169 557.8838 0)<br />                                                         )<br />         )<br />         (setq line13 (createPline bp pts3 '(<br />                                                                                                                                                          (0 0.1325)<br />                                                                                                                                                          (2 1)<br />                                                                                                                                                  )<br />                                                          )<br />         )<br />         ;;创建直线1-4<br />         (setq pts4 '(<br />                                                                 (-2776 150 0)<br />                                                                 (-193.7822 150 0)<br />                                                         )<br />         )<br />         (setq line14 (createPline bp pts4 '(<br />                                                                                                                                                          (0 0)<br />                                                                                                                                                  )<br />                                                          )<br />         )<br />         ;; 创建直线top-linex1<br />         (setq  ptsx1 (list<br />                                                                  '(0 0 0)<br />                                                                  (list (- (- top-length) 250) 0 0)<br />                                                                  (list (- (- top-length) 250) -80 0)<br />                                                                  (list (+ (- top-length) 250) -80 0)<br />                                                                  (list (+(- top-length) 250) 0 0)<br />                                                          )<br />         )<br />         ;; 创建直线top-linex2<br />         (setq  ptsx2  (list<br />                                                                         (list (+ ( - top-length) 50) -80 0)<br />                                                                         (list (+(- top-length) 50)  -1305 0)<br />                                                                         '(296.3263 -1305.0000 0)<br />                                                                 )<br />         )<br />         (setq top-linex2 (createPline bp ptsx2 '(<br />                                                                                                                                                                                 (0 0)<br />                                                                                                                                                                         )<br />                                                                          )<br />         )<br />         ;; 创建直线top-linex3<br />         (setq  ptsx3  (list<br />                                                                         (list (- top-length) -80 0)<br />                                                                         (list (- top-length) -1700 0)<br />                                                                 )<br />         )<br />         (setq top-linex3 (createPline bp ptsx3 '(<br />                                                                                                                                                                                 (0 0)<br />                                                                                                                                                                         )<br />                                                                          )<br />         )<br /> )

寒潮大冬瓜

很好→很棒！很好~很棒！！很好……很棒！！！

天之如一

飞雪神光 发表于 2024-8-25 20:51

怎么使用这个编辑器啊，为啥我没有

飞雪神光

编辑器是飞诗 显示效果是 在编辑框上 的 <> 这个东西里面

天之如一

飞雪神光 发表于 2024-8-26 16:46
编辑器是飞诗 显示效果是 在编辑框上 的  这个东西里面

噢噢噢噢，谢谢。。。。