参考图纸图章

BILL WILLIAMS · 发表于 2022-7-6 10:08:26

我不知道如何以任何形式、形式或方式编写代码，我向那些知道如何做这些事情的人提出了一个请求。
我使用的是R2007，我的要求是在打开的每张图纸上自动贴上邮票。
我想要的是罗马人的参考图纸。shx在图纸上垂直放置约2“，从0.0水平放置约1/2”。
A尺寸纸张的文字尺寸约为1/4英寸高，但随着纸张尺寸的增加而变化。（A、B、C、D、E）
这可能吗？
不管怎样，我非常感谢你的帮助。
比尔·威廉姆斯

Grant · 发表于 2022-7-6 10:14:38

为什么不将所需内容制作为DWG并将其插入到图形中，或者将其放入模板文件中？

BILL WILLIAMS · 发表于 2022-7-6 10:17:46

这是一个很好的方法，但我们有公司提供的边界，在这里的权力需要一个自动插入的文本行。他们想让公司保持快乐。

alanjt · 发表于 2022-7-6 10:20:31

插入文本很容易，但更改大小（因为您无法访问注释性对象）更具挑战性。
考虑以下因素：
对象需要在模型或纸中吗？
为了改变大小（例如dimscale变量、视口比例），进行了哪些更改？

Lt Dan's l · 发表于 2022-7-6 10:26:01

标题栏的名字是什么？
它们都是不同的名字还是一个动态块？

BILL WILLIAMS · 发表于 2022-7-6 10:27:26

如果它在纸张空间中，效果会更好；至于文本大小，如果它在e大小的纸张上足够大，以便阅读，效果会更好。
如前所述，标题栏/边框由公司提供，带有用于图形描述等的属性。

Grant · 发表于 2022-7-6 10:32:44

制作一个记事本文件。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处插入图形

希望这有帮助

BILL WILLIAMS · 发表于 2022-7-6 10:36:10

我只是想在每次在前面指定的位置打开图纸时插入“参考图纸”字样

Lee Mac · 发表于 2022-7-6 10:38:45

很快就被砍掉了，把这个放到你的阿卡多克里。lsp账单：

copy


(defun c:RefDWG ( / str pos hgt ) (vl-load-com)
 (setq str  "REFERENCE DRAWING" ;; Text String
       pos '(0.5 2.0 0.0)       ;; Text Position
       hgt  0.25                ;; Text Height
 )
 (vla-AddText
   (vla-get-PaperSpace
     (vla-get-ActiveDocument
       (vlax-get-acad-object)
     )
   )
   str (vlax-3D-point pos) hgt
 )
 (princ)
)
(c:RefDWG)

或更稳健地考虑当前锁定层：

copy


(defun c:RefDWG ( / str pos hgt ) (vl-load-com)
 (setq str  "REFERENCE DRAWING" ;; Text String
       pos '(0.5 2.0 0.0)       ;; Text Position
       hgt  0.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)

BILL WILLIAMS · 发表于 2022-7-6 10:43:37

谢谢李。
感恩节过后我第一件事就是试试

[编程交流] 参考图纸图章

发表回复

精选推荐