有一段程序老是修改不好请大神看看

流_星

(setq s nil s (ssget "X" (list (cons 2 "tbl,tbl_piping,图纸目录"))))
(if s (Progn
    (setq ss (entget (ssname s 0)))  
    (setq st (cdr (assoc 2 ss)))
    (SETQ SQ NIL)
    (WHILE (/= SQ "SEQEND")
           (SETQ SS (ENTGET (ENTNEXT (CDR (ASSOC '-1 SS)))));(PRINC  SS)
           (SETQ SQ (CDR (ASSOC '0 SS)))
           (if (= "图幅"   (cdr (assoc '2 ss)))(setq tf (cdr (assoc '1 ss))))
           (if (= "装配图还是零件图"   (cdr (assoc '2 ss)))(setq lz (cdr (assoc '1 ss))))
    ) ;WHILE SQ
    (if (= (strlen tf) 2)(setq ntf tf))
    (if (> (strlen tf) 2)
      (progn (setq str tf)
        (setq i (substr str 2 1))
        (setq j (substr str (+ (vl-string-search "x" str) 2)))
        (setq k (/ (read j) 2.0))
        ;(setvar "dimzin" 8)
        (setq newstr (strcat (rtos k 2 4) "A" (itoa (1- (atoi i)))))(setq ntf newstr)))  
     (if (= st "tbl")
               (setq ys (if (= lz "装配图") "ZP.ctb" "LJ.ctb")))
           (if (= st "tbl_piping")
                (setq ys(if (= lz "装配图") "pipe.ctb" "pip.ctb")))
     (Princ "\n ※图幅: ")(Princ tf)(Princ "=")(Princ ntf)
     (Princ "\n ※打印样式: ")(Princ ys)(Princ "\n")
))



粉色处老是报错，不会修改了
请大神看看帮忙修改不胜感激


修改好了谢谢
由衷感谢Andyhon
不厌其烦给我改谢谢啦

Andyhon

您先思考下列叙述
(setq st s)
     (if (= st "TBL2013")

流_星

s是一个块的名称看看第一横
这句咋改谢谢

流_星

Andyhon 发表于 2014-12-2 13:13
您先思考下列叙述
(setq st s)
     (if (= st "TBL2013")

s是一个快的名称这句不对该咋改谢谢

Andyhon

您有用过 VLIDE 检视每一列的变量值吗?

流_星

Andyhon 发表于 2014-12-2 14:52
您有用过 VLIDE 检视每一列的变量值吗?

还没不知道咋用谢谢您能帮我吗

Andyhon

您如果能给出调试用的样本文件(Dwg)...

流_星

还有大神会改吗

流_星

Andyhon 发表于 2014-12-2 17:03
您如果能给出调试用的样本文件(Dwg)...

晚上上传谢谢啦

流_星

Andyhon 发表于 2014-12-2 17:03
您如果能给出调试用的样本文件(Dwg)...

dwg （2012）文件上传了
您看看谢谢啦