Question

用autolisp开发技术绘制下面2个图形

求高手发编程代码，万分感谢

Answer 1

画矩形代码如下：
(defun C:JX()
(setq chang (getdist "长度 :"))
(setq kuan (getdist "宽度 :"))
(setq P0 (getpoint "the base point :"))
(setq P1 (polar P0 pi (/ chang 2)))
(setq P2 (polar P1 (- 0 (/ pi 2)) kuan))
(setq p3 (polar P2 0.0 chang))
(setq P4 (polar P1 0.0 chang))
(command "line" P1 P2 P3 P4 "c")
)
画沉孔代码如下：
(defun C:CENKONG ()
(setq d1 (getdist "input the diameter of the big hole:"))
(setq d2 (getdist "input the diameter of the small hole:"))
(setq l1 (getdist "input the length of the big hole:"))
(setq l2 (getdist "input the length of the small hole:"))
(setq P0 (getpoint "input the base of the cenkong:"))
(setq P1 (polar P0 pi (/ d1 2)))
(setq P2 (polar P1 (- (* 0.5 pi)) l1))
(setq P3 (polar P2 0.0 (/ (- d1 d2) 2)))
(setq P4 (polar P3 (- (* 0.5 pi)) l2))
(setq P5 (polar P4 0.0 d2))
(setq P6 (polar P3 0.0 d2))
(setq P7 (polar P2 0.0 d1))
(setq P8 (polar p1 0.0 d1))
(command "line" P1 P2 P3 P4 "")
(command "line" P5 P6 P7 P8 "")
)