Question

求lisp程序解决cad插入图块

比如说我有一个excel文件，里面输入好了1～100点的XY坐标和角度，想通过lisp文件将一个图块文件按照cad里的坐标和角度插入到cad里，可以实现吗？相当于100次使用插入图块命令，100次的XY坐标和角度都不同，在线等解答，谢谢！！！！
我已经下载了一个lsp文件，可将一个图块批量插入到cad中不同坐标上，但是插入的时候是统一角度，高手能帮忙修改下lsp文件实现在excel中输入坐标和角度直接批量插入吗，QQ626774819，可以的话我传下载的lsp文件，帮忙修改下，谢谢！

Answer 1

(while(setq pt1(read-line f))
(setq rang(last(read(strcat "(" pt1 ")"))))
(setq pt1(read(strcat "(" pt1 ")")))
(setq pt1(list (car pt1)(cadr pt1)))
(command "insert" blockname pt1 "" "' rang "")
)

追问

我已经下载了一个lsp文件，可将一个图块批量插入到cad中不同坐标上，但是插入的时候是统一角度，高手能帮忙修改下lsp文件实现在excel中输入坐标和角度直接批量插入吗，QQ626774819，可以的话我传下载的lsp文件给你

追答

103774373