lsp加载问题

liu_kunlun

确实有一个错误,函数需用defun-q定义,重新修改如下:

(DEFUN-q  BLC ()
        (setq bl (getreal "\n  请输入地图比例尺<缺省为1000>:"))
        (if (null bl) (setq bl 1000.0))
        (setq bl (/ bl 1000.0)) 
)

(setq S::STARTUP (append S::STARTUP   BLC))

aliang1994

liu_kunlun发表于2006-9-27 18:44:00 确实有一个错误,函数需用defun-q定义,重新修改如下: (DEFUN-q BLC ()&...

多谢解答。但是能说的具体一点吗？

函数放在mnl文件还是lsp文件中？

英雄无敌

我试了一下，只是没有提示而已，其实这时CAD已经在等待你输入数字，你如果输入的不是数值，CAD会提示要你输入数值，当然，你不能按ESC

 

c:\hh.bmp

xgr

我觉得你的这个程序不需要放在启动文件里，我也是做图的，我的比例尺存放在空的系统变量里（CAD有十个空的系统变量，用于存储实数和字符串）而程序只需访问该系统变量，检查是否已设置比例尺。不知道你认为怎样。

mfkjjjypm

(DEFUN c:BLC()
        (setq bl (getreal "\n  请输入地图比例尺<缺省为1000>:"))
        (if (null bl) (setq bl 1000.0))
        (setq bl (/ bl 1000.0)) 
)