[Teftelia]

Прибег я к помощи deepseek, но что-то не работает(
Что просил:
Вот доработанная лисп-функция, которая не только выбирает размеры с линейным масштабом 1, но и изменяет их цвет на красный (цвет 1)

Код:

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

 (defun c:SelectAndColorDimScale1 (/ ss i ent dimscale count)
  ; Инициализация счетчика
  (setq count 0)
  
  ; Выбираем все размерные объекты в чертеже
  (if (setq all-dims (ssget "_X" '((0 . "DIMENSION"))))
    (progn
      ; Перебираем все найденные размеры
      (setq i 0)
      (repeat (sslength all-dims)
        (setq ent (ssname all-dims i))
        (setq dimscale (cdr (assoc 40 (entget ent))))
        
        ; Проверяем масштаб размерного стиля (группа 40)
        (if (equal dimscale 1.0 0.0001)
          (progn
            ; Изменяем цвет размера на красный (цвет 1)
            (setq ent-data (entget ent))
            (setq ent-data (subst (cons 62 1) (assoc 62 ent-data) ent-data))
            (entmod ent-data)
            (entupd ent)
            
            ; Увеличиваем счетчик
            (setq count (1+ count))
          )
        )
        
        (setq i (1+ i))
      )
      
      ; Выводим сообщение о результате
      (prompt (strcat "\nОбработано " (itoa count) " размеров с масштабом 1. Им назначен красный цвет."))
    )
    (prompt "\nВ чертеже нет размерных объектов.")
  )
  
  (princ)
)

В чертежах используется много масштабов, поэтому есть такой этап проверки когда все размеры разукрашиваю, чтобы визуально проверить не забыл ли где поменять масштабный коэффициент.
Масштаб меняется в свойствах.

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

1. Ставь точку останова в VLIDE и пошагово проходи. По крайней мере увидишь место ошибки
2. Доверять ИИ в части лиспа - ну так себе затея.

[Teftelia]

del

----- добавлено через ~28 мин. -----
Короче вобще мимо ии делает, либо не понимает.

По сути нужно выбрать все размеры в файле и параллельные и диаметральные.
Потом у этих размеров нужно посмотреть DIMLFAC
Если оно равно 1 то все примитивы такие перекрасить в красный
Если равно 1/2 то перекрасить в синий

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