[求助]：帮忙看看这里的错误，有劳大侠了

lzy9788

现在提示参数类型错误，不知道错在哪
(Defun c:SB (/ ss sscnt slist sname blkattlist blkattval newval)
(setvar "cmdecho" 0)
(command ".undo" "BE")
(princ "\n批量修改轴线号属性值---VER 1.0。")
(setq ss (ssget '((0 . "INSERT"))))
(setq sscnt (sslength ss) nno 0)
(setq pd1 (cdr (assoc 10 (entget (ssname ss 0)))))
(setq pd2 (cdr (assoc 10 (entget (ssname ss 1)))))
(setq ang_pd (angle pd1 pd2))

(cond ((= ang_pd (* pi 0.5)) (sort_nam_Y_mi_ma))
      ((= ang_pd (* pi 1.5)) (sort_nam_Y_mi_ma))
      ((or (/= ang_pd (* pi 0.5)) (/= ang_pd (* pi 1.5))) (sort_nam_X_mi_ma))
)
(setq attrib_val (getstring "\n输入起始值:"))
(setq ascii_val (ascii attrib_val))
    (if (= attrib_val "") (progn (command ".undo" "E") (exit)))
(while (< nno sscnt)
(setq sname (nth nno list_ent))
(setq slist (entget sname))
(if (assoc 66 slist)
(progn
(setq blkattlist (entget (entnext sname)))
(setq newval
    (cond
       ((and (>= ascii_val 97) (<= ascii_val 122)) (itoa (chr (+ asscii_val nno))))
       ((and (>= ascii_val 65) (<= ascii_val 90)) (itoa (chr (+ asscii_val nno))))
       ((< (atoi attrib_val) 65) (itoa (+ (atoi attrib_val) nno)))
    )
)

(setq blkattlist (subst (cons 1 newval) (assoc 1 blkattlist) blkattlist))
(entmod blkattlist)
(entupd sname)
);progn
);if
(setq nno (1+ nno))
);while
(command ".undo" "E")
(setvar "cmdecho" 1)
(princ)
)


;-----------------------------------------------
;;;;;;;;;根据X坐标从小到大将所选图元排序;;;;;;;;
;-----------------------------------------------
(defun sort_nam_X_mi_ma ()
(setq n (sslength ss))
(setq list_ent nil)
(setq m 0)
(while (< m n)
  (setq list_ent (append list_ent (list (ssname ss m))))
  (setq m (1+ m))
)
(setq l 0)
(setq m 1)
(while (< l n)
  (setq b (entget (nth l list_ent)))
  (while (< m n)
    (setq c (entget (nth m list_ent)))
    (if (< (nth 1 (assoc '10 c)) (nth 1 (assoc '10 b)))
      (progn
      (setq list_ent (subst 'aa (nth l list_ent) list_ent))
      (setq list_ent (subst 'bb (nth m list_ent) list_ent))
      (setq list_ent (subst c 'aa list_ent))
      (setq list_ent (subst b 'bb list_ent))
      (setq b c)
      )
     )
    (setq m (1+ m))
  )
  (setq l (1+ l))
  (setq m (1+ l))
)
);end defun


;-----------------------------------------------
;;;;;;;;;根据Y坐标从小到大将所选图元排序;;;;;;;;
;-----------------------------------------------
(defun sort_nam_Y_mi_ma ()
(setq n (sslength ss))
(setq list_ent nil)
(setq m 0)
(while (< m n)
  (setq list_ent (append list_ent (list (ssname ss m))))
  (setq m (1+ m))
)
(setq l 0)
(setq m 1)
(while (< l n)
  (setq b (entget (nth l list_ent)))
  (while (< m n)
    (setq c (entget (nth m list_ent)))
    (if (< (nth 2 (assoc '10 c)) (nth 2 (assoc '10 b)))
      (progn
      (setq list_ent (subst 'aa (nth l list_ent) list_ent))
      (setq list_ent (subst 'bb (nth m list_ent) list_ent))
      (setq list_ent (subst c 'aa list_ent))
      (setq list_ent (subst b 'bb list_ent))
      (setq b c)
      )
     )
    (setq m (1+ m))
  )
  (setq l (1+ l))
  (setq m (1+ l))
)
);end defun

maplesu

你的错误在于
(setq b (entget (nth l list_ent)))（给b图元的数据了）
(while (< m n)
(setq c (entget (nth m list_ent)))（给c图元的数据了）
(if (< (nth 1 (assoc '10 c)) (nth 1 (assoc '10 b)))
(progn
(setq list_ent (subst 'aa (nth l list_ent) list_ent))
(setq list_ent (subst 'bb (nth m list_ent) list_ent))
(setq list_ent (subst c 'aa list_ent))（把这个图元数据c给到列表了）
(setq list_ent (subst b 'bb list_ent))（把这个图元数据b给到列表了）
(setq b c)
在这个中，你已经把b和c给了图元的数据，已经不是名称了
你在把数据加回原来的列表list_ent，这个列表不再是只有图元名称的列表了
这样entget读取不到图元名称了。

这段我建议改为

(while (< l n)
(setq b (nth l list_ent))
(while (< m n)
(setq c (nth m list_ent))
(if (< (nth 1 (assoc 10 (entget c))) (nth 1 (assoc 10 (entget b))))
(progn
(setq list_ent (subst 'aa (nth l list_ent) list_ent))
(setq list_ent (subst 'bb (nth m list_ent) list_ent))
(setq list_ent (subst c 'aa list_ent))
(setq list_ent (subst b 'bb list_ent))
(setq b c)

lzy9788

呵呵，多谢谢了，我都编糊涂了，谢了。