【转帖】在ucs中怎么画图？
 

在ucs中怎么画图？
www.dimcax.com
在ucs中怎么画图？
论坛的cad高级应用版有个画“偏心圆台”的问题。我写了程序，可只能在wcs中画，在ucs中画的问题一直没解决，请高手相助！
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
imports autodesk.autocad.applicationservices
imports autodesk.autocad.databaseservices
imports autodesk.autocad.runtime
imports autodesk.autocad.interop
imports autodesk.autocad.interop.common
imports system.math
public class class1_程序
'公用设置
const pi = 3.1415926535
dim app as acadapplication = application.acadapplication
dim doc as acaddocument = app.activedocument
dim ms as object = doc.modelspace
dim ut as object = doc.utility
'------------------------函数库------------------------------
function dis(byval pa as object, byval pb as object) as double
return sqrt((pa(0) - pb(0)) ^ 2 + (pa(1) - pb(1)) ^ 2 + (pa(2) - pb(2)) ^ 2)
end function
<commandmethod("px")> sub cmd5_偏心圆台()
msgbox("程序将在世界坐标系中画偏心圆台！", , "autocad
translatecoordinates 方法我也用了，可还是……