22
55
33
初露锋芒
SSGET "C" pt1 pt2
使用道具 举报
114
1万
中流砥柱
63
6297
6283
后起之秀
(defun Rectangle (p1 p2 / p3 p4 p5 p6 a h d) (if (setq h (/ (setq d (distance p1 p2)) 10.) p3 (polar p1 (+ (setq a (angle p1 p2)) (* pi 0.5)) (/ h 2.)) p4 (polar p3 a d) p5 (polar p4 (+ a (* pi 1.5)) h) p6 (polar p5 (+ a pi) d) ) (command "_.pline" "_non" p3 "_non" p4 "_non" p5 "_non" p6 "_c") ) (princ))
(Rectangle p1 p2)
4
本版积分规则 发表回复 回帖后跳转到最后一页
微信公众平台
扫描访问手机版
点击图片下载手机App
|关于我们|小黑屋|乐筑天下 繁体中文
GMT+8, 2025-3-10 18:47 , Processed in 0.477563 second(s), 65 queries .
© 2020-2025 乐筑天下
在线时间:10:00-17:00
暂无
扫一扫,关注我们
帮助中心
关于我们
下载APP客户端