牛牛牛,大神 这个代码显示不好,
[*];;-----显示实体DXF组吗----------------------------------------------------------------
[*](defun C:PRINTDXF (/ ent ent1 et)
[*](sl-cishu)
[*](setq ent(car(entsel)))
[*](setq ent1(entget ent))
[*](setq et 0)
[*](textpage)
[*](print "\n请选择显示DXF内码实体:")
[*](repeat (length ent1) (print (nth et ent1)) (setq et (1+ et)))
[*](print)
[*])
一句话的代码还要发下载本身就坑
要比更坑
阿赫,想要比也不能这种坑啊 扯蛋的东西。。。。 查看不是目的,得可以修改 虽说是组码查看的,但是也太简单了。直接命令行显示,太不友好了。
页:
1
[2]