[求助]我这个程序中怎样才能实现这两个功能

huajie111

我传上我的程序，想实现以下功能：１．实现在状态栏中显示图栏大小　　　　　　　　　　　　　　用户定义值的变量(如useri1~useri5、users1~users5等)，这些自定义的系统变量是保存在图形中，这样就可以利用这些系统变量保存图样栏的图幅大小，在图样栏中，使用的是自定义系统变量useri1。

MODEMACRO系统变量的内容使用的是DIESEL语言。具体的程序内容如下：

(defun S::STARTUP()　　　；在状态栏中显示当前图栏大小
(setvar "modemacro" "A $(getvar, useri1)图")
(princ)
)　　　　　　　　　　　　　　　；在哪里定义这个useri1值．　　　　　　　　　　　　　　　２．实现在插入时图栏随图样的大小而改变插入时的大小　　　　　　我现在的程序中的如明细栏，在插入时不能随当前的图栏大小而改变大小，有时图栏是Ａ４时，我的明细栏插入时去很小．　　　　　　请问怎么改变这种情况，想要的结果是，取得当前的图样图大小，随图样栏是（Ａ０或Ａ４）而改变大小，与图样栏的边框想连接　　　　　　　　　　　　　　　　　　请各位高手指点一下呀，我十万火急呀　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

meflying

命令行输入useri1,回车,输入你想输入的值就可以了...或者(setvar "useri1" num)


后面的不是很明白,,,你在插入前选择一下大小不就可以了吗

huajie111

第一个问题不能在程序中定义大小吗，我输入程序时运行显示类型错误　　　　　第二个问题是我想在设置好图样大小后，插入图栏（明细栏）时，明细栏按当前的图样大小（Ａ０．Ａ１．Ａ２．Ａ３．Ａ４），改变插入时的大小，与图样栏的边框想接．不能在输入前就设置大小的，这样不是只有几种死的规格吗．

meflying

1,你怎么写的?


2,如果你什么都不做,谁知道你当前的图样是多大?

huajie111

第一个我准备先放着，先解决第二个问题，我的想法是先判断我的当前图样大小，分别计算出各图样是我现有的图栏的几倍．再插入图栏时用一个放大函数来放大我所想插入的图栏后插入图中，我就是不知道用哪个函数名来设置来放大它

meflying

一为什么要放着?这是一个极其简单的问题,简单到我2楼就已经把你的要求全部写出来了....二,你最好给个具体的图,然后对着具体的图来说明具体的操作,越详细越好,你要从一个使用者的角度来描述,而不要以开发者的角度,,,因为我发现你似乎不怎么会LISP这门语言

huajie111

谢谢版主 ，说实话我确实不太会ＬＩＳＰ，因为我才学了三个星期．依你的提示，又去找了一点资料，原来直的很简单，第一个问题我已经解决了，谢谢你了．　　　依你的要求，截下图来了．你帮我看一下．　　　　　怎么传不上来，是不是晚上明径都是休息时间呀．那我明天传上来，再次感谢斑主

meflying

最好不要截图,原图比较好的(可只保留需要部分)

巨人

MODEMACRO,我想用这个显示我字体的高度。

巨人

MODEMACRO,我想用这个显示我字体的高度