ssget选中所有带公差(公差上下限是不同的)的标注??
请问该如何才能ssget选中所有带公差(公差上下限是不同的)的标注谢谢!选择对象: ((-1 . <图元名: 7ef7e9c0>) (0 . "DIMENSION") (330 . <图元名:
7ef7ccf8>) (5 . "300") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 .
"CX尺寸线") (100 . "AcDbDimension") (2 . "*D6") (10 2182.62 945.753 0.0) (11
2185.96 946.833 0.0) (12 0.0 0.0 0.0) (70 . 32) (1 . "") (71 . 5) (72 . 1) (41
. 1.0) (42 . 4.32374) (52 . 0.0) (53 . 0.0) (54 . 0.0) (51 . 0.0) (210 0.0 0.0
1.0) (3 . "AM_ISO") (100 . "AcDbAlignedDimension") (13 2178.3 950.002 0.0) (14
2182.62 950.002 0.0) (15 0.0 0.0 0.0) (16 0.0 0.0 0.0) (40 . 0.0) (50 . 0.0)
(100 . "AcDbRotatedDimension") (-3 ("ACAD" (1000 . "DSTYLE") (1002 . "{") (1070
. 4) (1000 . "") (1070 . 41) (1040 . 0.5) (1070 . 43) (1040 . 2.0) (1070 . 47)
(1040 . 0.03) (1070 . 48) (1040 . 0.01) (1070 . 71) (1070 . 1) (1070 . 140)
(1040 . 0.7) (1070 . 143) (1040 . 0.03937) (1070 . 147) (1040 . 0.5) (1070 .
272) (1070 . 2) (1070 . 274) (1070 . 2) (1070 . 340) (1005 . "2CB") (1002 .
"}"))))
查询了一下，1040组码包含这个信息，但1040有很多组，不好判断
懂VL-lisp的可以来试一下
(setq en(car(entsel)))
<图元名: 7ef7e9c0>
_$ (setq xobj(vlax-ename->vla-object en))
#<VLA-OBJECT IAcadDimRotated 0a536d14>
_$ (vlax-dump-object xobj)
; IAcadDimRotated: AutoCAD Rotated 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 = 0.03937
; Application (RO) = #<VLA-OBJECT IAcadApplication 00c2db8c>
; Arrowhead1Block = ""
; Arrowhead1Type = 0
; Arrowhead2Block = ""
; Arrowhead2Type = 0
; ArrowheadSize = 0.5
; DecimalSeparator = "."
; DimensionLineColor = 0
; DimensionLineExtend = 0.0
; DimensionLineWeight = -1
; DimLine1Suppress = 0
; DimLine2Suppress = 0
; DimLineInside = 0
; Document (RO) = #<VLA-OBJECT IAcadDocument 06ececd4>
; ExtensionLineColor = 0
; ExtensionLineExtend = 1.0
; ExtensionLineOffset = 1.0
; ExtensionLineWeight = -1
; ExtLine1Suppress = 0
; ExtLine2Suppress = 0
; Fit = 3
; ForceLineInside = -1
; FractionFormat = 0
; Handle (RO) = "300"
; HasExtensionDictionary (RO) = 0
; HorizontalTextPosition = 0
; Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 0a5375a4>
; Layer = "CX尺寸线"
; LinearScaleFactor = 1.0
; Linetype = "ByLayer"
; LinetypeScale = 1.0
; Lineweight = -1
; Measurement (RO) = 4.32374
; Normal = (0.0 0.0 1.0)
; ObjectID (RO) = 2130176448
; ObjectName (RO) = "AcDbRotatedDimension"
; OwnerID (RO) = 2130169080
; PlotStyleName = "ByLayer"
; PrimaryUnitsPrecision = 2
; Rotation = 0.0
; RoundDistance = 0.0
; ScaleFactor = 1.0
; StyleName = "AM_ISO"
; SuppressLeadingZeros = 0
; SuppressTrailingZeros = -1
; SuppressZeroFeet = -1
; SuppressZeroInches = -1
; TextColor = 0
; TextGap = 0.5
; TextHeight = 0.7
; TextInside = 0
; TextInsideAlign = 0
; TextMovement = 0
; TextOutsideAlign = 0
; TextOverride = ""
; TextPosition = (2185.96 946.833 0.0)
; TextPrefix = ""
; TextRotation = 0.0
; TextStyle = "USER3"
; TextSuffix = ""
; ToleranceDisplay = 2
; ToleranceHeightScale = 0.71
; ToleranceJustification = 0
; ToleranceLowerLimit = 0.01
; TolerancePrecision = 2
; ToleranceSuppressLeadingZeros = 0
; ToleranceSuppressTrailingZeros = -1
; ToleranceSuppressZeroFeet = -1
; ToleranceSuppressZeroInches = -1
; ToleranceUpperLimit = 0.03
; TrueColor = #<VLA-OBJECT IAcadAcCmColor 0a537440>
; UnitsFormat = 2
; VerticalTextPosition = 1
; Visible = -1
T
对VLisp的操作不熟悉，楼主再研究一下吧 感谢您为我的问题做查询!!
也做了回答!
我自己也查了群码,发现太多变化了
依自己现有能力搞不定
Vlisp不会
页:
[1]