autolisp 画图 5
谢谢大神！autolisp怎么画一个正方形套一个正方形，每个正方形的距离是10，一个画十个正方形，麻烦了，感谢大神。...
谢谢大神！
autolisp怎么画一个正方形套一个正方形，每个正方形的距离是10，一个画十个正方形，麻烦了，感谢大神。 展开
autolisp怎么画一个正方形套一个正方形，每个正方形的距离是10，一个画十个正方形，麻烦了，感谢大神。 展开
展开全部
(defun C:test (/ pt1 pt2)
(setq pt1 (getpoint "\n请输入矩形中心点:")
pt2 pt1
)
(repeat 10
(setq pt1 (list (- (car pt1) 5) (- (cadr pt1) 5)))
(setq pt2 (list (+ (car pt2) 5) (+ (cadr pt2) 5)))
(command ".RECTANG" "non" pt1 "non" pt2)
)
)
(setq pt1 (getpoint "\n请输入矩形中心点:")
pt2 pt1
)
(repeat 10
(setq pt1 (list (- (car pt1) 5) (- (cadr pt1) 5)))
(setq pt2 (list (+ (car pt2) 5) (+ (cadr pt2) 5)))
(command ".RECTANG" "non" pt1 "non" pt2)
)
)
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
AiPPT
2024-09-19 广告
随着AI技术的飞速发展，如今市面上涌现了许多实用易操作的AI生成工具1、简介：AiPPT: 这款AI工具智能理解用户输入的主题，提供“AI智能生成”和“导入本地大纲”的选项，生成的PPT内容丰富多样，可自由编辑和添加元素，图表类型包括柱状图...
点击进入详情页
本回答由AiPPT提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
