QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
在VBA中改变直线线形的源程序是怎样的?
发表于 2008-12-17 00:24:13 | 显示全部楼层 来自: 中国
  1. Sub A()6 V. C+ o, C) U) i0 Y$ G
  2.     Dim L As AcadLine, P1(2) As Double, P2(2) As Double$ f+ U1 y7 P5 b' U; Z$ [
  3.     & H8 _6 ?$ Z( y
  4.     On Error Resume Next3 S0 g. g  x5 s, f- }0 [- m
  5.     With ThisDrawing
      W, i4 P- v, \7 C1 Y: i/ _1 M4 K
  6.         .Linetypes.Load "CENTER", "acad.lin"' q) F% _  M" L* f8 @( S
  7.         P2(0) = 100
    7 F/ B5 ]. M' ]. m+ [3 o' e; k* G
  8.         Set L = .ModelSpace.AddLine(P1, P2)% G& m1 o& M! K/ a/ m( \
  9.         L.Linetype = "CENTER", V" h7 z6 [  e
  10.     End With3 J! Q1 G7 v1 J3 [4 m+ h$ ?! M) ?
  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 )

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