X距离

FazBear · 发表于 2022-7-6 17:20:52

大家好

我对lisp有点陌生，我只需要把两点之间的x距离写进一个变量。

有人能帮忙吗？

lpseifert · 发表于 2022-7-6 17:36:09


(defun c:test ()
 (setq p1 (getpoint "Pick first point: ")
   p1x (car p1)
     p2x (car (getpoint "Pick second point: " p1))
   xdist (abs (- p1x p2x))
   )
(alert (strcat "The X distance between the two points is " (rtos xdist 2 2) "\nand is saved in the variable Xdist"))
(princ)
)

ASMI · 发表于 2022-7-6 17:44:16

或

copy

(setq dist(getdist))

ASMI · 发表于 2022-7-6 17:57:53

打扰一下没有X距离。

CAB · 发表于 2022-7-6 18:06:47

（setq p1（getpoint“\n点击第1点”）
（setq p2（getpoint“\n点击第二点”）
（setq x（距离p1 p2））

FazBear · 发表于 2022-7-6 18:16:17

谢谢你的回复

现在看起来很忧郁：S

FazBear · 发表于 2022-7-6 18:30:30

最终使用了ASMI的方法，只是将其调整为更简单的格式（让我理解）。

再次感谢！

（定义c：标牌（）

（setq点1（getpoint“Pick Top Left:”））
（setq点2（getpoint点1“拾取右下角：”））
（setq点1X（car点1））
（setq点2X（car点2））
（setq XDIST（-POINT2X POINT1X））
（setq点1Y（cadr点1））
（setq点2Y（cadr点2））
（setq YDIST（-POINT1Y POINT2Y））

（警报（strcat“两点之间的X距离为”（rtos XDIST 2）
“\n两点之间的Y距离为”（rtos YDIST 2 2）））

)

[编程交流] X距离

发表回复

精选推荐