> 1 <

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

gysena

Members


Статус

2 сообщений

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

#5133   2011-11-28 17:30 GMT+3 часа(ов)      
Добрый день.
Подскажите пожалуйста как написать кпопку в autocad чтоб при нажатии по растру выводились координаты места нажатия в текстовой файл с припиской времени нажатия.
Заранее спасибо.

VH

Members


Статус

289 сообщений

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

#5134   2011-11-28 19:50 GMT+3 часа(ов)      
(defun C:F ()
(if (setq fname (getfiled "Title" "Data" "txt" (+ 1)))
(if (setq fdesc (open fname "w"))
(progn
(while (setq pt (getpoint "\nPick point <exit>: "))
(write-line
(apply 'strcat
(mapcar
'(lambda (coord delimiter)
(strcat (rtos coord 2) delimiter))
pt
(list " " " " (strcat " " (rtos (getvar "CDATE") 2 6)))))
fdesc))
(close fdesc))
(prompt "\nFile not opened."))
(prompt "\nFile not defined."))
(prin1))

gysena

Members


Статус

2 сообщений

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

#5487   2012-01-11 12:03 GMT+3 часа(ов)      
Спасибо большое за помощь
> 1 <


Онлайн :

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




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