天正墙体图元表里的各项子表都是啥意思啊
((-1 . <图元名: 7ff44c74b610>)(0 . "TCH_WALL")
(330 . <图元名: 7ff44cb3d9f0>)
(5 . "1FE1")
(100 . "AcDbEntity")
(67 . 0)
(410 . "Model")
(8 . "WALL")
(100 . "TDbCurveEntity")
(46 . 0.0)
(47 . 100.0)
(68 . 0)
(100 . "TDbWall")
(38 . 0.0)
(39 . 3000.0)
(300 . "MwA3ADkAOAA4ADIALAAzADgAMwA0ADUANAAsAC0AMgA3ADYANQA1ADAALAAtADIANwA2ADUANQAwACwAMAAsADAALAA3ADUALAA3ADUA")
(42 . 80.08)
(148 . 0.0)
(149 . 3000.0)
(50 . 0.0)
(73 . 0)
(74 . 60)
(75 . 0)
(90 . 0)
(76 . 0)
(411 . "PUB_HATCH")
(412 . "SURFACE")
(413 . "0")
(414 . "0")
(1 . "") (2 . ""))
命令: 以下是墙体的属性及方法：
IComWall: IComWall Interface
;特性值:
; Application (RO) = #<VLA-OBJECT IAcadApplication 00007ff7ed253f10>
; AreaRatio (RO) = 0.0
; BottomFace = "无"
; Conductivity (RO) = 0.0
; Document (RO) = #<VLA-OBJECT IAcadDocument 000001bbe0ad5288>
; Elevation = 0.0
; EndClose = "否"
; EntityTransparency = "ByLayer"
; EnUsage = "内墙"
; Handle (RO) = "20D3"
; HasExtensionDictionary (RO) = 0
; HatchLayer = "PUB_HATCH"
; Height = 3000.0
; HideLabel = "是"
; HoleArea (RO) = "0.00"
; HoleVolume (RO) = "0.000"
; Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 000001bbe651ade8>
; InertiaIndex (RO) = 0.0
; Insulate = "无"
; InsulateClose = "无"
; InsuThick = 80.0
; IOFeature = "双内"
; IsArc (RO) = "直墙"
; IsExternal (RO) = "内墙"
; Label = ""
; Layer = "WALL"
; LayoutRotation = 0.0
; LeftInsuThick = 80.0
; LeftLayer = "0"
; LeftSpace (RO) = 发生意外。
; LeftWidth = 60.0
; Linetype = "ByLayer"
; LinetypeScale = 1.0
; Lineweight = -1
; LSurfaceArea (RO) = "10.10"
; Material = "ByLayer"
; ObjectID (RO) = 44
; ObjectName (RO) = "TDbWall"
; OwnerID (RO) = 42
; PlotStyleName = "ByLayer"
; Radius = 0.0
; RightInsuThick = 80.0
; RightLayer = "0"
; RightSpace (RO) = 发生意外。
; RightWidth = 60.0
; RSurfaceArea (RO) = "10.10"
; Scale = 100.0
; ShadowType = "投射和接收阴影"
; StemInsulate = "无"
; StemInsulateThick = 100.0
; Structure = " (缺省)"
; StruHeight = 3000.0
; StruIsArc (RO) = "直墙"
; Style = "钢筋砼"
; SurfLayer = "SURFACE"
; TextHeight = "3.5"
; TextStyle = "_TCH_ASD"
; TopFace = "无"
; TotalWidth (RO) = 120.0
; TrueColor = #<VLA-OBJECT IAcadAcCmColor 000001bbe65194c0>
; Usage = "内墙"
; Visible = -1
; Volume (RO) = "1.212"
;支持的方法:
; ArrayPolar (3)
; ArrayRectangular (6)
; Copy ()
; Delete ()
; GetBoundingBox (2)
; GetExtensionDictionary ()
; GetXData (3)
; Highlight (1)
; IntersectWith (2)
; Mirror (2)
; Mirror3D (3)
; Move (2)
; Rotate (2)
; Rotate3D (3)
; ScaleEntity (2)
; SetXData (2)
; TransformBy (1)
; Update ()
((-1 . <图元名: 7ff44c74b610>)
(0 . "TCH_WALL")
(330 . <图元名: 7ff44cb3d9f0>)
(5 . "1FE1")
(100 . "AcDbEntity")
(67 . 0)
(410 . "Model")
(8 . "WALL") ;; 图层
(100 . "TDbCurveEntity")
(46 . 0.0)
(47 . 100.0);; 左/右厚度
(68 . 0)
(100 . "TDbWall")
(38 . 0.0)
(39 . 3000.0) ;; 高度
(300 . "MwA3ADkAOAA4ADIALAAzADgAMwA0ADUANAAsAC0AMgA3ADYANQA1ADAALAAtADIANwA2ADUANQAwACwAMAAsADAALAA3ADUALAA3ADUA") ;; 见楼上
(42 . 80.08) ;; 左右保温厚度，都是 80
(148 . 0.0)
(149 . 3000.0) ;; 墙高
(50 . 0.0)
(73 . 0)
(74 . 60)
(75 . 0)
(90 . 0)
(76 . 0)
(411 . "PUB_HATCH")
(412 . "SURFACE")
(413 . "0")
(414 . "0")
(1 . "") (2 . "")) 物语心听 发表于 2022-2-16 16:03
379882,-起点X坐标
383454,-端点X坐标
-276550,-起点Y坐标
正解，前4个数字分别是起点x，端点x,起点y，终点y。你说的重复，是因为y坐标一样。
经过测试，发现还有个问题，当坐标比较大的时候，这一串字符表达的是科学计数法，如下所示：
"3.09328%+006,3.09888e+006,1.15625e+006,1.15625%+006,0,0,100,100"
这就很尴尬了，虽然提供了墙的坐标接口，但是你不敢去用，因为精度是不够的。。。。
组码 300 的解码结果：
(l2s (vl-remove 0 (base64:decode "MwA3ADkAOAA4ADIALAAzADgAMwA0ADUANAAsAC0AMgA3ADYANQA1ADAALAAtADIANwA2ADUANQAwACwAMAAsADAALAA3ADUALAA3ADUA")))
=>
"379882,383454,-276550,-276550,0,0,75,75"
看起来是个坐标。
vitalgg 发表于 2022-2-15 16:16
组码 300 的解码结果：
(l2s (vl-remove 0 (base64:decode "MwA3ADkAOAA4ADIALAAzADgAMwA0ADUANAAsAC0AMgA ...
379882,-起点X坐标
383454,-端点X坐标
-276550,-起点Y坐标
-276550,-起点Y坐标（不知为何数据重复）
0,
0,
75,-左侧墙体厚度
75,-右侧墙体厚度
天正的一些端口隐藏太深，期待高手解答。 vitalgg 发表于 2022-2-15 16:21
((-1 . )
(0 . "TCH_WALL")
(330 . )
谢谢你谢谢你！！！ 物语心听 发表于 2022-2-16 16:03
379882,-起点X坐标
383454,-端点X坐标
-276550,-起点Y坐标
谢谢你谢谢你！我昨天研究了一下，用activeX访问墙体属性获得的是未加密的全属性列表，可以通过vlax-Put对其进行修改 http://www.mjtd.com/forum.php?mod=viewthread&tid=184454&mobile=2 搜索天正对象 我写了一堆 vitalgg 发表于 2022-2-15 16:16
组码 300 的解码结果：
(l2s (vl-remove 0 (base64:decode "MwA3ADkAOAA4ADIALAAzADgAMwA0ADUANAAsAC0AMgA ...
请问base64:decode函数能否提供一下啊？
页:
[1]
2