[Ingpro]

Есть код 2008 года Полилиния с одной/двумя стрелками на концах https://www.theswamp.org/index.php?t...2814#msg252814

Код:

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

 (defun c:ArPline (/ ActDoc CurSpace StPt NumList VecList tempPt Ang tempPt2 Ang2 PtMsg)
	; Draw a single polyline with arrow heads on (both) end(s), with the ability to change the width of the main body, and set the
	;  length of the arrow head(s) and width.
	;  Global variables:
	;  [ GlbVarHeadType ] = Single or Double
	;  [ GlbVarBodyWidth ] = Width of main part of polyline
	;  [ GlbVarArrowLength ] = Length of arrow head
	;  [ GlbVarArrowWidth ] = Width of arrow head at wide part
	
	(setq ActDoc (vla-get-ActiveDocument (vlax-get-Acad-Object)))
	(setq CurSpace
		(vlax-get
			ActDoc
			(if (equal (getvar 'CVport) 1)
				'PaperSpace
				'ModelSpace
			)
		)
	)
	(if (not GlbVarHeadType)
		(setq GlbVarHeadType "Single")
	)
	(if (not GlbVarBodyWidth)
		(setq GlbVarBodyWidth 0.0)
	)
	(if (not GlbVarArrowLength)
		(progn
			(setq GlbVarArrowLength (getdist "\n Enter length of arrow head: "))
			(setq GlbVarArrowWidth (getdist "\n Enter width of arrow head: "))
		)
	)
	(while (not (equal (type StPt) 'LIST))
		(initget "Single Double Arrow Body")
		(setq StPt
			(getpoint
				(strcat
					"\n Arrow length = "
					(rtos GlbVarArrowLength)
					", Arrow width = "
					(rtos GlbVarArrowWidth)
					", Body width = "
					(rtos GlbVarBodyWidth)
					", Head(s) = "
					GlbVarHeadType
					"\n Select first point [Single/Double headed/Arrow options/Body width]: "
				)
			)
		)
		(if (equal (type StPt) 'STR)
			(cond
				((= StPt "Arrow")
					(setq GlbVarArrowLength (getdist "\n Enter length of arrow head: "))
					(setq GlbVarArrowWidth (getdist "\n Enter width of arrow head: "))
				)
				((= StPt "Body")
					(setq GlbVarBodyWidth (getdist "\n Enter width for main part of pline: "))
				)
				(T
					(setq GlbVarHeadType StPt)
				)
			)
		)
	)
	(if
		(and
			StPt
			(equal (type StPt) 'LIST)
			(setq VecList (list StPt 1))
			(setq StPt (trans StPt 1 0))
			(setq NumList (list (cadr StPt) (car StPt)))
			(setq PtMsg "\n Select next point [Undo]: ")
		)
		(while
			(and
				(not (initget "Undo"))
				(setq tempPt (getpoint (car VecList) PtMsg))
			)
			(setq PtMsg "\r Select next point [Undo]: ")
			(if (= tempPt "Undo")
				(if (> (length NumList) 2)
					(progn
						(redraw)
						(setq NumList (cddr NumList))
						(if (> (length VecList) 2)
							(setq VecList (cdddr VecList))
						)
						(if (> (length VecList) 2)
							(progn
								(setq LastPt (trans (car VecList) 1 0))
								(setq Ang2 (angle LastPt (trans (cadddr VecList) 1 0)))
								(grvecs (reverse (cddr VecList)))
							)
						)
						(if
							(and
								(= GlbVarHeadType "Double")
								(equal (length NumList) 4)
							)
							(progn
								(setq NumList (cddr NumList))
								(setq Ang nil)
							)
						)
					)
					(setq PtMsg "\r   Cannot undo any futher.\n Select next point [Undo]: ")
				)
				(progn
					(setq LastPt (trans (car VecList) 1 0))
					(setq VecList
						(cons
							tempPt
							(cons
								1
								(cons tempPt VecList)
							)
						)
					)
					(setq tempPt (trans tempPt 1 0))
					(if
						(and
							(= GlbVarHeadType "Double")
							(not Ang)
						)
						(progn
							(setq Ang (angle StPt tempPt))
							(setq tempPt2 (polar StPt Ang GlbVarArrowLength))
							(setq NumList
								(cons
									(cadr tempPt2)
									(cons
										(car tempPt2)
										NumList
									)
								)
							)
						)
					)
					(setq Ang2 (angle tempPt LastPt))
					(setq LastPt tempPt)
					(setq NumList
						(cons
							(cadr tempPt)
							(cons (car tempPt) NumList)
						)
					)
					(grvecs (reverse (cddr VecList)))
				)
			)
		)
	)
	(redraw)
	(if (> (length NumList) 2)
		(progn
			(setq tempPt2 (polar LastPt Ang2 GlbVarArrowLength))
			(setq NumList
				(append
					(list (car NumList) (cadr NumList))
					(cons
						(cadr tempPt2)
						(cons
							(car tempPt2)
							(cddr NumList)
						)
					)
				)
			)
			(setq PlObj (vlax-invoke CurSpace 'AddLightWeightPolyline (reverse NumList)))
			(vla-put-ConstantWidth PlObj GlbVarBodyWidth)
			(vla-SetWidth PlObj (- (/ (length NumList) 2) 2) GlbVarArrowWidth 0.0)
			(if (= GlbVarHeadType "Double")
				(vla-SetWidth PlObj 0 0.0 GlbVarArrowWidth)
			)
		)
	)
	(princ)
)

У меня в AutoCAD 2015 rus выдает ошибку:
Команда: ARPLINE ; ошибка: неверный тип аргумента: numberp: nil
Подскажите, пожалуйста, как можно исправить... Спасибо.

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

Советую загрузить код в VLIDE, поставить точку останова и смотреть пошагово, что и где идет не так. Ну и заодно выставить "Break on error" в меню "Debug".

[Ingpro]

После

Сообщение от Кулик Алексей aka kpblc поставить точку останова

выскакивает окно Инфо :callback-entry
останавливается на 87 строке, или я неправильно понимаю

Код:

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

 (if (> (length VecList) 2)

а что с этим делать?

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

Значит в какой-то момент VecList становится nil. На строке 84 надо проверять длину VecList, выяснять, откуда оно вообще берется и теде. Я не зря говорю про точку останова и пошаговое выполнение кода

[Ingpro]

Сообщение от Кулик Алексей aka kpblc надо проверять длину VecList

Мне это ни о чём не говорит, к сожалению...

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

Ну, тогда можно обратиться в тему https://forum.dwg.ru/showthread.php?t=22894 (обучение на примере) и спросить почему код не срабатывает.
Кстати, не помешает пример dwg и описание последовательности действий, которые приводят к такой ошибке.

[Ingpro]

Сообщение от Кулик Алексей aka kpblc Кстати, не помешает пример dwg и описание последовательности действий, которые приводят к такой ошибке.

Команда просит ввести 1-ю - 2-ю точки и ; ошибка: неверный тип аргумента: numberp: nil в любом dwg...

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

Лично мне за пару десятков попыток пока не удалось "поломать" код.

----- добавлено через 41 сек. -----

Сообщение от Ingpro Команда просит ввести 1-ю - 2-ю точки и ; ошибка: неверный тип аргумента: numberp: nil в любом dwg...

Работа в мировой системе координат? Длина стрелки меньше чем длина полилинии?

[Ingpro]

Сообщение от Кулик Алексей aka kpblc Работа в мировой системе координат? Длина стрелки меньше чем длина полилинии?

Да и длина стрелки, конечно, меньше длины PL, мне кажется она должна быть стандартной, как стрелка в размере... На картинке из поста #1 всё видно...

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

Сообщение от Ingpro мне кажется она должна быть стандартной,

Именно что кажется: длину стрелки задает сам пользователь.

[EStranger]

Команда просит ввести 1-ю - 2-ю точки и ; ошибка: неверный тип аргумента: numberp: nil в любом dwg...

Проверил (Acad2023) - загрузил, вызвал команду ArPline, при первом запуске она спросила длину стрелки, ширину стрелки и только потом первую и вторую и т.д. точки. Всё абсолютно корректно отработало и изобразило Pline со стрелкой.
При повторном запуске уже длину и ширину не спрашивает, а сразу спрашивает точки, но можно вызвать опцию Arrow options и поменять ранее введенные длину и ширину стрелки. Какую длину и ширину Вы вводили при первом запуске? Введите снова через опцию Arrow options, ну например, длина 5, ширина 2.5 - все должна отрисовать нормально. Мне тоже непонятно о чем Вы рассуждаете когда говорите: ...мне кажется она должна быть стандартной, как стрелка в размере... Какую ВЫ задали - такая и будет отрисована. Вы её задавали? Если при первом запуске вместо цифр длины и ширины просто нажать Enter, то будет ошибка.

[Ingpro]

Сообщение от EStranger Если при первом запуске вместо цифр длины и ширины просто нажать Enter, то будет ошибка

Спасибо, EStranger, задаю длину и ширину - всё нормально...
Привычка - рисовать ПЛ начиная с нач. точки...

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

Я ж не просто так сказал:

Сообщение от Кулик Алексей aka kpblc не помешает <...> описание последовательности действий, которые приводят к такой ошибке.