用 CAD LISP 语言 编写一个 四行五列的表格输出在cad面板上。
1个回答
展开全部
(defun c:bg()
(setq i 4 j 5 k 0)
(setq hj 1.0 lj 2.0)
(setq pt(getpoint "输入表格左上角坐标："))
(while(< k j)
(setq pt(polar pt 0 (* lj k)))
(command"pline" pt(polar pt (* pi 1.5) (* hj i)) )
(setq j(+ j 1))
))
(setq i 4 j 5 k 0)
(setq hj 1.0 lj 2.0)
(setq pt(getpoint "输入表格左上角坐标："))
(while(< k j)
(setq pt(polar pt 0 (* lj k)))
(command"pline" pt(polar pt (* pi 1.5) (* hj i)) )
(setq j(+ j 1))
))
追问
怎么运行不了啊 亲，求解
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
