社区 › Auto Lisp › 插入：使用ActiveX

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

插入：使用ActiveX

你好
与插入块ActiveX一样。现在我使用命令。我想学习其他插入块的方法。这是我使用的一段代码
(command "._insert" (strcat name_block "="patch name_block))(command)
我使用它来更改图中块的定义，即文件夹中的当前块。

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

要使用ActiveX插入块，可以使用InsertBlock方法，例如：
 
(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

另一个
 

(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