| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > LISP удалить связи все связи словаря "Datalink"

LISP удалить связи все связи словаря "Datalink"

Ответ
Поиск в этой теме
Непрочитано 31.05.2011, 20:31 #1
LISP удалить связи все связи словаря "Datalink"
gizmo_zx
 
Проектировщик ЭО,ЭМ, ЭОС
 
Нижний Новгород
Регистрация: 18.07.2007
Сообщений: 247

Добрый день.

Помогите доработать "dictedit".
Чтоб удалить все связи словаря "Datalink" за раз по нажатию "Delete" (их уже сотни).

Может есть любое другое готовое решение?

Вложения
Тип файла: lsp DictEdit.lsp.lsp (12.8 Кб, 531 просмотров)
Тип файла: zip DictEdit.zip (955 байт, 255 просмотров)

Просмотров: 9703
 
Непрочитано 31.05.2011, 22:16
4 | #2
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,910
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Код:
[Выделить все]
 
(defun C:KILL-DATALINK ( / dic edic)
  (vl-load-com)
  (and
    (setq dic (member (cons 3 "ACAD_DATALINK")(entget (namedobjdict))))
    (setq edic (cdr(assoc 350 dic)))
    (setq edic (vlax-ename->vla-object edic))
    (VL-CATCH-ALL-APPLY 'vla-delete (list edic))
    )
  (princ)
  )
Еще проще
Код:
[Выделить все]
 
(dictremove (namedobjdict) "ACAD_DATALINK")
__________________
Как использовать код на Лиспе читаем здесь

Последний раз редактировалось VVA, 23.12.2011 в 15:30.
VVA вне форума  
 
Непрочитано 11.08.2015, 11:30
#3
Avodo


 
Регистрация: 07.10.2008
Сообщений: 94


Добрый день.
Первая часть кода работает, все как надо.
А вторая, которая "Еще проще" - нет. Или я не пойму как ее использовать правильно. При сохранении кода в файл .LSP и загрузке - Акад пишет что лишняя скобка вначале, убираю. все равно пишет лишняя скобка...
Avodo вне форума  
 
Непрочитано 11.08.2015, 11:49
1 | #4
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 38,803


(dictremove (namedobjdict) "ACAD_DATALINK")
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 11.08.2015, 11:58
#5
Avodo


 
Регистрация: 07.10.2008
Сообщений: 94


Спасибо, а использовать то как?
Я имею ввиду что "defun C:" отсутсвует и как запустить или вызвать команду не врубаюсь...

Последний раз редактировалось Avodo, 11.08.2015 в 14:17.
Avodo вне форума  
 
Непрочитано 11.08.2015, 14:43
#6
АлексЮстасу

топограф, технолог
 
Блог
 
Регистрация: 24.05.2009
Москва
Сообщений: 2,973


Вставить в комстроку. И Enter.
__________________
количество моих сообщений не говорит о знании Автокада
АлексЮстасу вне форума  
 
Непрочитано 11.08.2015, 14:58
#7
Avodo


 
Регистрация: 07.10.2008
Сообщений: 94


Спасибо. Так вроде пробовал, результат не сразу заметил. Словарь ссылок пустой, а в диспетчере внешних ссылок связь висела. После закрытия и открытия чертежа - пропадает и там.
На кнопку реально повесить эту команду?
Avodo вне форума  
 
Непрочитано 11.08.2015, 15:22
#8
АлексЮстасу

топограф, технолог
 
Блог
 
Регистрация: 24.05.2009
Москва
Сообщений: 2,973


А что мешает?
__________________
количество моих сообщений не говорит о знании Автокада
АлексЮстасу вне форума  
 
Непрочитано 12.08.2015, 12:50
1 | #9
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,910
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Цитата:
Сообщение от Avodo Посмотреть сообщение
Я имею ввиду что "defun C:" отсутствует и как запустить или вызвать команду не врубаюсь.
Если с C: проще, то можно "преобразовать" в команду так
Код:
[Выделить все]
(defun C:KILL-DATALINK2 ()
(vl-load-com)
(dictremove (namedobjdict) "ACAD_DATALINK")
)
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 06.04.2017, 12:25
#10
Theodor


 
Регистрация: 16.04.2009
Петрозаводск
Сообщений: 303


Коллеги, подскажите, а есть решение, чтобы удалить только неиспользуемые связи с данными. А то при копировании из файла в файл плодятся ненужные.
Theodor вне форума  
 
Непрочитано 13.02.2019, 13:08
#11
Ivoоlgaа


 
Регистрация: 10.01.2014
Сообщений: 18


При загрузке DR.LSP от VVA и Кулика и запуске команды у меня виснет файл DWG. Что делать? А!
Ivoоlgaа вне форума  
 
Непрочитано 13.02.2019, 13:29
#12
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 38,803


Что за "dr.lsp"? И где собственно файл?
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 04.08.2022, 23:55
#13
seva313


 
Регистрация: 04.08.2022
Сообщений: 1


Цитата:
Сообщение от Theodor Посмотреть сообщение
Коллеги, подскажите, а есть решение, чтобы удалить только неиспользуемые связи с данными. А то при копировании из файла в файл плодятся ненужные.
Да, было бы здорово убивать только неиспользуемые связи с данными. Подскажите как это сделать?
seva313 вне форума  
 
Непрочитано 05.08.2022, 00:29
#14
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 38,803


А как отфильтровать "неиспользуемые"?
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 05.08.2022, 01:20
#15
Theodor


 
Регистрация: 16.04.2009
Петрозаводск
Сообщений: 303


Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
А как отфильтровать "неиспользуемые"?
В диспетчере связей с данными при попытке удалить, автокад как-то определяет и ругается на попытку.
Остаётся только вера в гениев Lispa, что эту реакцию можно как-то отследить.
Theodor вне форума  
 
Непрочитано 05.08.2022, 01:21
#16
Сергей812


 
Регистрация: 10.08.2013
Сообщений: 9,874


Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
А как отфильтровать "неиспользуемые"?
ну если это удастся портировать на лисп
Сергей812 вне форума  
 
Непрочитано 05.08.2022, 02:00
#17
Theodor


 
Регистрация: 16.04.2009
Петрозаводск
Сообщений: 303


Цитата:
Сообщение от Сергей812 Посмотреть сообщение
ну если это удастся портировать на лисп
О! Это я как-то давно находил и быстро потерял! Как раз хотел предложить нашим гуру лиспа! Спасибо! Мой поклон.

Пытался перевести в VBA, но далёк от С и VBA так далеко не копает.
Theodor вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > LISP удалить связи все связи словаря "Datalink"

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нормативная документация для проектирования сетей связи firger77 Поиск литературы, чертежей, моделей и прочих материалов 3 14.08.2017 16:48
Максимальная ошибка в узле 50797 по направлению 2: 0.387%. Kastrulkin Расчетные программы 11 06.12.2011 15:35
Расчёт по СНиПу стальной стойки квадратного сечения не предусмотрен. Filя Металлические конструкции 330 09.02.2011 19:47
{Конкурс} Lisp. Задачки для студентов gomer LISP 10 05.01.2011 16:33
Непонятки со связями bezo Расчетные программы 8 06.06.2010 12:34