极简玻璃门的编程可以通过以下步骤进行：
确定加工参数
门宽度：通过输入命令获取门的宽度，例如 `getreal "门宽："`。
门高度：通过输入命令获取门的高度，例如 `getreal "门左边高度："` 和 `getreal "门右边高度："`。
门角度：如果需要考虑门的倾斜角度，可以通过输入命令获取角度，例如 `getreal "门角度："`。
获取门的基本点
左下角点：通过输入命令获取门的左下角点，例如 `getpoint "门得左下角点："`。
创建门的基本几何形状
矩形：根据获取的门宽度和高度，创建一个矩形作为门的基本形状。
圆角：如果需要圆角效果，可以通过输入命令设置圆角半径，例如 `setq r "圆角半径"`。
镜像门
镜射另一片门：如果需要镜射另一片门，可以通过输入命令进行镜射，例如 `command "mirror" （ssget "c" bas_p1 bas_p3） "" bas_p2 bas_p3 ""`。
输出代码
代码示例：
```lisp
(defun c:test ()
(setvar "cmdecho" 0)
(setq os (getvar "osmode"))
(setq oldlayer (getvar "clayer"))
(setvar "osmode" 0)
(get_door_bas_pp)
(sub_demodoor1)
(initget "Yes No")
(setq mirr (getkword "\n镜射另一片门吗?[是\(Y\)/(否\(N\),:"))
(if (= mirr "Yes")
(command "mirror" (ssget "c" bas_p1 bas_p3) "" bas_p2 bas_p3 "")
)
(setvar "osmode" os)
(setvar "clayer" oldclayer)
(prin1)
)
(defun get_door_bas_pp ()
(setq bas_ip_list '())
(setq bas_p1 (getpoint "门得左下角点:"))
(setq dr_w (getreal "\n门宽:"))
(if (null dr_w)
(setq dr_w 90)
)
(setq dr_n1 (getreal "\n门左边高度:"))
(if (null dr_n1)
(setq dr_n1 100)
)
(setq dr_h2 (getreal "\n门右边高度:"))
(if (null dr_h2)
(setq dr_h2 100)
)
)
```
调试和优化
调试：在实际操作中，可能需要根据具体情况进行调试，例如调整门的高度、宽度和角度。
优化：根据加工效果，可能需要优化代码以提高加工效率和精度。
通过以上步骤，可以实现极简玻璃门的编程。具体的编程细节和参数设置可能会因不同的数控系统和加工需求而有所不同。建议参考具体的数控编程手册和教程，以获得更详细的指导和帮助。