[EfremenkoDO]

Пытаюсь отредактировать таким образом. Вне реактора работает нормально. При бработке в реакторе не добавляются координаты точки в командную строку.

Код:

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

...
(progn
       (setq argpoint (car argpoint))
       (setq
	 cmd (strcat "_.eattedit" " "
		     (rtos (nth 0 argpoint) 2)
		     ","
		     (rtos (nth 1 argpoint) 2)
		     ","
		     (rtos (nth 2 argpoint) 2)
	     )
       )
     )
...
(vla-sendcommand
    (vla-get-activedocument (vlax-get-acad-object))
    (strcat (vl-string-trim " " cmd) " ")
  )

Пытаюсь сделать аналог стандартного редактирования, чтоб при двойном щелчке по атрибуту, появлялось окно с подсвеченным атрибутом получившим событие

[Лиспер]

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

[EfremenkoDO]

Реактор стоит на двойной клик, в связи с этим отключен DBLCLKEDIT. По этому приходится именно так редактировать. Впринципе работает, вот только не выделяется в появляющемся окне тот атрибут по которому я щелкал

[Александр Ривилис]

Сообщение от Лиспер В командных реакторах крайне нежелательно использовать командные же методы.

+мульйон. И вообще во всех реакторах.

[EfremenkoDO]

Сообщение от Александр Ривилис +мульйон. И вообще во всех реакторах.

тогда какой другой способ? как обработать команды _bedit и eattedit

[Лиспер]

Получить указатель на обрабатываемый атрибут и (например) задать ему свойство TextString

[EfremenkoDO]

Сообщение от Лиспер Получить указатель на обрабатываемый атрибут и (например) задать ему свойство TextString

как получить указатель на атрибут по точке?

PS TextString заранее не известен. Есть возможность создавать формулы у атрибутов. Так что работа с TextString не прокатит

[Лиспер]

"Формулы у атрибутов" - это поля, что ли?
Получение vla-указателя на атрибут по указателю на блок и тэгу атрибута:

Код:

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

(vl-load-com)

(defun _dwgru-block-attr-by-tag
       (block-ref att-tag / _lsp-conv-vla-to-list)

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

  (if (and (setq att-tag   (strcase att-tag)
                 block-ref (cond
                             ((= (type block-ref) 'ename)
                              (vlax-ename->vla-object block-ref)
                             )
                             ((= (type block-ref) 'vla-object) block-ref)
                           ) ;_ end of cond
           ) ;_ end of setq
           (wcmatch (vla-get-objectname block-ref) "*BlockRef*")
      ) ;_ end of and
    (car
      (vl-remove-if-not
        (function
          (lambda (x)
            (wcmatch (strcase (vla-get-tagstring x)) att-tag)
          ) ;_ end of lambda
        ) ;_ end of function
        (append
          (_lsp-conv-vla-to-list (vla-getattributes block-ref))
          (_lsp-conv-vla-to-list
            (vla-getconstantattributes block-ref)
          ) ;_ end of _lsp-conv-vla-to-list
        ) ;_ end of append
      ) ;_ end of vl-remove-if-not
    ) ;_ end of car
  ) ;_ end of if
) ;_ end of defun

[EfremenkoDO]

Сообщение от Лиспер Получение vla-указателя на атрибут по указателю на блок и тэгу атрибута:

Это все понятно. Я спрашивал не совсем то изначально. При двойном щелчке по атрибуту должно появится окно с редактором команды "_.eattedit" и для редактирования должен быть предложен тот атрибут по которому щелкали.

У меня работает все нормально, переписал полностью обработку на двойной щелчок. И атрибуты редактируются, только вот атрибут по которому щелкнули не становится первым в очередь редактирования. Так сказать фокус на него не устанавливается.

И к стати, по точке атрибут так можно определить

Код:

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

(Setq att	(vlax-ename->vla-object
		  (car (nentselp (trans point 0 1)))
		)
)

[Лиспер]

Offtop: Если хочется головняка - здрасьте, вот и он. Реакцию на двойной клик мышой вообще-то переопределять замучаешься, особенно учитывая поведение вертикалок и вмешательство в это дело CUI. Охота использовать окно? Вперед, рисовать собственное

[EfremenkoDO]

Сообщение от Лиспер Offtop: Реакцию на двойной клик мышой вообще-то переопределять замучаешься, особенно учитывая поведение вертикалок и вмешательство в это дело CUI. Охота использовать окно? Вперед, рисовать собственное

Offtop: Вот и переопределяю от случая к случаю дополняю. Окна у меня все появляются, так что рисовать не стоит.