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

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Как удалить из чертежа листы с помощью Lisp?

Как удалить из чертежа листы с помощью Lisp?

Ответ
Поиск в этой теме
Непрочитано 22.09.2017, 07:08 #1
Как удалить из чертежа листы с помощью Lisp?
no_ideas
 
Регистрация: 21.09.2017
Сообщений: 6

Добрый день. Как удалить из чертежа все листы кроме одного с определенным именем с помощью Lisp?
Просмотров: 1516
 
Непрочитано 22.09.2017, 09:18
#2
nolte

спринклеры, сантехника
 
Регистрация: 26.01.2010
Сообщений: 188
Отправить сообщение для nolte с помощью Skype™


так например
Код:
[Выделить все]
 
(vlax-for i (vla-get-layouts(vla-get-activedocument(vlax-get-acad-object)))
        (if
		(and
			(not(wcmatch(vla-get-name i)"Model"))
			(not(wcmatch(vla-get-name i)"Лист1")) ; ИМЯ ТВОЕГО ЛИСТА
		)
			(progn
				(princ
					(strcat
						"Имя листа : " "\"" (vla-get-name i) "\"" "\tУдален\n"
					)
				)
				(vla-delete i)
			)
	)
)
__________________
Знание лисп: со справочником Н. Полещука
nolte вне форума  
 
Непрочитано 22.09.2017, 09:28
#3
Makswell

Инженер-строитель
 
Регистрация: 15.08.2007
Киров
Сообщений: 2,204


Вместо and надо or.
Код:
[Выделить все]
(vlax-for item (vla-get-Layouts
		 (vla-get-ActiveDocument (vlax-get-acad-object))
	       )
  (if (not (or (= (vla-get-Name item) "Имя_листа")
	       (= (vla-get-Name item) "Model")
	   )
      )
    (vla-delete item)
  )
)
Makswell вне форума  
 
Непрочитано 22.09.2017, 16:33
#4
nolte

спринклеры, сантехника
 
Регистрация: 26.01.2010
Сообщений: 188
Отправить сообщение для nolte с помощью Skype™


Makswell,
__________________
Знание лисп: со справочником Н. Полещука
nolte вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Как удалить из чертежа листы с помощью Lisp?

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа с таблицой Autocad с помощью Lisp ILMIR LISP 3 06.11.2014 20:54
Как нарисовать транзиентный объект с помощью LISP barabasishe LISP 1 14.02.2013 17:29
LISP для очистки чертежа от дублирующихся объектов Nikolays AutoCAD 5 13.12.2010 16:59
как с помощью VBA удалить влок из коллекции блоков молод и перспективен Программирование 3 25.07.2009 12:54
Создание параметрического чертежа с помощью AutoCad и Delphi karakatica Программирование 3 10.07.2009 13:01