QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 2063|回复: 2
收起左侧

[已答复] 怎样改变直线的线形

[复制链接]
发表于 2008-12-16 22:44:25 | 显示全部楼层 |阅读模式 来自: 中国广东广州

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

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

x
在VBA中改变直线线形的源程序是怎样的?
发表于 2008-12-17 00:24:13 | 显示全部楼层 来自: 中国
  1. Sub A()
    * x9 ~5 Y; f) u- N; L
  2.     Dim L As AcadLine, P1(2) As Double, P2(2) As Double; F" Z; x. I+ u- l/ b9 ^
  3.    
    ; m3 G+ m2 b; O0 K4 O; q
  4.     On Error Resume Next
    % B4 E1 R2 M; q/ @- c$ n
  5.     With ThisDrawing) K0 j7 }9 Y" @
  6.         .Linetypes.Load "CENTER", "acad.lin"
    / k" d* y+ B0 Y4 |& [2 _+ h2 ^+ |, u
  7.         P2(0) = 100
    7 W! W' @, d0 K' B" B6 V
  8.         Set L = .ModelSpace.AddLine(P1, P2)
    9 o$ z' X" ^9 {$ ]- k
  9.         L.Linetype = "CENTER"
    ; }% h2 c% b8 p, f9 o5 h% i5 V7 m
  10.     End With
    3 H2 j: \% M% c! |
  11. End Sub
复制代码

评分

参与人数 1三维币 +8 收起 理由
wang2003 + 8 应助

查看全部评分

 楼主| 发表于 2008-12-17 17:38:11 | 显示全部楼层 来自: 中国广东广州

回复 2# woaishuijia 的帖子

谢谢了
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表