lisp的简单绘图问题，怎么回事？
(defunju()(command"pline"'(00)'(0400)'(400400)'(4000)"c")(command"pline"'(2020)'(2038...
(defun ju()
(command "pline" '(0 0) '(0 400) '(400 400) '(400 0) "c")
(command "pline" '(20 20) '(20 380) '(380 380) '(380 20) "c")
(command "circle" "25,25" 5)
(command "circle" "25,375" 5)
(command "circle" "375,375" 5)
(command "circle" "375,25" 5)
)
四个圆不是应该和里面的正方形相切吗？
这是为什么没有相切 展开
(command "pline" '(0 0) '(0 400) '(400 400) '(400 0) "c")
(command "pline" '(20 20) '(20 380) '(380 380) '(380 20) "c")
(command "circle" "25,25" 5)
(command "circle" "25,375" 5)
(command "circle" "375,375" 5)
(command "circle" "375,25" 5)
)
四个圆不是应该和里面的正方形相切吗？
这是为什么没有相切 展开
1个回答
展开全部
(setq oldos (getvar "osmode"))
(setvar "osmode" 0)
前两句放在程序的最前边
下边一句放在程序的最下边
(setvar "osmode" oldos)
(setvar "osmode" 0)
前两句放在程序的最前边
下边一句放在程序的最下边
(setvar "osmode" oldos)
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
