[kminas]

Как считать координаты в файл, затем плясать от них: добавлять (отнимать) и снова записывать?

[fixo]

Код:

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

(defun c:test()
(setvar "osmode" 703)
(setvar "cmdecho" 0)  
(setq pt (getpoint "\nPick point on screen: "))
(setq orig
       (getpoint "\nSpecify origin point <or press Enter to set default (0,0,0) >: "))
(if (null orig)(setq orig '(0.0 0.0 0.0)))
; here is a point you have a got from your "module" i.e.(5,10,0):
(setq level (getpoint "\nSpecify a level point <or press Enter to set default (5,10,0)>: "))
(if (null level)(setq level '(5.0 10.0 0.0)))
(setq outpt (mapcar '+ level pt))
(setvar "osmode" 0)
(command "_.point" (trans outpt 1 0 orig) "")
(alert (strcat "point 1: " (vl-princ-to-string pt) "\n"
	       "point 2: " (vl-princ-to-string level) "\n"
	       "point 3: " (vl-princ-to-string outpt) ))
(setvar "cmdecho" 1)  
(setvar "osmode" 703)
(princ)
)

?????????????????????????

~'J'~

[kminas]

Спасибо, Fatty! Буду изучать!