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

X距离

大家好
 
我对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

或
(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）））
 
)
页: [1]
查看完整版本: X距离