社区 › Auto Lisp › 绘图反应堆

SteveK 发表于 2022-7-6 13:01:09

为了做我认为你需要的事情，我需要你所说的动态块，因为块将包含缩放它的信息和你想要显示“A1”或“A3”的标记。
史提夫

woodman78 发表于 2022-7-6 13:04:34

史提夫，
这是我目前用于刻度的动态块。它根据所选比例显示比例尺。如果这需要被打破，那也没关系。比例是否会链接到视口比例？
 
如果需要修改块以使其工作，请告诉我。
 
谢谢
缩放A1新页。图纸

SteveK 发表于 2022-7-6 13:07:04

很抱歉，我们似乎没有进展。您所附的图纸必须仅适用于civil 3D，因为我看到的只是一个文本，上面写着“custom”，尽管我在图纸中找到了474个对象。

woodman78 发表于 2022-7-6 13:13:03

史提夫，
我不想浪费你的时间。
我在on Map 3D中创建并在多个版本的CAD上运行了它，没有问题。你能看到动态方块的抓地力吗？如果你不是，那就太奇怪了。
你能像你说的那样用一个标签创建一个块吗？我可以用那个吗？？？
 
谢谢

SteveK 发表于 2022-7-6 13:18:16

如前所述，我可以缩放块，但我不确定如何在夹点处调整动态块（即使我可以看到你的块）。这不是您想要的，但可能会使设置纸张大小属性更容易。
(defun c:PSize (/ en actLay papSize)
(vl-load-com)
(Cond ((not (setq en (car(nentsel))))
    (princ "\nNothing Selected."))
   ((not (eq (cdr (assoc 0 (entget en))) "ATTRIB"))
    (princ "\nSelection not an Attribute"))
   (T
    (setq actLay (vla-get-activelayout (vla-get-activedocument
                                                (vlax-get-acad-object)))
          papSize (vla-get-CanonicalMediaName actLay))
    (vla-put-textstring (vlax-ename->vla-object en) papSize)
    )
   );_ cond
(princ)
)
希望其他人能帮助你。

woodman78 发表于 2022-7-6 13:20:38

我把这件事做好了。。不是使用反应堆，而是使用场。现在已经设置好，当您选择打印到A1或A3时，图纸尺寸和比例将在Regenall上更新。比例是基于Viewportscale和Plotscale的公式组合，以正确选择任何纸张大小。
 
我还设置了一个比例尺，使A1上的sclae为100mm，A3上为50mm。我本想将比例尺参照回比例尺，但到目前为止我无法做到。我会再来一次。
 
无论如何，谢谢你的帮助。。
模板Cadtutor。图纸

查看完整版本: 绘图反应堆