[Neznayka]

Пару наивных вопросов на которые необязательно отвечать

Как сделать кнопку, чтоб начертить такой отрезок в котором указывается направление и далее после нажатия "ввода" он сам чертится покуда не уткнется в первое препятствие, в противном случае это будет луч.
Как сделать кнопку, чтоб начертить такой отрезок, который будет в два раза меньше исходного, т.е дали указание на нормальный отрезок, но как только нажали ввод, отрезок получается в 2 раза короче.

Просто любопытно: для чего можно использовать луч и xline?
Я могу лишь только предположить что для временого построения, чтоб затем стереть.

Выбираю _rectang и ввожу например 22. Чертится прямоугольник с диагональю 22. Если повторить это же , то прямоугольник будет другим, но естественно диагональ останется такая же. Каким законом руководствуется Акад.? Методом случайных чисел? А то я логики не нашёл.

[MIP]

>>Neznayka
Для решения Вашей задачи нужен более подробный алгоритм! Во первых как Вы отрисовываете линию, по двум точкам, по точке и длинне, по точке, длинне и углу (в принципе предыдущий случай только с явным указанием угла) или испотльзуете все методы. Во вторых относительно какой точки на построенной прямой происходит уменьшение линии в два раза конечной точки, середины отрезка или вообще эта точка должна получаться путем некоторыжх только Вам известных построений. Расписав конкретно что Вам надо и что дано, Вам возможно подскажут как сделать! :wink:

[{Smirnoff}]

Чертишь обычный отрезок, а получается в 2 раза меньше - я так хочу. Сразу чтоб было. А по-твоему, мало того что отрезок целиком начертить надо, так потом лезь и его уменьшай. Не выгодно. Много движений.

Как то так:

Код:

[Выделить все]

(defun c:halfline()
  (command "_.line" pause pause "")
  (command "_.lengthen" "_p" "50" (entlast) "")
  (princ)
  ); end c:halfline

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

> Fantomas :
По-моему, не совсем прокатит: команда lengthen в качестве последнего аргумента требует указать не столько объект, сколько сторону этого объекта, которая будет обрезана.
Может быть, имеет смысл использовать нечто вида

Код:

[Выделить все]

(defun c:halfline()
  (setq StartLine (getpoint "Line start point"))
  (setq EndLine (getpoint "Line end point"))
  (command "_.line" StartLine EndLine "")
  (command "_.scale" "_Last" "" StartLine 0.5)
  )

Код непрофессиональный, отрицательных моментов тьма - предупреждаю сразу.

[{Smirnoff}]

>kpblc

Незнаю, у меня работает. Я попробывал передавать в качестве аргумента _.lengthen по аналогии с _.trim список из точки указания объекта и самого объекта, однако это не прокатывает...

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

Понял, молчу, дурак. Можно тогда мое чудовище потереть как класс?

[{Smirnoff}]

>kpblc
Все что угодно только не дурак. Это точно. Нормальный лисп выполняющий свою задачу. Единственное что невидно динаминки при отрисовке линии (а она нужна ли она). Вот так будет по твоему, но отрисовкой линии в динамике:

Код:

[Выделить все]

(defun c:halfline(/ pt)
  (command "_.line" pause pause "")
  (setq pt(cdr(assoc 10(entget(entlast)))))
  (command "_.scale" (entlast) "" pt 0.5)
  (princ)
  ); end c:halfline

[Neznayka]

Fantomas, огромное спасибо, работает как часики.
Осталось лишь меня просветить , тёмного, как этот лиспик на кнопку повесить.
И вообще люди Вы столько много написали после моего подробного объяснения.
Но я ж это в самом начале просил, что тогда было совсем непонятно?
А Вы MIP, меня не поняли. Конечно я отрисовываю линию по двум точкам, иначе если я знаю расстояние, то я в голове его могу поделить на 2! И все тогда теряет смысл. Уменьшение должно было происходить желательно с начальной точки.
Народ, спасибо за "необязательные" ответы

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

Ну если без проверки, загружен лисп или нет (файл должен быть доступен по support file path):

Код:

[Выделить все]

^C^C(load "library.lsp");halfline

Если место файла отдельно, то надо прописывать полный путь, например:

Код:

[Выделить все]

^C^C(load "d:/cad_adds/library.lsp");halfline

[Лентяй]

kpblc, чой-то я не понял, кто здесь лентяй. Вставка проверки совсем не большого труда стоит. Вот так примерно:

^C^C(if (null HALFLINE) (load "HALFLINE")) (C:HALFLINE)

Ессно, путь к HALFLINE.LSP должен быть прописан в Options.

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

Сообщение от Лентяй kpblc, чой-то я не понял, кто здесь лентяй. Вставка проверки совсем не большого труда стоит. Вот так примерно: ^C^C(if (null HALFLINE) (load "HALFLINE")) (C:HALFLINE) Ессно, путь к HALFLINE.LSP должен быть прописан в Options.

Да я и не спорю. Но соображалка что-то... в общем, отказывается работать.
Я-то посмотрел на макросы, которые прописаны в CAD 2005 на подобные штуки, понял, что DIESEL подзабыл и полез туда, а ответ написал, который работает нормально.
P.S. Пжалста, без обид. Буду теперь писать ">> Лентяй", ок? Так нормально, понятно, к кому я обращаюсь?

[Лентяй]

Я имел в виду, что ленивее меня никого нет. Потому я - Лентяй с Большой буквы, а все остальные - так, лентя,, лентяйчики и подлентяешки. А я - единственный Лентяй, в своей Лени унинкальный, и потому - неповторимый. Вот.

[Pilot]

Нет. Самым ленивым был Верещагин, именем которого назван метод решения статически неопределимых конструкций. Это - хрестоматийный пример.

[Neznayka]

Не могу заштриховать сплайн . Солидом залить могу , а вот ANSI31 не могу, не даёт Автокад.
Сплайн большой (где-то с А3), чертеж тоже большой (А0) хотя весит мало (1 Мб).
Хотя с раза двадцатого один раз получилось, просто тупо повторял одно и тоже и через ctrl+1 все-таки поменял штриховку.
Штриховка редкая (масштаб 100), пробовал поставить масштаб равный 1 - и мой довольно дохловатый комп смог ворочать эту штриховку. Значит дело не производительности, а в чём???

[Anton_MADI]

Я почитал ответы и понял - самой большой незнайка здесь я!
Буду всем благодарен если вы ответите и на мой наивный вопрос:
Возможно ли перевести рисунок из формата "Microsoft Office Document Imaging" в чертеж АвтоКАДа.. (на рисунке - чертеж детали) :?:
И вообще, что это это такое (Microsoft Office Document Imaging) и с чем его "едят" :?:
За ответы заранее спасибо!

[Neznayka]

Anton_MADI у тебя должен быть офис 2003 там есть Microsoft Office Document Imaging" (он еще виртуальным принтером делается)
В свойствах этой программы ты меняешь формат печати с *.mdi на tif,
ну а дальше ты сам знаешь

[Anton_MADI]

Я же говорю: я самый большой незнайка)))
И что делать с .tif - тоже не знаю...

[Neznayka]

с тифом вставлять Акад и обводить
(вставлять просто - ты с Проводника просто перетащи в рабочее поле Акада и 3 раза на пробел нажми