taoyi0727 发表于 2018-8-3 13:49:19

能用entmake创建动态块吗？

本帖最后由 taoyi0727 于 2018-8-3 14:51 编辑

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


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



或着插入动态块也可以
可是动态块的如下
(-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 发表于 2018-8-3 15:50:02

搞定了用的是插入块

获取动态块原始块名如下

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

taoyi0727 发表于 2018-8-4 12:54:26

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

kozmosovia 发表于 2018-8-3 17:48:58

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

自贡黄明儒 发表于 2018-8-3 17:06:34

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

oistre 发表于 2018-8-25 10:52:04

大神牛牛牛牛！

zj20190405 发表于 2020-3-18 21:40:37

大佬能不能增加个多选

ywx2020 发表于 2020-4-21 10:03:12

这个可以

ywx2020 发表于 2020-4-23 14:15:12

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

wzxcad 发表于 2020-9-26 10:03:08

学习了
页: [1] 2
查看完整版本: 能用entmake创建动态块吗？