Revion Cloud和Tag Lisp Not
我已经修改了我找到的代码，以满足我的需要，能够用适当的名称在补遗层上插入修订云，并冻结以前的补遗。我希望能够添加相同编号的修订标签，但它不起作用。lisp命令从不询问在哪里插入标记，也不会显示。有人能给我指出正确的方向吗。非常感谢任何指点。我已经附上了我的修订标签块和命令行的屏幕截图，这样你就可以看到发生了什么。再次感谢你。(defun C:Rev (/ strLayer strRevision )
(setq strRevision (getstring "\nEnter Revision Number: "))
(setq strLayer (strcat "Addendum-" strRevision))
(command "-layer" "m" strLayer "c" 3 strLayer "f" "Addendum*" "")
(command "revcloud" pause)
(setvar "attdia" 0)
(command "-insert" "Revision Tag1" pause (getvar "dimscale") "" 0 strRevision)
(setvar "attdia" 1)
(princ)
)
修订标签1。图纸
看，我打不开你的修订标签1。我在希腊度假时上网本上只有2008年的dwg。。。但是，如果要插入的块具有适当的修订属性，这应该可以。。。
(defun C:Rev ( / strLayer strRevision )
(setq strRevision (getstring "\nEnter Revision Number: "))
(setq strLayer (strcat "Addendum-" strRevision))
(command "_.-layer" "_m" strLayer "_c" 3 strLayer "_f" "Addendum*" "")
(command "_.revcloud")
(while (> (getvar 'cmdactive) 0) (command "\\"))
(setvar 'attdia 0)
(if (findfile "Revision Tag1.dwg")
(command "_.-insert" "Revision Tag1" pause (getvar "dimscale") "" 0 strRevision)
(alert "Revision Tag1.dwg can't be found in support search path, please place *.dwg in appropriate folder and try again...")
)
(setvar 'attdia 1)
(princ)
)
HTH，M.R。 它工作得很好，谢谢你，不过还有一个问题。我希望能够在图层创建中命名打印样式，并且不确定如何将要求添加到制作图层的代码行中。我知道我想拍出情节风格。我想要附录的打印样式名为“text”，我似乎无法在线获得它，并且lisp仍然有效。
非常感谢。
吉姆
页:
[1]