autocad lisp 30
我写了一LSP(setqpa(getpoint"输入左下角点："))(setqww(getreal"宽度:"))(setqhh(getreal"高度:"))(setqpb...
我写了一LSP
(setq pa (getpoint "输入左下角点："))
(setq ww (getreal "宽度:"))
(setq hh (getreal "高度:"))
(setq pb (polar pa 0 ww))
(setq pc (polar pb PI hh))
(setq pd (polar pc 0 ww)
(command "pline" pa pb pc pd "C"）
可是出现
命令: 输入左下角点：0,0
宽度:10
高度:10
; 错误: 输入的列表有缺陷
哪的问题？？？
好好学习 天天向上 展开
(setq pa (getpoint "输入左下角点："))
(setq ww (getreal "宽度:"))
(setq hh (getreal "高度:"))
(setq pb (polar pa 0 ww))
(setq pc (polar pb PI hh))
(setq pd (polar pc 0 ww)
(command "pline" pa pb pc pd "C"）
可是出现
命令: 输入左下角点：0,0
宽度:10
高度:10
; 错误: 输入的列表有缺陷
哪的问题？？？
好好学习 天天向上 展开
4个回答
展开全部
你想画一个矩形,这个程序有两个错误。其一、PI是180度而不是90度；其二、括号的问题，倒数第2行最后少一个右括号，倒数第1行最后右括号改为半角。正确的程序：
(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 pa (/ PI 2) hh) )
(command "pline" pa pb pc pd "C")
(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 pa (/ PI 2) hh) )
(command "pline" pa pb pc pd "C")
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
天正软件
2024-08-02 广告
天正软件可以解决以下问题：1. 提供设计标准化：天正软件专注于勘察设计领域，为用户提供标准化、信息化、智能化的解决方案，以提高设计效率、优化设计流程、降低成本。2. 提高绘图效率：天正软件提供了一系列专业绘图工具，能够帮助设计师快速绘制图纸...
点击进入详情页
本回答由天正软件提供
展开全部
(command "pline" pa pb pc pd "C"）
很明显"） "跟")"是有区别的。
很明显"） "跟")"是有区别的。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
倒数第二行,少一个")"
(setq pd (polar pc 0 ww) 应为(setq pd (polar pc 0 ww))
(setq pd (polar pc 0 ww) 应为(setq pd (polar pc 0 ww))
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
没有定义函数吧？
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（2）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
