这个程序怎么改才能正常运行？

e_dongfeng · 发表于 2009-5-9 19:10:25

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

刚刚在acad2010中载入下面程序，结果出错；怎样改才能正常运行呢？谢谢。
Command: xy
; error: no function definition: INIVAR

(defun C:xy( )
(inivar) ;ｳｼｻｯﾏｵﾍｳｱ菽ｿ
(setvar "osmode" 32)
(setq p00 (getpoint "\nﾊ菠・・｢ｵ・"))
(command "layer" "S" "0" "")
(princ "\nﾊ菠・・｢ﾏﾟ:")
(setvar "osmode" 0)
(command "line" p00 pause pause "")
(setq p0 (getvar "Lastpoint")
   scale (getvar "userr1")
   p1 (polar p0 pi09 scale)
   p2 (polar p0 pi27 (* 4 scale))
   h_txt (* 3 scale)
   x (nth 0 p00)
   y (nth 1 p00)
   x_txt (strcat "X=" (rtos (/ y 1000.0) 2 3))
   y_txt (strcat "Y=" (rtos (/ x 1000.0) 2 3))
) ;setq end
(command "text" p1 h_txt 0 x_txt)
(command "text" p2 h_txt 0 y_txt)
(resvar) ;ｻｹﾔｭﾏｵﾍｳｱ菽ｿ
(princ)
) ;defun end

e_dongfeng · 发表于 2009-5-10 07:41:10

也许真的无人会，还是我发错了地方？

SunVei · 发表于 2009-5-11 08:58:30

(defun C:xy( )
(inivar) ;ｳｼｻｯﾏｵﾍｳｱ菽ｿ
...
; error: no function definition: INIVAR
(inivar) 是个自定义程序 ;
您得先行加载
要不就先不要执行
(defun C:xy( )
;; (inivar) ; 加 `;` 在前头即会略过

e_dongfeng · 发表于 2009-5-12 19:45:28

谢谢楼上的，已经很多年没用过这些了，闲来无事，想练习下，下载来的还得自己改改才行。

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

通知

[已解决] 这个程序怎么改才能正常运行？

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

浏览过的版块