将cad文件闭合的多段线输出至选定目录下，并形成新的文件

远方小山

各位大神：
        小弟最近在编一个小程序，要实现的功能为将选定范围内的闭合多段线输出至新的cad文件内，在将新文件保存至指定的目录下，由于学艺不精，程序调试不成功，求各位大神指点，将cad文件和lsp文件附上，劳各位大神给修改一下

tryhi

2. (defun c:tt(/ ss wjm)
   
3.         (setq ss ( ssget '((0 . "LWPOLYLINE") (-4 . "&=") (70 . 1))))
   
4.         (setq wjm (getfiled "输入文件名" "新文件" "dwg" 1))
   
5.         (n5-wblock wjm '(0 0 0) ss)
   
6.         (command "oops")
   
7. )
   
8. (defun n5-wblock(wjm pt ss)(command "wblock" wjm "" pt ss ""))
   

(defun c:tt(/ ss wjm)<br />         (setq ss ( ssget '((0 . "LWPOLYLINE") (-4 . "&=") (70 . 1))))<br />         (setq wjm (getfiled "输入文件名" "新文件" "dwg" 1))<br />         (n5-wblock wjm '(0 0 0) ss)<br />         (command "oops")<br /> )<br /> (defun n5-wblock(wjm pt ss)(command "wblock" wjm "" pt ss ""))<br />

远方小山

tryhi 发表于 2016-4-5 00:13

万分感谢

陈进佳

tryhi 发表于 2016-4-5 00:13

竟然有幸有我的函数

tryhi

陈进佳 发表于 2016-4-5 09:41
竟然有幸有我的函数

五柔你确定是你的函数？怎么参数这么怪

陈进佳

tryhi 发表于 2016-4-5 09:42
五柔你确定是你的函数？怎么参数这么怪

N5-PATH是盗版的，n5-block是真

远方小山

陈进佳 发表于 2016-4-5 09:41
竟然有幸有我的函数

确实是你提供的，这个得承认，昨天晚上发的晚，忽略这个事了，在这里更正一下，里面部分函数确实为网友提供，不完全是我做的

远方小山

tryhi 发表于 2016-4-5 00:13

大神，遇到个小问题，把代码放在cad内置的visual编辑器中，加载后可以用，但是做成lsp，加载lsp文件后，就不能用了，是什么原因呢

tryhi

远方小山 发表于 2016-4-5 09:56
大神，遇到个小问题，把代码放在cad内置的visual编辑器中，加载后可以用，但是做成lsp，加载lsp文件后，就 ...

哪个代码？

远方小山

tryhi 发表于 2016-4-5 10:06
哪个代码？

是把所有的代码放入visuallisp内置的编辑器加载后可用，但是存成lisp文件加载后，就出现错误，提示：参数类型错误: stringp nil