线条宽度问题,和宽线条标记问题

jackchen_9527 · 发表于 2011-7-16 15:42:15

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

本帖最后由 jackchen_9527 于 2011-7-16 15:52 编辑

如下面图片.正宗的老美工程师图纸...............2个问题:
1.如何增大线条的宽度????
2.这种宽线条的图纸,为什么不能标注线条的宽度?

PS:我每次标注的时候只能标注到中心点,(公司有工程师只好在GERBER文件下标记线条宽度).我相信CAD一定有办法.

请教高手!!
非常感谢

hhj10117 · 发表于 2011-7-16 21:02:30

提示: 作者被禁止或删除内容自动屏蔽

woaishuijia · 发表于 2011-7-17 20:39:16

本帖最后由 woaishuijia 于 2011-7-17 20:44 编辑

打开"特性"选项板,选择多段线,就可以在"特性"选项板上修改包括宽度在内的多项属性.
在CAD图形界面的对象捕捉不支持对多段线的轮廓的捕捉,也就无法精确地标注多段线的宽度.
如果一定要做的话,只能借助于二次开发.
下面的VBA代码可以生成优化多段线的轮廓,谨供参考.

Sub 根据多段线轮廓生成块()1 A7 x( v! z! a: `7 w. L
Dim SS As AcadSelectionSet, Ft(0) As Integer, Fd(0) As Variant, Ap As AcadBlock, La As AcadLayer- u k& j3 w! t7 T' J
Dim B As AcadBlock, Ip(2) As Double, Bn As String( Q6 N$ Y# E/ Z9 t. l" c+ O
Dim Pl As AcadLWPolyline, E As Variant, Arc As AcadArc, Line As AcadLine, Sw As Double, Ew As Double7 o( l' f5 ^+ m/ D" _
Dim P1 As Variant, P2 As Variant, P3 As Variant, P4 As Variant& E2 U, A! c( I8 Z
Dim Ps() As Double, Bo As Integer, St(2) As Double, Et(2) As Double
, a( b% w; X- W$ G: d5 ?) W: A' V
Dim I As Integer, J As Integer, K As Integer
2 R* D! E9 {3 z# d
' _; q' L' d* o2 p J
'初始化有关用户参数- m- y6 g; Q- A4 t! i
/ ~1 h1 z9 x( c- }2 p# R
'设置将要生成的块的名称主体3 Q& G' r& T8 z" I. {' ]4 i, b% ^
'该名称主体用系统日期和时间生成,以免块名称重复
+ s8 o" W6 _, }3 y
'该名称主体可由用户按个人爱好更改,比如添加其它内容.但建议不要去掉日期时间,理由同上& h% a+ s. h# U/ n
Bn = CDbl(Date + Time())
5 h9 M( _4 w' h
'设置将要根据多段线圆弧部分轮廓生成的样条曲线的节点数# v" ~5 y% Y% x# j
'该参数+1=样条曲线节点数( I5 I: r1 T; `$ p
'该参数必须是正整数
" E1 ?/ Z* ~9 k; u( u% h- {
'该参数越大越接近真实,但系统负担也越重3 K- [# Z9 E6 @
'该参数可由用户按实际情况更改! n; ?1 A7 g+ C1 V' _, C% C/ g: q
Bo = 104 G6 O- G- a5 g6 P* b8 _
5 | p+ F+ }. I, d y. G( a: d' ~
On Error Resume Next9 Z; f1 Z7 |7 C e8 X7 _4 X8 ^; {
" c* ?3 O9 F; J
'根据用户设置的参数重定义样条曲线节点坐标数组2 I9 k& O) y$ u4 P0 U
ReDim Ps(Bo * 3 + 2)
- x+ n, i! Z. t# {: v
( `: G0 i4 V4 c7 ?) ~1 L1 \
With ThisDrawing. j" k8 U# C+ p2 {( D* C! B
" a7 L4 j' b) {
'创建选择集
- i. z9 f/ O2 y! \
Set SS = .SelectionSets.Add("SS" )/ Q9 ?: e' S9 P& u; Q& `
'定义选择集过滤器为只选择优化多段线
_- ?6 K0 t1 @/ K
Fd(0) = "LWPOLYLINE"
- \6 }$ l7 Z( z' \2 V& _2 w% v
'由用户在屏幕上选择图元对象, d1 ?8 E' P M5 p; N- Z% e, c& O
SS.SelectOnScreen Ft, Fd/ r- i: j# e& F( e
3 N, R# j3 T, Q# R3 Z4 n8 c L
'判断当前空间4 [& `' L# y( ~9 t
If .ActiveSpace = acModelSpace Then
7 j" a, S7 m2 w" X
Set Ap = .ModelSpace
2 ~ |, C4 _- h% k
Else
# x+ c; x5 v# c3 {$ v$ J# b5 J
Set Ap = .PaperSpace
& x, s% _" ]! R) j
End If
3 Y8 k+ L# W5 E$ @0 J- M
'记录当前图层& I0 q, d+ K! H+ H: G( `+ v
Set La = .ActiveLayer
5 B0 q5 R# A0 V* m
% Y+ C* [+ M. Z4 e
'遍历选择集,每一条多段线的轮廓分别生成一个块,并在多段线的相同位置插入块参照( T2 f7 ^+ }# v! D1 T3 {
For I = 0 To SS.Count - 1
2 t' D) z- g- M4 q' H% F4 `" Q
; C: d, f7 q% i6 b& k# J. Z# A
'创建块,块名称为用户设置的名称主体+序号后缀
9 I( M1 X9 F6 [+ x
Set B = .Blocks.Add(Ip, Bn & "_" & I)$ j+ V# ~! L$ o3 Q; q/ ^
3 o0 v& X5 z- U( D6 C
'把当前图层改为0层,目的是把块内的子对象都放到0层/ C* \& H; D$ l# M4 _& s
.ActiveLayer = .Layers("0" )0 U/ X% a1 X! _ c/ w. K
/ v. ]6 U' A" p# \2 }
Set Pl = SS.Item(I)
5 {! h" [4 X' F+ q7 H1 p
'分解多段线,便于获取多段线每一段的详细参数
% R0 a$ t7 D, ?! M" }" s
E = Pl.Explode6 \) y- Q6 q" K, h( H/ Y
j) ]; D- x6 X4 }5 e
'遍历多段线的每一段,分别生成轮廓线
( Q G1 B2 B u ?: \
For J = 0 To UBound(E)% x; B1 m3 B+ D7 a
6 F4 Z. w3 \+ G7 k' N6 G+ ^: q
'判断某段是否圆弧形
- C' i w1 x) p' B. F3 a3 _
If E(J).ObjectName = "AcDbArc" Then- x1 b; |0 u: T
3 u) Z* R2 B1 u. O
'圆弧形& B+ _) z& S& A0 b
4 i3 k) \. r( k/ p! f C0 v
'根据圆弧形的凸凹判断分解所得的相应的圆弧是否与多段线圆弧形部分同向
+ B% f: a% }5 f# w' t M& K
If Pl.GetBulge(J) > 0 Then
, v$ L9 Z% _, r7 r& D; B& a
'同向
6 g- y" Y5 {& D% m
'获取该圆弧形部分的起始宽度和终止宽度
9 z& L8 X( X. A6 S) ]: P& D
'并作为分解后的圆弧的起始宽度和终止宽度* M9 L& }- {5 a, j% z+ r/ b& v
Pl.GetWidth J, Sw, Ew
( P, _, e( L$ x) W6 a& h* T. b9 ~
Else
6 X1 \+ _7 y4 }2 @- d3 A6 _1 l
'反向
1 R. B8 O3 L1 R. j5 n# I5 s( R5 |
'获取该圆弧形部分的起始宽度和终止宽度* M y% ^0 D/ t/ ^% A9 n
'并作为分解后的圆弧的终止宽度和起始宽度5 Q0 D0 J3 s9 W
Pl.GetWidth J, Ew, Sw
0 o2 r3 d- p3 T7 B9 M2 Z$ p, h) M
End If0 y3 `2 x- t" I: m2 j
% N0 }, g% i G+ b
Set Arc = E(J) v3 r0 J& @* x, Y1 `1 n
'计算圆弧形部分轮廓的四个角点
4 @7 ]8 R* H: E& ?* B3 x
P1 = .Utility.PolarPoint(Arc.StartPoint, Arc.StartAngle, Sw / 2)% v0 u* c7 _6 K) G2 [! W9 u
P2 = .Utility.PolarPoint(Arc.StartPoint, Arc.StartAngle + .Utility.AngleToReal(180, acDegrees), Sw / 2): a! ^, M2 j5 {, E/ S! N" H
P3 = .Utility.PolarPoint(Arc.EndPoint, Arc.EndAngle + .Utility.AngleToReal(180, acDegrees), Ew / 2)
4 L: j$ v$ ] f2 @7 R; u$ V. `& k) E
P4 = .Utility.PolarPoint(Arc.EndPoint, Arc.EndAngle, Ew / 2)( e* Q0 f9 h6 U2 n. N+ \3 `
'在块中画圆弧形部分的两端直线轮廓+ `; k' F4 Z: h8 T
B.AddLine P1, P2
" k/ ` c2 F. x/ W* v; d
B.AddLine P3, P4
; X9 k/ B5 T0 y! }
( l! o( ^0 I) ^: {
'逐节点计算圆弧外侧轮廓样条曲线(阿基米德螺线)节点坐标
( U. g2 [/ ]; P n+ w6 u
For K = 0 To Bo, x/ v' `5 d& `$ B m
'计算点坐标
7 d& z' I+ u% F2 N/ i8 K% R
P1 = .Utility.PolarPoint(Arc.Center, Arc.StartAngle + Arc.TotalAngle / Bo * K, Arc.Radius + Sw / 2 + (Ew - Sw) / 2 / Bo * K)
2 b8 b2 r2 s: O) n
'把点坐标存入样条曲线节点坐标数组( S8 k/ }8 B" K$ j
Ps(K * 3) = P1(0)% o1 v7 P+ I9 K" ]4 B0 I
Ps(K * 3 + 1) = P1(1)
' {! B* ~+ {1 M: a1 ~+ R1 ?
Ps(K * 3 + 2) = P1(2)
3 o, L7 Z9 }# p A$ M3 M
Next7 U" W9 e: E4 ~: t i& r
'计算样条曲线起点切向; G3 w7 f }; p+ ^
St(0) = Cos(Arc.StartAngle + .Utility.AngleToReal(90, acDegrees) - Atn((Ew - Sw) / 2 / Arc.TotalAngle / (Arc.Radius + Sw / 2))), Y6 T+ A% U7 |
St(1) = Sin(Arc.StartAngle + .Utility.AngleToReal(90, acDegrees) - Atn((Ew - Sw) / 2 / Arc.TotalAngle / (Arc.Radius + Sw / 2)))
4 o" X6 K) g" O
'计算样条曲线终点切向
' h" `/ i9 T" a4 d- M. Q
Et(0) = Cos(Arc.EndAngle + .Utility.AngleToReal(90, acDegrees) - Atn((Ew - Sw) / 2 / Arc.TotalAngle / (Arc.Radius + Ew / 2)))/ e7 N% F' t! Y% Q4 c, v
Et(1) = Sin(Arc.EndAngle + .Utility.AngleToReal(90, acDegrees) - Atn((Ew - Sw) / 2 / Arc.TotalAngle / (Arc.Radius + Ew / 2)))# l2 z' s9 c- m0 [; M
'在块中画样条曲线(圆弧部分的外侧轮廓)4 z' e& t: ^; P p. J! M. u- f
B.AddSpline Ps, St, Et
9 t6 |! [; S; E- E: N2 k" S
* s; b% |# z9 l7 b! g$ x
'逐节点计算圆弧内侧轮廓样条曲线(阿基米德螺线)节点坐标/ N* D# U: a) O# L
For K = 0 To Bo4 D& t B* U( ?; g$ G) N
'计算点坐标
* g0 P% u5 Y# z& U7 G
P1 = .Utility.PolarPoint(Arc.Center, Arc.StartAngle + Arc.TotalAngle / Bo * K, Arc.Radius - Sw / 2 - (Ew - Sw) / 2 / Bo * K)" _# r5 a) Q( _! M
'把点坐标存入样条曲线节点坐标数组0 T: W. b |( H) n C
Ps(K * 3) = P1(0)
+ B0 f; B1 N# y! i/ k" \
Ps(K * 3 + 1) = P1(1)
z) {6 A# B7 E) z' r# @, l
Ps(K * 3 + 2) = P1(2)
0 y+ _- k) P7 W( e+ ?! R: a
Next
) l/ s4 |6 d- e% ]
'计算样条曲线起点切向
4 G" y7 k: e8 R, R
St(0) = Cos(Arc.StartAngle + .Utility.AngleToReal(90, acDegrees) + Atn((Ew - Sw) / 2 / Arc.TotalAngle / (Arc.Radius - Sw / 2)))) ^6 \" a7 G5 P2 H9 i r% I' H |
St(1) = Sin(Arc.StartAngle + .Utility.AngleToReal(90, acDegrees) + Atn((Ew - Sw) / 2 / Arc.TotalAngle / (Arc.Radius - Sw / 2)))
3 f9 M2 k5 D7 q
'计算样条曲线终点切向8 Y7 c& k* n% v8 `" T
Et(0) = Cos(Arc.EndAngle + .Utility.AngleToReal(90, acDegrees) + Atn((Ew - Sw) / 2 / Arc.TotalAngle / (Arc.Radius - Ew / 2)))
0 n: l, ?8 h5 U: N4 {4 `
Et(1) = Sin(Arc.EndAngle + .Utility.AngleToReal(90, acDegrees) + Atn((Ew - Sw) / 2 / Arc.TotalAngle / (Arc.Radius - Ew / 2)))1 ]- m! u! v; s) h3 j U) R0 u
'在块中画样条曲线(圆弧部分的内侧轮廓)
/ R: c2 n9 z8 B1 r t
B.AddSpline Ps, St, Et/ c, g8 X, Z: f S. w
Else, P7 v, M& Z( {( b' y6 \
8 X4 Z; W( |1 ^) M+ m# {1 p
'直线形0 } i2 {: o7 Q w
5 T t4 U0 K% k$ S2 r" Q
'获取该直线部分的起始宽度和终止宽度
; i/ n; ~7 X" F
Pl.GetWidth J, Sw, Ew1 d! \3 _$ l+ ?5 k, ^
Set Line = E(J)
& I2 [+ X& D( `7 k% |9 x
'计算直线形部分轮廓的四个角点
, I9 [0 @0 g! f% k Y& Z" w6 Q7 x
P1 = .Utility.PolarPoint(Line.StartPoint, Line.Angle + .Utility.AngleToReal(90, acDegrees), Sw / 2)) L1 z5 ?8 I1 B: |
P2 = .Utility.PolarPoint(Line.StartPoint, Line.Angle - .Utility.AngleToReal(90, acDegrees), Sw / 2): y0 F4 S/ E8 L1 O3 `
P3 = .Utility.PolarPoint(Line.EndPoint, Line.Angle - .Utility.AngleToReal(90, acDegrees), Ew / 2)) H( j* m' | b; Z! w) K g$ |
P4 = .Utility.PolarPoint(Line.EndPoint, Line.Angle + .Utility.AngleToReal(90, acDegrees), Ew / 2)
6 v% Q/ o" _3 i
'在块中画直线形部分的四边直线轮廓) h, Y* O2 v( T5 X+ w% W
B.AddLine P1, P2
; R( ~. O9 V( I; }
B.AddLine P2, P3
7 a5 }+ b4 a# \! q: t
B.AddLine P3, P4# p( A; v& h. [
B.AddLine P4, P1
$ F2 Z6 u* Z2 }$ d* ~' T: W
End If) S) P7 f+ h( f7 P* c' ]% z" L. |
'删除用过的分解后的图元$ M$ z( L% x* I8 V5 F2 [# f, Z0 D- i
E(J).Delete
0 Z' ]6 G# Z+ f3 ?+ U
Next5 k# y4 T& a. V0 r" j' H) e
+ G5 }/ D( K# l0 r
'恢复用户图层
- [ w' c5 `/ C N; c) Q9 ?
.ActiveLayer = La; K9 M& Q8 {8 [# v% y) r- D
'插入块参照" M' s p/ [# z
Ap.InsertBlock Ip, B.Name, 1, 1, 1, 0
% w I% ]$ |. G/ e
Next) H" n {2 {8 C3 E% H0 s
End With
6 j+ v j8 ?, F9 |" n9 d9 Z
3 ?( [3 |, J4 D( ^* { \/ E1 g
'删除用过的选择集
2 E: H" z. U0 {* n- s. r: A
SS.Delete+ n9 B$ e1 n5 F! o& ~9 O- ^5 L
End Sub

复制代码

jackchen_9527 · 发表于 2011-7-20 19:46:34

如果图纸里面是多段线的话，自己再画一条细点的多段线（一定要是多段线，不是直线），然后用格式刷刷一下，至于标注线宽目前还不知道。
' H' Q# F# ?7 C! B7 A) @. Bhhj10117 发表于 2011-7-16 21:02 http://www.3dportal.cn/discuz/images/common/back.gif

你这个方法已经OK了.可以做到.

深入思考,我画了多段线,而且在图层属性里面修改了线宽，但是实际显示仍然不变,什么原因?

在多段线的属性里面, 如何修改线宽??

我使用的是pedit修改width,可以达到要求.但是我想知道,为什么属性里面如何修改线宽?有图就更好了.

看我的图.

jackchen_9527 · 发表于 2011-7-20 19:50:20

打开"特性"选项板,选择多段线,就可以在"特性"选项板上修改包括宽度在内的多项属性.
8 p& k1 z4 _+ o& P. h4 \# a在CAD图形界面的对象捕捉不支持对多段线的轮廓的捕捉,也就无法精确地标注多段线的宽度.5 g. D! k3 j1 `7 n( }" c# Y8 w
如果一定要做的话,只能借助于二次开发." g; u1 }0 Y, [% [( P8 T9 Y
..." _- M1 I$ {1 ]" m, q
woaishuijia 发表于 2011-7-17 20:39 http://www.3dportal.cn/discuz/images/common/back.gif

谢谢管理员....

"打开"特性"选项板,选择多段线,就可以在"特性"选项板上修改包括宽度在内的多项属性."

我已经在图层管理器里面修改了线宽属性,还是不行???我知道打印出来的时候就有宽度了...
为什么CAD里面属性宽度修改了,图面还是没改变?

如下面图,.你一看就知道了??
谢谢.

hhj10117 · 发表于 2011-7-20 23:45:14

提示: 作者被禁止或删除内容自动屏蔽

woaishuijia · 发表于 2011-7-21 06:42:50

本帖最后由 woaishuijia 于 2011-7-21 06:46 编辑

5# jackchen_9527
多段线的"宽度"与"线宽"是两个不同的概念."线宽"(lineweight)是每种图形对象都具有的一个属性,而多段线不仅与其它图形对象一样具有"线宽"属性,还有一种独有的"宽度"属性,具体包括三个内容:一是"起始宽度"(start segment width),二是"终止宽度"(end segment width),三是"全局宽度"(global width).
"起始宽度"和"终止宽度"是指多段线某一段的"宽度","全局宽度"是整条多段线的统一的宽度.当"全局宽度"设为某个数值时,每一段的"起始宽度"和"终止宽度"都将被修改为与"全局宽度"相同;相反,当单独设置多段线上某个节点的"起始宽度"或"终止宽度"为不同于"全局宽度"的数值时,"全局宽度"将变为空值,即无意义.
当多段线的"全局宽度"不为0或为空值时,多段线的"线宽"属性没有意义,此时多段线的打印效果取决于其"宽度"属性;只有当多段线的"全局宽度"为0时,多段线的"线宽"属性才有意义,此时多段线的打印效果与其它图形对象一样取决于其"线宽"属性及"打印样式"的设置.

@fly@ · 发表于 2011-7-21 09:26:13

路过，学习了！感谢楼主的提问。

jackchen_9527 · 发表于 2011-7-28 13:17:21

5# jackchen_9527 . A; m0 ^# K. {
多段线的"宽度"与"线宽"是两个不同的概念."线宽"(lineweight)是每种图形对象都具有的一个属性,而多段线不仅与其它图形对象一样具有"线宽"属性,还有一种独有的"宽度"属性,具体包括三个内容:一是"起 ...
( ?+ t& q* X, G5 iwoaishuijia 发表于 2011-7-21 06:42 http://www.3dportal.cn/discuz/images/common/back.gif

斑竹大哥,woaishuijia . 太感谢了.

多段线的问题解决了......

还有一个小问题,是性质跟多段线一样的圆,在另外一个帖子里面,希望大家一起研究解决.

敬礼!!!!!!!!!!!!!!!!!!

rookie108 · 发表于 2011-7-28 13:49:52

没标注过线宽。在这里学习了。

		自动登录	找回密码
密码			注册

通知

[已解决] 线条宽度问题,和宽线条标记问题

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块

hhj10117 hhj10117 当前离线积分 576 UID 1242850 主题在线时间小时注册时间 2010-4-20 头像被屏蔽	发表于 2011-7-16 21:02:30 \| 显示全部楼层来自：中国广东深圳提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对举报

hhj10117 hhj10117 当前离线积分 576 UID 1242850 主题在线时间小时注册时间 2010-4-20 头像被屏蔽	发表于 2011-7-20 23:45:14 \| 显示全部楼层来自：中国广东深圳提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对举报