[原创]：中心点画矩形（正方形）小程序——处女作~

ygrzz

新手上路，拼拼凑凑出了处女之作，大伙给批批~~
下了许多的LISP，但常常不合心意只好自己凑~~
另外我找到一个编辑LISP的绝好软件（Notepad++）新手用来校对括弧非常的显眼，能识别LISP格式，鼠标点括弧处成对括弧自动红色显示，棒！！！感觉lisplingk的格式化功能是不错但复制字符常乱码，不知你们有没这现象

命令: (load "D:/system32/自编程序/r中心矩形（正）.lsp") C:R

命令: r
>请指定矩形中心  ...:
>>指定边中点:50

>>>输入半边长(可点取)/默认正方形<50 > ...:
line 指定第一点: non
指定下一点或 [放弃(U)]: non
指定下一点或 [放弃(U)]: non
指定下一点或 [闭合(C)/放弃(U)]: non
指定下一点或 [闭合(C)/放弃(U)]: c
命令:
ok！ ^.^  R_矩形已完成！100×100

附码：
;;; ------------------------by_ygrzz   07.01.22 命令:r
(defun c:r (/ os p0 p1 dis wid dis2 wid2 p2 p3 p4 p5 p6)
    (setq os (getvar "osmode"))
    (setvar "osmode" 4151)
    (setq p0 (getpoint "\n>请指定矩形中心  ...:"))
    (setq p1 (getpoint p0 "\n>>指定边中点:"))
    (setq dis (distance p0 p1))
    (setq dis2 (* dis 2))
    (setq wid (getdist p0 (strcat "\n>>>输入半边长(可点取)/默认正方形<" (rtos dis) " > ...: ")))
    (if (null wid)
        (setq wid dis)
    )
    (setq wid2 (* wid 2))
    (setq p2 (polar p0 (+ (angle p0 p1) pi) dis))
    (setq p3 (polar p2 (+ (angle p0 p1) (* pi 0.5)) wid))
    (setq p4 (polar p1 (+ (angle p0 p1) (* pi 0.5)) wid))
    (setq p5 (polar p2 (- (angle p0 p1) (* pi 0.5)) wid))
    (setq p6 (polar p1 (- (angle p0 p1) (* pi 0.5)) wid))
    (command "line" "non" p3 "non" p4 "non" p6 "non" p5 "c")
    (setvar "osmode" os)
    (princ (strcat "\nok！ ^.^  R_矩形已完成！" (rtos dis2) "×" (rtos wid2)))
    (princ)
)