[Zaghim]

Друзья, вот программка, достаточно простенькая. Она работает в Автокаде 2008 без проблем, в 10 версии не хочет. Слетает на команде BREAK. Подскажите в чем дело? Заранее благодарю!

Код:

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

(DEFUN C:FF()
(setq A (getpoint "\n введите 1 точку "));ЗАПРОС 1 ТОЧКИ
(setq B (getpoint A "\n введите нормаль трубы "));ЗАПРОС ВТОРОЙ ТОЧКИ
(SETQ UAB (ANGLE A B ))
(SETQ DAB (DISTANCE A B))
(SETQ DAB2 (/ DAB 2))  
(SETQ KSC (/ DAB 76))
(IF (< DAB 49)(SETQ RAS 297.3112)(SETQ RAS 288.7044));РАЗМЕРЫ ОБРЕЗКИ
(SETQ DOF (* RAS KSC))
(SETQ UOF (+ UAB 1.5708))
(SETQ POF (POLAR A UOF DOF))
(SETQ C (POLAR A UAB DAB2))
(SETQ C1 (POLAR C UOF DOF))  
(SETQ A1 (POLAR A UOF DOF))
(SETQ B1 (POLAR B UOF DOF))    
(COMMAND "_BREAK" A A1)
(COMMAND "_BREAK" B B1)
(COMMAND "_BREAK" C C1)    
(IF (< DAB 49)(FF_d50)(FF_p50))
(SETQ OB (SSGET "l"))  
(COMMAND "_SCALE" OB "" A KSC "")
(COMMAND "_EXPLODE" OB ""))

(defun FF_d50()
(COMMAND "_INSERT" "ORAS_FILTER_FAS" A""""B);бЛОК ДО ДИАМЕТРА 50
)

(defun FF_p50()
(COMMAND "_INSERT" "NAVAL_FILTER_FAS" A""""B);бЛОК ПОСЛЕ ДИАМЕТРА 50
)

[E-degtyarev]

Не вполне понятно, что должна делать программа и кому дана команда _BREAK? О какой трубе идет базар?

[Zaghim]

Рисуем трубу, любого диаметра. Потом указываем точку вставки арматуры, нормаль трубы - это ее диаметр, потом нарисованная труба обрезается, туда вставляется блок и взрывается.

[E-degtyarev]

http://dwg.ru/pub/12 Здесь ИМХО лежит более красивое решение, спасибо VOVe!
У меня нет 2010 CADa, попробуй прогнать вручную _BREAK из ком. строки. Думаю все прояснится.

[Zaghim]

Это все понятно, но не решает конкретной проблемы... ведь не понятно в чем дело, команды одни и теже, в 8 работает, в 10 нет, либо раз, через 10

[E-degtyarev]

От командных методов уходить однако нужно, хотя они и привлекают простотой.

[VVA]

Сообщение от Zaghim едь не понятно в чем дело, команды одни и теже, в 8 работает, в 10 нет, либо раз, через 10

Вот тебе пример: Помогите исправить программу под 2010 версию

[Zaghim]

Примера четкого не увидел, запутался только еще больше

[VVA]

Zaghim, Пример в самом названии. Т.е. не ты первый, не ты последний. Более четкий пример в этой цитате

Дело может быть в том, что если примитив - объект "LINE", то в команду "fillet" нужно передавать список в таком виде, как его возвращет функция ENTSEL: (ENAME (X Y Z)), а если имеем дело с полилинией, то передавать в "fillet" просто точки (оставил как в старой версии)

[Zaghim]

Я хотел написать, что может вместо getpoint мне использовать entsel? Но задумался...сейчас попробую, примет ли break переменную в таком виде...

[VVA]

Сообщение от Zaghim примет ли break переменную в таком виде...

Код:

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

(and
  (setq en (entsel "\nУкажи отрезок (это и будет 1-я точка): "))
  (setq pt2 (getpoint "\n2-я точка: "))
  (command "_break" en "_none" pt2)
  )

[Zaghim]

Я долго стеснялся спросить, что значит "_none"???? Очень часто это вижу у тебя.

В общем не прокатывает этот вариант. При простановке точки я могу с помощью резиновой линии выбрать вторую и при этом работают привязки! А когда выбираю объект так уже нельзя. Дальше осевая линия, она выбиралась автоматом и так же резалась, а здесь ее приходится выбирать... в общем не годится((((

Кстати этот код срабатывает, но срабатывает раза с 5 и не понятно куда нужно точно нажать, в общем не понял при каком условии она срабатывает...

[Pastor]

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

Рисуем трубу, любого диаметра

Можно нарисовать в 3D, можно двумя параллельными линиями плюс осевая между ними, можно две концентрические окружности. О чем идет речь?

Потом указываем точку вставки арматуры

Ни разу в жизни не вставлял арматуру в трубу . И большинство людей, думаю, не вставляли. Т.е. вопрос тот же: о чем идет речь?

нормаль трубы - это ее диаметр

Нормаль - это вектор, диаметр -это число. Как может нормаль быть диаметром?

[Disney]

Сообщение от Pastor Ни разу в жизни не вставлял арматуру в трубу

А как на счёт запорной арматуры?

[Pastor]

Точно! А я то дурак, и так и сяк, кручу в уме, верчу. Думаю, нахрен в трубу пихать арматуру?

[Zaghim]

Хватит придираться к словам. Вот пример. Можно было бы и код запустить, только блок изменить... Нормаль трубы - это вторая точка на другом крае трубы, в общем такая же координата.

[Pastor]

Замени:

Код:

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

(COMMAND "_BREAK" A A1)
(COMMAND "_BREAK" B B1)
(COMMAND "_BREAK" C C1)

на:

Код:

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

(COMMAND "_BREAK" (ssname (ssget A) 0) A A1)
(COMMAND "_BREAK" (ssname (ssget B) 0) B B1)
(COMMAND "_BREAK" (ssname (ssget C) 0) C C1)

[VVA]

Сообщение от Zaghim Я долго стеснялся спросить, что значит "_none"???? Очень часто это вижу у тебя.

Это один из вариантов как не наступить на грабли №1 (читать здесь с поста #167 до примерно 234. Для твоего случая сформулировано в #181

[Zaghim]

Ребят, спасибо огромное!!!!!!!!! Пост 17 работает!!!!!!! ВСЕХ С НАСТУПАЮЩИМ!!!!!!!!!!!!!!!!!!!!!!!
VVA, тему прочитаю, спасибо за наводку!!!