[Бали]

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

[Бали]

Сообщение от zenon а он ничего предьявлять не будет, просто срежет оклад или попросит написать по собственному тк задерживаешь процесс дальнейшего проектирования, или хочешь вести проект весь один??? Пойми, что не только один человек работает над проектом, а команда. В другом месте сослуживцы просто пошлют этот проект подальше и все.

Вы конечно правы, но и нас поймите, нас то, если буим как вы чертить, тоже не похвалят, остальные коллеги чертят то "неправильно".
Вернёмся к нашим баранам!

[Кулик Алексей aka kpblc]

Сообщение от Бали А есть общеутвержденные стандарты пользования автокадом, или может ГОСТ есть такой))) шоб работадатель мог предъявлять типа я неправильно черчу)))) Ну да ладно, тема то не об этом, а о проге которую почти уже написали до конца. Еще чуть чуть осталось.

Корпоративные стандарты... Нет, еще раз я не выдержу

[zenon]

ну ну

[Profan]

Для Бали.
Нет, не могу я согласиться с вашей постановкой задачи. Объект первичен, размер вторичен. Если вы сможете нарисовать объект в модели в масштабе, размер будет диктоваться одной только перемнной DIMLFAC и для образмеривания не нужны будут никакие дополнительные программы. Сейчас я специально не упоминаю DIMSCALE. По-моему, вы сознательно уводите нас от сакраментального вопроса: "Как рисовать (чертить) в масштабе" подходом якобы с другой стороны.

[Бали]

Сообщение от Кулик Алексей aka kpblc Корпоративные стандарты... Нет, еще раз я не выдержу

если бы я хотел спорить что лучше а что хуже я б на ранее открытых темах спорил бы. А в даннной теме меня интересует лишь программка, так хорошо всё начиналось, почти добили прогу, и сорвалось!)))
Давайте добьем, а?

[Бали]

Сообщение от Profan Для Бали. Нет, не могу я согласиться с вашей постановкой задачи. Объект первичен, размер вторичен. Если вы сможете нарисовать объект в модели в масштабе, размер будет диктоваться одной только перемнной DIMLFAC и для образмеривания не нужны будут никакие дополнительные программы. Сейчас я специально не упоминаю DIMSCALE. По-моему, вы сознательно уводите нас от сакраментального вопроса: "Как рисовать (чертить) в масштабе" подходом якобы с другой стороны.

немогу понять ваших поводов для возмущения, ну допустим это есть метод черчения в масштабе, ну и что? Или вы принципиально не хотите облегчать жись таким как я?

[Profan]

Как раз наоборот. Достаточно посмотреть сюда:
http://www.caduser.ru/cgi-bin/f1/board.cgi?t=25833zs
и сюда:
http://www.caduser.ru/cgi-bin/f1/board.cgi?t=28264gr
Владимир Громов - это я.

[Бали]

Сообщение от Profan Как раз наоборот. Достаточно посмотреть сюда: http://www.caduser.ru/cgi-bin/f1/board.cgi?t=25833zs и сюда: http://www.caduser.ru/cgi-bin/f1/board.cgi?t=28264gr Владимир Громов - это я.

Ну так помогите с вопросом)

[zenon]

Сообщение от Бали немогу понять ваших поводов для возмущения, ну допустим это есть метод черчения в масштабе, ну и что? Или вы принципиально не хотите облегчать жись таким как я?

Наоборот хотим облегчить.
Не давай голодному рыбы, а дай удочку, а лучше дать знание как сделать удочку (с)

[CB]

По моему начался новый виток темы "Легко и в масштабе" .

[Кулик Алексей aka kpblc]

Сообщение от Бали немогу понять ваших поводов для возмущения, ну допустим это есть метод черчения в масштабе, ну и что? Или вы принципиально не хотите облегчать жись таким как я?

Лично я принципиально не хочу поощрять неверный (с моей точки зрения) метод работы. Вот фактически единственная причина, по которой я не стал ничего придумывать. Вполне возможно, я поступаю неправильно, но "сделанного не воротишь"

[Profan]

Судя по масштабам (например, 1:200), Бали не машиностроитель, среди которых много сторонников чертить в масштабе...

[Кулик Алексей aka kpblc]

Как будто строители из другого теста...

[Бали]

Сообщение от Кулик Алексей aka kpblc Лично я принципиально не хочу поощрять неверный (с моей точки зрения) метод работы. Вот фактически единственная причина, по которой я не стал ничего придумывать. Вполне возможно, я поступаю неправильно, но "сделанного не воротишь"

Вот человек хороший (VVA) сваял прогу отличную
(defun c:test ( / pt pt1)
(if (and
(setq pt (getpoint "\nНачало первой выносной линии <выход>: "))
(if (setq pt1 (getpoint pt "\nНачало второй выносной линии (с пересчетом dimlfac) <покажу точку без перечсета>: "))
(setq pt1 (polar pt (angle pt pt1)(/ (distance pt pt1)(getvar "dimlfac"))))
t
)
)
(progn
(setvar "texteval" 1)
(setvar "cmdecho" 1)
(command "_DIMLINEAR" "_non" pt )
(if pt1 (command "_non" pt1))
(while (> (getvar "CMDACTIVE") 0)(command pause))
)
)
) ;_ end of defun

всё классно работает, так как я хотел. есть конечно моменты которые можно доработать. А вы боялись))

[Profan]

Можно еще "_DIMLINEAR" заменить на "_DIMALIGNED" и тогда вообще райская жизнь наступит. Можно безбоязненно мерять пустоту, сгущать тьму.

[Бали]

Сообщение от Profan Можно еще "_DIMLINEAR" заменить на "_DIMALIGNED" и тогда вообще райская жизнь наступит. Можно безбоязненно мерять пустоту, сгущать тьму.

можно на "_line" также заменить))

[Profan]

Отрисовка отрезка с проставлением размера. За основу взята программа VVA.

(defun c:test ( / pt pt1)
(if (and
(setq pt (getpoint "\nНачальная точка <выход>: "))
(if (setq pt1 (getpoint pt "\nКонечная точка (с пересчетом dimlfac) <покажу точку без пересчета>: "))
(setq pt1 (polar pt (angle pt pt1)(/ (distance pt pt1)(getvar "dimlfac"))))
t
)
)
(progn
(setvar "texteval" 1)
(command "_LINE" "_non" pt "_non" pt1 "")
(princ "\nУкажите положение размерной линии: ")
(command "_DIMALIGNED" pt pt1 pause)
)
)
(princ)
)

[Бали]

Сообщение от Profan Отрисовка отрезка с проставлением размера. За основу взята программа VVA. (defun c:test ( / pt pt1) (if (and (setq pt (getpoint "\nНачальная точка <выход>: ")) (if (setq pt1 (getpoint pt "\nКонечная точка (с пересчетом dimlfac) <покажу точку без пересчета>: ")) (setq pt1 (polar pt (angle pt pt1)(/ (distance pt pt1)(getvar "dimlfac")))) t ) ) (progn (setvar "texteval" 1) (command "_LINE" "_non" pt "_non" pt1 "") (princ "\nУкажите положение размерной линии: ") (command "_DIMALIGNED" pt pt1 pause) ) ) (princ) )

оригинал получше всетаки

[Profan]

Ну, тогда сами вставьте в оригинал "_line".

[Кулик Алексей aka kpblc]

> Бали: Ессно лучше. У тебя привязки не обнуляются