2013-07-14 明经 AutoLISP 编程②(177027547) 群聊记录：月轻尘☆°逸(1315684809) 2013-7-13 23:54:05

明经快报

[nzl1116]晨 语 05:40:42

月轻尘☆°逸(1315684809) 2013-7-13 23:54:05
(defun  c:test()
  (setq a (getint "请输入一个数字”))
  (setq b (* a a))
  (print b)
)
难道你就没发现颜色不对劲

明经快报

[aa1315684809]雾萦晨阳 09:10:02

那请问我的颜色怎么改成红色啊

[ZZXXQQ] 09:10:27

color

1

[aa1315684809]雾萦晨阳 09:10:55

月轻尘☆°逸(1315684809) 2013-7-13 23:54:05
(defun  c:test()
  (setq a (getint "请输入一个数字”))
  (setq b (* a a))
  (print b)
)
难道你就没发现颜色不对

是这个括号的颜色

我的括号大部分是蓝色的

我不知道怎么改成红色的

我这个是在网上照着视频做的小代码

平方数的、

[aa1315684809]雾萦晨阳 09:13:00

可是应用的时候出现代码串符错误

请问是怎么回事

求解释

明经快报

[vormittag]桔子 09:23:57

引号用了全角的。

[aa1315684809]雾萦晨阳 09:26:32

什么意思

不太懂诶】

全角是什么啊

[vormittag]桔子 09:27:54

"请输入一个数字”后面一个引号用了中文的全角引号。

[aa1315684809]雾萦晨阳 09:28:27

那要怎么做呢，当时我不知道键盘的那两个引号怎么砸键盘上按出来

[aa1315684809]雾萦晨阳 09:29:01

""

[vormittag]桔子 09:29:09

你还是别用电脑了，计算机不适合你。

[aa1315684809]雾萦晨阳 09:29:09

“请输入一个数字”

是后者这个吗】

[aa1315684809]雾萦晨阳 09:29:55

我就是不知道那引号嘛，

明经快报

[ZZXXQQ] 09:44:53

(defun c:ff ( / p p1 p2 s sa ss)
  (setq dis (if (numberp dis) dis 10))
  (setq ss (ssget) p ""
        p1 (getpoint "\n起点："))
  (if (setq p2 (getpoint p1 (strcat "\n第二点:")))
   (setq an (angle p1 p2) dis (distance p1 p2))
   (setq p2 (polar p1 an dis))
  )
  (setq s (entlast) sa (ssadd))
  (command "copy" ss "" p1 p2)
  (while (setq s (entnext s)) (ssadd s sa))
  (while (= p "")
    (setq p (getstring "\n空格键继续：")
          p1 p2 p2 (polar p1 an dis)
          ss sa)
    (setq s (entlast) sa (ssadd))
    (if p
      (command "copy" ss "" p1 p2)
    )
    (while (setq s (entnext s)) (ssadd s sa))
  )
  (princ)
)

明经快报

[aa1315684809]`月轻尘☆°逸 20:35:33

(defun c:test()
  (setq a (getint "请输入一个数字"))
  (setq b (* a a)
  (print b)
)

出现了; 错误: 输入的列表有缺陷
_$

求大侠指点

[仲文玉][仲文玉]wygjx 20:36:26

defun c:test()
  (setq a (getint "请输入一个数字"))
  (setq b (* a a))
  (print b)
)

少个闭括号

[aa1315684809]`月轻尘☆°逸 20:38:05

蟹蟹

[aa1315684809]`月轻尘☆°逸 20:38:52

大侠，问什么少个闭括号就没用啊

我刚刚接触Lisp

没什么经验

明经快报

[gmstcn]囧囧圣堂 21:31:09

语法问题可以用vlide检查