远方小山 发表于 2016-4-4 23:43:43

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

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

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

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

远方小山 发表于 2016-4-5 08:58:44

tryhi 发表于 2016-4-5 00:13 static/image/common/back.gif


万分感谢

陈进佳 发表于 2016-4-5 09:41:06

tryhi 发表于 2016-4-5 00:13 static/image/common/back.gif


竟然有幸有我的函数

tryhi 发表于 2016-4-5 09:42:45

陈进佳 发表于 2016-4-5 09:41 static/image/common/back.gif
竟然有幸有我的函数
五柔你确定是你的函数？怎么参数这么怪

陈进佳 发表于 2016-4-5 09:44:51

tryhi 发表于 2016-4-5 09:42 static/image/common/back.gif
五柔你确定是你的函数？怎么参数这么怪

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

远方小山 发表于 2016-4-5 09:52:47

陈进佳 发表于 2016-4-5 09:41 static/image/common/back.gif
竟然有幸有我的函数

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

远方小山 发表于 2016-4-5 09:56:39

tryhi 发表于 2016-4-5 00:13 static/image/common/back.gif


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

tryhi 发表于 2016-4-5 10:06:26

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

哪个代码？

远方小山 发表于 2016-4-5 12:40:02

tryhi 发表于 2016-4-5 10:06 static/image/common/back.gif
哪个代码？

是把所有的代码放入visuallisp内置的编辑器加载后可用，但是存成lisp文件加载后，就出现错误，提示：参数类型错误: stringp nil
页: [1] 2
查看完整版本: 将cad文件闭合的多段线输出至选定目录下，并形成新的文件