为什么我写的LISP画不了矩形

jerryleehom

(defun c: qqq()
(setq pa (getpoint "输入点："))
(setq ww (getreal "宽度："))
(setq hh(getreal "高度："))
（setq pb (polar pa 0 ww)）
(setq pc (pb (/ pi 2) hh))
(setq pd (polar pc pi ww))
(command"pline" pa pb pc pd "c"

)

)
不知是不是程序的问题，我也是刚学，用AP已经成功加载到了CAD中了， 为什么用qqq却用不了呢，望高手赐教！


该贴已经同步到 jerryleehom的微博

jerryleehom

怎么没人了我呢

Andyhon

2. 
   
3. (defun c:qqq ()
   
4.   (setq pa (getpoint "输入点："))
   
5.   (setq ww (getreal "宽度："))
   
6.   (setq hh (getreal "高度："))
   
7.   (setq pb (polar pa 0 ww))
   
8.   (setq pc (polar pb (/ pi 2) hh))
   
9.   (setq pd (polar pc pi ww))
   
10.   (command "pline" pa pb pc pd "c")
    
11. )
    

<br /> (defun c:qqq ()<br />   (setq pa (getpoint "输入点："))<br />   (setq ww (getreal "宽度："))<br />   (setq hh (getreal "高度："))<br />   (setq pb (polar pa 0 ww))<br />   (setq pc (polar pb (/ pi 2) hh))<br />   (setq pd (polar pc pi ww))<br />   (command "pline" pa pb pc pd "c")<br /> )<br />

程序研讨请移步
http://bbs.mjtd.com/forum-3-1.html

dunkel

因为你发错版了，lsp 有专门的版块的：http://bbs.mjtd.com/forum-3-1.html 那里比这里热闹。
你这个代码，1. c: 后面多了个空格；2. (setq pb 行最外层的括号竟然的全角的；3. (setq pc 行丢了 polar 函数名。

jerryleehom

Andyhon 发表于 2014-9-18 09:07
程序研讨请移步
http://bbs.mjtd.com/forum-3-1.html

哦，不好意思

jerryleehom

dunkel 发表于 2014-9-18 09:07
因为你发错版了，lsp 有专门的版块的：http://bbs.mjtd.com/forum-3-1.html 那里比这里热闹。
你这个代码， ...

哈哈，初来乍到分不清方向，多谢耐心解答！

jerryleehom

Andyhon 发表于 2014-9-18 09:07
程序研讨请移步
http://bbs.mjtd.com/forum-3-1.html

非常感谢耐心解答！