mapcar和set联用，下面代码出错了，改成while就好了

marting

/db_自贡黄明儒_ 发表于 2017-6-1 21:06

不编译呢？直接运行代码

newer

/db_自贡黄明儒_ 发表于 2017-6-1 21:06

回家在2016试了，有问题，升级到SP1，也是有问题，应该是CAD的BUG

老黄既然追新，你装个2018看看有问题没。

/db_自贡黄明儒_

newer 发表于 2017-6-1 22:15

我不是追新，装个2016也少用，主要是用来转换，现在的年轻人都喜欢弄个高版本，打不开，用16来转换一下。我还是喜欢2005。

liunian0524

cad2018用老程序OK

marting

/db_自贡黄明儒_ 发表于 2017-6-2 07:49

要只是转换个版本，就没必要装个这么大的家伙了，装个CAD CONVERT 很小的一个工具，就能转换所有版本了。

liunian0524

marting 发表于 2017-6-2 08:21

2018有些功能还是不错的

csharp

经过跟踪，问题出在 (vl-cmdf ".select" ss "") 语句，换用 command 一样出错
这样修改试试

2. 
   
3. (defun wmg-ssgetp (ss filter)
   
4.   (ssget "x" filter)
   
5.   (ssget "p" filter)
   
6. )

<br /> (defun wmg-ssgetp (ss filter)<br />   (ssget "x" filter)<br />   (ssget "p" filter)<br /> )

搜索了一下，据说 2015 就出现这个问题，网上给出的答案是 换用 command-s

2. 
   
3. (defun wmg-ssgetp (ss filter)
   
4.   (if command-s
   
5.     (command-s "._select" ss "")
   
6.     (vl-cmdf "._select" ss "")
   
7.   )
   
8.   (ssget "p" filter)
   
9. )

<br /> (defun wmg-ssgetp (ss filter)<br />   (if command-s<br />     (command-s "._select" ss "")<br />     (vl-cmdf "._select" ss "")<br />   )<br />   (ssget "p" filter)<br /> )

wowan1314

csharp 发表于 2017-6-2 09:06

我在想sssetfirst不能满足要求吗？ 为何非要select ?

newer

wowan1314 发表于 2017-6-2 14:21

sssetfirst 是要有 选择集，亮显他们，不能创建选择集

而select是创建选择集，这两个不是一类的。

wowan1314

newer 发表于 2017-6-2 14:36

楼主代码的意图，不就是对已有的SS选择集再筛选吗？ 难道我看错了！！ 水平下降这么快！ 哈哈

newer

wowan1314 发表于 2017-6-2 14:39

楼主意图应该是 把 FILTER表中创建的每一个选集赋给 另外一个表中不同的选择集变量

wowan1314

newer 发表于 2017-6-2 14:46

你当看wmg-ssgetp这个函数。
就两行代码。把ss拆分不同选择集。

csharp

sssetfist应该也可以的

ll_j

wowan1314 发表于 2017-6-2 14:59

你应该是看错了，楼主的代码原意是把已有的选择集ss按照filterlst中的分类方法成不同的选择集，并使用vartxtlst中给定的“名字”命名。核心是对已有的选择集（不一定是上一个）进行分拣，这里使用命令select应该是把已有的ss变成上一个选择集，然后才好使用ssget－p分拣，这个功能ssgetfirst似乎做不到。
还有的方法是ssname遍历分拣，本人还喜欢变成普通表以后分拣（方法更灵活），但都不是本主题的考虑范围。

ll_j

/db_自贡黄明儒_ 发表于 2017-6-1 19:02

闭合多段线的70组码也可能是129。