[原创]：添加支持搜索路径致指定位置

lgwlgw

;;; (xl_addsupportpath dir pos)
;;;添加文件夹到 AUTOCAD 支持搜索路径中的指定位置
;;; dir 为路径, pos 为数值 0 或正整数。
;;; pos 为 0 时添加支持搜索路径到最后，为 2 时添加支持搜索路径到第二项。
;;; 示例 (xl_addsupportpath "c:\\myfolder" 2) 返回修改后的支持搜索路径。
(defun xl_addsupportpath
       (dir pos / tmp tmp1 tmp1_l tmp2 tmp3 str str_l)
  (setq dir (strcat dir ";"))
  (setq tmp1 (getenv "ACAD"))
  (setq tmp1_l (strlen tmp1))
  (setq str tmp1)
  (if (= pos 0)
    (setq tmp (strcat tmp1 ";" dir))
    (progn
      (if (= pos 1)
        (setq tmp (strcat dir tmp1))
        (progn
          (setq        str
                 (repeat pos
                   (setq str (substr (xl_strmemb ":" str) 2))
                 ) ;_ 结束repeat
          )                                ;setq str
          (setq str_l (strlen str))
          (setq        tmp2 (substr tmp1 1 (- tmp1_l str_l 2))
                tmp3 (substr tmp1 (- tmp1_l str_l 1) 2)
                tmp  (strcat tmp2 dir tmp3 str)
          )                                ;setq
        )                                ;progn
      )                                        ;if
    )                                        ;progn
  )                                        ;if
  (setenv "ACAD" tmp)
;;;(princ)
)                                        ;defun xl_addsupportpath

xcajcj

支持原创

xmchy

(xl_addsupportpath "c:\\myfolder" 2)的时候不行啊,出现:
命令: (xl_addsupportpath "c:\\myfolder" 2)
出错:no function definition: XL_STRMEMB

如果是0,或者1是可以的,不知道怎么解决.

心若向阳

你这都 缺少函数 XL_STRMEMB

kmliro_2017

谢谢分享！！！！！！

kmliro_2017

不错，谢谢分享！！！！

kmliro_2017

不错，谢谢分享！！！！

kmliro_2017

不错，谢谢分享！！！！