[求助]：刚学LISP高手们帮我看看

jianqiang21c · 发表于 2003-3-10 00:47:03

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

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

×

想实现求两点间距离,下边是程序:
;2pdist.lsp
;从位移量计算离
;2pdist.lsp
;从位移量计算距离
(defun c:2pdist (disp1 pt1 pt2)
  (setq pt1 (getpoint "\npick first point:"))
  (setq pt2 (getpoint pt1 "\npick end point:"))
  (setq dx (car disp1))
  (setq dy (cadr disp1)
  (setq dz (caddr disp1)
  (sqrt (+ (* dx dx) (* dy dy ) (* dz dz )))
  (setq dd1 (2pdist pt1 pt2))
  (setq dst (2pdist dd1))
      )

  无法实习,不知道哪里错了,请指点

yybu · 发表于 2003-3-10 00:54:02

直接用"getdist"函数!!!

XDSoft · 发表于 2003-3-10 02:15:59

最初由 jianqiang21c 发布
[B]想实现求两点间距离,下边是程序:
;2pdist.lsp
;从位移量计算离
;2pdist.lsp
;从位移量计算距离
(defun c:2pdist (disp1 pt1 pt2)
(setq pt1 (getpoint "\npick first point:"))
(setq pt2 (getpoint pt1 ... [/B]

交互得到两点后，直接用 (distance p1 p2) 就得到两点距离了。

jianqiang21c · 发表于 2003-3-10 10:28:58

;2djl.lsp
;从位移量计算距离
(defun c:2djl(pt1 pt2)
  (setq pt1 (getpoint "\npick first point:"))
  (setq pt2 (getpoint pt1 "\npick end point:"))
  (distance pt1 pt2)
      )
改成上边的后,为什么提示:参数太少?

闲云 · 发表于 2003-3-10 12:13:15

改成如下，加一“/”
(defun c:2djl(/ pt1 pt2)
(setq pt1 (getpoint "\npick first point:"))
(setq pt2 (getpoint pt1 "\npick end point:"))
(distance pt1 pt2)
)

zhynt · 发表于 2003-3-10 12:19:07

如果没有“/”表示运行该函数需要pt1和pt2参数。加/表示程序运行结束后将pt1和pt2变量置空。

jianqiang21c · 发表于 2003-3-10 15:01:49

加上/后加载后提示:参数太少,是什么意思?

lijiao · 发表于 2003-3-11 08:25:16

最初由 jianqiang21c 发布
[B]加上/后加载后提示:参数太少,是什么意思? [/B]

请贴出你的源代码和运行显示。

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

[求助] [求助]：刚学LISP高手们帮我看看

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

相关帖子

Re: [求助]：刚学LISP高手们帮我看看