插入：使用ActiveX

jan_ek · 发表于 2022-7-6 09:01:49

你好
与插入块ActiveX一样。现在我使用命令。我想学习其他插入块的方法。这是我使用的一段代码

(command "._insert" (strcat name_block "="  patch name_block))(command)

我使用它来更改图中块的定义，即文件夹中的当前块。

Lee Mac · 发表于 2022-7-6 09:07:15

要使用ActiveX插入块，可以使用InsertBlock方法，例如：

copy

(setq activedoc (vla-get-activedocument (vlax-get-acad-object)))
(setq activespc
   (vlax-get-property activedoc
       (if
           (or
               (eq acmodelspace (vla-get-activespace activedoc))
               (eq :vlax-true (vla-get-mspace activedoc))
           )
           'modelspace
           'paperspace
       )
   )
)
(vla-insertblock activespc (vlax-3D-point '(0.0 0.0 0.0)) "YourBlockName" 1.0 1.0 1.0 0.0)

SLW210 · 发表于 2022-7-6 09:10:10

jan_ek，

请使用代码标签。这次我抓住你了。

alanjt · 发表于 2022-7-6 09:14:05

如果因最多使用该表情符号而获奖，那么你将击败所有人。英雄联盟

alanjt · 发表于 2022-7-6 09:18:24

使用命令在vla insertblock上“重定义”块定义的好处是，您不必担心在图形中创建对象。

SLW210 · 发表于 2022-7-6 09:23:40

我的工资乘以我使用那个表情符号的次数。

alanjt · 发表于 2022-7-6 09:27:13

太糟糕了，任何乘以零的东西仍然是零。

Tharwat · 发表于 2022-7-6 09:31:38

另一个

copy


(setq acdoc (vla-get-activedocument (vlax-get-acad-object)))
(setq spc
      (if
        (eq 1 (vla-get-activespace acdoc))
         (vla-get-modelspace acdoc)
         (vla-get-paperspace acdoc)
      )
)
(vla-insertblock
 spc
 (vlax-3d-point '(0. 0. 0.))
 "Blockname"
 1.0
 1.0
 1.0
 0.0
)

Lee Mac · 发表于 2022-7-6 09:36:41

那些在Paperspace中通过视口进行建模的用户呢眨眼：

alanjt · 发表于 2022-7-6 09:38:27

*咳嗽*（getvar’CVPORT）*咳嗽*

[编程交流] 插入：使用ActiveX

发表回复

精选推荐