jerryleehom 发表于 2014-9-17 16:44:40

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

(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却用不了呢，望高手赐教！


http://bbs.mjtd.com/xwb/images/bgimg/icon_logo.png 该贴已经同步到 jerryleehom的微博

jerryleehom 发表于 2014-9-18 08:52:34

怎么没人了我呢

Andyhon 发表于 2014-9-18 09:07:22


(defun c:qqq ()
(setq pa (getpoint "输入点："))
(setq ww (getreal "宽度："))
(setq hh (getreal "高度："))
(setq pb (polar pa 0 ww))
(setq pc (polar pb (/ pi 2) hh))
(setq pd (polar pc pi ww))
(command "pline" pa pb pc pd "c")
)
程序研讨请移步
http://bbs.mjtd.com/forum-3-1.html

dunkel 发表于 2014-9-18 09:07:40

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

jerryleehom 发表于 2014-9-18 10:48:23

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

哦，不好意思

jerryleehom 发表于 2014-9-18 10:52:18

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

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

jerryleehom 发表于 2014-9-18 11:25:17

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

非常感谢耐心解答！
页: [1]
查看完整版本: 为什么我写的LISP画不了矩形