标注时自动生成相应的图层如何做

cadm0211

标注时自动生成相应的图层如何做，如线性标注，我的简化命令是DE对应的命令是dimlinear而标注时自动生成相应的图层DIM，图层要求颜色是青色4号线宽是0.25。请问应如何编。

英雄无敌

(defun c:de(/ oldlay)

(setq oldlay (getvar"clayer"))

(if (= nil (tblsearch"layer" "dim"))

(command"-layer" "m" "dim" "c" "cyan" "" "")

(setvar"clayer" "dim")

)

(princ"\n请选择标注点:")

(command"dimlinear")

(while (/= 0 (getvar"cmdactive"))

      (command pause)

)

(setvar"clayer" oldlay)

(princ)

)

;;;由于我用的是R14，不知道线宽是什么字母表示，不过你在cad中运行一下-layer就知道了

cadm0211

我用的是AUTOCAD2006线宽是LW，我试用了一下你的程序可以在2006上使用，现在只是线宽的问题。(command"-layer" "m" "dim" "c" "cyan" "" "")不明白你这里的cyan是什么意思，就是指的是色号吗？还有我试着改了一下线宽是这样的(command"-layer" "m" "dim" "c" "cyan" "lw" "0.25")可是没有用。

cadm0211

请大家帮助解决，万分感谢！

英雄无敌

应改成(command"-layer" "m" "dim" "c" "cyan" "" "lw" "0.25" "" "")

cyan就是色号，青色，相当于4号，这个你可以随便改的

后面两个引号不能少的

cadm0211

不知道是怎么会事，昨天我也跟你一样这样搞了一下，不过不可以，今天可以的，可能是我输错了。按你的方法用在多行文字和引线标注还有填充都有点问题。

英雄无敌

命令不一样，结果可能不一样的，你找找是什么问题，应该是可以解决的

tandy

用顾文伟先生的自动换层工具，很不错！能把命令和层对应起来！

cadm0211

我用过这个工具，我是想自己搞搞看能不能用另外一种方法做的比他更好。

ttmc

真是谢谢了.我被这个问题困扰了好多天.

可是你的:

(while (/= 0 (getvar"cmdactive"))

      (command pause)

)

这段代码具体意思是什么?我知道没有这段话,图层可创建并返回,但标注还是转不到这个层上.请不吝解答,非常感激.

另外我发现没有princ"\n请选择标注点:")也是可以的.这句话没什么用吧?

还有,如果我想取消cad的dimlinear命令,在前面加(command "undefine" "dimlinear")

后面程序中用的"dimlinear"变成".dimlinear"强制调用标注命令,为什么不可以运行呢?