Schöck
Показать сообщение отдельно
Непрочитано 17.12.2009, 06:51 #1
Создание нового стиля таблиц AutoCAD 2006 (VL)
Дмитрий Голованов
 
Регистрация: 17.12.2009
Сообщений: 12

Помогите! Делаю так:

Код:
[Выделить все]
(defun C:CREATETABLESTYLE ()
  (vl-load-com)
  (setq acad_application (vlax-Get-Acad-Object))
  (setq active_document (vla-Get-ActiveDocument acad_application))
  (setq ts_dictionaries (vla-Get-Dictionaries active_document))
  (setq ts_dictionary (vla-Item ts_dictionaries "acad_tablestyle"))

  (setq	item (vla-AddObject
	       ts_dictionary
	       "NEWTABLE"
	       "AcDbTableStyle"
	     )
  )
  ; далее задание своиств стиля
)
В результате:

Цитата:
Команда: CREATETABLESTYLE
"Ошибка Automation. Отсутствует описание." ; ошибка: В функции *error* возникла ошибка:Настройка переменной AutoCAD отвергнута: "USERS2" nil
Где ошибка?
Просмотров: 7678
 
Инженерная школа
Размещение рекламы