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

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Установка масштаба при перходе в видовой экран???

Установка масштаба при перходе в видовой экран???

Ответ
Поиск в этой теме
Непрочитано 09.05.2010, 11:48 #1
Установка масштаба при перходе в видовой экран???
scatler
 
Инженер-конструктор
 
Санкт-Петербург
Регистрация: 31.03.2005
Сообщений: 150

Хочу сделать такую штуку которая бы устанавливала масштаб СПДС при переходе из листа в модель через видовой экран ( т.е при активации видового экрана, как и при полном развороте его на весь экран так и при компактном размере) а то все время масштаб остается тем каким был в модели и приходится в ручную его корректировать каждый раз. Как можно такое реализовать? Может быть не так все сложно как я думаю, может быть уже у кого нибудь такая штука есть? Кто что скажет по этому поводу??
Код:
[Выделить все]
(VLR-remove-all)
(VLR-Editor-Reactor "CVPORT" '((:VLR-commandEnded . gsset)))

(defun gs ()
(vl-load-com)
  (setq ent1 (ssname (cadr(SSGETFIRST)) 0) )
  (setq ent1ax (vlax-ename->vla-object ent1))
  (vlax-dump-Object ent1ax)
  (setq sc (vla-get-CustomScale ent1ax))
  (command "spgscale" (/ 1 sc))
  (command "_vpmax" ent1)
  
)

(defun gsset (calling-reactor commandInfo )
(setq var1	(car commandInfo))
(if (= var1 "MSPACE") (progn
(setq acobj 	(VLAX-GET-ACAD-OBJECT))
(setq acdoc 	(vla-get-Activedocument acobj))
(setq pv 	(vla-get-ActivePViewport acdoc))
(setq sc	(vla-get-CustomScale pv))
(setq ename 	(vlax-vla-object->ename pv))
(setq str (strcat "spgscale " (rtos (/ 1 sc)) " ") )
(vla-sendCommand acdoc str)))
(princ)  
  )
__________________
Делать невозможное - смысл жизни:offtopic:

Последний раз редактировалось scatler, 12.05.2010 в 09:50.
Просмотров: 3713
 
Непрочитано 09.05.2010, 13:49
#2
ShaggyDoc

Thượng Tá Quân Đội Nhân Dân Việt Nam
 
Регистрация: 14.03.2005
44d32'44"С, 33d26'51"В
Сообщений: 13,381


Подобные вещи делаются через командный реактор - в ruCAD именно так организовано изменение всех необходимых настроек, требующихся при переходах между пространствами, вкладками, изменении масштаба аннотаций штатными методами.

Что такое "масштаб СПДС" не знаю. Если речь про программу СПДС График, то там должны быть свои интерфейсы програмирования.
ShaggyDoc вне форума  
 
Непрочитано 09.05.2010, 14:41
#3
VVA

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


Помимо командных реакторов можно попробовать так же реактор изменения системных переменных (vlr-sysvar-reactor). Ну и переменные для отслеживания:
CTAB, TILEMODE, CVPORT - (1 - в пространстве листа находишься в листе, >1 - в пространстве листа находишься в модели)
Про реаторы можно почитать здесь: Глава "Реакторы" из книги Kenny Ramage "VisualLISP".
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Автор темы   Непрочитано 11.05.2010, 10:45
#4
scatler

Инженер-конструктор
 
Регистрация: 31.03.2005
Санкт-Петербург
Сообщений: 150


Спасибо за советы! Решил использовать реактор изменения системной переменной для отслеживания активации видового экрана в простанстве листа, вопрос остался только в том как узнать по переменной cvport масштаб конкретного видового экрана, ведь как я понял у видового экрана нет такого свойства как номер, которое бы соответствовало бы переменной cvport
__________________
Делать невозможное - смысл жизни:offtopic:
scatler вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Установка масштаба при перходе в видовой экран???

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сейсмозащита и сейсмоизоляция существующих, построенных зд. IANationalInformAgentstvo Прочее. Архитектура и строительство 216 20.01.2015 16:51
Мониторы LCD CRT Разное 94 17.06.2008 10:51
ЮМОР 2006 =) Perezz!! Разное 1122 04.01.2007 00:46
БРЕД СИВОЙ КОБЫЛЫ Kryaker Разное 1876 29.12.2006 23:41
видовой экран при печати human bit AutoCAD 8 25.05.2006 09:45