[编程申请]：CAD的叠加显示

Gis

我现在做CAD的显示遇到这个问题：

现在图层上有两个实体：一条line以及一个TEXT注记，注记部分遮住了line，那么用什么样的命令可以使得遮住的部分不显示。

PS：这个问题和三维图形的消隐具有类似的地方，不过两者本质不一样。

eachy

你用什么版本CAD？

xyp1964

“遮住的部分不显示”，遮住的部分本来就不显示！
如果要显示：draworder,front

lijiao

1楼讲的是有关制图标准的问题，即文字不能被任何图线穿过，必须穿过时要将图线断开。
有两种方式：一是真正的将图线断开，但这会给图线的编辑带来麻烦，所以一般不采用。
二是采用WIPEOUT来遮挡图线，我现在就是采用这种方式。

dicad_pro

4搂住说得很有深度，我也用wipeout呵呵

Gis

最初由 lijiao 发布
[B]1楼讲的是有关制图标准的问题，即文字不能被任何图线穿过，必须穿过时要将图线断开。
有两种方式：一是真正的将图线断开，但这会给图线的编辑带来麻烦，所以一般不采谩?
二是采用WIPEOUT来遮挡图线，我现在就是采... [/B]

这位版主的回答正解！

但是对于我的问题，还需要请斑竹回答以下疑问：

有没有直接将text的边框作为wipeout的边框的方法？并且保证text不会被wipeout框遮盖？
如果移动text实体，那么遮住的部分也要移动，这样如何实现？是不是将text框和wipeout框组成一个Group就可以实现？

谢谢各位版主

xyp1964

功能：选择文本形成遮蔽效果。
命令：zhebi

Gis

最初由 xyp1964 发布
[B]选择文本形成遮蔽效果。 [/B]

版主你给我的是编译好的Vlx文件，可是我不知道你的调用方式（命令），还有，如果真的能实现这样的效果能不能公布代码？

lijiao

ET工具中有这样的一个程序。
TOGIS：你的想法是对的，根据TEXT的有关属性找出需要屏蔽的范围，然后就是生成屏蔽、复制文本、删除就的文本、生成组合（也可以用反应器，效果会更好）。

Gis

事实上这一功能是南方Cass软件开发的功能
他们的软件中等高线碰到标注就会“断开”，并且在标注移动的时候随时会根据新的位置屏蔽下面的实体。后面这个功能更加难以实现。

对于上面版主的建议，我想指出的是移动Group之后必须redraw才能屏蔽新的实体。当然我对于你说的反应器不了解，应该会有好的解决方法。

欢迎下面继续讨论。感觉版主就是版主。。。。。。

xyp1964

采用6楼的建议。
功能：选择文本形成遮蔽效果。
命令：zhebi

2. [FONT=courier new](load "xyp_lib")
   
3. ;|加载通用函数(可在签名栏直接下载)
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
   
6. 1.在acad.lsp中增加(load"xyp_lib")
   
7. 2.在每个程序内增加(load"xyp_lib")
   
8. 3.在command下，输入(load"xyp_lib")
   
9. 4.在菜单.mnl中增加(load"xyp_lib")
   
10. 5.将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;
    
12. 
    
13. ;;;zhebi(遮蔽)
    
14. (defun c:zhebi ()
    
15.   (CMDLA0)
    
16.   (setq        ss (ssget '((0 . "TEXT")))
    
17.         n  -1
    
18.   )
    
19.   (mkla "遮蔽"3)
    
20.   (while (setq s1 (ssname ss (setq n (1+ n))))
    
21.     (command "draworder" s1 "" "F")
    
22.     (setq tb (textbox (list (assoc 1 (entget s1)))))
    
23.     (command "_.ucs" "Object" s1)
    
24.     (command "_.RECTANG" (car tb) (cadr tb))
    
25.     (setq s2 (entlast))
    
26.     (command "scale" s2 "" (_midp (car tb) (cadr tb)) "1.1")
    
27.     (command "wipeout" "p" s2 "y")
    
28.     (setq s3 (entlast))
    
29.     (command "draworder" s3 "" "U" s1)
    
30.   )
    
31.   (command"regen")
    
32.   (command "_.ucs" "")
    
33.   (CMDLA1)
    
34. )
    
35. (pxyp"zhebi  (遮蔽)")
    
36. (princ)
    
37. [/FONT]

[FONT=courier new](load "xyp_lib")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：<br /> 1.在acad.lsp中增加(load"xyp_lib")<br /> 2.在每个程序内增加(load"xyp_lib")<br /> 3.在command下，输入(load"xyp_lib")<br /> 4.在菜单.mnl中增加(load"xyp_lib")<br /> 5.将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;<br /> <br /> ;;;zhebi(遮蔽)<br /> (defun c:zhebi ()<br />   (CMDLA0)<br />   (setq        ss (ssget '((0 . "TEXT")))<br />         n  -1<br />   )<br />   (mkla "遮蔽"3)<br />   (while (setq s1 (ssname ss (setq n (1+ n))))<br />     (command "draworder" s1 "" "F")<br />     (setq tb (textbox (list (assoc 1 (entget s1)))))<br />     (command "_.ucs" "Object" s1)<br />     (command "_.RECTANG" (car tb) (cadr tb))<br />     (setq s2 (entlast))<br />     (command "scale" s2 "" (_midp (car tb) (cadr tb)) "1.1")<br />     (command "wipeout" "p" s2 "y")<br />     (setq s3 (entlast))<br />     (command "draworder" s3 "" "U" s1) <br />   )<br />   (command"regen")<br />   (command "_.ucs" "")<br />   (CMDLA1)<br /> )<br /> (pxyp"zhebi  (遮蔽)")<br /> (princ)<br /> [/FONT]

Gis

好久没来了


很遗憾，我用上面斑竹的说的方法进行了尝试，不知道是不是因为2002版本没有wipeout命令
运行总是没有成功。

cykn

谢谢7楼楼主的程序,实在是太合用了.

狂刀

et的工具可以直接完成啊