[сержик_32]

Нужна программа которая бы строила квадрат и внутри заштриховывала
его штрих пунтирной линией. Помогите кто может ,а то мне уже завтра надо сдавать ,,,

[Дима_]

Пришла весна, пошел студент:
держи на 3 балла может хватит

Код:

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

(command "_rectang" "_none" '(0 0) "_none" '(50 50))
(command "_-hatch" "_p" "_mudst" 1 0 "_s" (entlast) "" "")

[Солидворкер]

На переименование темы 24 часа.
Offtop: Хотя, я так понимаю, через 18 часов уже сдача

[сержик_32]

Солидворкер ты полностью прав до сдачи осталось не так много времени , но можно чуть код по больше а то уж и 3 непоставят

ну плизз помогите бедному студенту ????!!!

[E-degtyarev]

Ну, если еще не сдавал, добавь пару строк:

Код:

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

(defun C:kvd ()
(setq s_kv (getdist "\nДлина стороны квадрата:"))
(setq p1 (getpoint "\nТочка вставки:"))
(setq p2 (list (+ (car p1) s_kv) (+ (cadr p1) s_kv)))
(command "_rectang" "_none" p1 "_none" p2)
(command "_-hatch" "_p" "_mudst" 1 0 "_s" (entlast) "" "")
  )