乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 102|回复： 5

ARCHTICK问题

[复制链接]
Bryco

170

主题

1424

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2119
发表于 2006-7-11 15:31:40 | 显示全部楼层 |阅读模式
当我使用以下设置my1/16“时1'-0“&nbsp；标注参数时，我无法将标注记号显示为Archtick，它始终显示为倾斜。本人&#039；我已经尽我所能尝试过了
我错过了什么
Private-Sub-optarrow16th\u Click（）将文本样式0设置为AcadTextStyle将新的DIMStyle设置为AcadDimStyle
将当前的DIMSTyle设置成AcadDimStyleSet TextStyle0=ThisDrawing.TextStyles.Add（&quot；DIMTXT&quot；）
TextStyle0.fontFile=&quot；单工.shx“
此绘图。SendCommand“_文本样式&amp；vbCr&amp&引用；DIMTXT“&amp；vbCr本图。SendCommand“_dimcen“&amp；vbCr&amp；3/32&amp；vbCr作为变量Dim varData作为整数；DIMSCALE“
varData=ThisDrawing。GetVariable（sysVarName）
设置新的DIMSTYLE=ThisDrawing.DimStyles.Add（“My\u Arch”）
本图纸。SendCommand“_“图形”&amp；vbCr本图。ActiveDimStyle=newDimStile此绘图。SendCommand“；DIMADEC“&amp；vbCr&amp；2&amp；vbCr本图。SendCommand“；DIMALT“&amp；vbCr&amp&引用；关闭“&amp；vbCr本图。SendCommand“；DIMALTD“&amp；vbCr&amp；2&amp；vbCr本图。SendCommand“；DIMALTF“&amp；vbCr&amp；25.4和；vbCr本图。SendCommand“；“DIMALTRND”&amp；vbCr&amp；0&amp；vbCr本图。SendCommand“；DIMALTTD“&amp；vbCr&amp；2&amp；vbCr本图。SendCommand“；DIMALTTZ“&amp；vbCr&amp；0&amp；vbCr本图。SendCommand“；“DIMALTU”&amp；vbCr&amp；2&amp；vbCr本图。SendCommand“；“DIMALTZ”&amp；vbCr&amp；0&amp；vbCr本图。SendCommand“；DIMAPOST“&amp；vbCr&amp&引用&引用&amp；vbCr本图。SendCommand“；DIMASSOC“&amp；vbCr&amp；1&amp；vbCr本图。SendCommand“；DIMASZ“&amp；vbCr&amp；1/8和；vbCr本图。SendCommand“；DIMATFIT“&amp；vbCr&amp；0&amp；vbCr本图。SendCommand“；“DIMAUNIT”&amp；vbCr&amp；0&amp；vbCr本图。SendCommand“；“地马津”&amp；vbCr&amp；2&amp；vbCr本图。SendCommand“；DIMBLK“&amp；vbCr&amp&引用_ArchTick“&amp；vbCr本图。SendCommand“；DIMBLK1“&amp；vbCr&amp&引用_ArchTick“&amp；vbCr本图。SendCommand“；DIMBLK2“&amp；vbCr&amp&引用_ArchTick“&amp；vbCr本图。SendCommand“；DIMCEN“&amp；vbCr&amp；0&amp；vbCr本图。SendCommand“；DIMCLRD“&amp；vbCr&amp；0&amp；vbCr本图。SendCommand“；DIMCLRE“&amp；vbCr&amp；0&amp；vbCr本图。SendCommand“；DIMCLRT“&amp；vbCr&amp；256&amp；vbCr本图。SendCommand“；DIMDEC“&amp；vbCr&amp；3&amp；vbCr本图。SendCommand“；Dimmle“&amp；vbCr&amp；1/16&amp；vbCr本图。SendCommand“；DIMDLI“&amp；vbCr&amp；1/16&amp；vbCr本图。SendCommand“；DIMDSEP“&amp；vbCr&amp&QUOTE&引用&amp；vbCr本图。SendCommand“；DIMEXE“&amp；vbCr&amp；1/16&amp；vbCr本图。SendCommand“；DIMEXO“&amp；vbCr&amp；1/16&amp；vbCr本图。SendCommand“；DIMFIT“&amp；vbCr&amp；5&amp；vbCr本图。SendCommand“；DIMFRAC“&amp；vbCr&amp；2&amp；vbCr本图。SendCommand“；DIMGAP“&amp；vbCr&amp；1/64和；vbCr本图。SendCommand“；DIMJUST“&amp；vbCr&amp&引用；0“&amp；vbCr本图。SendCommand“；DIMLDRBLK“&amp；vbCr&amp&引用&引用&amp；vbCr本图。SendCommand“；DIMLFAC“&amp；vbCr&amp；1&amp；vbCr本图。SendCommand“；DIMLIM“&amp；vbCr&amp&引用；关闭“&amp；vbCr本图。SendCommand“；“DIMLUNIT”&amp；vbCr&amp；4&amp；vbCr本图。SendCommand“；DIMLWD“&amp；vbCr&amp-1&amp；vbCr本图。SendCommand“；DIMLWE“&amp；vbCr&amp-1&amp；vbCr本图。SendCommand“；DIMPOST“&amp；vbCr&amp&引用&引用&amp；vbCr本图。SendCommand“；DIMRND“&amp；vbCr&amp&引用；1/16“&amp；vbCr本图。SendCommand“；DIMSAH“&amp；vbCr&amp&引用；关于&amp；vbCr本图。SendCommand“_dimscale“&amp；vbCr&amp&引用；192“&amp；vbCr本图。SendCommand“；DIMSD1“&amp；vbCr&amp&引用；关闭“&amp；vbCr本图。SendCommand“；DIMSD2“&amp；vbCr&amp&引用；关闭“&amp；vbCr本图。SendCommand“；DIMSE1“&amp；vbCr&amp&引用；关闭“&amp；vbCr本图。SendCommand“；DIMSE2“&amp；vbCr&amp&引用；关闭“&amp；vbCr本图。SendCommand“；DIMSHO“&amp；vbCr&amp&引用；关于&amp；vbCr本图。SendCommand“；DIMSOXD“&amp；vbCr&amp&引用；关闭“&amp；vbCr本图。SendCommand“；DIMTAD“&amp；vbCr&amp；1&amp；vbCr本图。SendCommand“；DIMTDEC“&amp；vbCr&amp；3&amp；vbCr本图。SendCommand“；DIMTFAC“&amp；vbCr&amp；1&amp；pvbCr本图。SendCommand“；DIMTIH“&amp；vbCr&amp&引用；关闭“&amp；vbCr本图。SendCommand“；DIMTIX“&amp；vbCr&amp&引用；关于&amp；vbCr本图。SendCommand“；DIMTM“&amp；vbCr&amp；0&amp；vbCr本图。SendCommand“；DIMTMOVE“&amp；vbCr&amp；1&amp；vbCr本图。SendCommand“；DIMTOFL“&amp；vbCr&amp&引用；关于&amp；vbCr本图。SendCommand“；DIMTOH“&amp；vbCr&amp&引用；关闭“&amp；vbCr本图。SendCommand“；DIMTOL“&amp；vbCr&amp&引用；关闭“&amp；vbCr本图。SendCommand“；DIMTOLJ“&amp；vbCr&amp；1&amp；vbCr本图。SendCommand“；DIMTP“&amp；vbCr&amp；0&amp；vbCr本图。SendCommand“；DIMTSZ“&amp；vbCr&amp；1/32和；vbCr本图。SendCommand“；DIMTVP“&amp；vbCr&amp；0&amp；vbCr本图。SendCommand“；DIMTXSTY“&amp；vbCr&amp&引用；DIMTXT“&amp；vbCr本图。SendCommand“；DIMTXT“&amp；vbCr&amp；3/32&amp；vbCr本图。SendCommand“；DIMTZIN“&amp；vbCr&amp；0&amp；vbCr本图。SendCommand“；DIMUNIT“&amp；vbCr&amp；6&amp；vbCr本图。SendCommand“；DIMUPT“&amp；vbCr&amp&引用；关闭“&amp；vbCr本图。SendCommand“；DIMZIN“&amp；vbCr&amp；3&amp；vbCr本图。SendCommand“_文本大小“&amp；vbCr&amp；18&amp；vbCr本图。设置变量；DIMBLK“&引用_ArchTick“
End Sub
回复

使用道具 举报

mohnston

12

主题

64

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
112
发表于 2006-7-11 15:45:53 | 显示全部楼层
Matersammichman；首先设置setvars（不需要sendcommand），然后使用copyfrom设置dimstyle，我一次完成所有操作，因此这是几个sub的一部分
已经为leaderdimstyle Elsewhare设置了设置变量 
  1. Private Sub childDimset(sDimStyle As String)

  2.     Dim AngulardimStyle As AcadDimStyle

  3.     Dim DiameterdimStyle As AcadDimStyle

  4.     Dim RadialdimStyle As AcadDimStyle

  5.     Dim LeaderdimStyle As AcadDimStyle

  6.     Dim LineardimStyle As AcadDimStyle

  7.     Dim activeDoc As AcadDocument

  8.     

  9.     With ThisDrawing

  10.         Set activeDoc = .Application.ActiveDocument

  11.         

  12.         Set LineardimStyle = .DimStyles.Add(sDimStyle & "$0")

  13.         LineardimStyle.CopyFrom activeDoc

  14.               

  15.         .SetVariable "DIMATFIT", 3

  16.         .SetVariable "DIMBLK1", "."

  17.         .SetVariable "DIMBLK2", "."

  18.         .SetVariable "DIMCEN", 0

  19.         .SetVariable "DIMDLE", 0

  20.         .SetVariable "DIMDLI", 0.0625

  21.         .SetVariable "DIMEXE", 0.125

  22.         .SetVariable "DIMSAH", 0

  23.         .SetVariable "DIMTAD", 0

  24.         .SetVariable "DIMTIH", 1

  25.         .SetVariable "DIMTMOVE", 2

  26.         .SetVariable "DIMTOFL", 0

  27.         .SetVariable "DIMTOH", 1

  28.         .SetVariable "DIMUPT", 1

  29.         Set AngulardimStyle = .DimStyles.Add(sDimStyle & "$2")

  30.         AngulardimStyle.CopyFrom activeDoc

  31.         

  32.         

  33.         Set activeDoc = .Application.ActiveDocument

  34.         .SetVariable "DIMADEC", 1

  35.         .SetVariable "DIMATFIT", 0

  36.         .SetVariable "DIMCEN", 0.09125

  37.         .SetVariable "DIMTAD", 1

  38.         .SetVariable "DIMTIH", 0

  39.         .SetVariable "DIMTMOVE", 0

  40.         .SetVariable "DIMTOFL", 1

  41.         .SetVariable "DIMTOH", 0

  42.         

  43.         Set DiameterdimStyle = .DimStyles.Add(sDimStyle & "$3")

  44.         DiameterdimStyle.CopyFrom activeDoc

  45.         

  46.         

  47.         Set activeDoc = .Application.ActiveDocument

  48.         

  49.         .SetVariable "DIMCEN", 0

  50.         .SetVariable "DIMTOFL", 0

  51.         Set RadialdimStyle = .DimStyles.Add(sDimStyle & "$4")

  52.         RadialdimStyle.CopyFrom activeDoc

  53.         

  54.         '"$6" is ordinate

  55.         

  56.         .SetVariable "DIMTAD", 0

  57.         Set LeaderdimStyle = .DimStyles.Add(sDimStyle & "$7")

  58.         LeaderdimStyle.CopyFrom activeDoc

  59.         

  60.         'reset for next dimstyle

  61.         

  62.         .SetVariable "DIMBLK1", "ArchTick"

  63.         .SetVariable "DIMBLK2", "ArchTick"

  64.         .SetVariable "DIMCEN", 0.09375

  65.         .SetVariable "DIMDLE", 0.0625

  66.         .SetVariable "DIMDLI", 0.5625

  67.         .SetVariable "DIMEXE", 0.0625

  68.         .SetVariable "DIMSAH", 1

  69.         .SetVariable "DIMTAD", 1

  70.         .SetVariable "DIMTOFL", 1

  71.         .SetVariable "DIMUPT", 0

  72.                 

  73.     End With

  74. End Sub

回复

使用道具 举报

mohnston

12

主题

64

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
112
发表于 2006-7-11 15:48:07 | 显示全部楼层
首先，我将使用SetVariable而不是SendCommand来设置变量&nbsp；我在记事本中进行了这些更改，以便查找和替换，因此可能需要进行更多清理，但请尝试一下
  1. Private Sub optarrowsixteenth_Click()

  2. Dim TextStyle0 As AcadTextStyle

  3. Dim newDimStyle As AcadDimStyle

  4. Dim currDimStyle As AcadDimStyle

  5. Set TextStyle0 = ThisDrawing.TextStyles.Add("DIMTXT")

  6. TextStyle0.fontFile = "simplex.shx"

  7. TextStyle0.Height = 0

  8. ThisDrawing.SetVariable "TEXTSTYLE", "DIMTXT"

  9. ThisDrawing.SetVariable "dimcen", 3 / 32

  10. Dim varData As Variant

  11. Dim DataType As Integer

  12. sysVarName = "DIMSCALE"

  13. varData = ThisDrawing.GetVariable(sysVarName)

  14. Set newDimStyle = ThisDrawing.DimStyles.Add("My_Arch")

  15. ThisDrawing.ActiveDimStyle = newDimStyle

  16. ThisDrawing.SetVariable "DIMADEC", 2

  17. ThisDrawing.SetVariable "DIMALT", "Off"

  18. ThisDrawing.SetVariable "DIMALTD", 2

  19. ThisDrawing.SetVariable "DIMALTF", 25.4

  20. ThisDrawing.SetVariable "DIMALTRND", 0

  21. ThisDrawing.SetVariable "DIMALTTD", 2

  22. ThisDrawing.SetVariable "DIMALTTZ", 0

  23. ThisDrawing.SetVariable "DIMALTU", 2

  24. ThisDrawing.SetVariable "DIMALTZ", 0

  25. ThisDrawing.SetVariable "DIMAPOST", ""

  26. ThisDrawing.SetVariable "DIMASSOC", 1

  27. ThisDrawing.SetVariable "DIMASZ", 1 / 8

  28. ThisDrawing.SetVariable "DIMATFIT", 0

  29. ThisDrawing.SetVariable "DIMAUNIT", 0

  30. ThisDrawing.SetVariable "DIMAZIN", 2

  31. ThisDrawing.SetVariable "DIMBLK", "_ArchTick"

  32. ThisDrawing.SetVariable "DIMBLK1", "_ArchTick"

  33. ThisDrawing.SetVariable "DIMBLK2", "_ArchTick"

  34. ThisDrawing.SetVariable "DIMCEN", 0

  35. ThisDrawing.SetVariable "DIMCLRD", 0

  36. ThisDrawing.SetVariable "DIMCLRE", 0

  37. ThisDrawing.SetVariable "DIMCLRT", 256

  38. ThisDrawing.SetVariable "DIMDEC", 3

  39. ThisDrawing.SetVariable "DIMDLE", 1 / 16

  40. ThisDrawing.SetVariable "DIMDLI", 1 / 16

  41. ThisDrawing.SetVariable "DIMDSEP", "."

  42. ThisDrawing.SetVariable "DIMEXE", 1 / 16

  43. ThisDrawing.SetVariable "DIMEXO", 1 / 16

  44. ThisDrawing.SetVariable "DIMFIT", 5

  45. ThisDrawing.SetVariable "DIMFRAC", 2

  46. ThisDrawing.SetVariable "DIMGAP", 1 / 64

  47. ThisDrawing.SetVariable "DIMJUST", "0"

  48. ThisDrawing.SetVariable "DIMLDRBLK", ""

  49. ThisDrawing.SetVariable "DIMLFAC", 1

  50. ThisDrawing.SetVariable "DIMLIM", "OFF"

  51. ThisDrawing.SetVariable "DIMLUNIT", 4

  52. ThisDrawing.SetVariable "DIMLWD", -1

  53. ThisDrawing.SetVariable "DIMLWE", -1

  54. ThisDrawing.SetVariable "DIMPOST", ""

  55. ThisDrawing.SetVariable "DIMRND", "1/16"

  56. ThisDrawing.SetVariable "DIMSAH", "On"

  57. ThisDrawing.SetVariable "_dimscale", "192"

  58. ThisDrawing.SetVariable "DIMSD1", "OFF"

  59. ThisDrawing.SetVariable "DIMSD2", "OFF"

  60. ThisDrawing.SetVariable "DIMSE1", "OFF"

  61. ThisDrawing.SetVariable "DIMSE2", "OFF"

  62. ThisDrawing.SetVariable "DIMSHO", "ON"

  63. ThisDrawing.SetVariable "DIMSOXD", "OFF"

  64. ThisDrawing.SetVariable "DIMTAD", 1

  65. ThisDrawing.SetVariable "DIMTDEC", 3

  66. ThisDrawing.SetVariable "DIMTFAC", 1

  67. ThisDrawing.SetVariable "DIMTIH", "OFF"

  68. ThisDrawing.SetVariable "DIMTIX", "ON"

  69. ThisDrawing.SetVariable "DIMTM", 0

  70. ThisDrawing.SetVariable "DIMTMOVE", 1

  71. ThisDrawing.SetVariable "DIMTOFL", "ON"

  72. ThisDrawing.SetVariable "DIMTOH", "OFF"

  73. ThisDrawing.SetVariable "DIMTOL", "OFF"

  74. ThisDrawing.SetVariable "DIMTOLJ", 1

  75. ThisDrawing.SetVariable "DIMTP", 0

  76. ThisDrawing.SetVariable "DIMTSZ", 0.09375

  77. ThisDrawing.SetVariable "DIMTVP", 0

  78. ThisDrawing.SetVariable "DIMTXSTY", "DIMTXT"

  79. ThisDrawing.SetVariable "DIMTXT", 0.09375

  80. ThisDrawing.SetVariable "DIMTZIN", 0

  81. ThisDrawing.SetVariable "DIMUNIT", 6

  82. ThisDrawing.SetVariable "DIMUPT", "OFF"

  83. ThisDrawing.SetVariable "DIMZIN", 3

  84. ThisDrawing.SetVariable "TEXTSIZE", 18

  85. ThisDrawing.SetVariable "DIMBLK", "ArchTick"

  86. newDimStyle.CopyFrom ThisDrawing

  87. End Sub
布莱科击败了我，超越了我，但无论如何，我是一个波斯特
回复

使用道具 举报

mohnston

12

主题

64

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
112
发表于 2006-7-11 20:24:25 | 显示全部楼层
唐#039；别忘了每种风格都会有子元素，这些子元素可能会也可能不会受到父元素变化的影响
维护和设置dim变量的另一个选项是
  1. Public Function FixDims(aDoc As AcadDocument) As Boolean

  2.    

  3.    On Error GoTo Err_Handler

  4.    Dim aDStyle As AcadDimStyle

  5.    Dim strDSName As String

  6.    Dim intFldCount As Integer

  7.    Dim fld As ADODB.Field

  8.    Dim db As ADODB.Connection

  9.    Dim rs As ADODB.Recordset

  10.    Dim strSQL As String

  11.    

  12.    Set db = New ADODB.Connection

  13.    

  14.    db.Open ENG_SYS_DB

  15.    

  16.    Set rs = New ADODB.Recordset

  17.    strSQL = "SELECT * " & _

  18.                "FROM dimvars"

  19.                

  20.    rs.Open strSQL, db, adOpenForwardOnly

  21.    

  22.    With rs

  23.       While .EOF = False And .BOF = False

  24.          Set aDStyle = aDoc.DimStyles.Add(.Fields("style_name").Value)

  25.          For Each fld In rs.Fields

  26.             If UCase(Left(fld.Name, 3)) = "DIM" Then

  27.                aDoc.SetVariable fld.Name, .Fields(fld.Name).Value

  28.             End If

  29.          Next

  30.          aDStyle.CopyFrom aDoc

  31.          .MoveNext

  32.       Wend

  33.    End With

  34.    

  35.    Set aDStyle = ThisDrawing.DimStyles("MyStandardDimStyle")

  36.    

  37.    aDoc.ActiveDimStyle = aDStyle

  38.    

  39.    aDoc.Save

  40.    FixDims = True

  41. Exit_Here:

  42.    Exit Function

  43. Err_Handler:

  44.    Select Case Err.Number

  45.       Case -2145320861 ' error saving file

  46.          aDoc.Close False

  47.          Set aDoc = Nothing

  48.          FixDims = False

  49.          Resume Exit_Here

  50.       Case Else

  51.          FixDims = False

  52.          InputBox "Error " & Err.Description, "Fix Dims", Err.Number

  53.          Resume Exit_Here

  54.    End Select

  55. End Function
这张桌子看起来像…
  1.   style_name varchar(255) NOT NULL,

  2.   style_description varchar(255),

  3.   dimasz float8,

  4.   dimblk varchar(255),

  5.   dimblk1 varchar(255),

  6.   dimblk2 varchar(255),

  7.   dimcen float8,

  8.   dimclrt float8,

  9.   dimclrd float8,

  10.   dimdle float8,

  11.   dimexe float8,

  12.   dimfit float8,

  13.   dimgap float8,

  14.   dimjust float8,

  15.   dimlfac float8,

  16.   dimpost varchar(255),

  17.   dimtad float8,

  18.   dimtfac float8,

  19.   dimtih float8,

  20.   dimtofl float8,

  21.   dimtoh float8,

  22.   dimtolj float8,

  23.   dimtsz float8,

  24.   dimtvp float8,

  25.   dimtxt float8,

  26.   dimsd1 int2 DEFAULT 0,

  27.   dimsd2 int2 DEFAULT 0,

  28.   dimse1 int2 DEFAULT 0,

  29.   dimse2 int2 DEFAULT 0,

  30.   dimsoxd int2 DEFAULT 0,

  31.   dimldrblk varchar(64),

  32.   dimatfit int2,

  33.   dimtmove int2,

  34.   dimdec int2 DEFAULT 3
通过这种方式，您可以拥有许多dim样式并调整其设置，而无需重新打开或重新分发代码
回复

使用道具 举报

mohnston

12

主题

64

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
112
发表于 2006-7-12 12:08:49 | 显示全部楼层
所以…我想任何“我认为”；“快速修复”；vba等效于；Dimoverride“；因为目前的dimstyle只是一个白日梦？？
回复

使用道具 举报

mohnston

12

主题

64

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
112
发表于 2014-9-4 06:51:24 | 显示全部楼层
这件事发生在我身上，我决定添加这个代码
本图纸。设置变量；DIMSAH“；，它允许显示您分配给DIMBLK、DIMBLK1、DIMBLK2的内容
回复

使用道具 举报

返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-4-20 18:11 , Processed in 1.353831 second(s), 65 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表