怎么访问并修改线形标注

dragonboy

在lsp中怎么访问并修改线形标注中.如引线颜色,箭头的大小,输出文字的位置,整体注比例等一系列不包含在entget返回值中,而在系统的属性栏显示的数据.小弟我先谢谢啦.

HuaiYu

This a property in the dimension object

See it clearly youself

; IAcadDimOrdinate: AutoCAD Ordinate Dimension 接口
;特性值:
;   AltRoundDistance = 0.0
;   AltSuppressLeadingZeros = 0
;   AltSuppressTrailingZeros = 0
;   AltSuppressZeroFeet = -1
;   AltSuppressZeroInches = -1
;   AltTextPrefix = ""
;   AltTextSuffix = ""
;   AltTolerancePrecision = 2
;   AltToleranceSuppressLeadingZeros = 0
;   AltToleranceSuppressTrailingZeros = 0
;   AltToleranceSuppressZeroFeet = -1
;   AltToleranceSuppressZeroInches = -1
;   AltUnits = 0
;   AltUnitsFormat = 2
;   AltUnitsPrecision = 2
;   AltUnitsScale = 25.4
;   Application (RO) = #<VLA-OBJECT IAcadApplication 00adc0d8>
;   ArrowheadSize = 1.5
;   Color = 256
;   DecimalSeparator = "."
;   Document (RO) = #<VLA-OBJECT IAcadDocument 02290404>
;   ExtensionLineColor = 256
;   ExtensionLineOffset = 0.25
;   ExtensionLineWeight = -2
;   FractionFormat = 0
;   Handle (RO) = "E0A"
;   HasExtensionDictionary (RO) = 0
;   Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 023b2e6c>
;   Layer = "0"
;   LinearScaleFactor = 1.0
;   Linetype = "BYLAYER"
;   LinetypeScale = 1.0
;   Lineweight = -1
;   Measurement (RO) = 88.3551
;   Normal = (0.0 0.0 1.0)
;   ObjectID (RO) = 36489360
;   ObjectName (RO) = "AcDbOrdinateDimension"
;   OwnerID (RO) = 36486344
;   PlotStyleName = "ByLayer"
;   PrimaryUnitsPrecision = 1
;   Rotation = 0.0
;   RoundDistance = 0.0
;   ScaleFactor = 1.0
;   StyleName = "UNIT1"
;   SuppressLeadingZeros = 0
;   SuppressTrailingZeros = 0
;   SuppressZeroFeet = -1
;   SuppressZeroInches = -1
;   TextColor = 256
;   TextGap = 0.1
;   TextHeight = 2.0
;   TextMovement = 0
;   TextOverride = ""
;   TextPosition = (139.23 88.3551 0.0)
;   TextPrefix = ""
;   TextRotation = 0.0
;   TextStyle = "STANDARD"
;   TextSuffix = ""
;   ToleranceDisplay = 0
;   ToleranceHeightScale = 0.68
;   ToleranceJustification = 1
;   ToleranceLowerLimit = 0.0
;   TolerancePrecision = 1
;   ToleranceSuppressLeadingZeros = 0
;   ToleranceSuppressTrailingZeros = 0
;   ToleranceSuppressZeroFeet = -1
;   ToleranceSuppressZeroInches = -1
;   ToleranceUpperLimit = 0.0
;   UnitsFormat = 2
;   VerticalTextPosition = 0
;   Visible = -1

dragonboy

首先谢谢恢复,但我想用lsp的.这是vba的

HuaiYu

我暂时有两种思路，请各路神仙指教

1，用 dimoverride 命令修改

2，用Vlisp语句直接 vla-put-XX 修改其属性

dragonboy

谢谢,明天司试试."dimoverride"

顺便问一下"vla-put-XX "是什么意思.