求助我用Lisp做了一个程序。。。。

Gu_xl · 发表于 2005-4-12 17:27:00

求助我用Lisp做了一个程序，想在程序中向AutoCAD注册关于系统搜索路径，在Lisp程序中应如何做！它的注册表结构是怎样的？

meflying · 发表于 2005-4-12 18:42:00

(setenv "ACAD" (strcat (getenv "ACAD") ";" path));path就是你要加的路径

didini · 发表于 2005-4-13 22:07:00

不懂！啥意思？setven？

meflying · 发表于 2005-4-14 09:00:00

不懂就学，而且要细心，是setenv，不是setven

suyongyu · 发表于 2005-4-16 22:27:00

(defun syy-setup (/ SYY-N SYY-PAN SYY-1 SYY-2 SYY-3 SYY-4)
(SETQ syy-n 0)
(SETQ SYY-PAN (substr (getenv "MenuFile") 1 (- (strlen (getenv "MenuFile")) 11) ))

(if (wcmatch (getenv "ACAD") "*:\\LIB;*")
(setq syy-n (+ syy-n 1)))
(if (wcmatch (getenv "ACAD") "*:\\LIB\\2D*")
(setq syy-n (+ syy-n 1)))
(if (wcmatch (getenv "ACAD") "*:\\LIB\\3D*")
(setq syy-n (+ syy-n 1)))
(if (wcmatch (getenv "ACAD") "*:\\LIB\\SLB*")
(setq syy-n (+ syy-n 1)))

(SETQ SYY-1 (STRCAT SYY-PAN "LIB"))
(SETQ SYY-2 (STRCAT SYY-PAN "LIB\\2D"))
(SETQ SYY-3 (STRCAT SYY-PAN "LIB\\3D"))
(SETQ SYY-4 (STRCAT SYY-PAN "LIB\\SLB"))

(IF (< syy-n 4)

(SETENV "ACAD" (STRCAT (getenv "ACAD") ";" SYY-1 ";" SYY-2 ";" SYY-3 ";" SYY-4)
)
)
(princ)

)

账号		自动登录	找回密码
密码			注册