[Jonas]

Написал макрос для отрисовки оси (пльца) с отверстием под шплинт.
Рабоает, может и бестолково но на данном этапе устраивает.

Код:

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

^C^C_osmode;4;_cylinder;\\\(setq ent1 (entlast));_cylinder;@;\\(setq ent2 (entlast));_chamfer;д;\;;\;;;@;;;;;\;;;@;;;;_ucs;x;;_osmode;16;_'cal;p1=cur;\_cylinder;'cal;p1;\\1000;_move;_last;;@;\_subtract;'cal;p1;\;_last;;_ucs;_p;(vl-cmdf "_union" ent1 " " ent2 "");_osmode;951;

Теперь пробую создать макрос для установки в ось масленки, порядок следующий:

- выбираю ось (палец),
- сохраняю объект,
- указываю центр вставки,
- сохраняю точку. Р1.
- создаю цилиндр д=28 и Н=30,
- вычитаю созданый цилиндр из оси,
- рисую линию из точки Р1 до точки поперечного отвестия (для смазки),
- сохраняю последнюю точку, Р2.
- рисую цилиндр из точки Р1 д=5 до точки Р2,
и вот тут не вводится указаный радиус 5.

Код:

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

^C^C_osmode;4;(setq esl1 (entsel "Выберите объект:  "));\_cylinder;\14;30;_cal;p1=@;(setq ent1 (entlast));(vl-cmdf "_subtract" esl1 "" ent1 "");_line;@;\;_erase;_last;;_cal;p2=@;_cylinder;'_cal;p1;;5;'_cal;p2;;

Почему не видит 5?

[kp+]

Если ты уже написал пол-макроса на ЛИСПе, доведи дело до конца и не мучайся. Прога на ЛИСПе ведет себя более предсказуемо

[Jonas]

Спасибо заранее.
В конце нужно вставить блок "масленка".

В общем дописал макрос. Работает. Сейчас эадача вставить правильные запросы в тестовой строе.

Код:

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

^C^C_osmode;4;(setq esl1 (entsel "Выберите объект:  "));\_cylinder;\10;15;_cal;p1=@;(setq ent2 (entlast));(vl-cmdf "_subtract" esl1 "" ent2 "");_cylinder;'_cal;p1;\д;8.95;\(setq ent3 (entlast));(vl-cmdf "_subtract" esl1 "" ent3 "");_ucs;y;;_cylinder;\3;\(setq ent4 (entlast));(vl-cmdf "_subtract" esl1 "" ent4 "");_ucs;_p;_-insert;масленка;'_cal;p1;\;;_osmode;951;