Выравнивание Mtext

Выравнивание Mtext · 08.08.2008, 13:41

Здравствуйте!
Попытался создать LISP который выравнивал бы выстроенные Mtextы в одну линию и через определенный интервал.
Mtextы расположенны друг под другом.

Код:

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

(defun ks_fix_mt (lgt / )
  (setq nab (ssget '((0 . "*TEXT"))))
  (setq nab (_dwgru-conv-pickset-to-list nab));;;(<Entity name: 7e0e3538> <Entity name: 7e0e3530>)
  (setq baz (cdr(assoc 10 (entget (car nab))))); координата (x y z)
  (setq i 0.0)
  (foreach item nab
    (setq pt1 (entget item))
    (setq shag (list (car baz) (- (cadr baz) (* lgt i)) 0.0))
    (setq pt1 (substr (cons 10 shag) (assoc 10 pt1) pt1))
    (entmod pt1)
    (setq i (1+ i))
  )
   )

Но почему то код не работает((((((((((
Пишет:

Код:

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

_$ (KS_FIX_MT 700.0)
; error: bad argument type: stringp (10 84320.2 24464.1 0.0)

Подскажите пожалуйста в чем ошибка.
Заранее спасибо!

Дима_ · 08.08.2008, 14:00

чушь написал - исправил

Kostinok · 08.08.2008, 14:09

Дима_,
Я только начинаю изучать LISP, подскажите пожалуйста в чем ошибка.

Дима_ · 08.08.2008, 14:21

Все просто, вместо
(setq pt1 (substr (cons 10 shag) (assoc 10 pt1) pt1))
(setq pt1 (subst (cons 10 shag) (assoc 10 pt1) pt1))

Kostinok · 08.08.2008, 14:26

Дима_,
СПАСИБО!!!! НЕ заметил!!!!

08.08.2008, 13:41		#1
Выравнивание Mtext Kostinok Инженер-электрик Калининград Регистрация: 13.10.2007 Сообщений: 151 Здравствуйте! Попытался создать LISP который выравнивал бы выстроенные Mtextы в одну линию и через определенный интервал. Mtextы расположенны друг под другом. Код: [Выделить все] (defun ks_fix_mt (lgt / ) (setq nab (ssget '((0 . "TEXT")))) (setq nab (_dwgru-conv-pickset-to-list nab));;;(<Entity name: 7e0e3538> <Entity name: 7e0e3530>) (setq baz (cdr(assoc 10 (entget (car nab))))); координата (x y z) (setq i 0.0) (foreach item nab (setq pt1 (entget item)) (setq shag (list (car baz) (- (cadr baz) ( lgt i)) 0.0)) (setq pt1 (substr (cons 10 shag) (assoc 10 pt1) pt1)) (entmod pt1) (setq i (1+ i)) ) ) Но почему то код не работает(((((((((( Пишет: Код: [Выделить все] _$ (KS_FIX_MT 700.0) ; error: bad argument type: stringp (10 84320.2 24464.1 0.0) Подскажите пожалуйста в чем ошибка. Заранее спасибо! __________________ Можно сопротивляться вторжению армий, вторжению идей сопротивляться невозможно. /В. Гюго/ Последний раз редактировалось Kostinok, 08.08.2008 в 14:02.
Просмотров: 2519

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как сосчитать сумму цифр из отдельных мтекстов (и лисп для подсчета спецификаций)	Red Nova	LISP	666	07.06.2023 14:00
Возникла необходимость в суммировании большого количества чисел и забивать каждое число в формулу очень нудно и долго	Макс Тал.	LISP	77	21.12.2016 18:27
арифметические действия между двумя текстовыми элементами	RЯков	AutoCAD	31	09.09.2016 11:13
Копирование содержания текста	МИНЗДРАВ	Программирование	22	30.06.2016 15:54
Увеличение всех отметок на определенную величину	Drweb	Программирование	103	22.01.2016 13:52

	Реклама i