lisp编写一程序

发表于 2012-6-4 10:36 | 显示全部楼层 |阅读模式

求lisp程序，如何做到图片中内容？！
谢谢高手指点！！！
(defun c:guanwang(/ ss lenofpipe index ename)
(setq ss(ssget))
(setq lenofpipe(sslength ss))
(repeat lenofpipe
(setq ename(entget (entlast)))
)
)

内容, 谢谢, 指点, 片中, 图片

本帖子中包含更多资源

您需要登录才可以下载或查看，没有账号？注册

相关帖子

使用道具举报

返回列表

GMT+8, 2024-5-15 22:07 , Processed in 0.250324 second(s), 28 queries , Gzip On.

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