[Tannik]

В 2009-м русифицированном Автокаде вставляю блоки в чертеж. А через некоторое время обнаруживаю, что часть из них разбита. Блоки вставляю программой (ЛИСП), поэтому "расчленить" при вставке просто исключается. Да и разбивается только часть из вставленных блоков.
В чем еще может быть причина и как ее устранить?

[Хмурый]

какая программа? По возможности выложи либо её, либо приведи код

[Tannik]

Код:

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

(defun c:zag (/)
 (setq block_lib (getfiled "Выберите файл блока" "\\\\Intel\\ich (c)\\Мои документы\\База изделий" "dwg" 16))
  (setq block_file (vl-filename-base block_lib));Выделяется имя файла из пути
  (command "_insert" block_file );загружается файл с блоками
  (command)
    (setq block_file_D (strcat "D_" block_file))
  (setq block_file_S (strcat "S_" block_file))
  (setq block_file_M (strcat "M_" block_file))
(setq block_file_B (strcat "B_" block_file))
(setq block_file_R (strcat "R_" block_file))

    (setq Mas_X 1)
  (setq Mas_Y 1)
(setq Ugol 0)
  
  (initget  "д р с б м")
  (setq block_file_new (getkword "\nДеталировка/Размеры/Сборка/Монтаж/видсБоку [Д]: "))

  
     (if(= block_file_new nill)
       (setq block_file_vstavka block_file_D))
       
     (if(= block_file_new "д") 
     (setq block_file_vstavka block_file_D))

       
 (if(= block_file_new "р")
     (setq block_file_vstavka block_file_R))

 (if(= block_file_new "с")
     (setq block_file_vstavka block_file_S))

 (if(= block_file_new "м")
   (setq block_file_vstavka block_file_M))

 (if(= block_file_new "б")
   (setq block_file_vstavka block_file_B))

  (command "_insert" block_file_vstavka (setq Tochka_vstavki (getpoint "\nУкажите точку вставки"))  Mas_X  Mas_Y Ugol)


  (setq AA (ssget "_L"))
  (setq base_point (cdr (assoc 10 (entget (entlast)))))
  
        (command "_copy" AA "" "н" base_point)
 
  );конец zag

[Makswell]

Сразу бросилось в глаза:

Код:

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

(= block_file_new nill)

Правильно так:

Код:

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

(= block_file_new nil)

Но это не по сути проблемы. Просто увидел сразу эту ошибку.

[ытя]

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

[kha]

у меня блок взрывался в 2009-м акаде при простом перемещении

[SetQ]

Может эти блоки что-то перекрывает (типа объектов СПДСа) и пытается скрыть участок блока? И разбивает его.

[Tannik]

Сообщение от kha у меня блок взрывался в 2009-м акаде при простом перемещении

Наверное, это просто программный глюк.