问题

王咣生

在 [实用函数] 中的

添加文件夹到AutoCAD支持搜索路径中的指定位置  

(defun addSupportPath (dir pos / tmp c)
  (setqtmp ""
c   -1
  )
  (if (not pos)
    (setq tmp (strcat (getenv "ACAD") ";" dir))
    (mapcar '(lambda (x)
       (setq tmp (if (= (setq c (1+ c)) pos)
   (strcat tmp ";" dir ";" x)
   (strcat tmp ";" x)
)
       )
     )
    (parse (getenv "ACAD") ";")
    )
  )
  (setenv "ACAD" tmp)
  (princ)
)

中parse是什么函数为什么我用不了?它是系统提供的吗?

meflying

另一个实用函数
http://www.mjtd.com/function/list.asp?id=216

王咣生

谢谢meflying版主.