[Shagezood]

При построении линии заданного уклона (геодезия) было бы очень удобно прописать фиксированную длину каждого элемента полилинии и просто откладывать её мышкой, но никак не могу придумать как это сделать, помогите пожалуйста

[belankostya]

Самое простое решение - написать макрос/сценарий.
Более сложное - програмулька на LISP.
К сожалению мне не совсем понятна механика Вашей задачи - поэтому более детально не могу подсказать.

[Shagezood]

В идеале просто кликать мышкой и что бы полилиния откладывалась в направлениях, где был сделан клик

[AMDen]

http://www.lee-mac.com/totallengthpline.html
Может это подойдет?

[Shagezood]

Попробую, спасибо

[Dinoxromniy]

Сообщение от Shagezood При построении линии заданного уклона (геодезия)

Если она у вас плоская, можно воспользоваться кодом наподобие кода ниже - выделяете мышкой существующую полилинию, указываете мышкой текущую точку и длину текущего сегмента, затем вводите желаемую длину. Выход из цикла - просто по эскейп. В принципе можно выводить еще номер текущего сегмента, или там вообще эти длины записать в таблицу в акаде, и также выделять ее мышкой после полилинии например.
Задачу сформулируйте более полно, не очень понятно, что у вас на выходе должно быть. Почему бы и не выложить пример результат в акаде?

Код:

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

Sub pline_append()

    Dim plineObj As AcadPolyline, i As Integer, mySset As AcadSelectionSet
    Dim FilterType(0) As Integer
    Dim FilterData(0) As Variant
    
    For i = ThisDrawing.SelectionSets.Count - 1 To 0 Step -1
        If ThisDrawing.SelectionSets.Item(i).Name = "q1" Then ThisDrawing.SelectionSets.Item(i).Delete
    Next i

    ThisDrawing.SelectionSets.Add ("q1")
    Set mySset = ThisDrawing.SelectionSets.Item("q1")
    FilterType(0) = 0
    FilterData(0) = "POLYLINE"
    mySset.SelectOnScreen FilterType, FilterData
        
          
    Set plineObj = mySset.Item(0)
      
    Dim newVertex(0 To 2) As Double, vrtPnt As Variant, k As Double, so As Double, s As Double
    Dim retCoord As Variant
    On Error GoTo m
    While True
            vrtPnt = ThisDrawing.Utility.GetPoint(, "введите точку")
            s0 = ThisDrawing.Utility.GetReal("Введите длину" & vbCrLf)
            retCoord = plineObj.Coordinates
            k = ((vrtPnt(0) - retCoord(UBound(retCoord) - 2)) ^ 2 + (vrtPnt(1) - retCoord(UBound(retCoord) - 1)) ^ 2) ^ 0.5 / s0
            vrtPnt(0) = retCoord(UBound(retCoord) - 2) + (vrtPnt(0) - retCoord(UBound(retCoord) - 2)) / k
            vrtPnt(1) = retCoord(UBound(retCoord) - 1) + (vrtPnt(1) - retCoord(UBound(retCoord) - 1)) / k
            plineObj.AppendVertex vrtPnt
    Wend
m:
Set plineObj = Nothing
End Sub

[Дмитррр]

Сообщение от Shagezood В идеале просто кликать мышкой и что бы полилиния откладывалась в направлениях, где был сделан клик

Можно же просто навестись мышкой на нужную точку, вбить с клавиатуры длину и нажать энтер. Получится нужный эффект, если я верно понял желаемое.
Нужны ли тут какие-то дополнительные макросы и прочие?

[Dinoxromniy]

Сообщение от Дмитррр Нужны ли тут какие-то дополнительные макросы и прочие?

Ну если речь о 6 точках - наверное не сильно, а если о 60 - быстрее код написать, чтобы он сам считал, какой участок сейчас вводим и какая длина этому участку соответствует.

[Дмитррр]

И 60 проще вручную. Вот если 1000, то другое дело. Или 100 еженедельно.
Думаю, тут самый сложный вопрос с редактированием. Много манипуляций понадобится, чтобы изменить этот зигзаг, сохранив при этом расстояние между поворотами. Но автор, вроде, про редактирование не писал.

[Dinoxromniy]

Сообщение от Дмитррр И 60 проще вручную.

Тогда не нужен.

[koMon]

по-простому

Код:

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

 ;********************************************************************************************************************************************************

(defun c:fixed_segment_length_pline ( / pline_object)

	;*****************************************************************************************************************************************************

	(defun make_pline (vertices_list pline_object / pline_vertices_array)
    	(vlax-safearray-fill (setq pline_vertices_array (vlax-make-safearray vlax-vbdouble (cons 0 (1- (length vertices_list)))))
							 vertices_list
		)
		(if (null pline_object)
				(setq pline_object (vla-addlightweightpolyline (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))) pline_vertices_array))
				(vla-put-coordinates pline_object pline_vertices_array)
		)
		pline_object
	)

	;*****************************************************************************************************************************************************

	(defun crd (in_list)
		(reverse (cdr (reverse in_list)))
	)

	;*****************************************************************************************************************************************************

	(setq fixed_length (getreal "\nДлина линейного сегмента: "))
	(setq start_point (getpoint "\nНачало полилинии: "))
	(while t
		(setq next_point (getpoint start_point "\nСледующая вершина: "))
		(setq next_point (polar start_point (angle start_point next_point) fixed_length))
		(if (null pline_object)
			(setq vertices_list (append (crd start_point) (crd next_point)))
			(setq vertices_list (append (vlax-get pline_object 'coordinates) (crd next_point)))
		)
		(setq pline_object (make_pline vertices_list pline_object))
		(setq start_point next_point)
	)
)

;********************************************************************************************************************************************************

[Игорь Богаченко]

Сообщение от Shagezood При построении линии заданного уклона (геодезия) было бы очень удобно прописать фиксированную длину каждого элемента полилинии и просто откладывать её мышкой, но никак не могу придумать как это сделать, помогите пожалуйста

https://beardyugin.com/ru/free-apps/

Нажмите для просмотра

https://www.youtube.com/watch?v=FbRSEHdnlNg&t=4s

[Бим]

Сообщение от Shagezood просто откладывать её мышкой

Вручную задача решается следующим образом. Из точки на горизонтали чертится окружность, с радиусом в ту фиксированную длину. Центр окружности соединяется с точкой пересечения со следующей горизонталью. Окружность переносится в точку пересечения. И т.д. до окончания склона... Решить это щелкая мышкой? Плюс еще горизонтали встречаются и другие, кроме основных. Может где в специализированных программах по канализации-гидравлике-горным дорогам оно и есть.