栅格图像名称与路径修改

wrsxed

(defun c:imgRename ( / imgDict imgDictId dictLength counter dictName dictEntry next)
(DOSLibLoader)
   (setq imgDict (dictsearch (namedobjdict) "ACAD_IMAGE_DICT"))
   (if (equal imgDict nil)
      (princ "\nNo images loaded.")
      (progn
         (setq imgDictId  (cdr (car imgDict))
               dictLength (length imgdict)
               counter   0
               next   T
               dictNameLst nil
               dictEntryLst nil
         )
         (while (< counter dictLength)
            (if (equal (car (nth counter imgDict)) 3)
               (progn
                  (setq dictName (strcase (cdr (nth counter imgDict)))
                        dictEntry (dictnext imgDictId next)
                        next   nil
                  )
                 (setq dictNameLst (cons (cons dictName dictName) dictNameLst)
                       dictEntryLst (cons dictEntry dictEntryLst)
                       )
               )
            )
            (setq counter (1+ counter))
         )
         (setq dictNameLst (reverse dictNameLst)
               dictEntryLst (reverse dictEntryLst)
                       )
        (if (setq dictNameLst
                   (dos_proplist
                     "图像列表"
                     "图形中图像名称                                    修改后图像名称"
                     dictNameLst
                   )
            )
          (progn
            (setq i 0)
            (repeat (length dictNameLst)
              (setq imLst   (nth i dictNameLst)
                    enLst   (nth i dictEntryLst)
                    oldname (strcase (car imLst))
                    newname (strcase (cdr imLst))
              )
              (if (/= oldname newname)
                (progn
                  (if (setq sn (vl-position (cons 3 oldname) imgDict))
                    (progn
                  (setq imgDict (subst (cons 3 newname)
                                     (nth sn imgDict)
                                     imgDict
                              )
                  )
                  (entmod imgDict)
                    ))
                  (setq impath (cdr (assoc 1 enLst)))
                  (setq impath (substr impath (- (strlen impath) 3)))
                  (setq        enLst (subst (cons 1  (strcat ".\\" newname impath))
                                     (assoc 1 enLst)
                                     enLst
                              )
                  )
                  (entmod enLst)
                )
              )
              (setq i (+ 1 i))
            )
          )
        )
      )
   )
  (princ)
)

Lisphk

感谢楼主，请问，这个是插件 还是 函数？ 我怎么看到了c:

还有，(DOSLibLoader) 这个需要加载doslib吗？

yangjian001

感谢楼主感谢楼主

wrsxed

Lisphk 发表于 2018-1-4 10:23

函数
是，需要加载DOSLib中的dos_proplist列表对话框