Ошибка неверный тип аргумента safearrayp nil

#1 10 августа 2006г. 12:32:29

(defun c:con ()
  (vl-load-com)
  (setq old_echo (getvar "CMDECHO"))
  ;Получение указателя на объект AutoCADа
  (setq acad_object (vlax-get-acad-object))
  ;Получение указателя на приложение
  (setq acad_app (vla-get-application acad_object))
  ;Получение указателя на активный документ
  (setq active_doc (vla-get-activedocument acad_app))
  ;(vlax-dump-object acad_app)
  ;Получение указателя на текущий Стиль
  (setq family_style (vla-get-DimStyles active_doc))
  (vlax-dump-object family_style)
  (setq cnt (vla-get-count family_style) i 0)
  (while (< i cnt)
    (print "***************************************")
    (setq family_style_i (vla-item family_style i))
    (vlax-dump-object family_style_i 1)
    (vla-getXData family_style_i "" 'XDataType 'XDataValue)
    (vlax-safearray->list XDataType)
    (setq i (1+ i))
  );while |;
  (setvar "CMDECHO" old_echo)
  (princ)
)

#2 Ответ от kpblc 10 августа 2006г. 12:49:44

#3 Ответ от Julick 10 августа 2006г. 14:15:31

#4 Ответ от Пастух 10 августа 2006г. 14:25:50

#5 Ответ от kpblc 10 августа 2006г. 14:39:35

(defun c:con (/ adoc 'xtype 'xvalue)
  (vl-load-com)
  (setq    adoc      (vla-get-activedocument (vlax-get-acad-object))
    dimstyles (vla-get-dimstyles adoc)
    ) ;_ end of setq
  (vlax-for style dimstyles
    (vla-getxdata style vlax-vbnull 'xtype 'xvalue)
    (if    (and xtype xvalue)
      (princ (strcat "nДля стиля " (vla-get-name style) " нет XData"))
      ) ;_ end of if
    ) ;_ end of vlax-for
  ) ;_ end of defun

#6 Ответ от kpblc 10 августа 2006г. 14:41:38

(defun c:con (/ adoc xtype xvalue)
  (vl-load-com)
  (setq    adoc      (vla-get-activedocument (vlax-get-acad-object))
    dimstyles (vla-get-dimstyles adoc)
    ) ;_ end of setq
  (vlax-for style dimstyles
    (vla-getxdata style "" 'xtype 'xvalue)
    (if    (and xtype xvalue)
      (princ (strcat "nДля стиля " (vla-get-name style) " нет XData"))
      ) ;_ end of if
    ) ;_ end of vlax-for
  ) ;_ end of defun

#7 Ответ от Julick 10 августа 2006г. 18:36:07

#8 Ответ от AY 10 августа 2006г. 21:52:09

#9 Ответ от Julick 14 августа 2006г. 13:01:25

#10 Ответ от Эдуард Смолянка 14 августа 2006г. 16:06:53

 (if  (and xtype xvalue)
      (princ (strcat "nДля стиля " (vla-get-name style) " нет XData"))
      ) ;_ end of if

Добро пожаловать!

Войдите или зарегистрируйтесь сейчас!

Войти

1. 
   

   Форумчанин

   а если их создать? по-моему где то встречал программку для этих целей…
   посмотрел у Map3d тоже присутствует формат mrSid(*.sid) для вставки изображений

   #81

2. 
   

   Форумчанин

   Регистрация:

   15 июн 2012

   Сообщения:

   613

   Симпатии:

   84

   Адрес:

   Краснодар

   в глобал мапер открыл — и о чудо все файлы как то открываються именно на своих местах (как для меня великая загадка)
   Остался вопрос как всё это чудо в автокад затянуть (если это возможно в обще) , если же нет то как перебить формат всему этому набору растров ?

   #82

3. 
   

   Форумчанин

   Файл —> Экспорт растра —> выбор необходимого формата

   #83

4. 
   

   Форумчанин

   Регистрация:

   15 фев 2011

   Сообщения:

   501

   Симпатии:

   302

   Файл-экспорт растра- выбираете нужный формат для экспорта и ставите галочку «создать файл привязки». Полученный файл привязки указываете через лисп Disney’я.
   Часто бывает полезно разбить растр на части. Для этого там же в настройках экспорта есть настройка сетки (указываете количество столбцов и строк).

   #84

5. 
   

   Форумчанин

   Регистрация:

   15 июн 2012

   Сообщения:

   613

   Симпатии:

   84

   Адрес:

   Краснодар

   огромное спасибо — буду пробывать

   #85

6. 
   

   Форумчанин

   Регистрация:

   23 ноя 2010

   Сообщения:

   49

   Симпатии:

   1

   При подгрузке растра выдает ошибку (ошибка: неверный тип аргумента: stringp nil)
   Текст таб файла:
   !Table
   !Version 300
   !Charset Neutral

   Definition Table
   File «62-2-239-120-А.tif»
   Type «RASTER»
   (2240000.000000, 480000.000000) (0, 0) Label «Pt 1»,
   (2241000.000000, 480000.000000) (4000, 0) Label «Pt 2»,
   (2241000.000000, 479000.000000) (4000, 4000) Label «Pt 3»,
   (2240000.000000, 479000.000000) (0, 4000) Label «Pt 4»
   CoordSys NonEarth Units «m» Bounds (2240000.000000, 479000.000000) (2241000.000000, 480000.000000)
   Units «m»

   Вложения:

   #86

7. 
   

   Форумчанин

   Регистрация:

   15 фев 2011

   Сообщения:

   501

   Симпатии:

   302

   У меня несколько предположений:
   1. Текущий слой на замке. Решается отключением блокировки.
   2. Расширение самого растра не тиф, а бмп. Решается заменой расширения в файле привязки.
   3. Имя растра отличается, например вместо 62-2-239-120-А имя 62-2-239-120-а. Решается групповым переименованием в Тотал Командере.
   Если файл не большой, то выкладывайте сам растр.

   #87
8. 
   

   Форумчанин

   Регистрация:

   30 ноя 2007

   Сообщения:

   2.708

   Симпатии:

   2.444

   Адрес:

   Сибирь

   Илюха, надо всю связку, выложи и сам растр.

   #88

9. 
   

   Форумчанин

   Регистрация:

   23 ноя 2010

   Сообщения:

   49

   Симпатии:

   1

   Выкладываю файлы

   Вложения:

   • RASTR.rar

     Размер файла:

     9,4 МБ

     Просмотров:

     42

   #89

10. 
    

    Регистрация:

    6 фев 2013

    Сообщения:

    4

    Симпатии:

    0

    При попытке вставить растры получил такое:
    Команда: (Geo_load_image T) ; ошибка: Ошибка Automation. Недопустимый ключ
    Версия 2.1. Акад 2012
    При этом, если запускать команду и выбирать/загружать растр по одному, все вставляется, а если кучей, то нет

    #90

11. 
    

    Форумчанин

    Регистрация:

    30 ноя 2007

    Сообщения:

    2.708

    Симпатии:

    2.444

    Адрес:

    Сибирь

    В файле лишние пробелы(в каждой строчкой перед Label, должен быть «один», а их там «два»), удали один, или скопируй ранее выложенное тобой содержимое файла tab на форуме(движок форума удаляет более одного пробела подряд), то всё заработает.

    #91

12. 
    

    Регистрация:

    6 фев 2013

    Сообщения:

    4

    Симпатии:

    0

    Проблема оказалась в том, что в названии файлов присутствовали «запятые» — удалил их и пакетная вставка заработала… хотя странно — по одиночке вставлялось, а кучей нет..

    #92
13. 
    

    Форумчанин

    Регистрация:

    27 фев 2012

    Сообщения:

    29

    Симпатии:

    1

    Адрес:

    Москва

    Сейчас опять столкнулся с той же проблемой при создании привязки растра в TAB:
    пишет:
    ; ошибка: неверный тип аргумента: streamp nil
    Долго вспомнилал, что когда-то решил эту проблему и вспомнил)
    Вы были правы, Disney, там проблем в прописанной директории к растру. Подрядчик прислал файл Dwg с растрами в одной папке. А директория прописанная осталась старая с его компа, типа Z:/растры/топо/растр1.tiff
    В итоге проблема решается обновлением директории, чтобы она совпадала с фактическим расположением файла на моём компьютере. Тогда всё работает.

    #93

14. 
    

    Регистрация:

    15 мар 2013

    Сообщения:

    2

    Симпатии:

    0

15. 
    

    Форумчанин

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

    #95
16. 
    

    Форумчанин

    Регистрация:

    16 июн 2008

    Сообщения:

    35

    Симпатии:

    0

    Адрес:

    Москва

    Disney, подскажите пожалуйста, — корректно ли работает Ваша программа с AutoCad 2008 SP1 (англ. версия)? Вроде бы программа устанавливается, но команды в командной строке не срабатывают. Может быть проблема в каких-либо настройках?

    #96

17. 
    

    Форумчанин

    Регистрация:

    20 июн 2013

    Сообщения:

    46

    Симпатии:

    5

    Доброго времени суток !Сложилась такая ситуация — при вставке растрового изображения выбираю папку где оно расположено, а Автокад выдает фатальную ошибку.С чем это может быть связано и как это исправить ? Спасибо

    

    

    #97

18. 
    

    Регистрация:

    19 окт 2013

    Сообщения:

    1

    Симпатии:

    0

    Подскажите, пожалуйста в чем у меня проблема с подгрузкой. Использую команду (Geo_load_image «One») после выбора растра с привязкой tab (см. вложение) ACad виснит (не отвечает). И так более двух часов… и т.д…. может я мало жду? Версию программы использую 2.1.

    Вложения:

    • 493.rar

      Размер файла:

      1,2 МБ

      Просмотров:

      9

    #98

19. 
    

    Форумчанин

    Регистрация:

    26 окт 2013

    Сообщения:

    16

    Симпатии:

    38

    Адрес:

    Самара

    Всем доброго времени суток. Имеется привязанный растр (*.tif+*.tab). Можно как-нить использовать tab, чтобы растр лег туда, куда он и привязан? Если делать через вставка-вхождение растрового изображения , то нужно либо указывать координаты точки вставки либо посредством указания на экране, либо непосредственно ввод с клавиатуры. Получается, что файл привязки tab не используется…
    Решение: программа в 18 посте

    Здравствуйте. Отлично работает штука! я так понял, что она преобразовывает в СК95, если геопривязка в WGS… а возможно реализовать преобразование в МСК по известным параметрам перехода?

    #99
20. 
    

    Команда форума
    Форумчанин

    Регистрация:

    18 май 2007

    Сообщения:

    21.491

    Симпатии:

    6.880

    Адрес:

    Россия

    Приложение в автозагрузке, какой командой вызвать не понимаю. Make находит. Автокад 2013

    #100