[求助]：程序有错误大家帮我看看谢谢

xxming

(如果程序单独分开都可以用，我想合在一起，但顶点编号只能编号1、2)
(defun c:test ()
  ;多义线顶点编号程序
  (setq key 10 j 0)
    (setq s1 (entsel "\n\t选择对象<退出> : "))
    (redraw (car s1) 3)
    (setq ent (entget(car s1)))
    (if        (or (= (cdr(assoc 0 ent))  "POLYLINE")
            (= (cdr(assoc 0 ent))  "LWPOLYLINE")
        )
    (foreach xy ent
     (if (eq (car xy) key )
      (progn
       (setq j (1+ j))
       (setq pe1 (cdr xy))
       (command "text" pe1 3 0 j)
       (zb)
      )
     )   
    )
    )
)
;任意点插入坐标程序
(defun zb()
  (setq plist (member (assoc 10 ent) ent))
  (setq p_tl (getpoint "\n点取坐标插入点:"))
  (redraw (car s1) 4)
  (setq p1 (polar p_tl (angle '(0 0) '(5 -4))  (sqrt 41)))
  (setq p2 (polar p1 0  30))
  (setq p3 (polar p1 0  80))
  (setq count 0)

  (command "text" "j" "mc"  (polar p1 (/ PI -2) (* count 8)) "3" "0"
         "角点"
  )
  (command "text" "j" "mc"  (polar p2 (/ PI -2) (* count  8)) "3" "0"  "X坐标")
  (command "text" "j" "mc"  (polar p3 (/ PI -2) (* count  8)) "3" "0"  "Y坐标")
  (while (/= plist nil)
    (setq count (1+ count))
    (setq pp_t (car plist))
    (setq x (rtos (caddr pp_t) 2 3))
    (setq y (rtos (cadr pp_t) 2 3))
    (command "text" "j" "mc" (polar p1 (/ PI -2) (* count  8)) "3" "0"
           (itoa count)
    )
    (command "text" "j" "mc" (polar p2 (/ PI -2) (* count 8)) "3" "0" x)
    (command "text" "j" "mc" (polar p3 (/ PI -2)  (* count 8)) "3" "0" y)
    (setq d (cdr plist))
    (setq plist (member (assoc 10 d) d))
  )
)

zhynt

试了一下，可以的啊，很正常啊。你说的合起来是什么意思？