[МишаИнженер]

Задача: получить значение веса линии у выбранного объекта и назначить полученный вес линии текущим.
Применяю код ЛИСП

Код:

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

 
(setq cLWeight0 (assoc 370 dan))
(setq cLWeight (cdr cLWeight0))

Однако переменная cLWeight получает значение nil
Какой надо использовать код DXF чтобы получить вес линии?

[name02]

Насколько помню, если вес линий "послою" 370 код отсутствует, "поблоку" равен -2, для установленных значений весов уже будет присутствовать
Попробуй (entget(car(entsel))) и посмотри различия

[===AAA===]

Выведи на экран весь список dan и посмотри, есть ли он там вообще.

[МишаИнженер]

Спасибо за ответы! Задал вес линии 0,05. Получил cLWeight =5.
Далее пытаюсь назначить тикущий вес линий и надо перед этим получить cLWeight =0.05. Но не удается получить 0.05
Почему код

Код:

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

 
(setq cLWeight  5)
(setq cLWeight (/ cLWeight 100))

Возвращает 0?
Что надо сделать чтобы получалось 0.05?

[name02]

Дело в том, что для компьютера есть несколько разных типов чисел. В частности есть числа типа REAL и типа INTEGER.
Числа типа INTEGER имеют только целую часть, а REAL - "обычные" числа с дробной частью (она может быть равна 0).
Соответственно Lisp по разному работает с ними, что собственно у тебя и произошло:

Код:

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

 
(setq cLWeight  5) ;указав здесь 5, ты задал тип данных INTEGER

(print (type cLWeight)) ;что и видно

;чтобы задать число типа REAL, нужно указывать число с десятичной точкой (или с дробной частью)
(setq cLWeight  5.)

;Проверяем
(print (type cLWeight))

Потом ты опять-таки делишь свое число на INTEGER и получаешь INTEGER.

Положи себе в закладки ссылку на справку Автодеска по Lisp и не забывай в нее смотреть

[remoteworker]

acLnWt005

[МишаИнженер]

Мне надо присвоить системной переменной "CELWEIGHT" присвоить толщину линий 0,05
Вместо 0,05 надо указывать 5
Но не получается:

Код:

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

 
(setvar "CELWEIGHT" cLWeight)

Что значит ошибка выполнения: "; ошибка: неверный тип аргумента: stringp 5"
Строка

Код:

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

 
(setvar "CELWEIGHT" (rtos cLWeight))

Тоже выдает ошибку: "; ошибка: Настройка переменной AutoCAD отвергнута: "CELWEIGHT" "5""
Как на ЛИСП присвоить системной переменной CELWEIGHT значение 5?

[remoteworker]

(setvar "CELWEIGHT" acLnWt005)

[===AAA===]

Здесь

(setvar "CELWEIGHT" (rtos cLWeight))

rtos - лишнее.

Ты пытаешься засунуть в эту системную переменную СТРОКУ
(т.е. текстовое значение числа), а она хочет именно ЧИСЛО.

Для LISP'а это три разных значения

5 - целое число
5.0 - действительное число
"5" или "5.0" - текстовая строка

Человеку - без разницы, компьютеру - нет.

[МишаИнженер]

Сообщение от remoteworker (setvar "CELWEIGHT" acLnWt005)

Добавил такую строку в код программы и изучил разницу между acLnWt005 и цифрой 5. Разницы не нашлось.
Но на присвоении цифры 5 возникает ошибка. Почему это происходит? И чем отличается acLnWt005 от цифры 5?

Код:

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

 
(while (setq el (car (entsel "\n Выбери объект:")))
;entsel выдает имя объекта и все остальное, car - Извлекает первый элемент из списка: имя объекта
;команды которые должны выполняться в цикле пока не будет пустой ввод
  (setq dan (entget el));получает список с характеристиками примитива
  (setq name0 (assoc 0 dan)) ;получаем имя объекта
  (setq name (cdr name0))
  (princ name)
  (alert (strcat "Был выбран " name))
  (setq cLayer0 (assoc 8 dan)) ;получаем имя объекта
  (setq cLayer (cdr cLayer0))
  (setq cLWeight0 (assoc 370 dan)) ;получаем текущий вес линии
  (setq cLWeight (cdr cLWeight0))
  
;Назначим текущим слой выбранного объекта (setvar "clayer" <имя слоя>)
  (setvar "clayer" cLayer)
  (princ (strcat (chr 10) "Был назначен текущий слой " (chr 34) cLayer (chr 34)))
;Назначим текущий вес линий
  (if (eq cLWeight nil) (progn
	(setvar "CELWEIGHT" -1)
	(princ (strcat (chr 10) "Был назначен текущий вес линий " (chr 34) "ПоСлою" (chr 34)))
	)
	(progn
	(setvar "CELWEIGHT" acLnWt005)
	(setvar "CELWEIGHT" (rtos cLWeight))
	(princ (strcat (chr 10) "Был назначен текущий вес линий " (chr 34) cLWeight (chr 34)))
	)
   )
;В зависимости от выбранного объекта
; (findstring
)

[===AAA===]

(setvar "CELWEIGHT" acLnWt005)
(setvar "CELWEIGHT" (rtos cLWeight))

Не, ну нормально!

Сперва ты пытаешься засунуть несуществующую переменную acLnWt005,
а потом туда же всунуть текстовую строку. :-)

[МишаИнженер]

Такой вариант тоже не работает

Код:

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

 
	(setvar "CELWEIGHT" acLnWt005)
	(setvar "CELWEIGHT" cLWeight)

Выдает ошибку: "; ошибка: неверный тип аргумента: stringp 5"

Код:

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

 
(while (setq el (car (entsel "\n Выбери объект:")))
;entsel выдает имя объекта и все остальное, car - Извлекает первый элемент из списка: имя объекта
;команды которые должны выполняться в цикле пока не будет пустой ввод
  (setq dan (entget el));получает список с характеристиками примитива
  (setq name0 (assoc 0 dan)) ;получаем имя объекта
  (setq name (cdr name0))
  (princ name)
  (alert (strcat "Был выбран " name))
  (setq cLayer0 (assoc 8 dan)) ;получаем имя объекта
  (setq cLayer (cdr cLayer0))
  (setq cLWeight0 (assoc 370 dan)) ;получаем текущий вес линии
  (setq cLWeight (cdr cLWeight0))
  
;Назначим текущим слой выбранного объекта (setvar "clayer" <имя слоя>)
  (setvar "clayer" cLayer)
  (princ (strcat (chr 10) "Был назначен текущий слой " (chr 34) cLayer (chr 34)))
;Назначим текущий вес линий
  (if (eq cLWeight nil) (progn
	(setvar "CELWEIGHT" -1)
	(princ (strcat (chr 10) "Был назначен текущий вес линий " (chr 34) "ПоСлою" (chr 34)))
	)
	(progn
	(setvar "CELWEIGHT" acLnWt005)
	(setvar "CELWEIGHT" cLWeight)
	(princ (strcat (chr 10) "Был назначен текущий вес линий " (chr 34) cLWeight (chr 34)))
	)
   )
)

[===AAA===]

Ну давай смотреть, что там такое.

Перед:

(setvar "CELWEIGHT" cLWeight)

Пиши:

(print cLWeight)
(print (type cLWeight))

Что выводят команды (print) ?

Но у тебя просто вылетает на

(setvar "CELWEIGHT" acLnWt005)

ну нет же такой переменной! Убери эту строку или закомментируй.

[МишаИнженер]

acLnWt005 это внутренне определения веса линии толщиной 0,05.
Строка (setvar "CELWEIGHT" cLWeight) отрабатывает нормально.
В следующей строке я назначаю вместо acLnWt005 число 5 так как если в командную строку после команды CELWEIGHT ввести число 5 то Акад нормально понимает, что текущая толщина линий 0,05.
А вот на лиспе просто указать число 5 не проходит появляется ошибка.
Получается надо создать функцию находящую соответствие между значением cLWeight и внутренними константами: (acLnWt000 acLnWt005 acLnWt009 acLnWt013 acLnWt015 acLnWt018 acLnWt020 acLnWt025 acLnWt030 acLnWt035 acLnWt040 acLnWt050 acLnWt053 acLnWt060 acLnWt070 acLnWt080 acLnWt090 acLnWt100 acLnWt106 acLnWt120 acLnWt140 acLnWt158 acLnWt200 acLnWt211)
И затем уже эту константу указывать "вместо числа 5"
Но как написать такую функцию?
Попробовал поменять функцию:

Код:

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

 
(while (setq el (car (entsel "\n Выбери объект:")))
;entsel выдает имя объекта и все остальное, car - Извлекает первый элемент из списка: имя объекта
;команды которые должны выполняться в цикле пока не будет пустой ввод
  (setq dan (entget el));получает список с характеристиками примитива
  (setq name0 (assoc 0 dan)) ;получаем имя объекта
  (setq name (cdr name0))
  (princ name)
  (alert (strcat "Был выбран " name))
  (setq cLayer0 (assoc 8 dan)) ;получаем имя объекта
  (setq cLayer (cdr cLayer0))
  (setq cLWeight0 (assoc 370 dan)) ;получаем текущий вес линии
  (setq cLWeight (cdr cLWeight0))
  
;Назначим текущим слой выбранного объекта (setvar "clayer" <имя слоя>)
  (setvar "clayer" cLayer)
  (princ (strcat (chr 10) "Был назначен текущий слой " (chr 34) cLayer (chr 34)))
;Назначим текущий вес линий
  (cond ((eq cLWeight nil)
		(setvar "CELWEIGHT" -1)
		(princ (strcat (chr 10) "Был назначен текущий вес линий " (chr 34) "ПоСлою" (chr 34)))
		)
	((eq cLWeight -2)
		(setvar "CELWEIGHT" -2)
		(princ (strcat (chr 10) "Был назначен текущий вес линий " (chr 34) "ПоБлоку" (chr 34)))
		)
	((eq cLWeight -3)
		(setvar "CELWEIGHT" -3)
		(princ (strcat (chr 10) "Был назначен текущий вес линий " (chr 34) "ПоУмолчанию" (chr 34)))
		)
	(1 
		(setvar "CELWEIGHT" cLWeight)
		(princ (strcat (chr 10) "Был назначен текущий вес линий " (chr 34) (rtos (/ cLWeight 100.0)) (chr 34)))
	)
   )
)

Вот так все заработало

[===AAA===]

Господи, зачем сложно-то так?
Получил вес линии из примитива - ну и закидывай его в CELWEIGHT.
Хоть 5, хоть 5.0 - через (setvar ) любое сгодится, кроме "5.0" /текст/.
Зачем здесь вообще эти внутренние переменные?

И да - эта 5 сразу же будет соответствовать 0,05 - ничего дополнительно
преобразовывать не нужно.

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

Пока печатал, код был изменен.

----- добавлено через ~3 мин. -----

Сообщение от МишаИнженер acLnWt005 это внутренне определения веса линии толщиной 0,05. Строка (setvar "CELWEIGHT" cLWeight) отрабатывает нормально. В следующей строке я назначаю вместо acLnWt005 число 5 так как если в командную строку после команды CELWEIGHT ввести число 5 то Акад нормально понимает, что текущая толщина линий 0,05. А вот на лиспе просто указать число 5 не проходит появляется ошибка. Получается надо создать функцию находящую соответствие между значением cLWeight и внутренними константами: (acLnWt000 acLnWt005 acLnWt009 acLnWt013 acLnWt015 acLnWt018 acLnWt020 acLnWt025 acLnWt030 acLnWt035 acLnWt040 acLnWt050 acLnWt053 acLnWt060 acLnWt070 acLnWt080 acLnWt090 acLnWt100 acLnWt106 acLnWt120 acLnWt140 acLnWt158 acLnWt200 acLnWt211) И затем уже эту константу указывать "вместо числа 5" Но как написать такую функцию? Попробовал поменять функцию: Код: [Выделить все] (while (setq el (car (entsel "\n Выбери объект:"))) ;entsel выдает имя объекта и все остальное, car - Извлекает первый элемент из списка: имя объекта ;команды которые должны выполняться в цикле пока не будет пустой ввод (setq dan (entget el));получает список с характеристиками примитива (setq name0 (assoc 0 dan)) ;получаем имя объекта (setq name (cdr name0)) (princ name) (alert (strcat "Был выбран " name)) (setq cLayer0 (assoc 8 dan)) ;получаем имя объекта (setq cLayer (cdr cLayer0)) (setq cLWeight0 (assoc 370 dan)) ;получаем текущий вес линии (setq cLWeight (cdr cLWeight0)) ;Назначим текущим слой выбранного объекта (setvar "clayer" <имя слоя>) (setvar "clayer" cLayer) (princ (strcat (chr 10) "Был назначен текущий слой " (chr 34) cLayer (chr 34))) ;Назначим текущий вес линий (cond ((eq cLWeight nil) (setvar "CELWEIGHT" -1) (princ (strcat (chr 10) "Был назначен текущий вес линий " (chr 34) "ПоСлою" (chr 34))) ) ((eq cLWeight -2) (setvar "CELWEIGHT" -2) (princ (strcat (chr 10) "Был назначен текущий вес линий " (chr 34) "ПоБлоку" (chr 34))) ) ((eq cLWeight -3) (setvar "CELWEIGHT" -3) (princ (strcat (chr 10) "Был назначен текущий вес линий " (chr 34) "ПоУмолчанию" (chr 34))) ) (1 (setvar "CELWEIGHT" cLWeight) (princ (strcat (chr 10) "Был назначен текущий вес линий " (chr 34) (rtos (/ cLWeight 100.0)) (chr 34))) ) ) ) Вот так все заработало

Хоть убей не понимаю пары вещей. Первое - на фига там while. Второе - что будет, когда пользователь нажмет Esc в момент выбора

----- добавлено через ~10 мин. -----

Код:

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

 (defun t1 (/ ent)
  (if (= (type
           (setq ent (vl-catch-all-apply (function (lambda () (car (entsel "\nВыберите объект <Отмена> : "))))))
         ) ;_ end of type
         'ename
      ) ;_ end of =
    (progn
      (setq ent (entget ent))
      (setvar "celweight"
              (cond ((cdr (assoc 370 ent)))
                    (t (cdr (assoc 370 (entget (tblobjname "layer" (cdr (assoc 8 ent)))))))
              ) ;_ end of cond
      ) ;_ end of setvar
      (princ (strcat "\nУстановлен вес линии "
                     (cond
                       ((= (getvar "celweight") -3) "\"По умолчанию\"")
                       ((= (getvar "celweight") -2) "\"По блоку\"")
                       (t (rtos (/ (getvar "celweight") 100.) 2 2))
                     ) ;_ end of cond
             ) ;_ end of strcat
      ) ;_ end of princ
    ) ;_ end of progn
  ) ;_ end of if
  (princ)
) ;_ end of defun

ИМХО так будет проще

[МишаИнженер]

Сообщение от ===AAA=== Получил вес линии из примитива - ну и закидывай его в CELWEIGHT.

Ветвление необходимо для вывода отчета о назначенном значении в текстовом виде.
Программа постоянно отчитывается о том, что она назначает.
Это очень удобно и коммуникабельно. Легко потом в листинге проверить что было назначено.

----- добавлено через ~4 мин. -----

Сообщение от Кулик Алексей aka kpblc на фига там while

Пользователь может ошибочно выбрать не тот объект, по которому ему надо настроить чертежные настройки. Если он захочет выбрать ещё раз нужный объект у него есть для этого возможность. Можно выбирать сколько угодно пока не выбрать пустоту экрана или нажать ESC (это тоже работает, проверял).
В вашем коде немного мне понятно на 35%. Спасибо! Потом наверное разберусь получше.