[Sege]

Не могу понять, пришел чертеж, а там все мультивыноски без конточки (точки привязки) на конце стрелки
Т.е. стрелка не имеет точку привязки
Пример во во вложении

[CaMoCAD]

Выноска вставлена в дальние края с координатой по Z = -7.3660E+88
У Вас бинокль слабый.

[AlexCondor]

Выноска летает в 3D. Можно разбить и посмотреть координаты концов линий

[Sege]

Всем спасибо ))) Про бинокль отдельно оценил шутку )
Применяю FLATTEN - разбивает нафиг выноску
Как можно сбросить в выноске координату Z на 0 без разбития выноски?

[Nike]

(defun C:z0 (/ en_dat en_set # z10 z11 en new_en_set ## a10 a11)
(setq en_set (ssget "X" '((0 . "MULTILEADER"))))
(setq # 0)
(repeat (sslength en_set)
(setq en (ssname en_set #))
(setq en_dat (entget en))
(setq z10 (subst 0.0000 (car (reverse (assoc 10 en_dat))) (assoc 10 en_dat)))
(setq z11 (subst 0.0000 (car (reverse (assoc 11 en_dat))) (assoc 11 en_dat)))
(setq en_dat (subst z10 (assoc 10 en_dat) en_dat))
(setq en_dat (subst z11 (assoc 11 en_dat) en_dat))
(entmod en_dat)
(setq # (+ 1 #))
) ;_ end of repeat
)

[Sege]

Nike (alert "Спасибо")

Только еще по 110 лучше пройтись и тоже обнулить z

[Хмурый]

Сообщение от Sege Как можно сбросить в выноске координату Z на 0 без разбития выноски?

https://forum.dwg.ru/showthread.php?t=25474

[Sege]

тут еще z координаты сидит и дальше
((-1 . <Имя объекта: 1477e803d50>) (0 . "MULTILEADER") (330 . <Имя объекта: 1477e7fe9f0>) (5 . "29D") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "ДГГС_текст") (48 . 200.0) (100 . "AcDbMLeader") (270 . 2) (300 . "CONTEXT_DATA{") (40 . 1.0) (10 3170.83 1810.17 -7.36599e+88) (41 . 500.0) (140 . 200.0) (145 . 1.0) (174 . 5) (175 . 5) (176 . 2) (177 . 0) (290 . 1) (304 . "H=15м ") (11 0.0 0.0 1.0) (340 . <Имя объекта: 1477e803c90>) (12 4821.83 2410.17 -7.36599e+88) (13 1.0 0.0 0.0) (42 . 0.0) (43 . 757.601) (44 . 1600.13) (45 . 1.0) (170 . 1) (90 . -1073741824) (171 . 3) (172 . 5) (91 . -1027028792) (141 . 1.5) (92 . 0) (291 . 1) (292 . 1) (173 . 0) (293 . 0) (142 . 0.0) (143 . 0.0) (294 . 0) (295 . 0) (296 . 0) (110 4731.35 5324.22 0.0) (111 1.0 0.0 0.0) (112 0.0 1.0 0.0) (297 . 0) (302 . "LEADER{") (290 . 1) (291 . 1) (10 4842.83 1810.17 -7.36599e+88) (11 -1.0 0.0 0.0) (90 . 1) (40 . 20.0) (304 . "LEADER_LINE{") (10 5297.94 3713.34 -7.36599e+88) (91 . 0) (170 . 1) (92 . -1056964608) (340 . <Имя объекта: 0>) (171 . -2) (40 . 0.0) (341 . <Имя объекта: 0>) (93 . 0) (305 . "}") (271 . 0) (303 . "}") (272 . 9) (273 . 9) (301 . "}") (340 . <Имя объекта: 1477e7ff960>) (90 . 384996) (170 . 1) (91 . -1056964608) (171 . -2) (290 . 1) (291 . 0) (41 . 20.0) (342 . <Имя объекта: 1477e803c40>) (42 . 200.0) (172 . 2) (343 . <Имя объекта: 1477e803c90>) (173 . 5) (95 . 5) (174 . 1) (175 . 0) (92 . -1073741824) (292 . 0) (93 . -1056964608) (10 1.0 1.0 1.0) (43 . 0.0) (176 . 0) (293 . 0) (294 . 0) (178 . 0) (179 . 3) (45 . 1.0) (271 . 0) (272 . 9) (273 . 9) (295 . 0))

[Кулик Алексей aka kpblc]

А если еще вспомнить, что у мультивыноски может быть несколько линий выносок, ситуация станет немного напряжней ИМХО. Может, попытаться в ActiveX покопаться?

[Dinoxromniy]

Сообщение от Кулик Алексей aka kpblc Может, попытаться в ActiveX покопаться?

не очень понятно, как это работает, кмк - сменить z координату просто так нельзя, потому как примитив плоский наподобие полилинии, поэтому проще сдвинуть в 3d пространстве всю выноску на величину z координаты со знаком минус. При этом линия выноски в приложенном файле нумеруется с единицы, у меня при создании - закономерно с нуля, разбираться почему так опять же некогда, что влечет за собой моветон - On Error Resume Next.
За исключением перечисленных оговорок - да вроде худо-бедно работает, у кого есть желание возиться - облагородят код, я полагаю.

Код:

[Выделить все]

Sub dwg_leaders()

Dim ldrObj As AcadMLeader
Dim i As Integer
Dim sset As AcadSelectionSet
Dim FilterType(0) As Integer
Dim FilterData(0) As Variant
Dim vrtCoo As Variant
Dim dblPnt1(0 To 2) As Double, dblPnt2(0 To 2) As Double
On Error Resume Next
ActiveDocument.SelectionSets.Add ("Q3")
Set sset = ActiveDocument.SelectionSets.Item("Q3")
sset.Clear
FilterType(0) = 0
FilterData(0) = "MULTILEADER"


sset.SelectOnScreen FilterType, FilterData
For i = 0 To sset.count - 1
Set ldrObj = sset.Item(i)
        For j = 0 To 2
                vrtCoo = Empty
                vrtCoo = ldrObj.GetLeaderLineVertices(j)
                If Not IsEmpty(vrtCoo) Then
                dblPnt1(0) = vrtCoo(0)
                dblPnt1(1) = vrtCoo(1)
                dblPnt1(2) = vrtCoo(2)
                dblPnt2(0) = vrtCoo(0)
                dblPnt2(1) = vrtCoo(1)
                dblPnt2(2) = 0
                ldrObj.Move dblPnt1, dblPnt2
                Exit For
            End If
        
        Next j
Next i
sset.Delete
Set sset = Nothing
Set ldrObj = Nothing
End Sub