能解释(assoc 40 en_data) 中的40 有时 50 ？？
<p><small><font color="#008000" size="3"></font></small><font size="3"></p></font><font size="3"><blockquote>
<blockquote>
<blockquote>
<p><small><font face="Arial"> (setq en (entsel "</font>選取已知圓<font face="Arial">:")) <font color="#008000">;</font>要求碰選一個圓</font></small></p></font>
<p><small><font color="#008000" face="Arial"> ;;;;</font><font color="#008000">以下為圖元資料</font><font color="#008000" face="Arial">&</font><font color="#008000">半徑資料取得</font></small></p>
<p><small><font face="Arial"> (setq en_data (entget (car en))) <font color="#008000">;</font>取得元體資料串列</font></small></p>
<p><small><font face="Arial"> (setq old_rad_list (assoc 40 en_data))<font color="#008000">;</font>取得半徑子串列</font></small></p>
<p><small><font face="Arial"> (setq old_rr (cdr rad_list)) ;</font><font color="#008000">取得舊有半徑</font></small></p>
<p><small><font face="Arial"> </font></small></p>
<p><small><font face="Arial">另一个</font></small></p>
<p><small><font face="Arial">好像是取角度的</font></small></p>
<p><small><font face="Arial"></font></small> </p>
<p><small><font face="Verdana">(assoc 50 en_data)</font></small></p>
<p><small><font face="Arial">另一个</font></small></p>
<p><small><font face="Verdana">(assoc 70 en_data)</font></small></p>
<p><small></small> </p>
<p><small>等等，</small></p>
<p><small></small> </p>
<p><small></small> </p>
<p><small></small> </p>
<p><small>现想请教的是40，50，70 是什么意思，或从哪些资料上了解，好像是系统自己定义的 </small></p>
<p><small></small> </p>
<p><small>很困或</small></p>
<p><small></small> </p>
<p><small></small> </p></blockquote></blockquote></blockquote> <p><font face="Verdana">(defun c:xz ()<br/>(prompt"\n 请选择需要旋转的块")<br/>(if(setq s(ssget(list(cons 0"insert"))));择要旋转的块<br/>(progn<br/> (setq s (ssname s 0) s (entget s) sj 0);获取要选择块的属性表<br/> (while t<br/> (setq s (subst (cons 50 sj) (assoc 50 s) s));不断修改块的旋转角度(弧度表示)<br/> (entmod s);修改块的旋转角度后马上更新，否则……:－D<br/> (command "delay" "1000");确定显示时间,显示一段时间后再次修改组码50对应的值，即块的旋转角度<br/> (setq sj (- sj -5));每次旋转0.2弧度<br/> );while</font></p>
<p><font face="Verdana">);progn<br/>(prompt"\n 请选择需要旋转的块")<br/>);if<br/>);fun</font></p> 帮助->开发人员帮助->DXF参考->entities段 <p>多谢</p>
<p> </p>
<p> </p> 明白了， <p class="cr_leadin" id="crleadin"> </p>
<p class="cr_leadin" id="crleadin">从关联表中搜索一个元素，如果找到则返回该关联表条目</p><pre class="prog_in_end">(assoc element alist)</pre>
<p class="Heading-2">参数</p>
<p class="define_head">element</p>
<p class="define_text">关联表中的关键元素。</p>
<p class="define_head">alist</p>
<p class="define_text">要搜索的关联表。</p>
<p class="Heading-2">返回值</p>
<p class="body">如果成功则返回找到的关联表条目，如果找不到则返回 nil。</p>
<p class="Heading-2">示例</p>
<p class="prompt_end">命令: (setq al '((name box) (width 3) (size 4.7263) (depth 5))) </p>
<p class="prompt_end">((NAME BOX) (WIDTH 3) (SIZE 4.7263) (DEPTH 5))</p>
<p class="prompt_end">命令: (assoc 'size al) </p>
<p class="prompt_end">(SIZE 4.7263)</p>
<p class="prompt_end">命令: (assoc 'weight al) </p>
<p class="prompt_end">nil</p>
<p> </p>
<p> </p> <p></p>
页:
[1]