|
||
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
03.10.2003, 23:25 | #1 | |
умер vetcad
инженер-конструктор
Москва
Регистрация: 24.08.2003
Сообщений: 98
|
||
Просмотров: 4440
|
|
||||
идейный борец Регистрация: 25.08.2003
Киёв
Сообщений: 560
|
А у него ограничение по дате использования, стимулирует потребность в докачки более свежей версии ВетКада. Вот его дом родной - http://project.by.ru/foracad.htm.
А зачем 2002? Чем вечный сентябрь хуже?
__________________
А ми тую червону калину пiдiймемо... |
|||
|
||||
идейный борец Регистрация: 25.08.2003
Киёв
Сообщений: 560
|
Дом тот, только парадное попутал....http://project.by.ru
__________________
А ми тую червону калину пiдiймемо... |
|||
|
||||
инженер-конструктор Регистрация: 24.08.2003
Москва
Сообщений: 98
|
Прогулялся в дом родной покойничка. Там только та версия которая в октябре прекращает свой бренный путь. Видать авторы провели лето на фазендах или теплых морей. А мож батька Лукашенко чего навредничал. Придется жить в виртуальном прошлом. :?
|
|||
|
||||
Регистрация: 23.09.2003
Krasnodar
Сообщений: 5
|
Намыльте кто-нить мне дистрибутив VetCad, а то мой где-то затерялся. На работе стоит, а дома никак не могу поставить. Пробовал установить папку уже установленного VetCad, прописать пути в mns mnc, но чё-то не помогает. На сайте разработчика доступа к файлам нет (403)
Заранее благодарен. |
|||
|
||||
металлоконструкции Регистрация: 11.09.2003
Dnepr
Сообщений: 9
|
; Небольшой закос под веткад, вернее под те функции, которыми
; пользовался (имена команд razrez, razob, otm) ; если вдруг кому понравится, пользуйтесь ; Разрезы 23.01.2001 ;Откорректировано 24.06.2003 добалено обозначение разреза и ;отметки (defun C:RAZREZ () (setvar "cmdecho" 0) ;Отключение режима OSNAP (setq sosnapm (getvar "OSMODE")) (setvar "OSMODE" 0) (setq t1 (getpoint "\nВведи t1 (Стрелки повернутся на 90 против часовой стрелки):")) (setq t2 (getpoint t1 "\nВведи t2 :")) (setq tt (getstring "\nВведи номер разреза :")) (setq u (angle t1 t2) t3 (polar t1 u 10) t4 (polar t2 u 10) t5 (polar t1 u 3) t6 (polar t2 u 7) t7 (polar t5 (+ u (/ pi 2)) 10) t9 (polar t5 (+ u (/ pi 2)) 4) t8 (polar t6 (+ u (/ pi 2)) 10) t10 (polar t6 (+ u (/ pi 2)) 4) t11 (polar t7 (+ (- u pi) (/ pi 4) ) 6) t12 (polar t8 (- u (/ pi 4)) 6) ) (command "_pline" t1 "w" 0.5 0.5 t3 "w" 0 0 t5 "w" 0 1.2 t9 "w" 0 0 t7 "") (command "_pline" t2 "w" 0.5 0.5 t4 "w" 0 0 t6 "w" 0 1.2 t10 "w" 0 0 t8 "") (command "_text" "j" "m" t11 "3" "0" tt "" "") (command "_text" "j" "m" t12 "3" "0" tt "" "") ;Установка толщины полилинии 0 (setvar "PLINEWID" 0) ;Возвращение режима OSNAP (setvar "OSMODE" sosnapm) (setvar "cmdecho" 1) ) ;******************************************************** ;******************************************************** ;отрисовка обозначения разреза (defun C:RAZOB () (setvar "cmdecho" 0) ;Отключение режима OSNAP (setq sosnapm (getvar "OSMODE")) (setvar "OSMODE" 0) (setq t0 (getpoint "\nУкажи точку вставки:") u 0 t1 (polar t0 pi 10) t2 (polar t1 u 20) t3 (polar t1 (/ pi 15) 10) ) (command "_pline" t1 "w" 0.4 0.4 t2 "") (setq tt (getstring "\nВведи номер разреза :")) (command "_text" "j" "c" t3 "4" "0" (strcat tt " - " tt) "" "") ;Установка толщины полилинии 0 (setvar "PLINEWID" 0) ;Возвращение режима OSNAP (setvar "OSMODE" sosnapm) (setvar "cmdecho" 1) ) ;*********************************************************** ;*********************************************************** ;*********************************************************** ; Функция вычерчивания высотной отметки 26.06.2003 (defun Ctm () (setvar "cmdecho" 0) (setq t1 (getpoint "\nукажи точку расположения:")) (setq t2 (getpoint t1 "\nукажи сторону расположения:")) (setq tt (getstring "\nВведи значение отметки:")) ;Отключение режима OSNAP (setq sosnapm (getvar "OSMODE")) (setvar "OSMODE" 0) (setq u (angle t1 t2)) (if (< u (/ pi 2));условие 1 (setq zero 0 tv (polar t1 zero 3) tvp1 (polar t1 (/ pi 4) 5) tvp2 (polar t1 (+ (/ pi 4) (/ pi 2)) 5) tvp3 (polar t1 (/ pi 2) 6) tvp4 (polar tvp3 zero 17) dt (polar tvp3 zero 3) tvptn (polar dt (/ pi 4) 0.75) tvpte (polar tvptn zero 12) ) (if (< u pi);условие 2 (setq zero 0 tv (polar t1 pi 3) tvp1 (polar t1 (/ pi 4) 5) tvp2 (polar t1 (+ (/ pi 4) (/ pi 2)) 5) tvp3 (polar t1 (/ pi 2) 6) tvp4 (polar tvp3 pi 17) tvptn (polar tvp4 (/ pi 4) 0.75) tvpte (polar tvptn zero 12) ) (if (< u (/ (* pi 3) 2));условие 3 (setq zero 0 tv (polar t1 pi 3) tvp1 (polar t1 (/ pi 4) -5) tvp2 (polar t1 (+ (/ pi 4) (/ pi 2)) -5) tvp3 (polar t1 (/ pi 2) -6) tvp4 (polar tvp3 pi 17) tvptn (polar tvp4 (/ pi 4) 0.75) tvpte (polar tvptn zero 12) ) (setq zero 0 tv (polar t1 zero 3) tvp1 (polar t1 (/ pi 4) -5) tvp2 (polar t1 (+ (/ pi 4) (/ pi 2)) -5) tvp3 (polar t1 (/ pi 2) -6) tvp4 (polar tvp3 pi -17) dt (polar tvp3 zero 3) tvptn (polar dt (/ pi 4) 0.75) tvpte (polar tvptn zero 12) ) ))) ;;; Начало рисования (command "_pline" tvp1 "w" 0.4 0.4 t1 tvp2 "w" 0 0 t1 tvp3 tvp4 "") (command "_text" "j" "f" tvptn tvpte "3" tt "" "") ;Возвращение режима OSNAP (setvar "OSMODE" sosnapm) ;Установка толщины полилинии 0 (setvar "PLINEWID" 0) (setvar "cmdecho" 1) );;; конец функции OTM (отметка) (prompt "\nприложеньице Razrez завантажено Copyright © 2001-2003 Tim") |
|||
|
Опции темы | Поиск в этой теме |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Vetcad и Autocad 2007 не работает | favorite | AutoCAD | 22 | 22.05.2008 16:45 |
текст в vetcad | bobis | Разное | 11 | 18.07.2007 10:37 |
умер vetcad | proekt | Прочее. Программное обеспечение | 5 | 21.06.2006 18:31 |
умер файл | FINE | AutoCAD | 9 | 28.03.2006 00:16 |