[编程申请]：这个值是前两点之间距离的三分之一，且是50的倍数

lengliqun · 发表于 2004-4-2 09:23:27

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

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

×

求R14下LISP程序，点击两点，当点击第三点时，在第三点处标注一个值，这个值是前两点之间距离的三分之一，且是50的倍数。

lsjjm · 发表于 2004-4-2 10:00:34

最初由 lengliqun 发布
[B]求R14下LISP程序，点击两点，当点击第三点时，在第三点处标注一个值，这个值是前两点之间距离的三分之一，且是50的倍数。 [/B]

1. 第三点在何处?
2. "50的倍数"? 如果前两点之间距离是4.123 呢?

lengliqun · 发表于 2004-4-2 10:39:43

1.第三点是任意的，我点哪就在哪，这个数字就标在哪。
2.如果前两点之间距离是4.123 呢，那么返回值为0，
　我的数值均会大于1000，如1234.123则返回1250　　如1257.123则返回1300
　如4567.567则返回4600，如6734.123则返回6750，要求无小数点。

lsjjm · 发表于 2004-4-2 11:35:32

试试这个:
(defun c:test ()
  (setq p1 (getpoint "\nPick first point:"))
  (setq p2 (getpoint "\nSecond point:"))
  (setq p3 (getpoint "\nThird point:"))
  (setq dis (distance p1 p2))
  (if (<= (setq v (+ (- dis (rem dis 50)) 50)) 50)(setq v 0))
  (vl-cmdf "text" "j" "mc" p3 50 0 (rtos v 2 0) "")
)

lengliqun · 发表于 2004-4-2 12:20:26

报告，R14下不可用，R2000中不可用。

lsjjm · 发表于 2004-4-2 12:22:42

最初由 lengliqun 发布
[B]报告，R14下不可用，R2000中不可用。 [/B]

CHANGE
(vl-cmdf "text" "j" "mc" p3 50 0 (rtos v 2 0) "")
TO:
(COMMAND "text" "j" "mc" p3 50 0 (rtos v 2 0) "")

lengliqun · 发表于 2004-4-2 12:51:21

修改后R14下提示错误：Exception: Access Violation at address 6dab31h

lsjjm · 发表于 2004-4-5 08:05:27

没有什么新函数(命令) 呀? 我手上没有R14, 对不起, 自己修改调试一下吧!

lengliqun · 发表于 2004-4-16 13:01:17

这个值没有除以3啊。

eachy · 发表于 2004-4-19 07:10:24

最初由 lengliqun 发布
[B]修改后R14下提示错误：Exception: Access Violation at address 6dab31h [/B]

R14 中文版？

lengliqun · 发表于 2004-4-22 12:56:32

　安装天正装修后变成中文版了，如何解决啊？

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

[编程申请]：这个值是前两点之间距离的三分之一，且是50的倍数

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

相关帖子

Re: [编程申请]：这个值是前两点之间距离的三分之一，且是50的倍数