但拷回来挂在简体系统就不能用,求助!!!!

zzy780111

(defun c:CNN()
  (setvar "cmdecho" 0)
  ;(command "ucs" "")
  ;(setq oldosmode(getvar "osmode"))
;;;  (setvar "osmode" 0)
  (princ "请选择序号首个样板:" )
  (setq sta(ssget))
  (setq ssn(ssname sta 0))
  (setq ss1(entget ssn))
  (setq blocktype (cdr(assoc 2 ss1)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  (setq  c0        ssn
            tb(entget c0)
            ty(cdr (assoc 0 tb))  
            tl(cdr (assoc 2 tb))
       )
    (setq c c0)
    (while (/= ty "SEQEND")
         (     setq c (entnext c)
               tb(entget c)
               ty(cdr (assoc 0 (entget c)))
               va(cdr (assoc 1 tb)) ;GET ATTRIB DEFUN VALUE
               na(cdr (assoc 2 tb))
         )
         (if (= na "流水号")
           (progn
            (setq filename (cdr (assoc 1 tb)))
            (setq len(strlen filename))
            (setq filename2(substr filename 1 (- len 3) ) )
            (setq num2(substr filename (- len 2) 3))
                      )
           )
             )
   (setq num2 (atoi num2))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;   
  (princ "\n请选择要排序的图框:" )
  (setq ss(ssget))
  (setq a4(ssadd))
  (setq j 0)
  (repeat (sslength ss)
    (setq current(ssname ss j))
    (setq currentobject(entget current))
    (setq  block (cdr(assoc 2 currentobject)))
    (if (= block blocktype)
      (setq a4(ssadd current a4))
         )
   (setq j(1+ j))
      )
   (setq i 0)
   (repeat (sslength a4)
   (setq currentblock(ssname a4 i))
   (setq currentobjectblock(entget currentblock))
   (setq insertpoint(cdr(assoc 10 currentobjectblock)))
   (if (= i 0) (setq item (list(list currentblock insertpoint))) (setq item (cons (list currentblock insertpoint) item)))
   (setq i (1+ i))
  )

;;; y= (setq m (nth 1(nth 1 (nth 0 item))))
   
   (setq m 0)
   (repeat (length item)
   (setq n 0)
   (setq num 0)
   (setq num3 0)
   (setq num4 0)
     
   (repeat (length item)
   
   (if   (< (+ (nth 1(nth 1 (nth m item)))50) (nth 1(nth 1 (nth n item))) )       (setq num (1+ num)))
   (if   (and (< (-(nth 1(nth 1 (nth m item)))50) (nth 1(nth 1 (nth n item)))) (> (+(nth 1(nth 1 (nth m item)))50) (nth 1(nth 1 (nth n item))))     (> (nth 0(nth 1 (nth m item)))  (nth 0(nth 1 (nth n item)))))   (setq num (1+ num)))
   (setq n (1+ n))
    )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;   
       (setq  c0 (nth 0 (nth m item))
            tb (entget c0)
            ty(cdr (assoc 0 tb))  
            tl(cdr (assoc 2 tb))
       )
    (setq c c0)
    (while (/= ty "SEQEND")
         (     setq c (entnext c)
               tb(entget c)
               ty(cdr (assoc 0 (entget c)))
               va(cdr (assoc 1 tb)) ;GET ATTRIB DEFUN VALUE
               na(cdr (assoc 2 tb))
         )
         (if (= na "流水号")
             (progn
            (setq num3 (+ num num2))
            (if (< num3 10)     (setq num4(strcat "00" (itoa num3))) )
            (if (and (< num3 100) (>= num3 10))   (setq num4(strcat "0" (itoa num3))))
            (if (>= num3 100)  (setq num4(itoa num3) ))            
            (setq newfilename (strcat filename2 num4))
            (setq tb (subst (cons 1 newfilename) (assoc 1 tb) tb));REPET DATE
                (entmod tb)
                (entupd c)
                        ))     
             )
      
   
  (setq m (1+ m))       
     )   
;;;  (setvar "osmode" oldosmode)
;;;  (setvar "cmdecho" 1)
  (princ)
)

zzy780111

以经转过来了.但是我执行cnn命令后图框还是不变,我用的还我公司的原图框,请问问题出在哪里???能帮我修正吗?还是一定要在公司电脑才有用?还是一定要用繁体系统?

zzy780111

admin 发表于 2012-12-7 10:00

                               
登录/注册后可看大图

操作很简单，BIG5 → GB

谢谢:问题在于把(流水号)改为繁体就可以了,以解决