dwg图型输出为lisp文件

guangdonglbq

    主要是生成dxf组码，利用dxf组码，来生成图形。
    dxf组码，包含图层定义、标注样式、块定义、线型定义、文字样式、对象生成等大部分常用dwg文件的组码，有需要时，可以在编写其它程序时的参考，也可以直接复制相关代码使用。比如，图层定义，可以先建立自己想要的图层设置，然后用本程序生成相关的图层生成代码，复制到自己的lisp程序中去，去就可以直接使用。
    程序还可以用来画符号之类东西。结合需要修改后，可以用来搞参数化绘图。

    生成块的功能还有点小问题，使用时，可以自行处理。

dtucad

感谢分享 不知道是不是我姿势不对
转成的lisp 组码不对
(defun NewSignOrBlock (  / startEntity )
(entmake '((0 .  (cdr kDxf) )(100 .  (cdr kDxf) )(67 . 0)(410 .  (cdr kDxf) )(8 .  (cdr kDxf) )(100 .  (cdr kDxf) )(10 393.167 426.663 0.0)(11 706.735 -98.8315 0.0)(210 0.0 0.0 1.0)))
(setq startEntity ( entlast ) )
(entmake '((0 .  (cdr kDxf) )(100 .  (cdr kDxf) )(67 . 0)(410 .  (cdr kDxf) )(8 .  (cdr kDxf) )(100 .  (cdr kDxf) )(10 0.0 0.0 0.0)(11 393.167 426.663 0.0)(210 0.0 0.0 1.0)))
(AddToNewGroupFrom startEntity)
(princ)
)
(NewSignOrBlock)

罗尼

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

liuyun242 发表于 2022-10-14 16:38
DIMSTYLE   输出有问题 多了一个“  (cons 340 (tblobjname "STYLE" "HX文字")")'(372 . 18))) 应为 (cons  ...

    有时候输出结果会有些莫名其妙的问题，猜测可能是princ函数的原因。最新版本基本已经处理发现的问题。
    一般用这个程序的，应该是写程序的朋友，使用的时候，测试一下，很容易就能发现是否有问题，再手改一下就好。

wzg356

这个牢固有了，搜图块打包，文字样式线型标注样式图层块名等等均识别。我的也是

guangdonglbq

dtucad 发表于 2022-6-5 21:11
感谢分享 不知道是不是我姿势不对
转成的lisp 组码不对
(defun NewSignOrBlock (  / startEntity )

复制网页中的源码时候，\"  只复制了 "
下载附件中的文件吧。

guangdonglbq

wzg356 发表于 2022-6-5 21:53
这个牢固有了，搜图块打包，文字样式线型标注样式图层块名等等均识别。我的也是

各有各的用途。不影响。

lxl217114

谢谢梁老师分享新品

罗尼

我这边试了，可以转lisp，但是生成的lisp转不成图形，我用的是CAD2020，是跟CAD版本有关吗？

罗尼

我的转出来也出现(cdr kDxf)

guangdonglbq

罗尼 发表于 2022-6-6 12:19
我这边试了，可以转lisp，但是生成的lisp转不成图形，我用的是CAD2020，是跟CAD版本有关吗？

注意：生成的lisp文件代码是不含量文字样式、标注样式的，如果含有这个，需要先改进程序或修改代码文件。

guangdonglbq

罗尼 发表于 2022-6-6 12:43
我的转出来也出现(cdr kDxf)

我用autocad 2008、2010、2021测试，正常使用。不知道是不是你的autocad环境的问题