Question

cad线条颜色快捷键怎么设置吧

Answer 1

(defun C:tt()
(setvar "cmdecho" 0)
(setq col 1)
(while (= (Getkword "\n [空格键变色/ESC键退出]: ") nil)
(command "chprop" "all" "" "c" col "")
(setq col (1+ col))
(if (= col 8) (setq col 1))
)
)

将程序清单复制到剪贴板，接着打开“记事本”予以粘贴，存取扩展名为lsp的文件。然后进入CAD去加载这个程序，需要改变颜色时，打tt命令即可。