|
||
| Правила | Регистрация | Пользователи | Сообщения за день | | Поиск | | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,844
|
Бали, если тебе не жалко, выложи свой "неправильный" файлик на всеобщее растерзание - может, чего и посоветуется. А таких форумов (где "неправильно-модель-кульман-масштаб-и-все-для-такого") лично я не знаю
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Инженер Регистрация: 23.03.2007
Уфа
Сообщений: 197
|
задача чисто гипотетическая, но файлик все же выложу
|
|||
|
||||
Продуман Регистрация: 22.02.2007
Питер
Сообщений: 2,840
|
Цитата:
(defun c:dlf ( / a b) (setq a (getpoint "Начало") b (getpoint a "Конец")) (command "_dimlinear" a b "_t" (rtos (distance a b))) )
__________________
Когда в руках молоток все вокруг кажется гвоздями. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,844
|
А ты работаешь в 2008-м, что ли?
--- То, что у меня получилось "по-быстрому"
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. Последний раз редактировалось Кулик Алексей aka kpblc, 29.01.2008 в 14:42. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,844
|
Дима_, вопрос был к Бали. Я твоего поста еще не видел.
Бали, да в общем-то в 2008-м масса вещей сделана для того как раз, чтоб рисовать в М1:1, и при печати не иметь проблем с масштабируемыми вещами типа блоков, текстов и размеров. Посмотри мой пост #47 - я там выложил чего получилось. Все, я испаримшись на некоторое время.
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Инженер Регистрация: 23.03.2007
Уфа
Сообщений: 197
|
Цитата:
Господа, меня прога интересует, суть проги в названии данной темы. Вводим расстояние от первой точки 1250 единиц, а прога откладывает (1250/димлфак) единиц |
|||
|
||||
Продуман Регистрация: 22.02.2007
Питер
Сообщений: 2,840
|
Все пипиец! - распиши как для детей дебилов - последовательность действий программы. что в твоей интерпртитации значит "вводим расстояние" и "прога откладывает"???
__________________
Когда в руках молоток все вокруг кажется гвоздями. |
|||
|
||||
Инженер Регистрация: 23.03.2007
Уфа
Сообщений: 197
|
Цитата:
Задание: 1) укажите базовую точку: поставил 0,0 2) какой размер хотите отложить? (1250, 3000, 640, etc): написал 1250 Результат: размерная линия - одна точка на (0, 0) , вторая точка на (6.25, 0), и на ентой размерной линии написано 1250. Еще проще не могу написать, русский язык плохо знаю)))) |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,844
|
А что должно показать _.dist?
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Продуман Регистрация: 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))) )
__________________
Когда в руках молоток все вокруг кажется гвоздями. |
|||
|
||||
Инженер Регистрация: 23.03.2007
Уфа
Сообщений: 197
|
|
|||
|
||||
Регистрация: 25.12.2005
Москва
Сообщений: 13,627
|
Опять пустоту меряют.
Вот что должно быть: Исходные данные: DIMLFAC=200 Рисуем отрезок. Указываем первую точку и указываем расстояние 1250. Проставляем размер - получается 1250. Находим длину отрезка в свойствах - 1250. Команда "_list" показывает 1250. Команда "_dist" показывает 1250. Выводим на печать и видим 6.25 |
|||
|
||||
Продуман Регистрация: 22.02.2007
Питер
Сообщений: 2,840
|
Цитата:
(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)))) ) По моему ерунда какая-то, но соответствует ТЗ (или нет?)
__________________
Когда в руках молоток все вокруг кажется гвоздями. |
|||
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Эмуляция нажатия клавиш из под 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 |