求一个一个快捷键对应能更换填充图案的脚本

975779964

如题 一个快捷键对应一个填充图案 图案可以自己设置 在lisp 记事本更改也行 平时每次填充都要ctrl+1在里边更换 好麻烦 各位大哥有没有好的解决办法呀

xyp1964

2. (defun c:tt ()
   
3.   (setq ukw (UKWORD 1 "1 2 3" "1-Line/2-Net/3-Solid" ukw))
   
4.   (if (setq ss (ssget))
   
5.     (cond ((= ukw "1") (command "hatch" "line" 10 45 ss ""))
   
6.           ((= ukw "2") (command "hatch" "net" 30 45 ss ""))
   
7.           ((= ukw "3") (command "hatch" "solid" ss ""))
   
8.     )
   
9.   )
   
10.   (princ)
    
11. )

(defun c:tt ()<br />   (setq ukw (UKWORD 1 "1 2 3" "1-Line/2-Net/3-Solid" ukw))<br />   (if (setq ss (ssget))<br />     (cond ((= ukw "1") (command "hatch" "line" 10 45 ss ""))<br />           ((= ukw "2") (command "hatch" "net" 30 45 ss ""))<br />           ((= ukw "3") (command "hatch" "solid" ss ""))<br />     )<br />   )<br />   (princ)<br /> )

975779964

xyp1964 发表于 2016-9-26 08:35

这位大哥为啥我复制了你的代码新建lisp文件加载 ，然后创建了一个填充 ，输入tt并没有反映呀 ，该怎么用你的插件呢 还有填充图案该怎么改称自己想要的呢，我看到你的里边有一个solid是固体填充把？