> 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 пользователь(ей), 45 гость(ей) :