dwg图型输出为lisp文件

hhh454 · 发表于 2022-6-6 19:12:05

猫老师的也可以实现这个，选择对象生成lisp，然后加载lisp就可以在原位置生成图形，意思应该差不多

罗尼 · 发表于 2022-6-6 20:47:15

guangdonglbq 发表于 2022-6-6 18:25
我用autocad 2008、2010、2021测试，正常使用。不知道是不是你的autocad环境的问题

(setq strDxfStringCodes (append strDxfStringCodes (list (strcat "(" (rtos (car kDxf)) " . "" (cdr kDxf) "")"))))问题出现在115行这个位置，“”（cdr kdxf）“” 比如是圆，您想生成：(0 . "CIRCLE")，实际生成的是 (0 . (cdr kDxf)，不知道您是不是有其它函数，能把(cdr kDxf) 转成字符串，再加上引号

guangdonglbq · 发表于 2022-6-6 21:25:00

罗尼发表于 2022-6-6 20:47
(setq strDxfStringCodes (append strDxfStringCodes (list (strcat "(" (rtos (car kDxf)) " . "" (cdr ...

你复制代码后，少了：\
(strcat "(" (rtos (car kDxf)) " . "" (cdr kDxf) "")")
改为： (strcat "(" (rtos (car kDxf)) " . \"" (cdr kDxf) "\")")

dtucad · 发表于 2022-6-6 21:27:36

本帖最后由 dtucad 于 2022-6-6 21:33 编辑

这句的问题，引号前没加转义符（可能是被论坛高亮代码吞了）：
(setq strDxfStringCodes (append strDxfStringCodes (list (strcat "(" (rtos (car kDxf)) " . \"" (cdr kDxf) "\")"))))
替换一下就行了

罗尼 · 发表于 2022-6-7 08:23:40

dtucad 发表于 2022-6-6 21:27
这句的问题，引号前没加转义符（可能是被论坛高亮代码吞了）：
(setq strDxfStringCodes (append strDxf ...

可以了，前面我反斜杠错了一位，弄半天不行，改成这个也能用：
(setq strDxfStringCodes (append strDxfStringCodes (list (strcat "(" (rtos (car kDxf)) " . " (write-line "\"")(cdr kDxf)(write-line "\"") ")"))))，感谢楼主无私奉献！

chuanyumin · 发表于 2022-6-18 11:03:57

赞一个。很好。

229096767 · 发表于 2022-6-18 15:58:47

很好用
谢谢分享

KO你 · 发表于 2022-6-20 15:05:42

这个与G版的图块代码生成器有什么区别吗
http://bbs.mjtd.com/thread-85342-1-1.html
感觉G版的还好用点，选择的范围广一点。可以对比一下。

guangdonglbq · 发表于 2022-6-20 20:27:58

KO你发表于 2022-6-20 15:05
这个与G版的图块代码生成器有什么区别吗
http://bbs.mjtd.com/thread-85342-1-1.html
感觉G版的还好用点 ...

区别在于，可以自由定制

龙城飞将36 · 发表于 2022-6-23 10:42:22

插入位置可以选择吗？

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

[源码] dwg图型输出为lisp文件

本帖子中包含更多资源