坐标、块和文本

cibola · 发表于 2022-7-6 06:59:40

我正在寻找一个lisp，它将按层导出组成多段线、直线、块、文本弧和其他数据的所有点的笛卡尔坐标到csv文件中。

有没有人有这样的Lisp程序或者知道我在哪里能找到？

提前感谢！

Lee Mac · 发表于 2022-7-6 07:03:08

当你说“所有点”。。。。如果你真的是指“所有点”，那么会有无穷多个点

tagkelas · 发表于 2022-7-6 07:06:38

或者，Lee Mac，我们如何用lisp-rutine将点插入到多段线的所有顶点？
......
然后导出点….：
http://www.cadtutor.net/forum/showpost.php?p=22581&postcount=4

Lee Mac · 发表于 2022-7-6 07:12:18

是的，我相信这是可以做到的——我看看有没有时间。

cibola · 发表于 2022-7-6 07:13:19

嘿，谢谢你的建议。实际上，我要找的大部分内容都包含在。dxf文件。然而，我想知道是否有一种有效的方法可以格式化dxf数据或将其发送到数据库？

Lee Mac · 发表于 2022-7-6 07:17:45

这应该将点插入并导出到csv或txt文件中。

[颜色=#990099]；；Lee McDonnell 26.07.2009导出的多段线点
（defunc:ptExp（/doc spc ss file sel pts）
（vl load com）
（setqdoc（vla get ActiveDocument
（[/colorvlax get Acad Object[/color）[/color）[/color
spc（如果[color]（zerop[color]（[color=BLUE vla get activespace[color]doc b]）
（如果[color]（=（[color=BLUE b][color=BLUE b]（[color=BLUE vla get mspace][color]doc b][color=RE
（vla get modelspace[color]doc）
（vla get paperspacedoc））
（vla get modelspacedoc））
（如果[color]（和[color]（[color=BLUE ssget][color][color=深色]（（[#009900]0“*折线”
（[/colorsetq[/color文件
（[/colorgetfield[/color“输出文件”[/color
（if*load*load）[csv；txt”9[color=RED
（progn
（setq*加载文件（打开文件“a”
（vlax forObj（setqsel b]（[color=BLUE vla get ACTIVELECTIONSETdoc b]）
（[/colorsetq[/colorpts
[颜色=红色]（[/colorvlax列表->3D点
（vlax getObj'坐标）
（cond（eq（[color=BLUE vla get ObjectName][color]Obj）[/color b] [颜色=红色][/color
（mapcar
（功能[color]
（lambda（x）
（写入行
（strcat
（rtos[color]（car[color]x）2[color]（[color=BLUE chr][color]]44
（rtos（cadrx22[/color b][color=RED】（chr[/color b]900]44
（rtos（caddrx2
（vla addPoint[color]spc（vlax-3D-point[color]x
（princ
（strcat“\n>”）
（关闭文件）
（vla删除[color]sel））
（[/colorprinc[/color）[/color）[/color
（defun[color]vlax列表->3D点（lst x/oLst）
（而[color]lst
（setq[color]oLst
（cons（list[color=BLUE car][color][color=BLUE cadr][color][lst）（[color][如果[color]x0.0[color]（caddr[color]lst））[oLst）
lst（（如果[color]xcddr[color]cdddr[color][color]lst[color=RED b]
oLst
[code][/code]

tagkelas · 发表于 2022-7-6 07:18:54

李·麦克
我做错什么了吗？！

看看这个样本。
在lisp例程中，“提升”不会写入txt文件。

Lee Mac · 发表于 2022-7-6 07:23:24

我假设多段线在0,0。

但我可以纠正它。

Lee Mac · 发表于 2022-7-6 07:26:48

试试这个：

copy


[i][color=#990099];; Polyline Point Exported, by Lee McDonnell 26.07.2009[/color][/i]
[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:ptExp [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] doc spc ss file sel pts[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]vl-load-com[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] doc [b][color=RED]([/color][/b][b][color=BLUE]vla-get-ActiveDocument[/color][/b]
             [b][color=RED]([/color][/b][b][color=BLUE]vlax-get-Acad-Object[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
       spc [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]zerop[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vla-get-activespace[/color][/b] doc[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
             [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]=[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vla-get-mspace[/color][/b] doc[b][color=RED])[/color][/b] :vlax-true[b][color=RED])[/color][/b]
               [b][color=RED]([/color][/b][b][color=BLUE]vla-get-modelspace[/color][/b] doc[b][color=RED])[/color][/b]
               [b][color=RED]([/color][/b][b][color=BLUE]vla-get-paperspace[/color][/b] doc[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
             [b][color=RED]([/color][/b][b][color=BLUE]vla-get-modelspace[/color][/b] doc[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] ss [b][color=RED]([/color][/b][b][color=BLUE]ssget[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=#009900]0[/color][/b] . [b][color=#ff00ff]"*POLYLINE"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
          [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] file
            [b][color=RED]([/color][/b][b][color=BLUE]getfiled[/color][/b] [b][color=#ff00ff]"Output File"[/color][/b]
              [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] *load *load [b][color=#ff00ff]""[/color][/b][b][color=RED])[/color][/b] [b][color=#ff00ff]"csv;txt"[/color][/b] [b][color=#009900]9[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]progn[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] *load file file [b][color=RED]([/color][/b][b][color=BLUE]open[/color][/b] file [b][color=#ff00ff]"a"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]vlax-for[/color][/b] Obj [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] sel [b][color=RED]([/color][/b][b][color=BLUE]vla-get-ActiveSelectionSet[/color][/b] doc[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] pts
         [b][color=RED]([/color][/b]vlax-list->3D-point
           [b][color=RED]([/color][/b][b][color=BLUE]vlax-get[/color][/b] Obj [b][color=DARKRED]'[/color][/b]Coordinates[b][color=RED])[/color][/b]
             [b][color=RED]([/color][/b][b][color=BLUE]cond[/color][/b] [b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vla-get-ObjectName[/color][/b] Obj[b][color=RED])[/color][/b] [b][color=#ff00ff]"AcDbPolyline"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] Obj[b][color=RED])[/color][/b][b][color=RED])[/color][/b]          
       [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]function[/color][/b]
           [b][color=RED]([/color][/b][b][color=BLUE]lambda[/color][/b] [b][color=RED]([/color][/b]x[b][color=RED])[/color][/b]
             [b][color=RED]([/color][/b][b][color=BLUE]write-line[/color][/b]
               [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b]
                 [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] x[b][color=RED])[/color][/b] [b][color=#009900]2[/color][/b] [b][color=#009900]2[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]chr[/color][/b] [b][color=#009900]44[/color][/b][b][color=RED])[/color][/b]
                   [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cadr[/color][/b] x[b][color=RED])[/color][/b] [b][color=#009900]2[/color][/b] [b][color=#009900]2[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]chr[/color][/b] [b][color=#009900]44[/color][/b][b][color=RED])[/color][/b]
                     [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]caddr[/color][/b] x[b][color=RED])[/color][/b] [b][color=#009900]2[/color][/b] [b][color=#009900]2[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] file[b][color=RED])[/color][/b]
             [b][color=RED]([/color][/b][b][color=BLUE]vla-addPoint[/color][/b] spc [b][color=RED]([/color][/b][b][color=BLUE]vlax-3D-point[/color][/b] x[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] pts[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#ff00ff]"\n<< Points from "[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]itoa[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vla-get-Count[/color][/b] sel[b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=#ff00ff]" Polylines written to file >>"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]close[/color][/b] file[b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]vla-delete[/color][/b] sel[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
       
[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] vlax-list->3D-point [b][color=RED]([/color][/b]lst x Obj [b][color=BLUE]/[/color][/b] oLst[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]while[/color][/b] lst
   [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] oLst
     [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] lst[b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cadr[/color][/b] lst[b][color=RED])[/color][/b]
                 [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] x [b][color=RED]([/color][/b][b][color=BLUE]vla-get-Elevation[/color][/b] Obj[b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]caddr[/color][/b] lst[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] oLst[b][color=RED])[/color][/b]
         lst [b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] x cddr cdddr[b][color=RED])[/color][/b] lst[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 oLst[b][color=RED])[/color][/b]

cibola · 发表于 2022-7-6 07:29:38

谢谢，但它给了我以下错误消息：
错误：输入时虚线对中有额外的CDR

此外，这只会抓取多段线吗？我的画有几条线、几条弧和一点文字。我需要的大部分信息都在。dxf文件。。。有没有一种好方法可以将这些信息直接从AutoCAD导出到数据库？

[编程交流] 坐标、块和文本

发表回复

精选推荐