CAD插件—提取多段线坐标.docx

CAD插件—提取多段线坐标

(转存自新浪微博：

命令名：tqdxd

功能：实现多线段提取坐标，输出text文本，并标注点号

由于分享到百度网盘经常被屏蔽，这里直接将代码发上来，大家复制粘贴到记事本中，保存成*lsp就可以了。

代码如下：

(defunc:tqdxd()

(setvarcmdecho0)

(vl-load-com)

(prompt\n命令名：tgdxd。功能：实现多线段提取坐标，输出text文本，并标注点号.By

author:mile)

(setqss2(Vlax-Get(Vlax-Ename-Vla-Object(car(entsel)))Coordinates));提取多线段坐

标

(setqnn(lengthss2));测试列表个数

(setqi1)

(setqn((nn2))

(setqw220)

(setqpf(zbtqss2))保存第一点坐标

(setqfin(getiled“写出文件”kt1));打开文text文件

(setqff(openffnw))

(while(i(+1n))

(setqp2(zbtqss2))

(setqss2(cdrss2))

(setqss2(cdrss2));提取第一个坐标后，余下列表。

(setqpname(itoai))

(setqpn(strcatGpname));G为点号前缀

(setqp3(polarp2(P10.3)5))

(commandlayermake点号c”20”点号)

(commandcirclep21)

(commandtextTLp330pn)

;提取坐标

(setqxa(carp2))

(setqya(cadrp2))

(setqy(rtosya23))

(setqx(rtosxa23))

;写文件

(princpnf)

(princ,ff)

(princxff)

(princ,ff)

(princyff)

(princ,ff)

(princ0.000ff)

(princ\nff)

(setqi(+i1))

)

(closeff)

(setvarcmdecho1)

)

(defunzbtq(a);提取列表坐标

(setqy(cara))

(setqx(cadra))

(listyx)

)

使用方法：

1、将上面代码复制粘贴到记事本，另存为‘Isp。

2、在打开的图纸后输入AP,加载保存的LSP文件。

3、输入TQDXD命令，回车，单击多段线。

软件会提示将多段线的点坐标另存为一个TXT文本文件，同时会在图中给多段线的顶点编号。

原创力文档

预览与源文档一致，下载高清无水印