[танбраун]

Добрый день!

Помогите с решением вопроса: нужно вычертить много прямоугольников, разбитых на 2 части (основание и все остальное). Основание будет - отрезок зеленого цвета, п-образная часть - полилиния синяя. Решить наверное можно с помощью лиспа, но к сожалению ноль в этом вопросе. AutoCad 2019. За ранее благодарен.

[trir]

даже програмировать не нужно, достаточно команды Пакет

[танбраун]

Т.е. если написать "Пакет", открыть чертеж, выделить нужные прямоугольники, применить команду "Пакет", то прямоугольники разобьются по тем параметрам, которые написаны в "Пакете"?

[trir]

1. Пишеш скрипт
2. Запускаешь через пакет
3. Готово

[танбраун]

Осталось "за малым" - научиться писать скрипт

[trir]

_pline
10,10
11,11
12,12

[танбраун]

10,10
11,11
12,12

это координаты?

[Хмурый]

следует отметить, что в AutoCAD не существует примитива "прямоугольник"
А из вопроса- ничерта не понял

[танбраун]

Изначально я хотел, чтобы выбираешь команду прямоугольник и рисуется прямоугольник, но не сплошной полилинией одного цвета, а прямоугольник разделен: в основании отрезок синего цвета, бока и верх - полилиния зеленого цвета, но наверное так нельзя.
Другой вариант, когда есть прямоугольники из полилиний разного размера и, например при использовании лиспа, они разбиваются на: в основании отрезок синего цвета, бока и верх - полилиния зеленого цвета (как в примере).

[AMDen]

Сообщение от танбраун рисуется прямоугольник

Нужны именно прямоугольники? Может использовать подходящий блок? А потом, если надо, расчленять до двух полилиний разных цветов.

[танбраун]

Прямоугольников много и они разных размеров. Если вставлять блоки, то долго выставлять нужный размер.

[AMDen]

Сообщение от танбраун Прямоугольников много и они разных размеров

Они уже есть или их надо рисовать?

[танбраун]

надо нарисовать

[AMDen]

Сообщение от танбраун Если вставлять блоки, то долго выставлять нужный размер

А как Вы вставляете прямоугольники, что это получается значительно быстрее выставления размеров блока?

[Сергей812]

Размеры и точка вставки прямоугольников откуда берутся? Прошло полдня, уже можно было бы руками нарисовать, наверно. Или это чисто учебная задача без практического смысла?

[zenon]

танбраун, вот блок упрошенный
Двухцветный.dwg
вставляешь, тянешь за ручку

[танбраун]

Сообщение от Сергей812 Размеры и точка вставки прямоугольников откуда берутся? Прошло полдня, уже можно было бы руками нарисовать, наверно. Или это чисто учебная задача без практического смысла?

Есть проемы окон, сформированные отдельными отрезками (выделить их не всегда удобно), нужно в этих проемах нарисовать верхний и боковые откосы и отдельно в низу отлив. Задача не учебная, у меня встречается часто.
Если вставлять блоком, как предлагает zenon, то это довольно долго, т.к. окон много и они разных размеров, т.е. нужно каждый раз вставлять блок и потом ручкой подгонять под размер.

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

Тем не менее динамический блок здесь будет, мне кажется, как раз "в тему". Окна, как ни крути, все же обычно имеют достаточно стандартные размеры. Вынести наиболее часто используемые на палитру - и вперед.

[танбраун]

Сообщение от Кулик Алексей aka kpblc Тем не менее динамический блок здесь будет, мне кажется, как раз "в тему". Окна, как ни крути, все же обычно имеют достаточно стандартные размеры. Вынести наиболее часто используемые на палитру - и вперед.

Если других вариантов нет, тогда буду пробовать ...

[gumel]

Сообщение от танбраун Если других вариантов нет, тогда буду пробовать ...

Другой вариант есть. Лучше всего составить спецификацию проемов/окон и уже по ней считать сколько нужно откосов, а сколько отливов. Тем более, что на практике необходимо добавлять к длине доборных элементов некую величину.

Другой вопрос, - как в автоматическом режиме составить спецификацию по габаритам замкнутых полилиний?

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

Либо _.dataextraction, либо вопрос в другом разделе.

[koMon]

Сообщение от танбраун Решить наверное можно с помощью лиспа

наверняка...с упрощённым группообразованием

Код:

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

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

(vl-load-com)

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

(defun draw_rect (parsed_point_3 parsed_point_1 parsed_modelspace_object parsed_rect_exists /
				  point_1 point_2 point_3 point_4 p1_p3_distance pline_coordinates_array line_object_dxf pline_object_dxf)

    (setq point_1 (list (car parsed_point_1) (cadr parsed_point_1))
		  point_2 (list (car parsed_point_1) (cadr parsed_point_3))
		  point_3 (list (car parsed_point_3) (cadr parsed_point_3))
		  point_4 (list (car parsed_point_3) (cadr parsed_point_1))
		  p1_p3_distance (distance parsed_point_1 parsed_point_3)
		  pline_coordinates_array (vlax-make-safearray vlax-vbDouble '(0 . 7))
	)
	(vlax-safearray-fill pline_coordinates_array (append point_1 point_2 point_3 point_4))
	(if (null parsed_rect_exists)
		(if (null (zerop p1_p3_distance))
			(progn
    			(setq line_object (vla-addline parsed_modelSpace_object (vlax-3d-point point_1) (vlax-3d-point point_4))
					  pline_object (vla-addlightweightpolyline parsed_modelSpace_object pline_coordinates_array)
					  rect_exists t
					  line_object_dxf (entget (vlax-vla-object->ename line_object))
					  pline_object_dxf (entget (vlax-vla-object->ename pline_object))
				)
				(if (assoc 420 line_object_dxf)
					(setq line_object_dxf (vl-remove (assoc 420 line_object_dxf) line_object_dxf))
				)
				(if (null (assoc 62 line_object_dxf))
					(setq line_object_dxf (append line_object_dxf (list (cons 62 3))))
					(setq line_object_dxf (subst (cons 62 3) (assoc 62 line_object_dxf) line_object_dxf))
				)
				(if (assoc 420 pline_object_dxf)
					(setq pline_object_dxf (vl-remove (assoc 420 pline_object_dxf) pline_object_dxf))
				)
				(if (null (assoc 62 pline_object_dxf))
					(setq pline_object_dxf (append pline_object_dxf (list (cons 62 5))))
					(setq pline_object_dxf (subst (cons 62 5) (assoc 62 pline_object_dxf) pline_object_dxf))
				)
				(entmod line_object_dxf)
				(entmod pline_object_dxf)
			)
		)
		(if (null (zerop p1_p3_distance))
			(progn
				(vla-put-endpoint line_object (vlax-3d-point point_4))
    			(vla-put-coordinates pline_object pline_coordinates_array)
			)
		)
	)
)


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

(defun c:2_Color_Rect (/ modelSpace_object point_1 getting_point_3 rect_exists groups_collection group_sset group_index error_ocurred gread_data)
	(setq modelSpace_object (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object)))
		  point_1 (getpoint "\nПервая точка диагонали прямоугольника: ")
		  getting_point_3 t
		  rect_exists nil
		  groups_collection (vla-get-groups (vla-get-ActiveDocument (vlax-get-acad-object)))
		  group_sset (ssadd)
		  group_index (getvar 'useri1)
	)
	(while getting_point_3
		(setq error_ocurred (if (vl-catch-all-error-p (setq gread_data (vl-catch-all-apply 'grread (list t 8 0)))) t nil))
    	(cond
			(
				error_ocurred
					(prompt "\nНеверно!")
			)
			(
			   	(= 25 (car gread_data))				;Mouse Right Click
					(setq point_3 (getpoint point_1 "\nВторая точка диагонали прямоугольника: ")
						  getting_point_3 nil
					)
					(draw_rect point_3 point_1 modelspace_object rect_exists)
			)
			(
			   	(= 5 (car gread_data))				;Mouse Moving
					(draw_rect (cadr gread_data) point_1 modelspace_object rect_exists)
			)
			(
				(or
					(equal gread_data (quote (2 32)))		;Space
					(equal gread_data (quote (2 13)))     	;Enter
					(= 3 (car gread_data))				    ;Mouse Left Click
				)
					(setq getting_point_3 nil)

			)
			(
			 	t
					(prompt "\nНеверно!")
			)
		)
	)
	(ssadd (vlax-vla-object->ename line_object) group_sset)
	(ssadd (vlax-vla-object->ename pline_object) group_sset)
	(while (null (vl-catch-all-error-p (vl-catch-all-apply 'vla-item (list groups_collection (setq group_name (strcat "Rect_" (itoa (setq group_index (1+ group_index))))))))))
	(setvar 'useri1 group_index)
	(command "_-group" "_c" group_name "2_Color_Rect" group_sset "")
	(vlax-release-object line_object)
	(vlax-release-object pline_object)
	(princ)
)

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