查询当前图层的Lisp语言如何写

lmnsx

在AutoCad绘图处始状态，查询当前图层的Lisp语言如何写

偶就稀饭美金

楼主,能否把你的要求说的清楚一点呢?
, A3 Z- A9 f8 N  i( ~& ?5 I  R或许我可以帮你

lmnsx

首先谢谢！
举个例！
我要编一个LISP程序，我在绘图状态下，当前图层是粗实线层，这时我用标注尺寸的命令，要求尺寸线自动处在尺寸线层，尺寸标完后又回到标注前的当前图层（这里为粗实线层）。
这里关键就是要求鼠标不进行任何点击操作，而取得当前是在何图层的数据。
1 p# _$ q* n& Y+ u) Q' Q请高人给指点，感激不尽!

fxrswc1

用系统变量clayer,即可返回当前层名,多看看AutoCAD的帮助就可以了

lmnsx

谢谢指点！我刚学LISP!

偶就稀饭美金

呵呵，我明白你的意思了。
: D! S/ O3 c  k" h% K. w想法是很好，要把所有的绘图命令以及所有的标注命令全重新做一个LISP程序，要它在执行命令之前先更改当前层。
  Y; }1 v% _# A0 V& _我还要提出一点，就是画实线用L，那虚线、中心线等等其它的线型呢，这样一定会增加命令，这样吧，我有一个小工具，或许可以帮到你一点，
0 q$ P! N1 U6 R8 G2 t2 V
7 \  x8 M( J. G) w1、你先加载这个程序，
/ @0 n. e; ^4 a% g$ J* B: n2、在命令行里输入“YY”
6 F( t; j- ~# y$ |# }3 V' I- x1 ]3、在对话框里设置快捷键
如果不明白，再问我吧

艾艾奥里斯

在帮助里面输入图层。然后看命令行提示。里面写的很详细，各种参数的对照意思。
+ f& V0 M) |7 e+ F, }* f& N
- Y4 ]6 U; M9 w8 X6 g9 p; f+ T- d多看帮助有利于学习提高。

lmnsx

提供70个小工具的大哥程序收到，很感激。
但我编要实现我的上述功能的程序执行起来为何就有问题呢？请指点
3 h3 M/ j6 I8 J; e1 j1 a( s! k
(defun c:xdimlinear()
  (setq old_lay (getvar "clayer"))
   (setvar "clayer" "尺寸线")
  G3 x; ]9 T# n   (command "dimlinear")
% `1 t. Z4 Q7 K; g( C- }   (setvar "clayer" old_lay“) ;;;不能回到old_lay层
)

偶就稀饭美金

楼主,你试一下,以下我改过的
' m+ j. h- D4 Y& [' L* r/ k
(defun c:xdimlinear(/ old_lay)
/ h. q, Z& e9 |+ x- n  (setq old_lay (getvar "clayer"))
   (setvar "clayer" "尺寸线")
+ N; J2 b5 `& q! t# q5 y   (command "dimlinear" pause pause)
+ T* T" o7 i- J   (setvar "clayer" old_lay) ;;;不能回到old_lay层
)

9 i* R, `" s2 b4 C. U8 ]: v[ 本帖最后由 偶就稀饭美金 于 2007-2-3 09:11 编辑 ]

lmnsx

问题解决了，多谢高人指点使我少走弯路，pause我用过，就是没有连用2个，看来我要多学习。

偶就稀饭美金

呵呵,不要说我是高人,我也只是新手
; W1 F3 b1 c) a8 ~  E/ v大家一起学习