参考图纸图章
我不知道如何以任何形式、形式或方式编写代码，我向那些知道如何做这些事情的人提出了一个请求。我使用的是R2007，我的要求是在打开的每张图纸上自动贴上邮票。
我想要的是罗马人的参考图纸。shx在图纸上垂直放置约2“，从0.0水平放置约1/2”。
A尺寸纸张的文字尺寸约为1/4英寸高，但随着纸张尺寸的增加而变化。（A、B、C、D、E）
这可能吗？
不管怎样，我非常感谢你的帮助。
比尔·威廉姆斯 为什么不将所需内容制作为DWG并将其插入到图形中，或者将其放入模板文件中？ 这是一个很好的方法，但我们有公司提供的边界，在这里的权力需要一个自动插入的文本行。他们想让公司保持快乐。 插入文本很容易，但更改大小（因为您无法访问注释性对象）更具挑战性。
考虑以下因素：
对象需要在模型或纸中吗？
为了改变大小（例如dimscale变量、视口比例），进行了哪些更改？ 标题栏的名字是什么？
它们都是不同的名字还是一个动态块？ 如果它在纸张空间中，效果会更好；至于文本大小，如果它在e大小的纸张上足够大，以便阅读，效果会更好。
如前所述，标题栏/边框由公司提供，带有用于图形描述等的属性。 制作一个记事本文件。lsp
（defun S：：STARTUP（）
（setq title_块“corporatetitleblock”）
（setq ent（cdr（assoc 2（tblnext“block”T）））
（while（/=ent nil）
（if（=ent title\U block）（命令“insert”“C:\\myfile\\mydrg.dwg”“0,0”“1”“1”“0”））
（setq ent（cdr（assoc 2（tblnext“block”）））
)
)
这将搜索图形中的所有块，如果找到公司标题栏，将在0,0处插入图形
希望这有帮助 我只是想在每次在前面指定的位置打开图纸时插入“参考图纸”字样 很快就被砍掉了，把这个放到你的阿卡多克里。lsp账单：
(defun c:RefDWG ( / str pos hgt ) (vl-load-com)
(setq str"REFERENCE DRAWING" ;; Text String
pos '(0.5 2.0 0.0) ;; Text Position
hgt0.25 ;; Text Height
)
(vla-AddText
(vla-get-PaperSpace
(vla-get-ActiveDocument
(vlax-get-acad-object)
)
)
str (vlax-3D-point pos) hgt
)
(princ)
)
(c:RefDWG)
或更稳健地考虑当前锁定层：
(defun c:RefDWG ( / str pos hgt ) (vl-load-com)
(setq str"REFERENCE DRAWING" ;; Text String
pos '(0.5 2.0 0.0) ;; Text Position
hgt0.25 ;; Text Height
)
(if
(vl-catch-all-error-p
(vl-catch-all-apply 'vla-AddText
(list
(vla-get-PaperSpace
(vla-get-ActiveDocument
(vlax-get-acad-object)
)
)
str (vlax-3D-point pos) hgt
)
)
)
(princ (strcat "\n** Error Creating Text: " str " **"))
)
(princ)
)
(c:RefDWG) 谢谢李。
感恩节过后我第一件事就是试试
页:
[1]
2