[求助]：LISP中两个命令的无缝连接

LADESIGNER · 发表于 2005-7-21 17:57:18

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我在写一个箭头绘制的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的判断，自然就不会插入图块了。
请高手指点……

xyp1964 · 发表于 2005-7-21 18:55:41

试试：

LADESIGNER · 发表于 2005-7-21 19:47:53

斑竹，你给我个VLX让我怎么看？我~倒……

fools · 发表于 2005-7-22 02:01:25

写了个简单的函数，你试试就明白了
[php]
(defun c:tt()
  (vl-cmdf "pline")
  (while (/= "" (getvar "cmdnames"))
(vl-cmdf pause)
  )
  (vl-cmdf "line")
  (while (/= "" (getvar "cmdnames"))
(vl-cmdf pause)
  )
)
[/php]

紫云飞 · 发表于 2005-7-22 10:31:07

循环判断应该用while,不用if

LADESIGNER · 发表于 2005-7-22 19:21:54

在四楼的指导下终于解决了：
PAUSE 不对，改为COMMAND PAUSE 正确。

zbhen · 发表于 2005-7-22 22:25:53

学习学习

qigmyaigh · 发表于 2005-7-23 00:05:06

我曾经在网上有看到别人写过箭头的lisp程序，用过，感觉还不错，把它传上来给大家看看吧，但不知道能不能成功传上来，如果没有传上来请大家原谅啊！

xshrimp · 发表于 2005-7-23 01:26:46

;;;绘制箭头
;;不是很简单吗？干吗搞这么复杂。箭头还要插入图块。
;;直接画不就完了吗？？
(defun C:jt()
(SETQ point2 (getpoint "第一点"))
(SETQ point1 (getpoint "第二点"))
(setq ang (angle point1 point2))
(setq point3 (polar point1 ang 500))
(command "pline" point1 "w" "0" "100" point3 "w" "0" "0" point2 pause )
(printc)
)

xyp1964 · 发表于 2005-7-23 02:42:16

楼上改成这样也许较好：
[php](defun C:jt ()
  (SETQ point2 (getpoint "第一点"))
  (SETQ point1 (getpoint point2 "第二点"))
  (setq ang (angle point1 point2))
  (setq point3 (polar point1 ang 500))
  (command "pline" point1 "w" "0" "100" point3 "w" "0" "0" point2 pause)
  (princ)
)[/php]

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：LISP中两个命令的无缝连接

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子