dwg图型输出为lisp文件

hhh454

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

罗尼

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

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

罗尼

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

赞一个。很好。

229096767

很好用
谢谢分享

KO你

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

guangdonglbq

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

区别在于，可以自由定制

龙城飞将36

插入位置可以选择吗？