[Hanadzono]

В AutoLisp не разбираюсь. Автокад в текстовой строке в свойствах размерной линии не понимает функцию <>\X(<>), лишь только \X(<>) или <>\X(). Версия AutoCad 2020. Пробовал прописывать как (defun C:TESTBERT () (if (> 5000 <>) DIMADD "<>\X(<>)" "<>\X(<>)" "" 5000) (princ) )
;DIMPAV = add PAVEMENT text to dimension, но в этом случае автокад просто не видит функцию при вводе, хотя файл предварительно был успешно загружен в AutoCad.
Нужен код, который позволит автоматически проставлять физ размер автокада над и под размерной линией

[VVA]

Код:

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

;;;Текст над линией
(defun C:DIMUP ()(vl-load-com)(vla-put-textoverride (vlax-ename->vla-object (car(entsel))) "<>"))
;;;Текст под линией
(defun C:DIMDN ()(vl-load-com)(vla-put-textoverride (vlax-ename->vla-object (car(entsel))) "\\X<>"))

[Hanadzono]

Эти две команды строчки кода можно объединить в одну, чтобы прописывалось одновременно и сверху, и снизу?

[VVA]

Нет, текст внизу нужно считать

Код:

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

;;Текст над линией
(defun C:DIMUP ( / obj)
  (vl-load-com)
  (if (setq obj (car(entsel)))
    (progn
      (setq obj (vlax-ename->vla-object obj))
      (vla-put-textoverride obj
      (strcat
        "<>\\X("
        (vla-get-TextPrefix obj)
        (VL-STRING-SUBST
          (getvar "DIMDSEP")
          "."
          (rtos (vla-get-Measurement obj)
              (vla-get-UnitsFormat obj)
              (vla-get-PrimaryUnitsPrecision obj)
              )
          )
              (vla-get-TextSuffix obj)
        ")")
        )
      )
    )
  (princ)
  )