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

autolisp吧关注：477贴子：1,087

9回复贴，共1页

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

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

送TA礼物

IP属地:四川

1楼2017-09-19 18:09回复

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

IP属地:江苏

来自iPhone客户端2楼2017-09-19 22:48

收起回复

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

IP属地:贵州

来自Android客户端3楼2017-10-06 19:57

(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
)

4楼2017-10-09 15:37

收起回复

有没有试过，用windows下的autocad写lisp程序，带有VLA这些函数的，然后放到mac下能不能用？如果编译成fas和vlx，能不能拿过去用？

IP属地:广东

来自Android客户端5楼2024-04-23 14:47

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

贴吧热议榜

9回复贴，共1页

<返回autolisp吧

发表回复

发贴请遵守贴吧协议及“七条底线”贴吧投诉

内容:

使用签名档查看全部

发表

保存至快速回贴

日	一	二	三	四	五	六

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

登录百度账号

扫二维码下载贴吧客户端