[config]

Доброго времени суток, уважаемые форумчане. Подскажите, как можно уменьшить количество знаков после запятой в атрибутах блоков (числа). Спасибо.

[Ilez]

Сообщение от config Доброго времени суток, уважаемые форумчане. Подскажите, как можно уменьшить количество знаков после запятой в атрибутах блоков (числа). Спасибо.

Что Вы имеете ввиду? Атрибут не через ПОЛЕ задан, вручную и меняете.
Если через поле (напр., координата Z), то

[config]

Сообщение от Ilez Что Вы имеете ввиду? Атрибут не через ПОЛЕ задан, вручную и меняете.

Атрибуты в блоках (их сотни), заданы обычным путем, програмно, не через ПОЛЕ. Вручную менять каждый - очень "энергозатратно". А вот как изменить скопом, вопрос остается к сожалению, пока открытым.

[Alan]

Сообщение от config Подскажите, как можно уменьшить количество знаков после запятой в атрибутах блоков (числа).

Ну в данном случае атрибут блока отображает то, что туда занесено.
Каким программным способом вставлялся блок?
Видны следы GeoniCS"a...

[config]

Сообщение от Alan Каким программным способом вставлялся блок? Видны следы GeoniCS"a...

Да нет, в чертеже следы Civila. Но при импорте координат точек в текствый файл с созданием блоков с атрибутами, я использовал программу отсюда.

[Alan]

Сообщение от config Но при импорте координат точек в текствый файл

А попробуй установи ПЕРЕД импортом luprec=3

Код:

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

Команда: luprec

Новое значение LUPREC <4>: 3

[config]

Сообщение от Alan Команда: luprec Новое значение LUPREC <4>: 3

К сожалению не помогает. При импорте атрибуты отметок точек импортируются с 10 знаками после запятой.

[Alan]

Тогда напиши авторам программы.
В видео они еще подчёркивали, что получается 3 знака после запятой...
Или прямо в отзывах на стр. с программой

[freese]

формат - единицы - точность



потом _regenall

[config]

freese, спасибо, но Alan, в #6 это уже предлагал.

[P_S]

Приходит в голову что-то вроде:

Код:

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

 (vl-load-com)
(initget 7)
  (setq okr (getint "\nКоличество знаков округления :"))
(foreach z
(apply 'append 
(mapcar '(lambda (x) (vlax-safearray->list(vlax-variant-value(vla-GetAttributes(vlax-ename->vla-object x)))))
	(vl-remove-if
    'listp
    (mapcar
      (function cadr)
      (ssnamex
        (ssget "_X" '((0 . "INSERT")(2 . "_ИМЯ_БЛОКА_")))))))
  )
(if(=(vlax-get-property z 'TagString)"_ИМЯ_АТРИБУТА")
  (progn(setq no(rtos (atof (vl-string-translate "," "."(vlax-get-property z 'TextString))) 2 okr))
    (cond
       ((not(vl-string-position 46 no))
        (progn(setq no (strcat no "."))(repeat okr(setq no(strcat no "0")))))
       ((zerop(1+(- okr(-(strlen no)(vl-string-position 46 no))))) no)
       (T(setq no(repeat(1+(- okr(-(strlen no)(vl-string-position 46 no))))(setq no(strcat no "0"))))))
 (vlax-put-property z 'TextString no))) 
)

[config]

P_S, спасибо Вам огромное! Супер! Лисп работает как нужно.

[ssn]

можно и без лиспа.
делаем экспорт атрибутов в эксель, там уменьшаем точность до нужного значения и делаем импорт обратно в автокад.
хотя лисп конечно прикольнее ))

[Alan]

Сообщение от config Супер! Лисп работает как нужно.

К сожалению эти оба решения требуют дополнительных телодвижений.
Свяжись с разработчиками. Они с удовольствием исправят тот косяк в их программе или дадут решение.
Я бы в той прожке анализировал luprec и вставлял соответственно или добавил кнопку "Точность".

[config]

Сообщение от Alan Свяжись с разработчиками. Они с удовольствием исправят тот косяк в их программе или дадут решение.

Да, немного разргебу работу (поднакопилось) и обязательно задам такой вопрос автору.

[config]

Доброго времени суток. Появилась проблема в лиспом #11. После запроса и выбора количества знаков после запятой, выскакивает такое: ; ошибка: неверный тип аргумента: lselsetp nil Подскажите, в чем может быть проблема? Спасибо.

[sertor]

Сообщение от config ошибка: неверный тип аргумента: lselsetp nil Подскажите, в чем может быть проблема?

Столкнулся недавно с такой задачей. Разумеется, лисп, из #11, по-умолчанию, работать не будет. Но если указать "Имя блока" и "Имя атрибута блока" (скрин), то работает исправно. Может кому-то будет полезно.