[Lispgamer]

Есть необходимость назначить свойства Вкладки Custom dwg-файла.
Привожу попытку кода, прошу помочь

Код:

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

 (defun C:TEST ( /
	      from File acadObject acadDocument dProps
	       )
(vl-load-com)
(setq from (getfiled "Выберите файл проекта" "D:\\" "dwg" 16))
(setq File (vla-open (vla-get-documents(vlax-get-acad-object))  from))	
;(vla-put-ActiveDocument  (vlax-get-acad-object) File)
  	(setq acadObject (vlax-get-acad-object))		
	(setq acadDocument (vla-get-ActiveDocument acadObject))		
   	(setq dProps (vlax-get-Property acadDocument 'SummaryInfo))	

  (vla-addcustominfo dProps "Заказчик" "Иванов")

  ;(vla-save (vla-get-ActiveDocument (vlax-get-acad-object)))
  (vla-saveas File from ac2007_dwg)
  (vla-close File)
(vlax-release-object File)	
(princ)
   )

[VVA]

Здесь посмотри http://www.caduser.ru/forum/index.ph...D=44&TID=22867
http://www.caduser.ru/forum/index.ph...ID=23&TID=8549

[Lispgamer]

Спасибо