怎样用lisp程序取得动态块（这个动态块是图框）的长和宽

lixuedong · 发表于 2014-1-27 09:13:22

本帖最后由 lixuedong 于 2014-1-27 10:19 编辑

我有个动态块，输入特征是通过调整各种长和宽，动态块的宽和高可以是不同的，可以来调整为不同的大小的图框。

用list能查到，切换的长和宽信息

但用程序，都看不到。
(setq entbatt (entsel "\n选取动态的图块: <退出>: "))
(setq entbatt (car entbatt))
(setq wattvla (vlax-ename->vla-object entbatt))
(if (= (vla-get-objectname wattvla) "AcDbBlockReference")
(vlax-dump-object wattvla t)
)

求思路。
用lisp程序,怎样才能查到动态块的长和宽的信息。

lixuedong · 发表于 2014-1-27 09:23:11

本帖最后由 lixuedong 于 2014-1-27 10:18 编辑

终于找到了

(setq BlkRef (vlax-ename->vla-object (car (entsel))))
(setq Pros (vlax-invoke BlkRef 'GetDynamicBlockProperties))
(mapcar       '(lambda (X)
         (cons (vlax-get X 'PropertyName) (vlax-get X 'Value))
      )
      Pros
)
解决了

njut_prince · 发表于 2014-1-27 10:21:30

求共享源码。。。

披着狼皮的羊 · 发表于 2014-1-27 15:06:55

这个图框动态块可以共享一下吗？

shh_188 · 发表于 2014-6-16 15:26:42

这个也是我现在想要的，很有用处～

NetBee · 发表于 2014-12-28 21:39:58

lixuedong 发表于 2014-1-27 09:23
终于找到了

(setq BlkRef (vlax-ename->vla-object (car (entsel))))

这个好。
动态块是个大问题。

ywx2020 · 发表于 2020-4-16 13:00:28

(setq BlkRef (vlax-ename->vla-object (car (entsel))))
(setq Pros (vlax-invoke BlkRef 'GetDynamicBlockProperties))
(mapcar       '(lambda (X)
         (cons (vlax-get X 'PropertyName) (vlax-get X 'Value))
      )
      Pros
)

这个试了一下，好像不行的

账号		自动登录	找回密码
密码			注册

[讨论] 怎样用lisp程序取得动态块（这个动态块是图框）的长和宽

本帖子中包含更多资源

相关帖子

本帖子中包含更多资源