流_星 发表于 2014-12-2 12:30:45

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

本帖最后由 流_星 于 2014-12-3 19:59 编辑

(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)))));(PRINCSS)
         (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 发表于 2014-12-2 13:13:53

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

流_星 发表于 2014-12-2 13:49:16

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

流_星 发表于 2014-12-2 13:51:19

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

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

Andyhon 发表于 2014-12-2 14:52:02

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

流_星 发表于 2014-12-2 15:40:53

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

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

Andyhon 发表于 2014-12-2 17:03:03

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

流_星 发表于 2014-12-2 17:44:50

还有大神会改吗

流_星 发表于 2014-12-2 17:45:52

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

晚上上传谢谢啦

流_星 发表于 2014-12-2 18:38:37

Andyhon 发表于 2014-12-2 17:03 http://bbs.mjtd.com/static/image/common/back.gif
您如果能给出调试用的样本文件(Dwg)...

dwg （2012）文件上传了
您看看谢谢啦
页: [1] 2
查看完整版本: 有一段程序老是修改不好请大神看看