ssget选中所有带公差(公差上下限是不同的)的标注??

lincctw_ccl

请问该如何才能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的操作不熟悉，楼主再研究一下吧

lincctw_ccl

感谢您为我的问题做查询!!
也做了回答!
我自己也查了群码,发现太多变化了
依自己现有能力搞不定
Vlisp不会