huanghao35 发表于 2005-12-15 12:33:00

[求助]关于选择集

<P>请教：</P>
<P>1 如何得到选择集 C？</P>
<P>命令: (setq a(ssget))</P>
<P>选择对象: 指定对角点: 找到 3 个</P>
<P>选择对象:<BR>&lt;Selection set: d7&gt;</P>
<P>命令: (setq b(ssget))</P>
<P>选择对象: 指定对角点: 找到 2 个</P>
<P>选择对象:<BR>&lt;Selection set: d9&gt;</P>
<P>命令: (setq c(选择集A+选择集B))？？？<BR></P>
<P>2 以下代码是否说明 关键字中不能含有"_"?!</P>
<P>命令: (initget"a-1 b c-2")<BR>nil</P>
<P>命令: (setq a(getpoint))<BR>a-1<BR>"a-1"<BR>&nbsp;********************************</P>
<P>命令: (initget"a_1 b c-2")<BR>nil</P>
<P>命令: (setq a(getpoint))<BR>a_1</P>
<P>需要点或选项关键字。</P>
<P>nil</P>

BDYCAD 发表于 2005-12-15 13:40:00

<P>1.</P>
<P>&nbsp;(defun sscat(ss1 ss2 / ENAME I RUNREP)<BR>&nbsp; (setq i 0 runrep(sslength ss1))<BR>&nbsp; (repeat runrep<BR>&nbsp;&nbsp;&nbsp; (setq ename (ssname ss1 i))<BR>&nbsp;&nbsp;&nbsp; (if (not (ssmemb ename ss2)) (ssadd ename ss2))<BR>&nbsp;&nbsp;&nbsp; (setq i (1+ i))<BR>&nbsp; )<BR>&nbsp; ss2<BR>)</P>
<P>2. 请详细看看帮助文件的这个涵数, 有具体的用法和例子的啊!!</P>
<P>&nbsp;</P>

huanghao35 发表于 2005-12-15 14:09:00

谢谢！
页: [1]
查看完整版本: [求助]关于选择集