Question

寻找高手帮忙编写一个CAD的lisp程序，输入命令框选所有线条，能所有将样条曲线都转成圆弧。

燕秀工具里有“将样条曲线转成圆弧”的命令，但是要一个一个去选很麻烦，能不能批量处理？经常用接收到客户的PDF档，而PDF导入到CAD中，所有的圆和圆弧都变成了很多点和很多的圆弧组成，不再是一个完整的圆。。。

Answer 1

你是要选择所有园弧吧，ARC就是园弧的代号
(defun c:qs_arc(/ s1 s2 sum)　
(command "_.PSELECT" (ssget "x" (list(cons 0 "ARC"))) "")
)
如果要选择ARC和所有line，则改为
(command "_.PSELECT" (ssget "x" (list(cons 0 "ARC"))) (ssget "x" (list(cons 0 "*line"))) "")

追问

我要完整的LISP

追答

这个就是完整的

追问

(defun C:aaaaa (/ CURVE TLEN SS N SUMLEN)
(vl-load-com)
(setq SUMLEN 0)
(setq SS (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))))
(setq N 0)
(repeat (sslength SS)
我只要输入aaaaa这个命令就能计算总长，我现在要的是输入一个命令，能把所有样条曲线转圆弧，就是一个命令就能所有被的圆弧和圆恢复成原样，而不是由很多个点组成的圆和圆弧。

大哥帮帮忙了

Answer 2

矢量信息经过图片处理后都丢失了，重新生成的都是原图形的近似，要想精确还原不可能了。

追问

不是要精确还原，圆编程很多歌点组成，打开就会死机卡死，无法编辑。问题是有很多电脑都是老古董

Answer 3

用mastercam9.0可用全选，不过还得学习怎么转那里全是英文.你可以向燕秀求助！
如果要学mastercam9.0我可教你怎么转简单易上手

Answer 4

你用的是什么CAD?中望？还是AUTO? 中望里可以将弧线转换成圆

追问

auto

追答

目前，我还没有用过AUTO的，我不知道他的细微功能有哪些··