[faNtom*]

В автокаде начал работать недавно, нужно создать план теодолитного хода. Например: по оси X начальная точка должна быть 300, по Y-400.
Как создать такую ПСК? Сам попробовал ПСК - Начало. Получилось что 300 и 400 это конечные точки. Как сделать что бы они были начальными?
Простите если такая тема на форуме есть. Нет времени, сдать нужно через 2 дня.

[Vladimir_Sergeevich]

Не геодезист, но работаю на планах. Сколько работаю - всегда планы были в МСК сделаны, с одним большим "но".
Геодезические координаты и математические (в каде) идут наоборот.
Руками это делать - извращение в чистом виде. Наши топографы, если не путаю, делают это в кредо.
Если есть экселька с координатами могу предложить что нибдть такое:

Код:

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

 (vl-load-com)
(defun html-export (path)
  ((lambda (excel)
     (vlax-invoke-method (vlax-get-property excel 'Workbooks) 'Open path)
     ((lambda (ret)
        (vlax-invoke-method excel 'Quit)
        ret)
      (mapcar '(lambda (row) (mapcar 'vlax-variant-value row))
              (vlax-safearray->list
               (vlax-variant-value
                (vlax-get-property
                 (vlax-get-property
                  (vlax-get-property
                   (vlax-get-property excel 'Worksheets) 'Item 1) 'UsedRange) 'Value))))))
   (vlax-create-object "excel.application")))

(defun sad-get-value (str / )
(if (vl-string-search "," str 1)
(setq str (vl-string-subst "." "," str))
);if
(princ str)
);sad-get-value

(defun c:r-xlsx ( / file adoc *mspace* sp line coor-x coor-y)
(setq adoc (vla-get-activedocument (vlax-get-acad-object))
      *mspace* (vla-get-ModelSpace adoc))
(setq file (getfiled "\n" "" "xlsx" 0))
(setq sp (html-export file))
(while sp
(setq line (car sp))
(princ line)
(setq coor-x (car line)		;;где то тут надо подбирать нужные поля
      coor-y (cadr line))
(princ coor-x)
(vla-addCircle *mspace* (vlax-3d-point (list coor-y coor-x 0)) 0.4) ;;отрисовывает окружности
(setq sp (cdr sp))
);end while
(princ) 
);end

делал давно и уже не помню зачем (координаты деревьев, что ли давали так). файлик должен быть в *.xlsx

[shuttermage]

Я понять не могу, зачем нужна ПСК?
Ставите точки по координатам через решетку
Кнопка "Точка"; ввод с клавиатуры #-400,300; Enter.
Повторить со следующими координатами. Далее полученные точки соединяете, оформляете рюшечки-рамки, сдаете преподу.
Итого - посаженный в координаты теодолитный ход, можно мерить углы, расстояния, получать координаты точек построения и т.д. и т.п.

ЗЫ Координаты намеренно наоброт показал, потому что в геодезии ось X вертикальна.

ЗЗЫ Если точек много - то или через лисп, приведенный выше, или через текстовый документ и команду ПАКЕТ.