能用entmake创建动态块吗？

taoyi0727

这个程序里面，用的copy动态块到指定位置，但是copy反应好慢，尝试用entmake来，但是出来的都是块，不是动态块……
问下用用entmake怎么创建动态块


里面的 getcorn-yg 是G版给写的
改动态块也是别人的,我就是把他们的凑在一起了



或着插入动态块也可以
可是动态块的如下
(-1 . <图元名: 7ffffb42ad0>)
(0 . "INSERT")
(5 . "3F05")
(102 . "{ACAD_XDICTIONARY")
(360 . <图元名: 7ffffb42cb0>)
(102 . "}")
(330 . <图元名: 7ffffb03820>)
(100 . "AcDbEntity")
(67 . 0)
(410 . "Model")
(8 . "0")
(48 . 0.1)
(100 . "AcDbBlockReference")
(2 . "*U169")
(10 333697.0 -414785.0 0.0)
(41 . 1.0)
(42 . 1.0)
(43 . 1.0)
(50 . 0.0)
(70 . 0)
(71 . 0)
(44 . 0.0)
(45 . 0.0)
(210 0.0 0.0 1.0)



块名为  *U169 插入这个块名时就只是块了，不是动态块。也是给整懵了
这个块名和本来在编辑时看到的块名不一样

taoyi0727

搞定了  用的是插入块

获取动态块原始块名如下

;;说明:获取动态块原始块名
;;参数:msg:拾取图元提示
;;返回:动态块原始块名
(defun ddk-name (msg / entity)
        (setq entity (vla-get-EffectiveName (vlax-ename->vla-object (car (while (not entity)
                                                                                                                 (setq entity (entsel msg)))
                                                                                                             )
                                                              )
                         )
        )
)

taoyi0727

黄大师高看我了  我才刚入门  VL函数都不会
我只是用插入块替代了复制块

kozmosovia

entmake是创建不了的，vl也不行的。因为所有的动态参数及交互均没有开放接口。只能用.NET

自贡黄明儒

能分享下"entmake创建动态块"么？

oistre

大神牛牛牛牛！

zj20190405

大佬能不能增加个多选

ywx2020

这个可以

ywx2020

选完挂衣杆，增加一个提示选择柜体内空就比较好。

wzxcad

学习了