:cry: Люди помогите нужен код по построению буквы "К", только полилиниями с заливкой. Нечё не понимаю , надо разбираться, а времени нет!!! :cry:

[Рогатин]

Может, что не понял, но можно вставить из Corel'а, а потом expressom взорвать и объединить в полилинию.

[{Smirnoff}]

Такой истошный крик в предверии курсовой? Очень странный вопросик почему именно букву "К" замкнутой полилинией? А что нибудь более практичное можно было придумать? Можно например так:

Код:

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

(defun c:kcr ()
(entmake '( (0 . "LWPOLYLINE")(100 . "AcDbEntity") (67 . 0) (410 . 
"Model") (8 . "0") (100 . "AcDbPolyline") (90 . 12) (70 . 1) (43 . 0.0) (38 . 
0.0) (39 . 0.0) (10 0.0 0.0) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 0.0 2.49928) 
(40 . 0.0) (41 . 0.0) (42 . 0.0) (10 0.505701 2.49928) (40 . 0.0) (41 . 0.0) 
(42 . 0.0) (10 0.505701 1.38993) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 1.50735 
2.49928) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 2.20233 2.49928) (40 . 0.0) (41 . 
0.0) (42 . 0.0) (10 1.26273 1.52527) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 
2.2537 0.0) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 1.59917 0.0) (40 . 0.0) (41 . 
0.0) (42 . 0.0) (10 0.914942 1.17043) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 
0.505304 0.755346) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 0.505304 0.0) (40 . 
0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0)));entmake
  (command "_.hatch" "_s" (entlast) "")
  (princ)
  ); end kcr

Но если это учебное задание, до думаю что требуется (command "_.pline" "0.0,0.0,0.0" ......... "_c") то есть тупо отрисовать полинию по координатам и потом ее замкнуть, а затем залить (command "_.hatch" "_s" (entlast) "").

Польшое спасибо! День до сдачи лабы, :P Сам бы сделал, но некогда. Куча заказов по другому, а AutoCad не шарю. Разбираться некогда. Большой Фенкс

[Perezz!!]

от перец

[виталич]

Да, живчик...