[求助]：快捷键画不同线形

hpisme

请问哪位高手知道 通过做lisp程序或者别的插件来  定义快捷键来画不同线形!我的意思是:打个比方:我敲L是画实线 敲G是画虚线~~等!先谢了!

daziran

你的意思是光敲L 不敲回车？这恐怕真有些难。
如果可以敲回车键，那就简单了。

hpisme

不敲回车命令怎么能输入呀？当然要敲回车！一般的快捷键不也得要回车或者空格键嘛！请你指教一下好吗？多谢

lijiao

(defun c:L ( / )
   (setvar "CELTYPE" "CONTINUOUS")
   (command ".LINE")
   (princ)
)
就是这个思路

hpisme

如果我想加上定义不同的线形在不同的图层上?请问怎么定义?多谢了~

lijiao

Command:layer

hpisme

(defun c:L ( / )
(setvar "CELTYPE" "CONTINUOUS")
(command ".LINE")
(command "layer")
(princ)
)
对吗?十分感谢lijiao

lijiao

最初由 hpisme 发布
[B](defun c:L ( / )
(setvar "CELTYPE" "CONTINUOUS")
(command ".LINE")
(command "layer")
(princ)
)
对吗?十分感谢lijiao [/B]

2. 
   
3.   [FONT=courier new]
   
4. defun c:L ( / )
   
5. (setvar "CELTYPE" "CONTINUOUS")
   
6. (setvar "CElayer" "1")  ;1是你要指定的层
   
7. (command ".LINE")
   
8. (princ)
   
9. )
   
10.   [/FONT]
    

<br />   [FONT=courier new]<br /> defun c:L ( / )<br /> (setvar "CELTYPE" "CONTINUOUS")<br /> (setvar "CElayer" "1")  ;1是你要指定的层<br /> (command ".LINE")<br /> (princ)<br /> )<br />   [/FONT]<br />