求大侠帮忙改下代码，

jly0406

我是个菜鸟，代码是拼凑起来的，目的是通过选择多条直线，单线分成双线，然后在端点处（双线中的一条端点即可）自动画个圈，现在圈画不出来，求各位大神帮看看是哪里出了问题

(setq kxmian 30 mkxmian 35 ztxmian 30 csxmian 41.5 msxmian 67 ktxingshi 2 dajie 11 dajief2 5.5 blfx 7)
(defun c:zt();中梃
(progn
(vl-load-com)
(setvar "cmdecho" 0) (setvar "osmode" 0)
(setq spst'())
(setq k 0 a (/ ztxmian 2)) (setq aa (ssget ) f (sslength aa));偏移值
    (while (< k f)
        (setq ent1 (ssname aa k) VL1 (vlax-ename->vla-object ent1))
        (setq ptst (vlax-get VL1 'startpoint) pten (vlax-get VL1 'endpoint))       ;求端点
        (setq X1 (car ptst) X2 (car pten))
        (if (= X1 X2)
               (progn
                 (princ "竖向")
                  (setq spst (cons ptst spst));;;;;;;;;;;;;;;;;;;;;;;;先测试这个就行
                  (setq spen (cons pten spen))
                )
               (progn
                 (princ "横向")
                  (setq hpst(cons (list(+(car ptst) 100 )(+(cadr ptst) 100)) hpst))
                  (setq hpen(cons (list(-(car ptst) 100 )(-(cadr ptst) 100)) hpen))
               )
        )

        (setq ptst (list (car ptst) (nth 1 ptst))) (command "OFFSET" a ent1 ptst "" )
        (setq bb (entlast)) (command "MIRROR" bb "" ptst pten "n" )
        (command"erase" ent1 "" )  ;删除源直线，要保留取直线请消此行函数
        (setq k (1+ k))
    ))

  (setq spst (reverse spst))

  (repeat (length spst)   
    (setq lsd(nth i spst))

    (command ".CIRCLE" lsd 80)
    (princ "测试")
    (setq i(1+ i))
  )

  (setvar "osmode" 16383)  (princ)
)

zyhandw

i变量都没有初始化赋值，i没有值，当然也就画不出来！
在(setq spst (reverse spst))后面加上一句(setq i 0)试试。