高飞鸟的动态函数对get类函数关键字的影响

masterlong

今天调试一个程序
用到了高飞鸟的动态函数
发生一个让我抓狂的事情

监视的回调函数里有如下代码
(initget "A B" 128)
(setq pt (getpoint))
(cond
    ((null pt) (子函数1))
    ((listp pt) (子函数2))
    ((= pt "A") (子函数3))       ;;在使用高飞鸟的动态函数时，必须写成((= (strcase pt) "A") (子函数3))
    ((= pt "B") (子函数4))       ;;同上
)

选点和右键都没问题
就是关键字A、B总出问题
时灵时不灵
花了一下午的时间
怎么调试都不行

最后才发现
必须输入"A"、"B"才能执行后面的函数
如果输入"a"、"b"
initget就不认识了
而原来使用get类函数时
从无此种情况
想来想去
只可能是高飞鸟动态函数的影响

特发此贴
提醒大家注意

masterlong

高飞鸟的动态函数非常强大
能够实现一些以前非常渴望却做不到的功能

我的这个程序其中一个功能
在选第1点后开始监视选第2点
根据两点间的关系移动某个图块
加入关键字用于调整图块的角度
在调整角度的这段函数里
多次输入关键字"A"
但是只能执行一次转角
后来我在程序中某处
加入一句(textpage)(graphscr)
这样可以实现连续转角
只是文本窗口会闪一下
算是美中不足吧

除此之外还有一些其它的小问题
好在都通过努力克服了

自贡黄明儒

masterlong 发表于 2016-7-4 19:22
高飞鸟的动态函数非常强大
能够实现一些以前非常渴望却做不到的功能

楼主写了个什么程序，动画演示给大伙瞧瞧;高飞贴给个连接呀

masterlong

专业上用的程序
还没完成

动画演示没弄过
明天不会太忙
搜一个学习下

高飞鸟的动态函数
一搜就是
手机上就不给链接了