光栅图像边框显隐按键

zwqgdhl

每张图纸上都会有签名，有很多是光栅图像类型的签名，经常会插入、拷贝或删除，都要重复简单的命令输入操作，特做个傻瓜按键：
;;;关闭光栅图像边框，再亮显图像边框
(defun c:imageoff ()
(command "imageframe" "off")
(setq image-on (getreal "\n</亮显>"))
(if (= image-on nill)
    (command "imageframe" "on")
)
(prin1)
)