明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1131|回复: 4

请各位高手大大指点下,那里出问题了

[复制链接]
发表于 2009-5-13 14:18:00 | 显示全部楼层 |阅读模式

我是一个LISP的小白学习者,刚刚开始学习, 自已写了一个画三角形的LISP, 但是在A0UTOCAD中加载时提示,加载成功,但是输入的列表有缺陷。

请各位高手大大帮助给看下这段代码那里不对,不胜感激!

(defun: c: sjx()
             (setq p1 (getpoint "/n enter p1")
             (setq p2 (getpoint "/n enter p2")
             (setq p3 (getpoint "/n enter p3")
             (command "line"P1 P2 P3"C")
)

非常感谢!

发表于 2009-5-13 14:24:00 | 显示全部楼层
少括号,
  1. (defun: c: sjx()
  2.              (setq p1 (getpoint "/n enter p1"))
  3.              (setq p2 (getpoint "/n enter p2"))
  4.              (setq p3 (getpoint "/n enter p3"))
  5.              (command "line"P1 P2 P3"C")
  6. )
 楼主| 发表于 2009-5-13 14:28:00 | 显示全部楼层
谢谢大大
发表于 2009-5-14 11:25:00 | 显示全部楼层
“/n”应该为“\n”吧?
发表于 2009-5-14 11:53:00 | 显示全部楼层
补充:还要关闭对象捕捉
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2025-2-25 02:43 , Processed in 0.164298 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表