[AcidBurn23071985]

Всем привет!
Помогите написать LISP cartesian_polar
для записи полярных координат вершин полилинии в CSV-файл.
Набросок кода ниже.
Заранее благодарю!

Решение от koMon.
Спасибо!

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

А зачем вообще преобразование во vlax-variant ?

[AcidBurn23071985]

Убрал преобразование, код выше, ошибка та же...

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

Блин, да убери ты эти ненужные преобразования во vla. Все данные и так есть - читай DXF Reference.

[AcidBurn23071985]

Теперь "; ошибка: неверный тип аргумента: consp -5.24781". Я вообще не специалист в Lisp, помогите, пожалуйста...

[kp+]

(assoc 10 (entget (car obj)))
выдаст не список всех "точечных пар" с кодом 10, а только первую. А после cdr от нее останется только список координат одной вершины, потому и ошибка.
И вовсе не обязательно изобретать велосипед. Коды извлечения списка прямоугольных координат вершин полилинии легко находятся поиском, даже несколько вариантов. Остается пройтись по результату функцией преобразования в полярные координаты.

[AcidBurn23071985]

kp+, нашёл несколько вариантов, но не нашёл функции преобразования в полярные координаты...
Обычно использую geo_table, но код слишком сложный, прикрутить туда преобразование в полярные координаты не смогу.

[===AAA===]

...но не нашёл функции преобразования в полярные координаты...

Да ладно!

Обычный прямоугольный треугольник.

Катеты знаем (декартовы координаты).

А дальше "Квадрат гипотенузы равен сумме ... " +
одна тригонометрическая формула для вычисления
угла.

Школьный курс геометрии.

Реально проще самому программу составить, чем
найти эти несколько строк в готовом виде. :-)

[AcidBurn23071985]

Алексей, спасибо за курс геометрии, но хотелось бы в виде LISP. ))

[kp+]

не нашёл функции преобразования в полярные координаты...

Ну так своя есть, начиная с (while (< i n)

Здесь еще можно посмотреть: https://forums.autodesk.com/t5/visua...e/td-p/8938179

[AcidBurn23071985]

kp+, не осилю...

[===AAA===]

спасибо за курс геометрии, но хотелось бы в виде LISP

Ну, LISP - так LISP.

См. описание функций (distance ...) и (angle ...)

между точкой (0 0) и своей (X Y)

"полярнистее" и не придумать, пожалуй. :-)

[koMon]

Сообщение от AcidBurn23071985 Но функция rec не нуждается в определении - она уже определена в строке (dolist (rec ent) ...).

ещё как нуждается. в упомянутой строке она не определяется, а вызывается. функция должна определятся внутри (defun rec ()...)
(ssget '((-4 . "<OR") (0 . "LWPOLYLINE")(-4 . "OR>"))))??? ==> (ssget '((0 . "LWPOLYLINE")))
функции dolist нет в автолиспе
тз стремительно видоизменяется))) откуда код? chat gpt потрудился?

[AcidBurn23071985]

koMon
Предыдущие версии пробовал писать сам, последняя уже из ChatGPT.
Смысл ТЗ не меняется, но вот решение не находится. ))

[===AAA===]

Да там бред какой-то, а не код...

[koMon]

AcidBurn23071985,
ну можно например так.

Код:

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

 

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

(defun c:cartesian_polar (/ pline_sset csv_filename_full csv_id index)

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

	(defun get_csv_filename (extension / output_name csv_filename)
			(setq output_name (strcat (vlax-get (vla-get-activedocument (vlax-get-acad-object)) 'path)
							   		  "\\"
									  (vl-filename-base (vlax-get (vla-get-activedocument (vlax-get-acad-object)) 'name))
							  )
			)
			(if (type acet-ui-getfile)
					(setq csv_filename (acet-ui-getfile "Введите имя файла CSV"
									     output_name
									     extension
									     ""
									     1
							   )
					)
					(setq csv_filename (getfiled "Введите имя файла CSV"
								      output_name
								      extension
								      1
							   )
					)
			)
			(if (= "" csv_filename)
				nil
				csv_filename
			)
	)

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

	(defun write_vertices (pline_ename csv_id)
		(foreach vertex (mapcar 'cdr (vl-remove-if-not '(lambda (dxf_group) (= 10 (car dxf_group))) (entget pline_ename)))
			(write-line (strcat ";" (angtos (angle '(0 0 0) vertex) 0 2) ";" (rtos (distance '(0 0 0) vertex) 2 2)) csv_id)
		)
	)

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

	(if (and
			 (setq pline_sset (ssget '((0 . "lwpolyline"))))
			 (setq csv_filename_full (get_csv_filename "csv"))
			 (setq csv_id (open csv_filename_full "w"))
			 (setq index 0)
		)
			(progn
				(foreach pline (vl-remove-if 'listp (mapcar 'cadr (ssnamex pline_sset)))
					(write-line (strcat "Полилиния " (itoa (setq index (1+ index))) ";Угол;Расстояние")  csv_id)
					(write_vertices pline csv_id)
				)
				(close csv_id)
				(princ (strcat "Файл \"" csv_filename_full "\" записан"))
			)
	)
	(princ)
)

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

[AcidBurn23071985]

koMon
Большое спасибо! Всё работает!

[AcidBurn23071985]

Можно в этой же теме спросить, как построить полилинию по полярным координатам?
Обычно ввожу в AutoCAD команду _pline и вставляю в командную строку сцепку координат X,Y из Excel.
В итоге за доли секунд получается линия, нарисованная чётко по заданным координатам.
Тут выделяю в cartesian_polar.xlsx (в посте #1) сцепку @радиус<угол в D25:D206, но получается ерунда. ))
Тему "pline в полярных координатах" видел, перевести угол в радианы тоже пробовал - не помогло.
ЧЯДНТ?

[koMon]

нужно в экселе создать колонку X как радиус*cos угла, колонку Y как радиус*sin угла и из них сделать сцепку для команды _pline для построения полилинии в декартовых координатах.

[AcidBurn23071985]

koMon, спасибо, выручили! Если перевести угол в радианы, всё отлично!