qqask
发表于 2008-8-6 09:50:00
<p>能解释一下<font color="#0000ff">(cdr (nth 36 xdicts))</font>这些句子是什么意思吗？看不懂，嗬嗬。</p><p><font color="#0000ff">(entdel (cdr (nth 36 xdicts)))<br/>(entdel (cdr (nth 34 xdicts)))<br/>(entdel (cdr (nth 32 xdicts)))<br/>(entdel (cdr (nth 30 xdicts)))</font></p>
dunkel
发表于 2008-8-6 10:18:00
<p>这些是 ACAD 的内置的开放环境 lsp 的遇见, 目的就是将这个文件词典库中的 KS_ 打头的那几个词典组删除了. <br/>(setq xdicts (entget (namedobjdict))) ; 获取词典库列表到 xdicts 变量<br/>(entdel (cdr (nth 36 xdicts))) ; 删除词典库中的第 36 项指示的词典组, 序号由 0 开始<br/>(entdel (cdr (nth 34 xdicts))) ; 在词典库列表中, 每个词典项由名称和实体名两个单元组成<br/>(entdel (cdr (nth 32 xdicts))) ; 看第一语句执行后的屏幕显示, 倒数着的前面几个就是它们了<br/>(entdel (cdr (nth 30 xdicts))) ; </p><p>至于在上面提及的删除些 CLASS 的定义, 这个我还没发现有简单的方法, 除非是在 dxf 中进行清理, 不过还是很麻烦, 而且也可能会出错. 其实, 只有在 ACAD 中通过命令 ProxyNotice 置 0 就可以不再提示代理图形了. </p>
觅食的鱼
发表于 2013-11-14 11:48:17
这两个命令要怎么用啊？不会用啊，求助。
ylsjq
发表于 2013-11-15 15:39:00
看看再说撒百度