[Abramowich]

Пытаюсь работать в Автокаде 2020. Вроде самоучки

[skkkk]

Abramowich, насколько я знаю, только программно. Вот у меня есть лисп. Указываешь нужную точку (с которой считаются координаты), затем точку полки выноски. Прописывает координаты геодезические в мировой системе координат, то есть, вместо автокадовского X в выноску будет писаться Y и наоборот.
Использовал вспомогательные фунции от VVA

Код:

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

(defun C:KRD ( / pt1 str)
	(if (and
			(setq pt1 (getpoint "\nУкажите точку: "))
			(setq pt2 (getpoint pt1 "\nУкажите положение полки выноски: "))
			(setq str (strcat "X=" (rtos (nth 1 pt1) 2 2) "\/ Y=" (rtos (nth 0 pt1) 2 2)))
		)
		(draw-mleader pt1 pt2 (list str) 0 nil nil)
	)
)
		 
(defun draw-mleader (pt1 pt2 strlist Htxt koeff abz / dic mlst i)
  ;;; pt1 - начальная точка UCS
  ;;; pt2 - конечная точка UCS
  ;;; strlist - список строк
  ;;; Htxt - высота текста
  ;;; koeff - коэфф форматирования pxe или nil
  ;;; abz - коэфф форматирования абзаца \\pa или Nil
  ;;;(draw-mleader (setq pt1(getpoint))(getpoint pt1)(list "Пример" "Минскинжпроект" "Третья строка") 1.5 0.9 nil)
 ;;; Стиль мультивыноски текущий
  (setq i 0)
  (command
    "_mleader"
    "_h"
    "_none"
    pt1
    "_none"
    pt2
  (strcat (if koeff (strcat "\\px"
                              (if abz (strcat "a"(VL-STRING-RIGHT-TRIM "0" (MIP-CONV-TO-STR abz))",") "")
                              "se" (VL-STRING-RIGHT-TRIM "0" (MIP-CONV-TO-STR koeff))";") "")   ;;;"\\pxse0.87;"
;;;            "\\pa0.15;" (car strlist) "\\pa0;"
              (car strlist)
    )
    )
  (while (> (getvar "CMDACTIVE") 0) (command ""))
  (setq dic (vlax-ename->vla-object (entlast)))
  (vla-put-TextString dic
    (strcat (if koeff (strcat "\\px"
                              (if abz (strcat "a"(VL-STRING-RIGHT-TRIM "0" (MIP-CONV-TO-STR abz))",") "")
                              "se" (VL-STRING-RIGHT-TRIM "0" (MIP-CONV-TO-STR koeff))";") "")   ;;;"\\pxse0.87;"
;;;            "\\pa0.15;" (car strlist) "\\pa0;"
              (car strlist)
;;;              (if abz "\\pa0;" "")
            (apply 'strcat
                   (mapcar '(lambda (x) (strcat "\\P" (if (= (setq i (1+ i)) 1)(if abz "\\pa0;" "")   "")  x)) (cdr strlist))
            ) ;_ end of apply
    ) ;_ end of strcat
  )
    (vla-put-TextHeight dic Htxt)
    dic
)

(defun mip-conv-to-str (dat)
      (cond ((= (type dat) 'INT) (setq dat (itoa dat)))
            ((= (type dat) 'REAL) (setq dat (rtos dat 2 12)))
            ((null dat) (setq dat ""))
            (t (setq dat (vl-princ-to-string dat)))
      ) ;_ end of cond
) ;_ end of defun
	
(princ "\nC:KRD")
(princ)

На всякий случай: Как использовать лисп, опубликованный на форуме

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

Только я бы не делал ставку на командное создание мультивыноски. Могут быть варианты: https://autolisp.ru/2015/01/21/mleader_create_order/

[Cfytrr]

можно сделать дин блок с полями в виде выноски, поля покажут координаты

[skkkk]

Кулик Алексей aka kpblc, да, знаю об этой особенности, но с остальными методами еще больше гемора
А тут в крайнем случае нужно один раз вбить вручную нужную опцию, она и сохранится в реестре. Если, конечно, пользователь постоянно не создает мультивыноски вручную, вводя ненужную опцию.

----- добавлено через 38 сек. -----
Cfytrr, действительно, я и не вспомнил сразу о таком варианте.

[Abramowich]

Спасибо, буду разбираться.