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

Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > как измерять 3d объект

как измерять 3d объект

Ответ
Поиск в этой теме
Непрочитано 21.06.2011, 09:26 #1
как измерять 3d объект
oleg konstruktor
 
инженер-конструктор
 
Регистрация: 05.05.2011
Сообщений: 31

как измерять 3d объект
Просмотров: 9521
 
Непрочитано 21.06.2011, 09:28
#2
Хмурый


 
Регистрация: 29.10.2004
СПб
Сообщений: 16,379


_dist
_massprop
Хмурый вне форума  
 
Автор темы   Непрочитано 21.06.2011, 09:57
#3
oleg konstruktor

инженер-конструктор
 
Регистрация: 05.05.2011
Сообщений: 31


спасибо, а угол как померять?
oleg konstruktor вне форума  
 
Непрочитано 21.06.2011, 10:40
#4
Хмурый


 
Регистрация: 29.10.2004
СПб
Сообщений: 16,379


с углом - сложнее. только простановкой углового размера _dimangular
можно ортогональной на проекции, можно на изометрическком виде, но при этом надо будет систему координат выставлять в плоскость проставляемого размера
Хмурый вне форума  
 
Непрочитано 21.06.2011, 11:03
#5
igorni


 
Регистрация: 06.02.2009
Сообщений: 775


Цитата:
Сообщение от oleg konstruktor Посмотреть сообщение
а угол как померять?
В 2010 есть _MEASUREGEOM с опцией _angle (в 2007 ее еще не было).
igorni вне форума  
 
Непрочитано 23.06.2011, 11:03
#6
GRIFEL

пенсионер-конструктор
 
Регистрация: 11.02.2011
Калуга
Сообщений: 68


Код:
[Выделить все]
(defun c:DISO (/ t1 t2 t3 )
     (command "_.undo" "_g")(command "_.ucs" "_W")(COMMAND"_.ORTHO""ON")
   (setq t1(TRANS(GETPOINT" \n Точка начала 1 выносной линии : " )1 0)
	 t2(TRANS(GETPOINT" \n Точка начала 2 выносной линии   : " )1 0))
   (command "_.ucs" "_za"(TRANS t1 0 1)(TRANS t2 0 1))
   (setq t3(GETPOINT(TRANS t1 0 1)"\n НАПРАВЛЕНИЕ РАЗМЕРНОЙ ЛИНИИ : ")
	 T3(TRANS t3 1 0))
   (command "_.ucs" "_p")(command "_.ucs" "_3"(TRANS t1 0 1)(TRANS t2 0 1)(TRANS t3 0 1))
   (if(<(nth 2(TRANS '(0 0 1)1 2 1))0)(command "_.ucs" "_x" 180.0))
   (if(or(and(>=(car(TRANS '(0 1 0) 1 2 1))0)(<=(cadr(TRANS '(0 1 0) 1 2 1))0))
	 (and(< (car(TRANS '(0 1 0) 1 2 1))0)(< (cadr(TRANS '(0 1 0) 1 2 1))0))
	 )(command "_.ucs" "_z" 180.0) 12  )
   (command "_.dim" "_hor"(TRANS t1 0 1)(TRANS t2 0 1)pause """_.exit")
   (command "_.ucs" "_W")(command "_.undo" "_e")(princ))
Иногда бывает смысл просто образмерить в изометрии - попробуй ....

Последний раз редактировалось Кулик Алексей aka kpblc, 23.06.2011 в 12:27.
GRIFEL вне форума  
 
Непрочитано 23.06.2011, 12:28
#7
Лиспер


 
Регистрация: 11.10.2010
Сообщений: 979


GRIFEL, стоит нажать Esc в момент запроса первой или второй точки, и все - ошибка, вылет лиспа и не всегда корректное поведение AutoCAD гарантированы.
__________________
(/= RegDate StartReadDate)
Лиспер вне форума  
 
Непрочитано 24.06.2011, 10:52
#8
GRIFEL

пенсионер-конструктор
 
Регистрация: 11.02.2011
Калуга
Сообщений: 68


Лиспер, спасибо за подсказку .... сегодня попробовал ESC - естественно получил *Cancel* . Единственым оправданием может служить то , что за десяток лет использования как-то не возникало желания жать эту клавишу на запрос точки . Поскольку я програмист любительского уровня , писал программы только под себя , проверок на некорректность ввода не делал.
Если не затруднит покажите данный код с защитой от " дураков " ...
GRIFEL вне форума  
 
Непрочитано 24.06.2011, 10:54
#9
Лиспер


 
Регистрация: 11.10.2010
Сообщений: 979


http://autolisp.ru/2009/09/13/error-catch/ + http://autolisp.ru/2009/09/20/howto_undo/
__________________
(/= RegDate StartReadDate)
Лиспер вне форума  
 
Непрочитано 24.06.2011, 15:21
#10
GRIFEL

пенсионер-конструктор
 
Регистрация: 11.02.2011
Калуга
Сообщений: 68


Лиспер, иформацию по ссылкам изучил - постараюсь использовать ..... Спасибо.
GRIFEL вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > как измерять 3d объект



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Почему 3D объект не отображается в Layout? MDT goodking Вертикальные решения на базе AutoCAD 8 12.07.2009 18:37
Как поименовать объект в 3D модели? Olegsaburov AutoCAD 17 26.11.2008 02:43
можно ли разделить объект 3D на множество объектов Владимир М AutoCAD 15 17.08.2008 17:25
можно ли разделить объект 3D на 2 объекта Jоhnny AutoCAD 5 31.10.2007 12:50
как программно "натянуть" текстуру на 3D объект? zshgm Программирование 6 27.08.2007 20:25