[Ax3]

Уже два часа бьюсь...
Мне надо получить указатель на ячейку, но не такой:

Код:

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

	(setq xlcell_obj (vlax-get-property xlsheet_obj 'range "A1"))

а типа:

Код:

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

	(setq xlcell_obj (vlax-get-property xlsheet_obj ??? row=2 col=3))

Как это сделать?
Весь форум перекопал, нашел что-то похожее в темах:
- Нужна програмка для спецификации
- координаты из акада в эксель
- LISP. Обращение к Excel'y и смена адреса ячейки
- Как с заданным шагом снять координаты с полилиний в файл?
но не допонял.

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

Я далеко не уверен, что прокатит. Но смутно припоминается, что в VBA для Excel было слово Cell:

Код:

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

(setq xlcell_obj (vlax-get-property xlsheet_obj 'cell 2 3))

[Ax3]

Код:

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

; error: ActiveX Server returned the error: unknown name: CELL

:x

[Ax3]

:shock: :P
сработала вот такая вещь:

Код:

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

(vlax-put-property (vlax-variant-value (vlax-get-property xlcells_obj 'item (vlax-make-variant 1 vlax-vbinteger) (vlax-make-variant 2 vlax-vbinteger))) "Value2" (vlax-make-variant 10 vlax-vbdouble))

, за что большое спасибо Alaspher
(нашел в теме "Как с заданным шагом снять координаты с полилиний в файл?" http://dwg.ru/forum/viewtopic.php?p=25148#25148)

(defun plut-real-to-cell (ccells x y val) (vlax-put-property (vlax-variant-value (vlax-get-property ccells 'item (vlax-make-variant x vlax-vbinteger) (vlax-make-variant y vlax-vbinteger) ) ) "Value2" (vlax-make-variant val vlax-vbdouble) ) )

Ура!!!
Таким образом, vla-объект ячейки с заданными координатами:

Код:

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

	(setq xlcells_obj (vlax-get-property xlsheet_obj 'cells))
	(setq xlcell_obj
		(vlax-variant-value
			(vlax-get-property xlcells_obj 'item (vlax-make-variant 1 vlax-vbinteger) (vlax-make-variant 2 vlax-vbinteger))
		)
	)
	(vlax-put-property xlcell_obj "Value2" (vlax-make-variant 10 vlax-vbdouble))