(setq pa (getpoint "\n输入第一点:"))
(setq pab (polar pa 0 500))
(setq pb (polar pab 0 500))
(setq pbc (polar pb (* pi 0.5) 500))
(setq pc (polar pb (* pi 0.5) 1000))
(setq pcd (polar pc pi 500))
(setq pd (polar pc pi 1000))
(setq pad (polar pa (* pi 0.5) 500))
(command "TDIMMP" pa pab "" pb "" "")
(command "TDIMMP" pb pbc "" pc "" "")
(command "TDIMMP" pc pcd "" pd "" "")
(command "TDIMMP" pa pad "" pd "" "")
(command "rectang" pa pc)
(command "pline" pab pc "")