让程序等待画多段线的插曲问题，跪求
 

让程序等待画多段线的插曲问题，跪求
www.dimcax.com
让程序等待画多段线的插曲问题，跪求
(setq a (getstring "\n输入一个字母"))
(cond
((= (strcase a) "s")
(vl-cmdf "pline") (setq ones (ssadd (entlast) (ssadd)))
)
((= (type ones) 'pickset) ones)
)
（。。。。。。。）
本人程序出了点故障，我打了一个小比喻，好你上面的但我输入一个字母s的时候，程序应该是执行 (vl-cmdf "pline") (setq ones (ssadd (entlast) (ssadd)))这一步啦，我的本是但等于s时，程序进入画多段线的命令中去，然后等我画好线后，回车，程序这时在背后把我刚画的一个多段线变成一个选择集，接着再执行（。。。。。。。）下面的程序，但现在好像在 (vl-cmdf "pline")这步出了问题啦，小弟测试了几次还找不出原因，不知是何故，请大家帮我一下，谢谢！！！！！
d
用puase试下
d
(setq a (getstring "\n输入一个字母"))
(cond
((= (strcase a) "s")
(command "pline" pause) (setq ones (ssadd (entlast) (ssadd)))
)
((= (type ones) 'pickset) ones)
)
（。。。。。。。）
用pause
只能点一个点,没办法搞不行,期望有高手解决,jxlsp你应该可以的
d
先补补语句函数的课。
你的lisp片段跟你的语言描述相去甚远
d
这样行吗？
以下内容需要帖子数达到5才可以浏览
( ( ( ( "\n输入一个字母 :")) "s") (
( "._pline")
( ( ( ( "cmdactive"))) ( pause))
( s1 ())
……
))
踅摸