Lisp. Заставить выделять нужные слои не методом по одному а сразу все что попало в рамку выделения?

mosnok · 28.08.2014, 23:03

Надергал с существующих программок следующий код, он работает и делает что должен но как его можно облагородить - заставить выделять нужные слои не методом по одному а сразу все что попало в рамку выделения? Спасибо

Код:

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

(defun c:vplf ()
  (prompt
     "\nPick Выберите часть слоя который хотите разморозить1: ")
  (setq name1 (cdr (assoc 8 (entget (car (entsel))))))
  (prompt
     "\nPick Выберите часть слоя который хотите разморозить2: ")
  (setq name2 (cdr (assoc 8 (entget (car (entsel))))))

(command "_.vplayer" "Заморозить" "*" "_CURRENT" "")
(command "_.vplayer" "Разморозить" name1 "_CURRENT" "")
(command "_.vplayer" "Разморозить" name2 "_CURRENT" "")
  (princ)
)

gomer · 28.08.2014, 23:43

Используй ssget

Krieger · 29.08.2014, 07:10

Может просто использовать "_layfrz"

28.08.2014, 23:03		#1
Lisp. Заставить выделять нужные слои не методом по одному а сразу все что попало в рамку выделения? mosnok Регистрация: 10.07.2014 Сообщений: 5 Надергал с существующих программок следующий код, он работает и делает что должен но как его можно облагородить - заставить выделять нужные слои не методом по одному а сразу все что попало в рамку выделения? Спасибо Код: [Выделить все] (defun c:vplf () (prompt "\nPick Выберите часть слоя который хотите разморозить1: ") (setq name1 (cdr (assoc 8 (entget (car (entsel)))))) (prompt "\nPick Выберите часть слоя который хотите разморозить2: ") (setq name2 (cdr (assoc 8 (entget (car (entsel)))))) (command "_.vplayer" "Заморозить" "*" "_CURRENT" "") (command "_.vplayer" "Разморозить" name1 "_CURRENT" "") (command "_.vplayer" "Разморозить" name2 "_CURRENT" "") (princ) )
Просмотров: 1122

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Какой язык перспективен для инженера-конструктора с условием	The_Mercy_Seat	Программирование	705	17.03.2021 14:19
SCAD Office 21.1. Обсуждение.	Клименко Ярослав	SCAD	633	03.10.2015 14:10