[求助]：求助陈伯雄老师

LADESIGNER

在下拜读过您的大作，非常钦佩。我在LISP上有一个问题百思不得其解，所以跑到机械论坛请您指教。我在写一个箭头绘制的LISP程序，希望用AUTOCAD标准的PL命令画线，画线结束在终点插入箭头图块，可是总是实现不了。下面是代码：
(DEFUN C:TEST()
(SETQ PT(GETPOINT))
(COMMAND "PLINE" PT) ;;;PLINE方式画线;
(IF (/= (GETVAR "CMDNAMES") "PLINE") ;;;判断画线是否结束;
(COMMAND "_INSERT" "_ARROW" (GETVAR "LASTPOINT")  100 100 0 ) ;;;只是示意一下，实际还要考虑比例;
)
)
按我的理解是PL命令在执行中没有遇到可以结束的条件，所以一直执行到程序结尾，就跳过了CMDNAMES的判断，自然就不会插入图块了。

忍不住

最初由 LADESIGNER 发布
[B]求助陈伯雄老师
在下拜读过您的大作，非常钦佩。我在LISP上有一个问题百思不得其解，所以跑到机械论坛请您指教。我在写一个箭头绘制的LISP程序，希望用AUTOCAD标准的PL命令画线，画线结束在终点插入箭头图块，可是总是实现不了。下?.. [/B]

估计你很难等到了！
从去年12月25日后，就没有看到过。
还是欣赏他的大作吧！*-*a *-*a *-*a

liforever

为什么不给点希望呢？总应该有人会认识陈伯雄老师 的吧，或者有知道这方面知识的给点帮助。

LADESIGNER

陈老师的书我有，收获很大。谢谢二位的理解，急呀.

szguanbo19

这个问题你也问陈老师？你把这个帖子发到AutoCAD定制板块，乐于回答的人不计其数，我简单说一下：
1.你自己在命令行试一下“pl——拾取点”看看pl命令是否会结束？在lisp中使用command函数时养成使用命令标准名称的习惯，比如pl就应该写成“_.pline”才对。
2.即便上一条中的pl会结束并产生一条pl线（你所要的箭头），你只用pl画一条线，就想把这条线当成块？而却还想把它插入，简直发晕。别管他什么lisp、vba，即便在命令行也实现不了。
3.你现在距离用lisp编程还较远（希望你听到后积极性不要受到影响），需要：a）熟悉autocad的命令以及系统变量，b）找本lisp的数看看。初期编程时每写一句都在控制台运行一下，看看返回什么？这回对你有帮助的。

LADESIGNER

老兄的见解的确对我打击很大哦，不过你也有点自以为是了啊。第一条有道理，我也的确有这个习惯，英雄所见略同，第二条是你根本没看懂，也许是我表达的太简单。箭头是另外一个箭头块。第三条不太同意了，另外你不妨试试，想起来很简单的做起来就不一定那么简单了。最后说一句，这个问题已经解决了，把第三条建议送给你，咱们一起共勉吧……