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

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Динамическое изменение размеров PICKBOX

Динамическое изменение размеров PICKBOX

Ответ
Поиск в этой теме
Непрочитано 22.12.2003, 12:35 #1
Динамическое изменение размеров PICKBOX
Torino
 
Штаб
Регистрация: 21.08.2003
Сообщений: 943

Какой должен быть код макроса, либо программы для переключения размера PICKBOX.
Например, в данный момент у меня PICKBOX такой:
[ATTACH]1072085733.gif[/ATTACH]
а после нажатия на кнопку или набора на клавиатуре "рick" он становился таким:
Просмотров: 4545
 
Автор темы   Непрочитано 22.12.2003, 12:37
#2
Torino


 
Регистрация: 21.08.2003
Штаб
Сообщений: 943
<phrase 1=


ааа
[ATTACH]1072085837.gif[/ATTACH]
Torino вне форума  
 
Непрочитано 22.12.2003, 12:45
#3
Андрей С.

Архитектор
 
Регистрация: 25.08.2003
Москва
Сообщений: 307


Если это Pickbox, то
'_pickbox;<размер в пикселах>
Если "прицел" курсора (судя по картинке), то
'_aperture;<размер в пикселах>
Андрей С. вне форума  
 
Автор темы   Непрочитано 22.12.2003, 12:57
#4
Torino


 
Регистрация: 21.08.2003
Штаб
Сообщений: 943
<phrase 1=


Спасибо!
Torino вне форума  
 
Непрочитано 22.12.2003, 13:25
#5
Grinzaid

Архитектор
 
Регистрация: 14.10.2003
Израиль
Сообщений: 365
<phrase 1=


Код:
[Выделить все]
(defun c:PIC()
(setq small (getint "\Enter small value of Pickbox: "))
(setq big (getint "\Enter big value of Pickbox: "))
)

(defun c:PICK()
(setq pick (getvar "PICKBOX"))
(if (/= pick small) 
	(progn
		(command "PICKBOX" small "")
	);progn

	(progn
		(command "PICKBOX" big "")
	);progn

);if
)
Grinzaid вне форума  
 
Автор темы   Непрочитано 22.12.2003, 14:43
#6
Torino


 
Регистрация: 21.08.2003
Штаб
Сообщений: 943
<phrase 1=


К сожалению эта прога не работает.
Пишет:

Код:
[Выделить все]
Command: pick
PICKBOX
Enter new value for PICKBOX <8>:
Command: PICK Unknown command "PICK".  Press F1 for help.

Command: nil
Torino вне форума  
 
Непрочитано 22.12.2003, 14:51
#7
Grinzaid

Архитектор
 
Регистрация: 14.10.2003
Израиль
Сообщений: 365
<phrase 1=


Зпустите сначала PIC, определите мин. и макс. значения, а уже потом запускайте PICK.

Если Вам всегда нужны одинаковые мин. и макс. значения, запускайте такой код:

Код:
[Выделить все]
(defun c:PICK() 
(setq pick (getvar "PICKBOX")) 
(if (/= pick 4) 
   (progn 
      (command "PICKBOX" "4" "") 
   );progn 

   (progn 
      (command "PICKBOX" "10" "") 
   );progn 

);if 
)
Но с первой вводной частья будет грамотнее в общем виде.

P.S. Обратите внимание на "4" и "10". Это величины PICKBOX. Можете изменить их в пределах от 3 до 20.
Grinzaid вне форума  
 
Автор темы   Непрочитано 22.12.2003, 16:40
#8
Torino


 
Регистрация: 21.08.2003
Штаб
Сообщений: 943
<phrase 1=


Второй вариант работает (первый тоже, просто меня смутили сообщения об ошибках в конце работы проги).
Пишет:
Код:
[Выделить все]
Command: pick
PICKBOX
Enter new value for PICKBOX <4>: 10
Command: PICK Unknown command "PICK".  Press F1 for help.

Command: nil
Как можно отключить сообщения об ошибках в конце проги?
Torino вне форума  
 
Непрочитано 22.12.2003, 17:37
#9
Startrek

AutoCAD/AutoLISP
 
Регистрация: 27.08.2003
Seattle/USA
Сообщений: 1,133


oshibka :roll:
Startrek вне форума  
 
Непрочитано 22.12.2003, 18:03
#10
Startrek

AutoCAD/AutoLISP
 
Регистрация: 27.08.2003
Seattle/USA
Сообщений: 1,133


NUUUU* OCHEN" IZVINJAUS"
progljadel paru opechatok
etot variand dolzhen rabotat'

(defun c:PICK ()
(initget 1 "Small Big")
(setq pick (getkword "Pickbox Size<Small/Big>: "));otvet mozhno S ili B
(COND
((= pick "Small")(command "PICKBOX" 4))
((= pick "Big")(command "PICKBOX" 6))
)
(princ)
)
Startrek вне форума  
 
Автор темы   Непрочитано 23.12.2003, 19:07
#11
Torino


 
Регистрация: 21.08.2003
Штаб
Сообщений: 943
<phrase 1=


Отлично!
Grinzaid и Startrek спасибо!
Torino вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Динамическое изменение размеров PICKBOX

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

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