Revion Cloud和Tag Lisp Not

jsetti01 · 发表于 2022-7-5 22:31:33

我已经修改了我找到的代码，以满足我的需要，能够用适当的名称在补遗层上插入修订云，并冻结以前的补遗。我希望能够添加相同编号的修订标签，但它不起作用。lisp命令从不询问在哪里插入标记，也不会显示。有人能给我指出正确的方向吗。非常感谢任何指点。我已经附上了我的修订标签块和命令行的屏幕截图，这样你就可以看到发生了什么。再次感谢你。

copy

(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。图纸

marko_ribar · 发表于 2022-7-5 23:06:07

看，我打不开你的修订标签1。我在希腊度假时上网本上只有2008年的dwg。。。但是，如果要插入的块具有适当的修订属性，这应该可以。。。

copy


(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。

jsetti01 · 发表于 2022-7-5 23:51:28

它工作得很好，谢谢你，不过还有一个问题。我希望能够在图层创建中命名打印样式，并且不确定如何将要求添加到制作图层的代码行中。我知道我想拍出情节风格。我想要附录的打印样式名为“text”，我似乎无法在线获得它，并且lisp仍然有效。

非常感谢。
吉姆

[编程交流] Revion Cloud和Tag Lisp Not

发表回复

精选推荐