[prajdziswet]

1) Начну с простотого -торможу по страшному (даж стыдно спрашивать), давно не работал в редакторе Visual Lisp: после изменения лиспа выскакивает сообщение "тект был изменен" - скидвал трасировку, нажимал кнопку сохранить файл(лисп), проверял лисп, но с новыми измами нехочет (и не помню как давно делал, вроде сохранение помогало, но не хочет)... Как применить измы?
2) есть блок с атрибутами,
получаю список:

Код:

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

   (setq atts (vlax-safearray->list 
                       (vlax-variant-value
                         (vla-getattributes din_bl)
                       )))
(foreach tag atts
()
)

Как получить координату, позицию атрибута? (наверное тож оч. просто, можно конечно через обратное преобразование vla-об'екта и entget, а как через актив х)

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

Если меняешь текст кода, останавливай выполнение.
А так - ну попробуй отдампить объект. Увидишь там что-то типа InsertionPoint / TextAlignmentPoint - вот и точка вставки. Сейчас нет под рукой запущенного ACAD'a, так что подробнее не подскажу (

[prajdziswet]

Сообщение от Кулик Алексей aka kpblc Если меняешь текст кода, останавливай выполнение. А так - ну попробуй отдампить объект. Увидишь там что-то типа InsertionPoint / TextAlignmentPoint - вот и точка вставки. Сейчас нет под рукой запущенного ACAD'a, так что подробнее не подскажу (

1) при замене я останавливал код (точнее прерываю красная кнопка), потом изменяю, нажимаю сохранить, загружаю - и пишет "текст изменен" (возможно, что в функции,хотя какая разница// и все думаю, что не так? автокад 2020 -хотя не думаю что в автокаде дело, а может что вла-объекты = так вроде тож не должно...)
И не могу понять в чем дело, а атокад перезапускать не вариант ==все должно быть логично условно просто, а как то он при изме ругается (и все думаю, чтото я слишком торможу, давно (как работал менял) "условно на лету"...
2) да дамп-я смотрел, есть TextAlignmentPoint, все хорошо. Но просто интересует нет что то типа аля "vla-get-point" (расширяю познания)? вроде атрибут, полюбому есть точка вставки или свойства (да и есть в entget и в дампе объекта)=> понятное дело если надо просто точка, то и через обратное (типа entget получить или дамп, просто пытаюсь понять работу через активХ: теоретически почти любой объект имеет точку вставки, базовую точку, точку расположение ==т.е условно базовое свойства объекта)

п.с по 1: есть код не функции просто запуск функции и сама функция, причем самый первый раз на точке останова не останавливает (внутри функции) гружу кнопкой два раза, а потом при изме начинает ругатся..."текст изменен" (и выделяет саму функцию и обрабатывает старое)

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

Сообщение от prajdziswet при замене я останавливал код (точнее прерываю красная кнопка), потом изменяю, нажимаю сохранить, загружаю - и пишет "текст изменен"

Возможно, у тебя там самовызываемый код. Проверяй весь файл.

Сообщение от prajdziswet почти любой объект имеет точку вставки, базовую точку, точку расположение ==т.е условно базовое свойства объекта)

Щщас! Если у атрибута/текста/многострочного текста установлено выравнивание, у такого объекта будет 2 очень интересные точки: https://autolisp.ru/2010/04/06/text-...trib-entities/

[===AAA===]

А если ещё и про "постоянные" атрибуты вспомнить, так за ними
вообще в таблицу блоков лезть придётся...

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

На фига? vla-getconstantattributes в зубы и вперед

[===AAA===]

Может быть.
Я с атрибутами разбирался, когда ещё волшебной (vl-load-com) не существовало. :-)

[prajdziswet]

А как можно глянуть (проверить), что атрибут находится в состоянии видимости блока?
- ато мне независимо от состояния, возращает все атрибуты...

п.с а насчет того "1", что "изменился текст" - самовызывающего кода небыло, точнее у меня был в атозагрузке такая же функция+функция была определена после вызова = поэтому он конфликтовал

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

Попробуй проверять его видимость (vla-get-visibility вроде бы)

[prajdziswet]

Сообщение от Кулик Алексей aka kpblc Попробуй проверять его видимость (vla-get-visibility вроде бы)

наверное другая функция, такой функции нет. в полещуке с visibility, находит все но не то (картинки, сетки)// в лиспе не определяет функцию, может какая твоя (написанная)?
п.с в дампе visibility не менялось (от состояния видимости блока, а в дампе -ничего не меняется, кроме имени vla-об'екта)

----- добавлено через ~7 мин. -----
vla-get-Invisible блин не то

----- добавлено через 34 сек. -----
vla-get-Invisible в обоих случаях вернуло фэлс =((( непонятно

[prajdziswet]

-это vla-get-Invisible =((

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

Скинь пример блока - попробую поковырять. Ну и тэг атрибута тож

[prajdziswet]

Сообщение от Кулик Алексей aka kpblc Скинь пример блока - попробую поковырять. Ну и тэг атрибута тож

pan.zip тэг "ФАЗАПОД" (вроде, не запускал счас лисп, посмотрел в блоке => впринципе там почти любой атрибут,кроме шифра и лист скрывается в малом штампе - там рамка чертежа)
вопрос, допустим атрибут и я хочу определить виден или нет?
а это состояние видимости:



и простейший код tmp11111.lsp

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

Чего получилось по-быстрому. Пример вызова - в комментарии.

Код:

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

 
(vl-load-com)

(defun get-attr-data (ent tag / res)
          ; (get-attr-data (car (entsel)) "фазапод")

  (defun _kpblc-conv-vla-to-list (value / res)
    (cond ((listp value) (mapcar (function _kpblc-conv-vla-to-list) value))
          ((= (type value) 'variant) (_kpblc-conv-vla-to-list (vlax-variant-value value)))
          ((= (type value) 'safearray)
           (if (>= (vlax-safearray-get-u-bound value 1) 0)
             (_kpblc-conv-vla-to-list (vlax-safearray->list value))
           )
          )
          ((and (= (type value) 'vla-object)
                (vlax-property-available-p value'count)
           )
           (vlax-for sub value
             (setq res (cons sub res))
           )
          )
          (t value)
    )
  )

  (if (= (type ent) 'ename)
    (setq ent (vlax-ename->vla-object ent))
  )
  (if (= (type ent) 'vla-object)
    (progn
      (setq res (car (vl-remove-if-not
                       (function
                         (lambda (x)
                           (= (strcase (vla-get-tagstring x)) tag)
                         )
                       )
                       (apply
                         (function append)
                         (mapcar
                           (function
                             (lambda (x) (_kpblc-conv-vla-to-list (vlax-invoke-method ent x)))
                           )
                           '("GetConstantAttributes" "GetAttributes")
                         )
                       )
                     )
                )
            res (list (cons "attref" res)
                      (cons "visible" (vla-get-visible res))
                )
      )
    )
  )
  res
)

[prajdziswet]

Сообщение от Кулик Алексей aka kpblc Чего получилось по-быстрому. Пример вызова - в комментарии.

спасибо, но пока не разбирался - код выдает ошибку:

сначала небыло функции - догрузил с твоей библиотеки,
потом - неверный тип аргумента...
//нагрузили на работе (пока не до этого) => освобожусь, попробую посмотреть где ошибка... (у тебя почти везде проверки, но сходу код не пошел =( //выдает ошибку ) --наверное как в предыдущем примере (когда effective-name выбивал нил и тут наверное, что-то типа такого..)

п.с проверял на том файле (двг), что скидвал

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

Я недавно подправил код, теперь все должно работать нормально. У меня выдавал список из 2 точечных пар ("attref" . <vla-указатель на атрибут>) и ("visible" . <Видимость атрибута -:vlax-true или :vlax-false>)

[prajdziswet]

Сообщение от Кулик Алексей aka kpblc aka kpblc Я недавно подправил код, теперь все должно работать нормально. У меня выдавал список из 2 точечных пар ("attref" . <vla-указатель на атрибут>) и ("visible" . <Видимость атрибута -:vlax-true или :vlax-false>)

Огромное СПАСИБО

[prajdziswet]

Алексей твой код все равно не работает...

Сообщение от prajdziswet наверное другая функция

vla-get-visible. Изначально ты правильно говорил, только не vla-get-visibility, а "vla-get-visible" (и я не то искал и не нашел) => у тебя в коде подсмотрел - вставил в свой код и он заработал (СПАСИБО большое).

п.с а твой код почему то не работает, почемуто res возращает nil....
п.с2 и похорошему мне она и надо было vla-get-visible

[kp+]

Сообщение от prajdziswet атрибут находится в состоянии видимости блока?.... vla-get-visible

Позанудствую ...
Видимость атрибута, которая регулируется свойством visible, можно переключать и в статическом блоке. К состоянию видимости блока (которое регулирует видимость любых примитивов, относящихся к немуг) это свойство отношения не имеет.

Работать с состояниями видимости блока через лисп - тот еще квест... С ней и штатными средствми чокнуться можно...

[prajdziswet]

Сообщение от kp+ Позанудствую ... Видимость атрибута, которая регулируется свойством visible, можно переключать и в статическом блоке. К состоянию видимости блока (которое регулирует видимость любых примитивов, относящихся к немуг) это свойство отношения не имеет. Работать с состояниями видимости блока через лисп - тот еще квест... С ней и штатными средствми чокнуться можно...

Незнаю, что оно "регулирует -нерегулирует" - но работает на динамическом блоке (в моем случае сработало), а вот invisible - только фэлс
п.с на какомто форуме встречал что 70 или 60 свойства dxf, тож возращает видимость (но не проверял)