根据文件名改属性块（求简化）

spp_wall

;根据文件名改属性块 文件名格式： 图号空格图名空格总页码空格
(DEFUN CHATTRIB (OLDATT NEWATT)
(IF (AND ;(PRINC "\nSelect Block with attribute 选择带属性图块 :")

                  ;(SETQ SS (SSGET '((0 . "INSERT") (66 . 1))))
                  
        (SETQ SS (SSGET "X" '((0 . "INSERT") (66 . 1)(2 . "KX-目录属性块"))));只选择"KX-目录属性块"
                  )
                  (PROGN
  (SETQ I -1)
  (REPEAT (SSLENGTH SS)
   (SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I))))
         ENT1 ENT)
   (WHILE (= (CDR (ASSOC 0 (SETQ ENT1 (ENTGET (ENTNEXT (CDR (ASSOC -1 ENT1))))))) "ATTRIB")
    (IF (= (CDR (ASSOC 1 ENT1)) OLDATT) (PROGN
  (SETQ ENT1 (SUBST (CONS 1 NEWATT) (ASSOC 1 ENT1) ENT1))
  (ENTMOD ENT1)
  (ENTMOD ENT)
))
   )
  )
))
(PRINC)
)

(defun strsplit(str splits / i a b)
  (while(<""str)
    (if(vl-remove'nil(mapcar'(lambda(x)(vl-string-search x str))splits))
      (setq i(car(vl-sort(vl-remove'nil(mapcar'(lambda(x)(if(setq l(vl-string-search x str))(cons l x)))splits))
       '(lambda(s1 s2)(<(car s1)(car s2)))))
      a(cons(substr str 1(car i))a)b(cons(cdr i)b)
      str(substr str(+(car i)(strlen(cdr i))1)))
      (setq a(cons str a)b(cons "" b)str"")))
  (list(reverse a)(reverse b)))

(DEFUN C:gtm ()        (vl-load-com)
(SETQ OATT (GETSTRING "\n原始图名:"));这里能不能改成点选属性块中的图名属性而不是输入


(setq  kx-tm (cadr(car(strsplit(getvar "dwgname")'(" ")))))

(CHATTRIB OATT kx-tm )
  (PRINC)
)

(DEFUN C:gth ()        (vl-load-com)
(SETQ OATT (GETSTRING "\n原始图号:"));这里能不能改成点选属性块中的图号属性而不是输入


(setq  kx-th (car(car(strsplit(getvar "dwgname")'(" ")))))

(CHATTRIB OATT kx-th )
  (PRINC)
)

(DEFUN C:gzym ()
        (vl-load-com)
(SETQ OATT (GETSTRING "\n原始总页码:"));这里能不能改成点选属性块中的总页码属性而不是输入

(setq  kx-zym (caddr(car(strsplit(getvar "dwgname")'(" ")))))

(CHATTRIB OATT kx-zym )
  (PRINC)
)

想省去输入原始属性块中值，改成点选属性块！求大家出手简化！

spp_wall

已经解决！！！！