请大神修改我的Autolisp程序
(defunC:HY()(setqp(getpoint"\nBasepoint:"))(setqn(getint"\nNumberofside:"))(setqs(get...
(defun C:HY ()
(setq p (getpoint "\nBase point:"))
(setq n (getint "\nNumber of side:"))
(setq s (getdist "\nSide length:"))
(setq a (getangle "\nStarting angle:"))
(setq i 1
b (/ (* 2 pi) n)
)
(command "pline" p "w" 0.5 0.5)
(while (<= i n)
(setq pp (polar p a s))
(command pp)
(setq i (+ i 1)
p pp
a (+ a b)
)
)
(command)
(command "redraw")
)
为什么画不出图形 展开
(setq p (getpoint "\nBase point:"))
(setq n (getint "\nNumber of side:"))
(setq s (getdist "\nSide length:"))
(setq a (getangle "\nStarting angle:"))
(setq i 1
b (/ (* 2 pi) n)
)
(command "pline" p "w" 0.5 0.5)
(while (<= i n)
(setq pp (polar p a s))
(command pp)
(setq i (+ i 1)
p pp
a (+ a b)
)
)
(command)
(command "redraw")
)
为什么画不出图形 展开
1个回答
展开全部
(command)修改为：
(command "c")就可以绘制了
如果要绘制圆形多段线的话，有简单的绘制方法：
(defun C:tes ( / @p1 @p2)
(VL-LOAD-COM)
(if(setq @p1 (getpoint "\n请输入多段线第一点"))
(progn
(if (setq @p2 (getpoint @p1 "\n请输入多段线第二点"))
(entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") '(90 . 2) '(70 . 1) '(43 . 0.5) (cons 10 @p1) '(42 . 1) (cons 10 @p2) '(42 . 1)))
);90是2两个点，70表示封闭1，不封闭0；43是线宽，42是凸起；当然可以加入图层:(cons 8 tc)
)
)
(prin1)
)
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
AiPPT
2024-09-19 广告
随着AI技术的飞速发展，如今市面上涌现了许多实用易操作的AI生成工具1、简介：AiPPT: 这款AI工具智能理解用户输入的主题，提供“AI智能生成”和“导入本地大纲”的选项，生成的PPT内容丰富多样，可自由编辑和添加元素，图表类型包括柱状图...
点击进入详情页
本回答由AiPPT提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
