再求类似于getdist功能

xtdwynij

[sell=50]  想要求一个类似于getdist的功能函数  ,代码如下

2. (defun c:tt ()
   
3.   (prompt "\n请直接量取距离或者输入一个值:")
   
4.   (while (setq apt1 (getpoint "\n请指定点:"))
   
5.       (setq apt2 (getpoint "\n请指定第二个点:"))
   
6.       (setq list1 (distance apt1 (list (car apt2) (cadr apt1))));返回量取的X轴的值
   
7.   )   ;想要实现类似于getdist功能.但是getdist函数(由于不能捕捉垂直点所以返回的值有所误差)! 这里写的要多加一个空格结束循环才能执行;;到  虽然相似但是多按了一个空格!
   
8.   (setq list1 (getreal "\n请输入一个值:"));或者直接输入
   
9.   )
   
10. )

(defun c:tt ()<br />   (prompt "\n请直接量取距离或者输入一个值:")<br />   (while (setq apt1 (getpoint "\n请指定点:"))<br />       (setq apt2 (getpoint "\n请指定第二个点:"))<br />       (setq list1 (distance apt1 (list (car apt2) (cadr apt1))));返回量取的X轴的值<br />   )   ;想要实现类似于getdist功能.但是getdist函数(由于不能捕捉垂直点所以返回的值有所误差)! 这里写的要多加一个空格结束循环才能执行;;到  虽然相似但是多按了一个空格!<br />   (setq list1 (getreal "\n请输入一个值:"));或者直接输入<br />   )<br /> )

[/sell]

QiaoCheng

不会吧，是求程序还是已有源码，如是求的话看一下还要50个豆???
搞得这么神秘{:soso_e113:}

xtdwynij

是菜鸟我大意了本来想给币求高手指点的！刚刚又重新开了一个贴。还请版主们把这个删了！真不好意思！

Lispboy

{:soso_e120:} 给别人币，可以发悬赏贴的，也可以给别人评分。另外，自己可以编辑帖子去掉收币吧？

xtdwynij

Lispboy 发表于 2013-6-2 14:22
给别人币，可以发悬赏贴的，也可以给别人评分。另外，自己可以编辑帖子去掉收币吧？

:handshake明白了!谢谢!!!!!