【Gu_xl】原创实用工具：Block 自动转为Lisp源代码

duotu007 · 发表于 2011-2-18 11:48

有创意，好

仲文玉 · 发表于 2011-2-18 20:13

顶版主，买个收藏

kwok · 发表于 2011-2-19 10:33

很强,看不懂很复杂冒似!

yunlong300 · 发表于 2011-2-20 11:04

功能很强下来试试：）

zxmmelly · 发表于 2011-2-27 22:32

这个创意很好，不记得之前在哪看到过类似的代码

x_s_s_1 · 发表于 2011-2-28 09:57

回复 Gu_xl 的帖子

版主(command "_insert" (gxl-Blk-Check "路灯") (getpoint "\n图块插入点:") 1 1 1 0) 是否应改为(command "_insert" (gxl-Blk-Check "路灯") (getpoint "\n图块插入点:") 1 1 0)，我的是2004.还有如果块中有扩展数据或者超链接是否可写成lisp呢？如我发的图，谢谢

Gu_xl · 发表于 2011-2-28 10:29

[i=s] 本帖最后由 Gu_xl 于 2011-4-3 20:10 编辑 [/i]

回复 x_s_s_1 的帖子
(command "_insert" (gxl-Blk-Check "路灯") (getpoint "\n图块插入点:") 1 1 1 0) 的确是多了个1
正确应为：(command "_insert" (gxl-Blk-Check "路灯") (getpoint "\n图块插入点:") 1 1 0)
至于扩展数据和超链接数据，本程序未予考虑，主要是一般对于符号来说，很少能用到这两类数据！

x_s_s_1 · 发表于 2011-2-28 11:32

谢谢，确实，对于比较大的块，写lisp比较臃肿，直接做外部块调用好一些。

农 · 发表于 2011-3-5 23:52

呵呵，创意不错

flowerson · 发表于 2011-3-6 23:16

很不错的思路！

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

[【Gu_xl】] 【Gu_xl】原创实用工具：Block 自动转为Lisp源代码

本帖子中包含更多资源