[编程申请]：计算多个点相对某一点的x、y坐标值绝对值之和

wy8wd

如何计算多个点（例如信息点插座图块）相对某一点（弱电井配线架）的x、y坐标值绝对值之和！主要用于计算线缆的长度！

cqnj023

不明白，

eachy

最初由 wy8wd 发布
[B]如何计算多个点（例如信息点插座图块）相对某一点（弱电井配线架）的x、y坐标值绝对值之和！主要用于计算线缆的长度！ [/B]

2. 
   
3. (defun MptoP (pt pts / ptl)
   
4.   (setq ptl (mapcar '(lambda (x) (mapcar '- x pt)) pts))
   
5.   (apply '+
   
6.          (apply 'append (mapcar '(lambda (x) (mapcar 'abs x)) ptl))
   
7.   )
   
8. )

<br /> (defun MptoP (pt pts / ptl)<br />   (setq ptl (mapcar '(lambda (x) (mapcar '- x pt)) pts))<br />   (apply '+<br />          (apply 'append (mapcar '(lambda (x) (mapcar 'abs x)) ptl))<br />   )<br /> )

lsjjm

最初由 eachy 发布
[B][CODE](defun MptoP (pt pts / ptl)
  (setq ptl (mapcar '(lambda (x) (mapcar '- x pt)) pts))
  (mapcar '(lambda (x) (apply '+ x))
          (mapcar '(lambda (a) (mapcar 'abs a)) ptl)
  )
)[/B]

该程序返回结果有误.

eachy

最初由 lsjjm 发布
[B][QUOTE]最初由 eachy 发布
[B][CODE](defun MptoP (pt pts / ptl)
  (setq ptl (mapcar '(lambda (x) (mapcar '- x pt)) pts))
  (mapcar '(lambda (x) (apply '+ x))
          (mapcar '(lambda (a) (mapcar '... [/B]

已修改，不知是否满足楼主的意思。

lsjjm

这次对了.
MY CODE:
[php]
(defun MptoP (pt pts)
  (apply '+ (apply 'append  (mapcar '(lambda (x)(mapcar 'abs (mapcar '- x pt))) pts)))
)
or
(defun MptoP (pt pts / ptl)
  (apply '+ (append (mapcar '(lambda (x)(abs (- (car x)(car pt)))) pts)
                    (mapcar '(lambda (x)(abs (- (cadr x)(cadr pt)))) pts)))
)
[/php]

wy8wd

很惭愧，我不懂VB写的怎么使用

自由的鱼

最初由 wy8wd 发布
[B]很惭愧，我不懂VB写的怎么使用 [/B]

是LISP程序啊

wy8wd

拷贝到记事本改为LSP文件，加载执行"mptop"命令,cad反映为“未知命令”郁闷！！！！

xyp1964

最初由 wy8wd 发布
[B]拷贝到记事本改为LSP文件，加载执行"mptop"命令,cad反映为“未知命令”郁闷！！！！ [/B]

2. [FONT=courier new](defun d-xy (pt pts / x y)
   
3.   (setq        x 0
   
4.         y 0
   
5.   )
   
6.   (foreach pt0 pts
   
7.     (setq x (+ x (abs (- (car pt) (car pt0))))
   
8.           y (+ y (abs (- (cadr pt) (cadr pt0))))
   
9.     )
   
10.   )
    
11.   (list x y)
    
12. )
    
13. [/FONT]

[FONT=courier new](defun d-xy (pt pts / x y)<br />   (setq        x 0<br />         y 0<br />   )<br />   (foreach pt0 pts<br />     (setq x (+ x (abs (- (car pt) (car pt0))))<br />           y (+ y (abs (- (cadr pt) (cadr pt0))))<br />     )<br />   )<br />   (list x y)<br /> )<br /> [/FONT]

测试：
_$ (d-xy '(0 0)'((1 1)(2 2)(3 3)))
(6 6)
_$

wy8wd

各位老大，这些代码在CAD中如何使用，请详细地指点迷津！！
拷贝到记事本改为LSP文件，加载执行"mptop"命令,cad反映为“未知命令”！————差哪呢？

wy8wd

有没有人给回答一下！
上述代码在CAD中怎么用? 输入什么命令？
或者给个链接，俺自己也学习一下吗？费劲！

zml84

最初由 wy8wd 发布
[B]拷贝到记事本改为LSP文件，加载执行"mptop"命令,cad反映为“未知命令”郁闷！！！！ [/B]

请注意，6楼的代码定义的是一个函数，而不是命令。
请详细查看DUFUN函数的说明。

wapin

问题提出的不清楚，应该指定使用环境，比如计算器、VB程序、CAD环境。

snb919

把哪个固定点设为坐标原状点就好算了。