【求助】有什么方法可以单独亮显块内的实体？
<p></p><p><font face="黑体" color="#ff0000" size="3">用lisp vlisp怎么可以实现单独亮显图块内的实体？</font></p> <p>可以参考ET工具的块内拷贝啊！</p><p>我以前是借用trim,遇到匿名块也不会出错</p> <p>呵呵，多谢，用ET的块内实体复制可以实现，你的方法也可以实现。你的程序是个死循环。</p> PICKSTYLE就可以了 本帖最后由 作者 于 2009-2-2 22:11:19 编辑 <br /><br /> xubin_9705发表于2009-2-2 20:03:00static/image/common/back.gif PICKSTYLE就可以了<p>这个系统变量如何用法？</p><p>帮助查到是这样，与主题何干？</p><p><table class="HeadingTable" cellspacing="0" cellpadding="0" width="103%" border="0"><tbody><tr><td colspan="2"><div class="TopHead" title="PICKSTYLE系统变量 "><font style="BACKGROUND-COLOR: #316ac5;">PICKSTYLE</font> 系统变量 </div></td></tr><tr valign="bottom"><td colspan="2" height="33"><table class="TabTable" cellspacing="0" cellpadding="0" border="0"><tbody><tr><td width="10"> </td><td><img src="mk:@MSITStore:C:\Program%20Files\AutoCAD%202004\help\acad_acr.chm::/ac.TabOff1.gif" alt=""/></td><td class="TabOffCell"><nobr><a href="javascript:alink_Select_Objects_in_Groups.Click();"><div class="TabOff"> 概念 </div></a></nobr></td><td><img src="mk:@MSITStore:C:\Program%20Files\AutoCAD%202004\help\acad_acr.chm::/ac.TabOff3.gif" alt=""/></td><td width="5"> </td><td><img src="mk:@MSITStore:C:\Program%20Files\AutoCAD%202004\help\acad_acr.chm::/ac.TabOff1.gif" alt=""/></td><td class="TabOffCell"><nobr><a href="javascript:alink_Select_Objects_in_Groups_PROC.Click();"><div class="TabOff"> 操作步骤 </div></a></nobr></td><td><img src="mk:@MSITStore:C:\Program%20Files\AutoCAD%202004\help\acad_acr.chm::/ac.TabOff3.gif" alt=""/></td><td width="5"> </td><td><img src="mk:@MSITStore:C:\Program%20Files\AutoCAD%202004\help\acad_acr.chm::/ac.TabOff1.gif" alt=""/></td><td class="TabOffCell"><nobr><a href="javascript:alink_Select_Objects_in_Groups_REF.Click();"><div class="TabOff"> 参考 </div></a></nobr></td><td><img src="mk:@MSITStore:C:\Program%20Files\AutoCAD%202004\help\acad_acr.chm::/ac.TabOff3.gif" alt=""/></td><td width="5"> </td></tr></tbody></table></td></tr></tbody></table></p><div class="noshow"><object id="dataUpdates" height="1" width="1" classid="clsid:333C7BC4-460F-11D0-BC04-0080C7055A83"><param value="
" name="RowDelim"/><param value="," name="FieldDelim"/><param value=""" name="TextQualifier"/><param value="" name="EscapeChar"/><param value="-1" name="UseHeader"/><param value="-1" name="SortAscending"/><param value="" name="SortColumn"/><param value="" name="FilterValue"/><param value="??" name="FilterCriterion"/><param value="" name="FilterColumn"/><param value="" name="CharSet"/><param value="" name="Language"/><param value="-1" name="CaseSensitive"/><param value="group;title" name="Sort"/><param value="curfile=acr_ab273.html" name="Filter"/><param value="0" name="AppendData"/><param value="file:///C:\Program Files\AutoCAD 2004\help\acad_acr.cud" name="DataURL"/><param value="4" name="ReadyState"/></object></div><div class="noshow_cud" id="dataupdate" style="DISPLAY: none;"><div class="updatelabel" id="updatelbl"></div><table class="datatable" id="datatbl" datasrc="#dataUpdates"><tbody><tr><td><li class="updateitem"><a datafld="newfile"></a>
</li></td></tr></tbody></table></div><p class="table_body">类型：整数<br/>保存位置：注册表<br/>初始值： 1 </p><p class="table_body">控制编组选择和关联填充选择的使用。<br/></p><p class="table_list">0 不使用编组选择和关联填充选择 </p><p class="table_list">1 使用编组选择 </p><p class="table_list">2 使用关联填充选择 </p><p class="table_list">3 使用编组选择和关联填充选择</p> (REDRAW (ssname ss 0) 3) 是不是这样 <p>思路：</p><p>1.(setq e (nentsel))</p><p>2.(entmake (entget (car e)));;生成图元</p><p>3.矩阵旋转、移动覆盖块子图元</p><p>3.redraw</p> 本帖最后由 作者 于 2009-2-3 14:34:44 编辑
根据楼上的思路，用下面这段代码可以生成块内实体，即块内实体复制（除了不适用于不等比例缩放后的块块外，其他都适合），但是还是没有亮显：
(progn (setq ww (nentselp "\n点选图块中的圆"))
(entmake (entget (car WW)))
(setq en (entlast))
(vla-transformby
(vlax-ename->vla-object en)
(vlax-tmatrix (caddr WW))
)
(redraw en 3)
)
页:
[1]