[oktilon]

Есть функция для автоматической простановки размерной цепочки (Dimlinear) на LISP. Каждый размер вставляется через (vl-cmdf "_DimLinear" ...) затем через entlast/entget/entmod/entupd меняются его слой на слой "РАЗМЕРЫ", там же пытаюсь заменить точку привязки размера (DXF код 11) но LISP ее не принимает. Может кто знает как изменить положение текста в размере?

Фрагмент кода программы:
ptS, ptE - точки между которыми ставится размер (они выровнены по горизонтали или вертикали)
dimclayer - имя нужного слоя.
Не срабатывает выделенная красным строка

Код:

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

(setq rDist (distance ptS ptE)
	  alfa (angle ptS ptE)
	  ang (+ alfa (/ pi 2))
	  ptMd (polar ptS alfa (/ rDist 2))
	  ptTx (polar ptMd ang 100)
)
(vl-cmdf "_DimLinear" ptS ptE (polar ptS ang 100))
(setq entDim (entlast)
	  lstDim (entget entDim)
	  lstDim (subst (cons 8 dimclayer) (assoc 8 lstDim) lstDim)
	  lstDim (subst (cons 11 ptTx) (assoc 11 lstDim) lstDim)
)
(ssadd entDim ssDimLine)
(entmod lstDim)
(entupd entDim)

[Do$]

Можно использовать vla:

Код:

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

(defun dim-put-text-position (ent_dim pt)
  ;; ent_dim - ename размера
  ;; pt - точка в ПСК, новое положение текста размера
  ;; Пример вызова: (dim-put-text-position (car (entsel "\nРазмер:")) (getpoint "\nНовое положение текста:"))
  (if (not vlax-ename->vla-object)
    (vl-load-com)
  ) ;_ end of if
  (not (vl-catch-all-error-p
	 (vl-catch-all-apply
	   '(lambda ()
	      (vla-put-TextPosition
		(vlax-ename->vla-object ent_dim)
		(vlax-3d-point (trans pt 1 0))
	      ) ;_ end of vla-put-TextPosition
	    ) ;_ end of lambda
	 ) ;_ end of vl-catch-all-apply
       ) ;_ end of vl-catch-all-error-p
  ) ;_ end of not
) ;_ end of defun

[oktilon]

Спасибо что показал как обходить ошибки VBA в LISP. Я только из-за частых ошибок в VBA не использовал vl* функции.
А для чего используется Лямбда функция?
Чем плох вариант :

Код:

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

(vl-catch-all-apply
	'vla-put-TextPosition
	(list
		(vlax-ename->vla-object entDim)
		(vlax-3D-point ptTx)
	)
)

[Do$]

Да ничем не плох, просто работает по-другому немного.
В таком варианте защищено от ошибки только выполнение функции vla-put-TextPosition со списком, а если, к примеру, будут неправильные типы переменных entDim и ptTx - возникнет ошибка. То есть ошибки при формировании списка не отлавливаются.
В варианте с лямбдой защищены от ошибок все выражения внутри лямбды.