[编程申请]：如何在LISP中实现类似矢量化的距离输入？

oldstone

即在命令行提示下，即可以通过键盘输入正负数值来响应这个提示，也可以通过选择两点来实现返回有正负的距离数值。

雄啸

用getdist就可以
...
(setq a (getdist "\n输入长度:"))
....
操作和你上面提到的一样。

oldstone

通过两点确定距离时,数值也有正负吗?

XDSoft

最初由 oldstone 发布
[B]通过两点确定距离时,数值也有正负吗? [/B]

先说说，你要正负有什么作用？ 得到两点，不可以让程序有足够的数据进行下面的工作了吗？

YueFeng

在ACAD的默认状态下的，LINE命令等，在选择第一点后，可以在鼠标控制下一点的方向，而在下面的命令栏直接输入长度即可。
这样的输入方法可以在LISP中实现吗？

梦断江南

可以，举例:

2. 
   
3.   [FONT=courier new]
   
4. (defun c:li (/ pt1 pt2)
   
5. (command "_.line" (setq pt1 (getpoint)) )
   
6. (while (setq pt2 (getpoint pt1))
   
7.    (command pt2)
   
8.    (setq pt1 pt2)
   
9. )
   
10. (command ^c)
    
11. )
    
12.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:li (/ pt1 pt2)<br /> (command "_.line" (setq pt1 (getpoint)) )<br /> (while (setq pt2 (getpoint pt1))<br />    (command pt2)<br />    (setq pt1 pt2)<br /> )<br /> (command ^c)<br /> )<br />   [/FONT]<br />

ll_j

最初由 梦断江南 发布
可以，举例:

[CODE]
  
(defun c:li (/ pt1 pt2)
(command "_.line" (setq pt1 (getpoint)) )
(while (setq pt2 (getpoint pt1))
   (command pt2)
   (setq pt1 pt2)
)
(command ...

此程序只能在R2000以上使用，R14的(command...)中不能交互输入。

ll_j

最初由 oldstone 发布
即在命令行提示下，即可以通过键盘输入正负数值来响应这个提示，也可以通过选择两点来实现返回有正负的距离数值。

距离是没有正负的。贴一个程序，是以前写的“线段插块”程序，其中利用getpoint实现键盘与鼠标混合输入，供参考。

oldstone

小弟偶然发现cadr15中的array弹出框水平阵列与竖直阵列效果不一样。想知道是为什么。

XDSoft

最初由 oldstone 发布
[B]小弟偶然发现cadr15中的array弹出框水平阵列与竖直阵列效果不一样。想知道是为什么。 [/B]

有什么不一样？截个图贴论坛来吧。

cy956

最初由 YueFeng 发布
[B]在ACAD的默认状态下的，LINE命令等，在选择第一点后，可以在鼠标控制下一点的方向，而在下面的命令栏直接输入长度即可。
这样的输入方法可以在LISP中实现吗？ [/B]

用grread来完成。

btw，给ll加分，因为到目前为止他是唯一君子动口又动手的，
梦断算抬手。:)