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

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

Делить на measurement scale

Ответ
Поиск в этой теме
Непрочитано 29.01.2008, 08:03
Делить на measurement scale
Бали
 
Инженер
 
Уфа
Регистрация: 23.03.2007
Сообщений: 197

Здравствуйте уважаемые знатоки!
Имею к вам вопрос по лиспу.
Суть вопроса - возможно ли используя параметр measurement scale размерной линии, задавать длинну размера по факту.
Т.е. допустим мне нужно построить размерную линию со значением 1250мм, measurement scale данной размлинии равен 200, соответственно в реале мне нужно отложить(ввести) 1250/200=6.25 единиц, как сделать так, чтобы вводимое число было равно 1250 (чтобы не делить в уме на 200 ), а лисп сам делил бы на measurement scale.
PS - Черчу в модели по старинке)
Просмотров: 21470
 
Непрочитано 29.01.2008, 14:25
#41
Profan


 
Регистрация: 25.12.2005
Москва
Сообщений: 13,627


Вот мы и пришли к вопросу - как переопределить команду "_dist". Все одно и то же...
Profan вне форума  
 
Непрочитано 29.01.2008, 14:25
#42
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Бали, если тебе не жалко, выложи свой "неправильный" файлик на всеобщее растерзание - может, чего и посоветуется. А таких форумов (где "неправильно-модель-кульман-масштаб-и-все-для-такого") лично я не знаю
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 29.01.2008, 14:30
#43
TheBuTeK

преподавание
 
Регистрация: 28.09.2005
Москваград
Сообщений: 131
<phrase 1=


Как же, а был тут, помнится, орел по прозванию Horsy...
__________________
Добрым словом и пистолетом можно добиться гораздо большего, чем одним добрым словом.
TheBuTeK вне форума  
 
Автор темы   Непрочитано 29.01.2008, 14:32
#44
Бали

Инженер
 
Регистрация: 23.03.2007
Уфа
Сообщений: 197


Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
Бали, если тебе не жалко, выложи свой "неправильный" файлик на всеобщее растерзание - может, чего и посоветуется. А таких форумов (где "неправильно-модель-кульман-масштаб-и-все-для-такого") лично я не знаю
задача чисто гипотетическая, но файлик все же выложу
Вложения
Тип файла: dwg
DWG 2004
Drawing1.dwg (52.1 Кб, 726 просмотров)
Бали вне форума  
 
Автор темы   Непрочитано 29.01.2008, 14:34
#45
Бали

Инженер
 
Регистрация: 23.03.2007
Уфа
Сообщений: 197


Цитата:
Сообщение от TheBuTeK Посмотреть сообщение
Как же, а был тут, помнится, орел по прозванию Horsy...
я понимаю что идет война между "правильными" и "неправильными" автакадчиками, не на жись, а на смерть. но я в этой войне чиста партизан)))))
Бали вне форума  
 
Непрочитано 29.01.2008, 14:34
#46
Дима_

Продуман
 
Регистрация: 22.02.2007
Питер
Сообщений: 2,840


Цитата:
Сообщение от Бали Посмотреть сообщение
правильно!!!!!!!!!!!
а смагете так: если вы вторую размерную линию ставите на "расстоянии" 1250 от первой то размерный текст будет 1250 при dimlfac=200
Тогда так получается:
(defun c:dlf ( / a b)
(setq a (getpoint "Начало")
b (getpoint a "Конец"))
(command "_dimlinear" a b "_t" (rtos (distance a b)))
)
__________________
Когда в руках молоток все вокруг кажется гвоздями.
Дима_ вне форума  
 
Непрочитано 29.01.2008, 14:36
#47
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


А ты работаешь в 2008-м, что ли?
---
То, что у меня получилось "по-быстрому"
Вложения
Тип файла: zip Drawing1.zip (60.7 Кб, 56 просмотров)
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.

Последний раз редактировалось Кулик Алексей aka kpblc, 29.01.2008 в 14:42.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 29.01.2008, 14:39
#48
Дима_

Продуман
 
Регистрация: 22.02.2007
Питер
Сообщений: 2,840


Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
А ты работаешь в 2008-м, что ли?
Ты это кто?
__________________
Когда в руках молоток все вокруг кажется гвоздями.
Дима_ вне форума  
 
Автор темы   Непрочитано 29.01.2008, 14:42
#49
Бали

Инженер
 
Регистрация: 23.03.2007
Уфа
Сообщений: 197


Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
А ты работаешь в 2008-м, что ли?
Ну типа того, это есть плохо?
Бали вне форума  
 
Непрочитано 29.01.2008, 14:44
#50
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Дима_, вопрос был к Бали. Я твоего поста еще не видел.
Бали, да в общем-то в 2008-м масса вещей сделана для того как раз, чтоб рисовать в М1:1, и при печати не иметь проблем с масштабируемыми вещами типа блоков, текстов и размеров. Посмотри мой пост #47 - я там выложил чего получилось.
Все, я испаримшись на некоторое время.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 29.01.2008, 14:49
#51
Бали

Инженер
 
Регистрация: 23.03.2007
Уфа
Сообщений: 197


Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
А ты работаешь в 2008-м, что ли?
---
То, что у меня получилось "по-быстрому"
Тема обсуждается бурно, но толку нету, одна вода. Я до сих пор не уверен, что мой вопрос вообще понят кем либо.
Господа, меня прога интересует, суть проги в названии данной темы.
Вводим расстояние от первой точки 1250 единиц, а прога откладывает (1250/димлфак) единиц
Бали вне форума  
 
Непрочитано 29.01.2008, 14:54
#52
Дима_

Продуман
 
Регистрация: 22.02.2007
Питер
Сообщений: 2,840


Все пипиец! - распиши как для детей дебилов - последовательность действий программы. что в твоей интерпртитации значит "вводим расстояние" и "прога откладывает"???
__________________
Когда в руках молоток все вокруг кажется гвоздями.
Дима_ вне форума  
 
Автор темы   Непрочитано 29.01.2008, 15:03
#53
Бали

Инженер
 
Регистрация: 23.03.2007
Уфа
Сообщений: 197


Цитата:
Сообщение от Дима_ Посмотреть сообщение
Все пипиец! - распиши как для детей дебилов - последовательность действий программы. что в твоей интерпртитации значит "вводим расстояние" и "прога откладывает"???
Исходные данные: Dimlfac=200
Задание:
1) укажите базовую точку: поставил 0,0
2) какой размер хотите отложить? (1250, 3000, 640, etc): написал 1250

Результат:
размерная линия - одна точка на (0, 0) , вторая точка на (6.25, 0), и на ентой размерной линии написано 1250.


Еще проще не могу написать, русский язык плохо знаю))))
Бали вне форума  
 
Непрочитано 29.01.2008, 15:08
#54
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


А что должно показать _.dist?
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 29.01.2008, 15:15
#55
Бали

Инженер
 
Регистрация: 23.03.2007
Уфа
Сообщений: 197


Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
А что должно показать _.dist?
6.25
Бали вне форума  
 
Непрочитано 29.01.2008, 15:18
#56
Дима_

Продуман
 
Регистрация: 22.02.2007
Питер
Сообщений: 2,840


На:
(defun c:dlf ( / a len)
(setq a (getpoint "Начало")
len (/ (getreal "Размер") (getvar "dimlfac")))
(command "_dimlinear" a (list (+ (nth 0 a) len) (nth 1 a)))
)
__________________
Когда в руках молоток все вокруг кажется гвоздями.
Дима_ вне форума  
 
Автор темы   Непрочитано 29.01.2008, 15:22
#57
Бали

Инженер
 
Регистрация: 23.03.2007
Уфа
Сообщений: 197


Цитата:
Сообщение от Дима_ Посмотреть сообщение
На:
(defun c:dlf ( / a len)
(setq a (getpoint "Начало")
len (/ (getreal "Размер") (getvar "dimlfac")))
(command "_dimlinear" a (list (+ (nth 0 a) len) (nth 1 a)))
)
вот вот вот, осталось только чуть чуть, как направление указывать не продумал)
Бали вне форума  
 
Непрочитано 29.01.2008, 15:24
#58
Profan


 
Регистрация: 25.12.2005
Москва
Сообщений: 13,627


Опять пустоту меряют.
Вот что должно быть:
Исходные данные: DIMLFAC=200
Рисуем отрезок. Указываем первую точку и указываем расстояние 1250. Проставляем размер - получается 1250. Находим длину отрезка в свойствах - 1250. Команда "_list" показывает 1250. Команда "_dist" показывает 1250.
Выводим на печать и видим 6.25
Profan вне форума  
 
Непрочитано 29.01.2008, 15:32
#59
CB

Конструирование в области нефтеразведки
 
Регистрация: 10.02.2006
Гомель
Сообщений: 321


Код:
[Выделить все]
(defun c:test ( / pt pt1)
  (setq
    pt
        (getpoint
          "\nSpecify first extension line origin or <select object>: "
        ) ;_ end of getpoint
    pt1 (polar
          pt
          0.
          (/ (getdist pt "\nSpecify second extension line origin: ")
             (getvar "dimlfac")
          ) ;_ end of /
        ) ;_ end of polar
  ) ;_ end of setq
  (setvar "texteval" 1)
  (setvar "cmdecho" 1)
  (command "_DIMLINEAR" pt pt1 pause)
) ;_ end of defun
CB вне форума  
 
Непрочитано 29.01.2008, 15:37
#60
Дима_

Продуман
 
Регистрация: 22.02.2007
Питер
Сообщений: 2,840


Цитата:
Сообщение от Бали Посмотреть сообщение
вот вот вот, осталось только чуть чуть, как направление указывать не продумал)
(defun c:dlf ( / napr a len)
(setq a (getpoint "Начало")
len (/ (getreal "Размер") (getvar "dimlfac")))
(initget "влево вправо вверх вниз")
(setq napr (getkword "\n Тип профиля? [влево/вправо/вверх/вниз]"))
(if (= napr "влево")
(command "_dimlinear" a (list (- (nth 0 a) len) (nth 1 a))))
(if (= napr "вправо")
(command "_dimlinear" a (list (+ (nth 0 a) len) (nth 1 a))))
(if (= napr "вверх")
(command "_dimlinear" a (list (nth 0 a) (+ (nth 1 a) len))))
(if (= napr "вниз")
(command "_dimlinear" a (list (nth 0 a) (- (nth 1 a) len))))
)

По моему ерунда какая-то, но соответствует ТЗ (или нет?)
__________________
Когда в руках молоток все вокруг кажется гвоздями.
Дима_ вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Делить на measurement scale

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Эмуляция нажатия клавиш из под AutoLisp-a Supermax LISP 89 19.11.2007 14:40
Linetype Scale для слоев Werwolf AutoCAD 17 16.07.2007 14:45
Dim Scale Overall ??? Xo66iT AutoCAD 7 24.03.2006 17:37
ACAD2006. Знаки после запятой в окне Viewport Scale Control =mik= AutoCAD 2 16.06.2005 10:57
zoom scale при выводе на печать Rauf AutoCAD 3 22.01.2005 23:43