[求助]：如何把一条线的颜色设置成CAD的窗口背景色呢？

pc070

在dos cad 操作,文字输入能否改用其他输入法...
速成半形 不会用

oyxx_1023

vla-put-Visible 函数

功能

    设定对象或应用程序的可见性。

语法及参数

(vla-put-Visible Object value)
Object All Drawing objects, Application,
  AttributeReference, Group, Toolbar
  这个属性适用的对象
value 布尔；读/写  
  TRUE: 对象或应用程序为可见。
  FALSE: 对象或应用程序为不可见。

说明

    如果将对象指定为不可见，无论应用程序的可见设置如何，它仍将不可见。还可其它因素会影响对象是否为可见，例如当对象的图层为闭合或冻结时，该对象都不会显示。
    将应用程序指定为不可见时，可在背景执行工作而不必看到组件。
　

范例

2. 
   
3. (defun Example_Visible ()
   
4. 
   
5. ;;;这个范例在模型空间中创建一条线。
   
6. 
   
7. ;;;接着切换线的可见性
   
8. 
   
9.   (VL-LOAD-COM)
   
10. 
    
11.   (setq    AcadObject   (vlax-get-acad-object)
    
12. 
    
13.        AcadDocument (vla-get-ActiveDocument Acadobject)
    
14. 
    
15.        mSpace        (vla-get-ModelSpace Acaddocument)
    
16. 
    
17.   )
    
18. 
    
19.   (setq startPnt (vlax-make-safearray vlax-vbDouble '(0 . 2)))
    
20. 
    
21.   (vlax-safearray-fill startPnt '(10 10 0))
    
22. 
    
23.   (setq endPnt (vlax-make-safearray vlax-vbDouble '(0 . 2)))
    
24. 
    
25.   (vlax-safearray-fill endPnt '(50 50 0))
    
26. 
    
27. ;;;创建线
    
28. 
    
29.   (setq LineObj (vla-AddLine mSpace startPnt endPnt))
    
30. 
    
31.   (vla-ZoomExtents AcadObject)
    
32. 
    
33.   (princ "要将新线设成可见的?")
    
34. 
    
35.   (setq    response (vla-GetString
    
36. 
    
37.                  (vla-get-Utility AcadDocument)
    
38. 
    
39.                  :vlax-false
    
40. 
    
41.                  "请输入<Yes>或<No>:"
    
42. 
    
43.                )
    
44. 
    
45.   )
    
46. 
    
47.   (cond
    
48. 
    
49.     ((and (= "yes" response) (= "y" response))
    
50. 
    
51.      (vla-put-Visible LineObj :vlax-true)
    
52. 
    
53.     )
    
54. 
    
55.     ((and (= "no" response) (= "n" response))
    
56. 
    
57.      (vla-put-Visible LineObj :vlax-false)
    
58. 
    
59.     )
    
60. 
    
61.   )
    
62. 
    
63.   (vla-Regen AcadDocument :vlax-true)
    
64. 
    
65.   (princ)
    
66. 
    
67. )
    

<br /> (defun Example_Visible ()<br /> <br /> ;;;这个范例在模型空间中创建一条线。 <br /> <br /> ;;;接着切换线的可见性<br /> <br />   (VL-LOAD-COM)<br /> <br />   (setq    AcadObject   (vlax-get-acad-object)<br /> <br />        AcadDocument (vla-get-ActiveDocument Acadobject)<br /> <br />        mSpace        (vla-get-ModelSpace Acaddocument)<br /> <br />   )<br /> <br />   (setq startPnt (vlax-make-safearray vlax-vbDouble '(0 . 2)))<br /> <br />   (vlax-safearray-fill startPnt '(10 10 0))<br /> <br />   (setq endPnt (vlax-make-safearray vlax-vbDouble '(0 . 2)))<br /> <br />   (vlax-safearray-fill endPnt '(50 50 0))<br /> <br /> ;;;创建线<br /> <br />   (setq LineObj (vla-AddLine mSpace startPnt endPnt))<br /> <br />   (vla-ZoomExtents AcadObject)<br /> <br />   (princ "要将新线设成可见的?")<br /> <br />   (setq    response (vla-GetString<br /> <br />                  (vla-get-Utility AcadDocument)<br /> <br />                  :vlax-false<br /> <br />                  "请输入<Yes>或<No>:"<br /> <br />                )<br /> <br />   )<br /> <br />   (cond<br /> <br />     ((and (= "yes" response) (= "y" response))<br /> <br />      (vla-put-Visible LineObj :vlax-true)<br /> <br />     )<br /> <br />     ((and (= "no" response) (= "n" response))<br /> <br />      (vla-put-Visible LineObj :vlax-false)<br /> <br />     )<br /> <br />   )<br /> <br />   (vla-Regen AcadDocument :vlax-true)<br /> <br />   (princ)<br /> <br /> )<br />