getdist求两点距离？

行雲

(setq lj (getdist "\n距离:"))程序运行到这一行时，允许用户在屏蔽上点两点

想求改两点的X轴距离 及 y轴距离
(setq xzjl (car  ??   ??))
(setq yzjl (cadr  ??   ??))

Lisphk

你确认你输对了？ 我测试了，没问题

命令: (setq pa (getpoint "\n第一点:"))

第一点:(746.027 825.621 0.0)

命令: 'VLIDE
命令:
命令: (setq pb (getpoint "\n第二点:"))

第二点:(1341.78 1170.8 0.0)

命令: (setq bb (mapcar '- pa pb))
(-595.751 -345.181 0.0)
命令:
命令: (setq bjl (fix (cadr bb)))
-345

/db_自贡黄明儒_

getdist改用(getcorner pt [msg]) 吧，行不？
如果只想出现一根虚线
Command: (setq p1(getpoint))
(-1321.2 3027.16 0.0)
Command: (setq p2 (getpoint p1) )

Lisphk

楼主是想GETDIST得到距离后，求相对起点的 X 增量 和 Y增量吗？

可以这样
(setq xy (mapcar  '- p2 p1))
(setq x (car xy)
        y (cadr xy)
)

行雲

Lisphk 发表于 2016-11-28 20:30

多谢Lisphk 。

请问(setq lj (getdist "\n距离:"))这一行过后，如何派生出(mapcar  '- p2 p1) 的 p2 p1 ？

(mapcar  是含X Y两个值的吧，如果只想用到X轴距离，直接这样(setq x (car (mapcar  '- p2 p1)))行不行？

另外，p2 p1的先后顺序有什么区别？

行雲

/db_自贡黄明儒_ 发表于 2016-11-28 16:43

代码有点看不明白，，，多谢回复

Lisphk

行雲 发表于 2016-11-28 23:05

你为什么不用 getpoint 更直接呢？

p1 和 p2 关系是 p1 是起点，p2是终点

行雲

(setq？？(getdist "\n距离:"))
两行之间不知怎么接
(setq jl (car (mapcar  '- p2 p1)))；中的 jl 是上面那个getdist两点的距离

行雲

Lisphk 发表于 2016-11-28 23:45

用过，，
(setq pa (getpoint "\n第一点:"))
(setq pb (getpoint "\n第二点:"))
(setq bb (mapcar '- pa pb))
(setq bjl (fix (cadr bb)))       ;;; pb 点到 pa 点 y 轴距离  整数

程序不行，，，错误: 参数类型错误: 二维/三维点: nil

aeo

2. 
   
3. (defun c:xxx( / pa pb bb )
   
4.   (setq pa (getpoint "\n第一点:"))
   
5. (setq pb (getpoint pa"\n第二点:"))
   
6. (setq bb (mapcar '- pa pb))
   
7. (setq bjl (fix (cadr bb)))       ;;; pb 点到 pa 点 y 轴距离  整数
   
8. (princ "\ny 轴距离:")
   
9. (princ bjl)
   
10. (princ)
    
11. )

<br /> (defun c:xxx( / pa pb bb )<br />   (setq pa (getpoint "\n第一点:"))<br /> (setq pb (getpoint pa"\n第二点:"))<br /> (setq bb (mapcar '- pa pb))<br /> (setq bjl (fix (cadr bb)))       ;;; pb 点到 pa 点 y 轴距离  整数<br /> (princ "\ny 轴距离:")<br /> (princ bjl)<br /> (princ)<br /> )

直接打命令xxx

要在函数里面才行，不然需要一条语句执行结束，才能输入下一条语句

行雲

aeo 发表于 2016-11-29 22:58

你好，想请你帮我看看这段代码，请问它错在哪里？
(defun c:xxx( / pa pb bb )
(setvar "cmdecho" 0)
(setq os (getvar "osmode"))
(setq pa (getpoint "\n第一点:"))
(setq pb (getpoint pa "\n第二点:"))
(setq bb (mapcar '- pa pb))
(setq byjl (fix (cadr bb)))
(setq bxjl (fix (car bb)))
(setq pt1 (polar pta (* pi 1.5) byjl))
(setq pt2 (polar pt1 (* pi 0.5) bxjl))
(setvar "osmode" "0")
(command "pline" pta pt1 pt2 "")
(setvar "osmode" os)
)


命令: XXX
第一点:
第二点:; 错误: 参数类型错误: 二维/三维点: nil


另外，这样(defun c:xxx ( / pa pb bb )   与   这样(defun c:xxx () 有什么区别？

Lisphk

(defun c:xxx ( / pa pb bb )

这样写，变量 pa pb bb 不会影响到这个函数外面，除了这个函数，变量就不存在了。  你不会因为程序里面的变量和外面的变量重名，而改写了函数外面的同名变量的值。

(setq a 1)
(defun c:tt()
   (setq a 2)
)

这样写，你执行完tt命令后，a的值就变成2了，

如果这样写
(setq a 1)
(defun c:tt( / a)
  (setq a 2)
)

执行完，你!a， a的值还是1

Lisphk

行雲 发表于 2016-11-30 15:54

(setq pt1 (polar pta (* pi 1.5) byjl))

pta 这个点 在哪赋值了？ 是pa吧？

行雲

Lisphk 发表于 2016-11-30 16:03

非常感谢，不知这样理解对不对？( / pa pb bb )这样写，运行(defun c:xxx  程序时，不会受到该程序之外，别的程序上同名变量，如pa 或 pb ，，赋值的影响？

以前碰到过这样的问题，，

ll_j

行雲 发表于 2016-11-30 16:29

看看我签名的“认识自定义函数”，会有少许帮助。