将块插入到

erickson19886 · 发表于 2022-7-5 17:16:11

大家好，

我是埃里克，我是这个论坛的新手。
此外，我是创建LISP的初学者。
我需要你的帮助来创建一个代码，将完成以下项目。
1.将块（该.DWG块可在与图形模板相同的目录中找到）自动插入到打开的图形模板中。
2.在插入过程中，LISP应将块放在固定位置（0，0），然后将其缩放到固定比例因子（即0.5，0.5），并具有固定旋转（0度）。

提前谢谢你。
希望你能在第一个项目上帮助我。
块图纸
DWG_模板。图纸

Tharwat · 发表于 2022-7-5 17:35:54

嗨，埃里克，欢迎来到CADTutor。

这是一个测试的开始，如果同时发现vla-*函数很难处理，也可以使用命令调用“-insert”。

copy

(vla-insertblock
  (vla-get-modelspace
    (vla-get-activedocument (vlax-get-acad-object))
  )
  (vlax-3d-point '(0. 0. 0.))
  "C:\\Users\\Tharwat\\Desktop\\Drawing1.dwg"  ;; Replace this path of drawing with yours
  0.5
  0.5
  1.0
  0.
)