远方小山 发表于 2016-3-6 13:31:09

将cad文件闭合的多段线输出至新的cad文件

各位大神
      请教如何将cad中闭合的多段线输出运动新的cad文件，我看书编了一个，请各位指点。主要有以下以下几个问题;

1、"-WBLOCK" 输出有误

2、 是不是闭合多段线的组码70不一定是1啊？

(defun c:ssland( / ss)
        (setvar "cmdecho" 0)
        (setq ss (ssget '((0 . "LWPOLYLINE") (70 . 1))))
       
        (command "-WBLOCK"pause "" "0,0" ss"")
        (prin1)
)
请各位大神指正

远方小山 发表于 2016-3-6 16:11:32

自己顶一下

ZZXXQQ 发表于 2016-3-7 10:38:57

(defun c:ssland ( / ss)
(setvar "cmdecho" 0)
(if (setq ss (ssget '((0 . "LWPOLYLINE") (-4 . "&=") (70 . 1))))
(command "-WBLOCK" pause "" "0,0" ss "")
)
(prin1)
)
页: [1]
查看完整版本: 将cad文件闭合的多段线输出至新的cad文件