问一个很菜的问题o(╯□╰)o

camyi

本意是画一条水平直线，在屏幕点取一个点，然后输入第二点与第一点的水平距离，画线。
(defun C:li()
  (SETQ P1(GETPOINT "点："));起始点
  (SETQ x(GETREAL "距离："))
  (SETQ P2(list(car p1)(+(cdr p1)x)))
  (COMMAND "line" P1 P2)
  )
虽然知道这问题简单，但作为一个新手o(╯□╰)o，不会啊，自己mark的运行不了，不知道哪里问题。求助。

st788796

(setq p2 (list (+ (car p1) x) (cadr p1) 0.))
你这对点没概念！

/db_自贡黄明儒_

C:li，你定义的命令是li，你输入这个命令就可以了

st788796

cdr p1是表，非数

Underway

cdr /= Cadr
----------------
(+(cdr p1)x)
==>
(+ (cadr p1) x)

camyi

st788796 发表于 2014-3-26 12:04
cdr p1是表，非数

请问要如何修改呢

camyi

/db_自贡黄明儒_ 发表于 2014-3-26 12:02
C:li，你定义的命令是li，你输入这个命令就可以了

运行不了，有错误

camyi

Underway 发表于 2014-3-26 12:28
cdr /= Cadr
----------------
(+(cdr p1)x)

按你的方法改了，画出来的是竖直线了

camyi

st788796 发表于 2014-3-26 14:42
(setq p2 (list (+ (car p1) x) (cadr p1) 0.))
你这对点没概念！

{:soso_e101:}刚开始学，而且没编程基础，才看几天书，大神轻拍

camyi

st788796 发表于 2014-3-26 14:42
(setq p2 (list (+ (car p1) x) (cadr p1) 0.))
你这对点没概念！

再请教一下，那个  car p1不是一个表吗？为什么 +（car p1）x可以运算的？一个变量加一个表可以的吗？

ysq101

2. ;直接帮你改好。。。新手问题只有新手来答了。。
   
3. (defun C:li()
   
4.   (SETQ P1(GETPOINT "点："));起始点
   
5.   (SETQ x(GETREAL "距离："))
   
6.   (SETQ P2(list(+ (car p1)x)(cadr p1))) ;这里。。因为你要画水平线，所以需要加X的数是CAR P1 点表中的第一个
   
7.   (COMMAND "line" P1 P2 "");这里加个回车  让LINE结束

;直接帮你改好。。。新手问题只有新手来答了。。<br /> (defun C:li()<br />   (SETQ P1(GETPOINT "点："));起始点<br />   (SETQ x(GETREAL "距离："))<br />   (SETQ P2(list(+ (car p1)x)(cadr p1))) ;这里。。因为你要画水平线，所以需要加X的数是CAR P1 点表中的第一个<br />   (COMMAND "line" P1 P2 "");这里加个回车  让LINE结束

ysq101

camyi 发表于 2014-3-26 15:10
再请教一下，那个  car p1不是一个表吗？为什么 +（car p1）x可以运算的？一个变量加一个表可以的吗？

...

另外推荐你去看一下我发的贴

很多小白的问题。。。。
http://bbs.xdcad.net/thread-668190-1-1.html

lijiao

(car p1) 是表的第一个元素，（cdr p1）是除第一元素外所有元素组成的表，（cadr p1）是表的第二个元素，相当于(car (cdr p1))。
你想画的是水平线，应该是x坐标有变化，并且是坐标增加，所以应该这样写：
(setq p2 (list (+ (car p1) x) (cadr p1)))

camyi

lijiao 发表于 2014-3-26 15:25
(car p1) 是表的第一个元素，（cdr p1）是除第一元素外所有元素组成的表，（cadr p1）是表的第二个元素，相 ...

明白了，谢谢

camyi

ysq101 发表于 2014-3-26 15:22
另外推荐你去看一下我发的贴

很多小白的问题。。。。

好的，谢谢推荐