请教，怎么用lisp控制command命令

yh19890926 · 发表于 2014-7-7 17:48:56

新手请教怎么用command控制line画一条线，线的两端点是通过getpoint临时捕捉的，而且像复制那样样可以预览画好的线

ysq101 · 发表于 2014-7-7 21:51:06

纯新手啊~~~~我也新手，练练手吧
(defun c:tt()
(setq pt (getpoint
(setq pt1(getpoint))))
(command "LINE" pt pt1 "")
(princ)
)

是这样子吗？？

llsheng_73 · 发表于 2014-7-8 01:19:34

本帖最后由 llsheng_73 于 2014-7-8 01:22 编辑

不知道楼主说的预览是不是这意思

yh19890926 · 发表于 2014-7-8 09:07:41

llsheng_73 发表于 2014-7-8 01:19
不知道楼主说的预览是不是这意思

其实我输入的代码和2楼一样，但是没有效果

Student · 发表于 2014-7-8 09:13:20

楼主仔细看看，你“输入的代码和2楼一样”吗？

yh19890926 · 发表于 2014-7-8 09:20:33

Student 发表于 2014-7-8 09:13
楼主仔细看看，你“输入的代码和2楼一样”吗？

是啊，连直线都画不出来，我刚试了你的命令，确实可以预览直线，怎么把里面的两点坐标换成其他对象，因为命令不是为了单纯画线，而是使用的上面代码输入过的坐标

yh19890926 · 发表于 2014-7-8 09:31:05

(defun c:cccc(/pt1 pt2)
(setq pt1 (getpoint)) (setq pt2 (getpoint))
(command "line" pt1 pt2 "")
）

yh19890926 · 发表于 2014-7-8 09:37:23

Student 发表于 2014-7-8 09:13
楼主仔细看看，你“输入的代码和2楼一样”吗？

额好吧，不一样，二楼的括号好诡异啊，怎么包着的，前面的GETPOINT没有反括号就又加了PT1的定义然后一起反括号的，能这样写么

yh19890926 · 发表于 2014-7-8 09:52:15

ysq101 发表于 2014-7-7 21:51
纯新手啊~~~~我也新手，练练手吧
(defun c:tt()
(setq pt (getpoint

额是的，但是如果是两点形成的矩形框那样即时效果呢

ysq101 · 发表于 2014-7-8 20:38:17

yh19890926 发表于 2014-7-8 09:37
额好吧，不一样，二楼的括号好诡异啊，怎么包着的，前面的GETPOINT没有反括号就又加了PT1的定义然后一起反 ...

哈哈。。。还是被你看出来了
意思就像这样　　(getpoint (getpoint))

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

[提问] 请教，怎么用lisp控制command命令