[原创]：自己优化CAD及天正的部份命令。

chenyizhen28

;7 关屏闭框
(defun c:gbbg ()
(command "WipeOut" "F" "OFF" )
)


;8 开屏闭框
(defun c:sbbg ()
(command "WipeOut" "F" "on" )
)



;9 三点画圆

(defun c:c3 ()
(command "CIRCLE" "3p")
)

;10 二点画圆

(defun c:c2 ()
(command "CIRCLE" "3p")
)

;11 删除上一个选择集

(defun c:esc ()
(command "erase" "p")
)

;12 自定义拉伸

(defun c:scx ()
(command "STRETCH" "cp")
)

;13 移动上一个选择

(defun c:rdsc ()
(command "move" "p")
)


;14 格式上一个选择

(defun c:gssc ()
(command "MATCHPROP" "p")
)

;15 连接多断线

(defun c:bdx ()
(command "pedit" "m")
)


;16 旋转上次

(defun c:rsc ()
(command "ROTATE" "p")
)

;17 复制上次

(defun c:fzsc ()
(command "copy" "p")
)


;18 创建区域(多线)
(defun c:cqr ()
(command "-bo")
)