如何在VBA修改LINETYPE GENARATION的属性值！

hlyee

如何在VBA对选择的多段线修改LINETYPE GENARATION的属性值！

efan2000

LinetypeGeneration

Boolean; read-write

TRUE: Generates the linetype in a continuous pattern through the polyline vertices.

FALSE: Generates the linetype starting and ending with a dash at each polyline vertex.

Remarks

This property does not apply to polylines with tapered segments.



A polyline with linetype generation set to true (left) and set to false (right)

区别就在交点处吧，为True时是使用连续的线型，为False使用点做为开始和结束的分隔。

hlyee

斑竹，可是我图中有一些多段线在LinetypeGeneration为DISNABLE时总是显示不正确，而我将LinetypeGeneration改成ENABLED，就能正确显示。
希望能够修改这属性来解决这问题。
谢谢！

topirol

2. 
   
3. Sub kkk()
   
4. Dim acaddoc As AcadDocument
   
5. Dim selectset1 As AcadSelectionSet
   
6. Set acaddoc = ThisDrawing
   
7. 
   
8. On Error Resume Next
   
9. Set selectset1 = acaddoc.SelectionSets("kkk")
   
10. If Err Then
    
11. 
    
12. Set selectset1 = acaddoc.SelectionSets.Add("kkk")
    
13. 
    
14. End If
    
15. 
    
16. 
    
17. selectset1.SelectOnScreen
    
18. Dim entry As AcadEntity
    
19. 
    
20. 
    
21.     For Each entry In selectset1
    
22.          If entry.ObjectName = "AcDbPolyline" Then
    
23.             
    
24.             entry.LinetypeGeneration = True
    
25. 
    
26.     End If
    
27. 
    
28.     Next entry
    
29. 
    
30. selectset1.Clear
    
31. 
    
32. 
    
33. End Sub
    
34. 
    
35. 
    
36. 
    
37. 
    
38. 
    
39. 
    

<br /> Sub kkk()<br /> Dim acaddoc As AcadDocument<br /> Dim selectset1 As AcadSelectionSet<br /> Set acaddoc = ThisDrawing<br /> <br /> On Error Resume Next<br /> Set selectset1 = acaddoc.SelectionSets("kkk")<br /> If Err Then<br /> <br /> Set selectset1 = acaddoc.SelectionSets.Add("kkk")<br /> <br /> End If<br /> <br /> <br /> selectset1.SelectOnScreen<br /> Dim entry As AcadEntity<br /> <br /> <br />     For Each entry In selectset1<br />          If entry.ObjectName = "AcDbPolyline" Then<br />              <br />             entry.LinetypeGeneration = True<br /> <br />     End If<br /> <br />     Next entry<br /> <br /> selectset1.Clear<br /> <br /> <br /> End Sub<br /> <br /> <br /> <br /> <br /> <br /> <br />