有没有办法只用autolisp函数获取动态块的原名呢？ - autolisp吧

level 1

本人用的苹果本，很多现成的工具没法用，只能自己写一些lisp。
而autocad for mac里只能用autolisp函数，visual lisp的统统不行。
具体就是vla，vlr，vlr开头的函数都不行。只能用autolisp和vl开头的。
如果有同用mac os的，也可以一起交流。目前我写了一些工具，比如画墙，墙上开洞、开窗，坐标标注，标高自动计算，填充墙体，填充线等等。

2017年09月19日 10点09分 1

level 13

Faith__凨

画一个动态块，然后查一下有没有相关组码不就好了

2017年09月19日 14点09分 2

玩水泥的数码熊

具体怎样操作呢？不是太明白

2017年09月19日 17点09分

level 3

肯定看看55

大神有木有相关书籍资源啥的，求推荐。

2017年10月06日 11点10分 3

level 2

贴吧用户_0RV9CEy

(defun Get-effectivename (blk / tem blkname)
(setq blkname (cdr (assoc 2 (entget blk))));;取得当前动态块名
(if (wcmatch blkname "`**");;如果是匿名块
(if (and
(setq tem
(cdadr
(assoc -3
(entget
(cdr
(assoc 330
(entget
(tblobjname "block" blkname);;根据动态块名称取得图元名
);;根据图元名取得实体
)
)
'("AcDbBlockRepBTag")
)
)
)
)
(setq tem (handent (cdr (assoc 1005 tem))))
)
(setq blkname (cdr (assoc 2 (entget tem))))
)
)
blkname
)

2017年10月09日 07点10分 4

玩水泥的数码熊

非常感谢，解决了我的大问题。并且还get到一个新技能 [太开心]