jjatho 发表于 2022-7-5 18:54:10

Can#039；t理解纸张

我试着写一些快速的东西，只在图纸上的每个纸空间的一个特定位置放上“初步的”。我发现插入的块基本上到处都是，除了我在Lisp中输入的坐标，每个页面都不同。
 
我想这可能与每个纸张空间的当前缩放级别有关。我有一个单独的小脚本PSCenter。我写的lsp，它只是在一个图形中的所有纸张空间中循环，并在每个空间上运行“缩放”“范围”，为我将它们全部居中。我从PSCenter添加了代码。lsp至预LIM。lsp在插入块之前将每个页面居中，但仍然具有相同的随机、到处都是的结果。

rkmcswain 发表于 2022-7-5 19:10:54

你能发布这样做的代码：“只在每个纸空间的特定位置放*初步的*”吗？

jjatho 发表于 2022-7-5 19:13:26

(cond
((="All" LabelType)

        (princ)
       
        (foreach tab (_layoutlist)

        (setvar 'ctab tab)

        (command "Zoom" "extents")

        (command "_.INSERT" "Preliminary" "S" "1" "R" "0" 4.014386432 3.96875 "")
       
        )
       
        (setvar 'ctab (car (_layoutlist)))
       
        );

rlx 发表于 2022-7-5 19:19:58

也许你可以这样写：
 
 
（setq ss（ssget“X”（list（cons 0“INSERT”）（cons 2#yourblockname#）（cons 410（getvar“CTAB”）））
 
 
如果块的大小固定，则可以获取其插入点，然后计算字符串位置的偏移量
 
 
gr.Rlx
 
 
哎呀，我以为你想相对于已经在那里的块插入它。。。

rlx 发表于 2022-7-5 19:33:47

您是插入点，是否应该是“4.014386432,3.96875”？
 
 
也许最好先确定插入点：（setq ip（列表4.014 3.968），然后
 
 
（setvar“attreq”0）；如果需要
（命令“-插入“初步”ip 1 1 0）
 
 
Gr.R。

jjatho 发表于 2022-7-5 19:44:29

 
这个修好了，谢谢！

rlx 发表于 2022-7-5 19:50:10

不客气

BIGAL 发表于 2022-7-5 20:00:12

您可能需要添加一个“PSPACE”，否则，如果打开一个选项卡，并且视口设置为模型空间，则块可能会最终出现在模型空间中。
页: [1]
查看完整版本: Can#039；t理解纸张