> 1 <

Автор Сообщение

serjoga

Members


Статус

4 сообщений

Где: Russia
Род занятий:
Возраст:

#3635   2010-12-08 21:16 GMT+3 часа(ов)      
Здравствуйте, помогите реализовать задачку.

Произвольно размещенные на плоскости отрезки стянуть в одну заданную точку

Буду очень благодарен)

VH

Members


Статус

289 сообщений

Где: ---
Род занятий:
Возраст:

#3652   2010-12-10 16:37 GMT+3 часа(ов)      
(defun C:F ()
((lambda (fdef pt ss)
(if ss
(fdef fdef ss)))
(lambda (fname ss)
((lambda (e)
(if e
(progn
((lambda (fdef d codes)
(fdef fdef d codes))
(lambda (fname d codes)
(if codes
(fname fname (subst (cons (car codes) pt) (assoc (car codes) d) d) (cdr codes))
(entmod d)))
(entget e)
(list 10 11))
(fname fname (ssdel e ss)))
(prin1)))
(ssname ss 0)))
(progn
(initget (+ 1))
(getpoint "\nPick point: "))
(ssget "_X" '((0 . "LINE") (-4 . "*,*,=") (10 0 0 0) (-4 . "*,*,=") (11 0 0 0)))))
> 1 <


Онлайн :

0 пользователь(ей), 22 гость(ей) :




Реклама на сайте: