【求助】有什么方法可以单独亮显块内的实体？

jxphklibin

用lisp vlisp怎么可以实现单独亮显图块内的实体？

liu22737

可以参考ET工具的块内拷贝啊！

我以前是借用trim,遇到匿名块也不会出错

jxphklibin

呵呵，多谢，用ET的块内实体复制可以实现，你的方法也可以实现。你的程序是个死循环。

xubin_9705

PICKSTYLE就可以了

jxphklibin

xubin_9705发表于2009-2-2 20:03:00 ICKSTYLE就可以了

这个系统变量如何用法？

帮助查到是这样，与主题何干？

PICKSTYLE 系统变量

MSITStore:C:\Program%20Files\AutoCAD%202004\help\acad_acr.chm::/ac.TabOff1.gif" alt=""/>  概念   MSITStore:C:\Program%20Files\AutoCAD%202004\help\acad_acr.chm::/ac.TabOff3.gif" alt=""/>   MSITStore:C:\Program%20Files\AutoCAD%202004\help\acad_acr.chm::/ac.TabOff1.gif" alt=""/>  操作步骤   MSITStore:C:\Program%20Files\AutoCAD%202004\help\acad_acr.chm::/ac.TabOff3.gif" alt=""/>   MSITStore:C:\Program%20Files\AutoCAD%202004\help\acad_acr.chm::/ac.TabOff1.gif" alt=""/>  参考   MSITStore:C:\Program%20Files\AutoCAD%202004\help\acad_acr.chm::/ac.TabOff3.gif" alt=""/>

类型：整数
保存位置：注册表
初始值： 1

控制编组选择和关联填充选择的使用。

0 不使用编组选择和关联填充选择

1 使用编组选择

2 使用关联填充选择

3 使用编组选择和关联填充选择

xubin_9705

(REDRAW (ssname ss 0) 3) 是不是这样

caoyin

思路：

1.(setq e (nentsel))

2.(entmake (entget (car e)));;生成图元

3.矩阵旋转、移动覆盖块子图元

3.redraw

jxphklibin

根据楼上的思路，用下面这段代码可以生成块内实体，即块内实体复制（除了不适用于不等比例缩放后的块块外，其他都适合），但是还是没有亮显：

2. (progn (setq ww (nentselp "\n点选图块中的圆"))
3.        (entmake (entget (car WW)))
4.        (setq en (entlast))
5.        (vla-transformby
6.   (vlax-ename->vla-object en)
7.   (vlax-tmatrix (caddr WW))
8.        )
9.        (redraw en 3)
10. )

(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) )