坐标加数字的问题（新手）

流_星 · 发表于 2013-4-13 23:02:04

本帖最后由流_星于 2013-4-14 06:35 编辑

ptt是坐标，pt1也是个坐标，想让纵坐标增加0.93，高手们我修改咱改
(setq ptt (list (car pt1) (+(cadr pt1) 0.93)))
这样写说参数类型错误 numberp ：nil

阿霸jun · 发表于 2013-4-14 00:21:54

(mapcar '(lambda (x) (mapcar '+ x '(0 0 0.93))) (list ptt pt1...ptn))
返回纵坐标加了0.93的点表(ptt pt1....ptn)

wowan1314 · 发表于 2013-4-14 00:22:07

那样写不行吗？

流_星 · 发表于 2013-4-14 06:25:06

本帖最后由流_星于 2013-4-14 11:42 编辑

我没有说清楚
pt1是老坐标
让横坐标不变，纵坐标增加0.93
新坐标给ptt

流_星 · 发表于 2013-4-14 06:57:26

阿霸jun 发表于 2013-4-14 00:21
(mapcar '(lambda (x) (mapcar '+ x '(0 0 0.93))) (list ptt pt1...ptn))
返回纵坐标加了0.93的点表(ptt ...

哈哈没有看懂能解释一下吗

yoyoho · 发表于 2013-4-14 07:27:29

本帖最后由 yoyoho 于 2013-4-14 07:30 编辑

指令: (setq pt1 (getpoint))
(-885.5 -148.0 0.0)
指令: (setq ptt (list (car pt1) (+(cadr pt1) 0.93) 0))
(-885.5 -147.07 0)

ll_j · 发表于 2013-4-14 07:36:10

你每次给的都是片段，有时很难看出错误，就本例而言，看不出什么错误，错误应该不在这个地方。
与点相关的错误可能会有2D点与3D点的错误，CAD很多时候对2D点和3D点是敏感的，不过错误提示不是这样。
还有一种可能，就是此时点PT1没有赋值或赋值类型不对。
建议初学者使用acad自身的编辑器Vlisp来书写、调试Lisp程序，Vlisp编辑器可以设置断点进行追踪，也可以对变量进行观察。

流_星 · 发表于 2013-4-14 11:44:33

好，我试试

阿霸jun · 发表于 2013-4-14 19:54:25

yoyoho 发表于 2013-4-14 07:27
指令: (setq pt1 (getpoint))
(-885.5 -148.0 0.0)
指令: (setq ptt (list (car pt1) (+(c ...

(setq ptt (getpoint))
(153148.0 134656.0 0.0)
_$ (setq pt1 (mapcar '+ ptt '(0 0 0.93)))
(153148.0 134656.0 0.93)

liaobin · 发表于 2016-5-6 15:55:39

新手学习了

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

[基础] 坐标加数字的问题（新手）

浏览过的版块