[olga87]

Здравствуйте Уважаемые программисты!

Подскажите пожалуйста, как в коде ниже в подсекцию "(141 . 1.5)" добавить переменную "offset" вместо "1.5"?

Код:

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

(defun c:test ( / offset nab n k el tip)
      (while (not offset)
        (setq offset (getreal (strcat "\nВведите нужный отступ <1.1>: ")))
        (cond
          ((not offset) (setq offset 1.1))
          ((< offset 1.0) (setq offset (prompt "\nЗначение должно быть >= 1")))
          (T)
        )
      )
	  
      (setq nab (ssget))
      (if (not nab) (exit))

  (setq n (sslength nab) k 0)
  (while (> n 0)
    (setq n (1- n) el (ssname nab n))
    (setq tip (cdr (assoc 0 (entget el))))
    ((= tip "MULTILEADER")
        (_mleader_Background el offset)
        (setq k (1+ k))
	)
  )
  (prin1)
)

;Обработка мультивыноски
(defun _mleader_Background ( el offset / par ed part1 part2 item)
  (defun _devide_lst (a spk / part1 part2 n)
    (setq part2 (member a spk) part1 nil)
    (setq n (- (length spk) (length part2)))
    (while (> n 0)
      (setq n (1- n) part1 (cons (nth n spk) part1)))
    (list part1 part2)
    )

  (setq par (if (= *MLBack* "ON")
                      '((141 . 1.5) (291 . 1) (292 . 1))
                      '((141 . 0.0) (291 . 0) (292 . 0))))
  (setq ed (_devide_lst '(302 . "LEADER{") (entget el)))
  (setq part1 (car ed) part2 (cadr ed))
  (foreach item par (setq part1 (subst item (assoc (car item) part1) part1)))
  (entmod (append part1 part2))
)

Заранее спасибо!

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

(list (cons 141 offset) '(291 . 1) '(292 . 1))
Как пример.

[olga87]

Спасибо!