社区 › Auto Lisp › Lisp收集x y z线和

paulap369 发表于 2022-7-5 16:42:44

Lisp收集x y z线和

大家好，
 
我对Lisp例程的了解非常基础，所以我希望这里的人能够提供帮助。
老板现在不想把钱花在昂贵的CNC软件上，所以我正试着创造一个变通方案，直到他能证明花钱是合理的。
 
我会尽力解释这一点。我还将附上一份我正在努力实现的文件。
 
所以我要做的是提取X，Y，Z坐标。沿着一条路径，让它们填充excel文件或打开office，两者都可以。我还希望它能够画一条垂直于弧的线，并用角度标注尺寸。
 
在那里，我可以接受这些命令。并将其放入一个文件中，使CNC路由器能够读取。
 
 
我一直在使用一个名为Cord的Lisp（我相信是Lee Mac编写的）沿多段线绘制点，然后我使用另一个名为click2OO的Lisp（不确定是谁编写的）导出x y z坐标。打开office。无论如何，这对我来说有点太耗时了。我会附上它们，也许有人能理解它们（正如我之前所说，我对Lisp程序的知识非常基础）。
click2OO是一个vlx，它不允许我上传，所以我要将扩展名改为。lsp。所以你只需要把它改回。vlx。很抱歉。
 
 
 
任何帮助都将不胜感激。
 
谢谢
 
保罗
绳lsp
单击2OO。lsp
XYZ提取。图纸

paulap369 发表于 2022-7-5 16:50:57

找到了比click2oo更好的lisp。vlx。
 
将其修改为导出为。csv，仅保留小数点后2位。
xyzcords2.lsp

BIGAL 发表于 2022-7-5 17:02:42

检查http://www.Lee-mac.com同样，他有一个导出pline程序，可以写一个CSV，这样就可以直接在excel中打开。你有弧吗？你需要沿途额外加点吗？将弧转换为面非常简单，只需询问创建近似曲线需要多少。查看图纸。
 
你可以将当前的lee mac程序更改为直接写入excel，有很多例子。是否可能将弧添加到和弦也添加到此代码Lee？

paulap369 发表于 2022-7-5 17:07:30

我发现，使用cord lisp可以沿直线段创建多个点。所以我最终做的是使用李写的lisp，然后删除我不需要的点，然后用另一个lisp选择它们，导出它们，这样我就可以使用它们进行编程了。就我的目的而言，我真的只需要一个点在一条线的开始和结束。我唯一需要大量点的地方是沿着曲线。这将允许我将工具垂直于它放置，以便我始终只使用点。这就是线条和角度尺寸发挥作用的地方。
 
最终，如果我能让lisp将x、y、z和角度值写入一个文件，我的cnc将读取该值，这将非常理想。然而，我觉得这可能有点过分。
这是机器能够读取的一些代码的示例。
 
H DX=1810.000 DY=800.00 DZ=40.000-AB C=0 T=1114112 R=1*MM/“SerrSCM”BX=0.000 BZ=0.000 V=0
;**********************************************************
; >> 发布P。。。
;版本：1.00.006.1006；
; >> 程序描述。。。
; 创建日期：2013年4月18日下午3:28:34
;
; >> 使用的工具。。。
;
; >> 程序启动。。。
;**********************************************************
;工件设置示例工件处于设置阶段
参考DX=1810.000 DY=800.000 DZ=40.000 FLD=AB BX=0 BY=0 BZ=0.000
;**********************************************************
;**********************************************************
.OP1；三维布线
;**********************************************************
设置ZFAST=20.000
 
XG03D X=0 Y=0 H=0 T=001 F=1 Q=0.000 E=0试验
XG13D X=2.66 Y=0 H=1.39 Q=270 R=28
XG13D X=5.32 Y=0 H=2.77 Q=270 R=28
XG13D X=7.98 Y=0 H=4.16 Q=270 R=28
XG13D X=10.64 Y=0 H=5.54 Q=270 R=28
XG13D X=13.3 Y=0 H=6.93 Q=270 R=28
XG13D X=15.96 Y=0 H=8.31 Q=270 R=28
XG13D X=18.63 Y=0 H=9.7 Q=270 R=28
XG13D X=21.29 Y=0 H=11.09 Q=270 R=28
XG13D X=24.04 Y=0 H=11.71 Q=270 R=28
XG13D X=26.96 Y=0 H=11.02 Q=90 R=13
XG13D X=29.88 Y=0 H=10.33 Q=90 R=13
XG13D X=32.8 Y=0 H=9.64 Q=90 R=13
XG13D X=35.72 Y=0 H=8.95 Q=90 R=13
XG13D X=38.64 Y=0 H=8.26 Q=90 R=13
XG13D X=41.56 Y=0 H=7.57 Q=90 R=13
XG13D X=44.48 Y=0 H=6.88 Q=90 R=13
XG13D X=47.4 Y=0 H=6.2 Q=90 R=13
XG13D X=50.32 Y=0 H=5.51 Q=90 R=13
XG13D X=53.24 Y=0 H=4.82 Q=90 R=13
XG13D X=56.14 Y=0 H=4.42 Q=90 R=13
XG13D X=58.96 Y=0 H=5.46 Q=270 R=20
XG13D X=61.77 Y=0 H=6.49 Q=270 R=20
XG13D X=64.59 Y=0 H=7.53 Q=270 R=20
XG13D X=67.41 Y=0 H=8.56 Q=270 R=20
XG13D X=70.22 Y=0 H=9.6 Q=270 R=20
XG13D X=73.04 Y=0 H=10.63 Q=270 R=20
XG13D X=75.85 Y=0 H=11.67 Q=270 R=20
XG13D X=78.67 Y=0 H=12.7 Q=270 R=20
XG13D X=81.49 Y=0 H=13.74 Q=270 R=20
XG13D X=84.3 Y=0 H=14.77 Q=270 R=20
 
 
;**********************************************************
.结束
;**********************************************************
;FINEPROG公司

BIGAL 发表于 2022-7-5 17:16:33

如果你看Lees程序，它会自动为你打开excel，我会做的修改是在excel或Lee的代码中有弧的地方做面。
 
最终可行的方法是从Autocad中编写数控代码。你需要发布一个与dwg匹配的代码示例，请解释一下cnc代码，我想我已经理解了。

paulap369 发表于 2022-7-5 17:24:16

不幸的是，它只适用于LWpolyline，而且它的信息比我需要的要多一些。我可以使用这两种lisp，但是否可以基于lees-cord-lisp绘制一条垂直于点的线？

paulap369 发表于 2022-7-5 17:31:47

我会根据我之前添加的图纸发布cnc代码，并解释所有字母的含义。

paulap369 发表于 2022-7-5 17:41:08

这是机器代码，我也会重新附上图纸
 
H DX=210.000 DY=50.00 DZ=70.000-AB C=0 T=1114112 R=1*MM/“DEF”BX=0.000 BZ=0.000 V=0（程序标题必须在每个程序中）
;**********************************************************
; >> 发布P。。。
;版本：1.00.006.1006；
; >> 程序描述。。。
; 创建日期：2013年4月18日下午3:28:34
;
; >> 使用的工具。。。
;
; >> 程序启动。。。
;**********************************************************
;工件设置示例工件处于设置阶段
参考DX=210.000 DY=50.000 DZ=70.000 FLD=AB BX=0 BY=0 BZ=0.000
;**********************************************************
;**********************************************************
.OP1；三维布线
;**********************************************************
设置ZFAST=20.000（Z轴速度）
 
以上所有内容必须在每个文件中（根据零件大小而变化）
 
DX=零件长度DY=零件宽度DZ=零件厚度
 
X=长度Y=宽度H=Z/厚度T=刀具F=无关紧要Q=机头旋转R=刀具角度E=0
 
 
XG03D X=0 Y=70 H=0 T=001 F=1 Q=90.000 E=0试验
XG13D X=116 Y=70 H=0 Q=90 R=0
XG13D X=118 Y=70 H=0 Q=90 R=0
XG13D X=120 Y=70 H=0 Q=90 R=0
XG13D X=121.99 Y=69.85 H=0 Q=90 R=0
XG13D X=123.96 Y=69.52 H=0 Q=90 R=6
XG13D X=125.89 Y=68.98 H=0 Q=90 R=11
XG13D X=127.75 Y=68.26 H=0 Q=90 R=17
XG13D X=129.54 Y=67.36 H=0 Q=90 R=23
XG13D X=131.27 Y=66.36 H=0 Q=90 R=29
XG13D X=133 Y=65.36 H=0 Q=90 R=29
XG13D X=134.74 Y=64.36 H=0 Q=90 R=29
XG13D X=136.47 Y=63.36 H=0 Q=90 R=29
XG13D X=138.2 Y=62.36 H=0 Q=90 R=29
XG13D X=139.93 Y=61.36 H=0 Q=90 R=29
XG13D X=141.66 Y=60.36 H=0 Q=90 R=29
XG13D X=143.4 Y=59.36 H=0 Q=90 R=29
XG13D X=145.13 Y=58.36 H=0 Q=90 R=29
XG13D X=146.86 Y=57.36 H=0 Q=90 R=29
XG13D X=148.59 Y=56.36 H=0 Q=90 R=29
XG13D X=150.32 Y=55.36 H=0 Q=90 R=29
XG13D X=152.06 Y=54.36 H=0 Q=90 R=29
XG13D X=153.79 Y=53.36 H=0 Q=90 R=29
XG13D X=155.52 Y=52.36 H=0 Q=90 R=29
XG13D X=157.25 Y=51.36 H=0 Q=90 R=29
XG13D X=158.98 Y=50.36 H=0 Q=90 R=29
XG13D X=160.72 Y=49.36 H=0 Q=90 R=29
XG13D X=162.45 Y=48.36 H=0 Q=90 R=29
XG13D X=164.18 Y=47.36 H=0 Q=90 R=29
XG13D X=165.91 Y=46.36 H=0 Q=90 R=29
XG13D X=167.64 Y=45.36 H=0 Q=90 R=29
XG13D X=169.38 Y=44.36 H=0 Q=90 R=29
XG13D X=171.11 Y=43.36 H=0 Q=90 R=29
XG13D X=172.84 Y=42.36 H=0 Q=90 R=29
XG13D X=174.57 Y=41.36 H=0 Q=90 R=29
XG13D X=176.3 Y=40.36 H=0 Q=90 R=29
XG13D X=178.04 Y=39.36 H=0 Q=90 R=29
XG13D X=179.77 Y=38.36 H=0 Q=90 R=29
XG13D X=181.5 Y=37.36 H=0 Q=90 R=29
XG13D X=183.23 Y=36.36 H=0 Q=90 R=29
XG13D X=184.96 Y=35.36 H=0 Q=90 R=29
XG13D X=186.7 Y=34.36 H=0 Q=90 R=29
XG13D X=188.43 Y=33.36 H=0 Q=90 R=29
XG13D X=190.16 Y=32.36 H=0 Q=90 R=29
XG13D X=191.89 Y=31.36 H=-0.1 Q=90 R=29
XG13D X=193.61 Y=30.37 H=-0.37 Q=90 R=29
XG13D X=195.3 Y=29.39 H=-0.79 Q=90 R=29
XG13D X=196.96 Y=28.43 H=-1.36 Q=90 R=29
XG13D X=198.57 Y=27.5 H=-2.09 Q=90 R=29
XG13D X=200.13 Y=26.6 H=-2.96 Q=90 R=29
XG13D X=201.62 Y=25.74 H=-3.97 Q=90 R=29
XG13D X=203.04 Y=24.92 H=-5.12 Q=90 R=29
XG13D X=204.37 Y=24.15 H=-6.4 Q=90 R=29
 
 
 
;**********************************************************
.结束
;**********************************************************
;FINEPROG公司
XYZ提取（1）。图纸

paulap369 发表于 2022-7-5 17:43:32

把y和z的词弄混了。
 
H DX=200.000 DY=50.00 DZ=70.000-AB C=0 T=65536 R=1*MM/“SerrSCM”BX=0.000 x=0.000 BZ=0.000 V=0
;**********************************************************
; >> 发布P。。。
;版本：1.00.006.1006；
; >> 程序描述。。。
; 创建日期：2013年4月18日下午3:28:34
;
; >> 使用的工具。。。
;
; >> 程序启动。。。
;**********************************************************
;工件设置示例工件处于设置阶段
参考DX=200.000 DY=50.000 DZ=70.000 FLD=AB BX=0 BY=0 BZ=0.000
;**********************************************************
;**********************************************************
.OP1；三维布线
;**********************************************************
设置ZFAST=20.000
 
XG03D X=0 Y=0 H=70 T=001 F=1 Q=90.000 E=0试验
XG13D X=116 Y=0 H=70 Q=90 R=0
XG13D X=118 Y=0 H=70 Q=90 R=0
XG13D X=120 Y=0 H=70 Q=90 R=0
XG13D X=121.99 Y=0 H=69.85 Q=90 R=0
XG13D X=123.96 Y=0 H=69.52 Q=90 R=6
XG13D X=125.89 Y=0 H=68.98 Q=90 R=11
XG13D X=127.75 Y=0 H=68.26 Q=90 R=17
XG13D X=129.54 Y=0 H=67.36

查看完整版本: Lisp收集x y z线和