[slan.ru]

Добрый день, уважаемые знатоки!

Сразу прошу, не пинайте ногами и не отправляйте в поиск. Все темы, в заголовках которых есть слово "координаты" и "координат" прочитал. Нашел много полезного для себя и практически то, что искал. Но многое остается в полутьме для моего мозга. Сама суть моего поста.

Я работаю в дорожном строительстве. С недавнего времени моя организация приобрела электронный тахеометр. На данный момент ось дороги выносим в натуру с помощью него. Координаты X и Y узловых точек по оси беру из CREDO_MIX, а координату Z подставляю по мере необходимости и вида выноса. Для фрезеровки, нижнего слоя, верхнего, и.т.п.

Возникла необходимость выноса в натуру кромок проезжей части. Но они не всегда соответствуют виду оси. В городских условиях могут быть примыкания, карманы для автобусных остановок и.т.п. Требуется (для начала) получить координаты узловых точек. Хочу начать с того, что бы получить координаты ВЫБРАННЫХ ТОЧЕК в текстовый файл. Последовательность:

1. Проставляем токи в требуемых узлах.
2. Выбираем необходимые точки.
3. Запускаем макрос.
4. Макрос создает в каталоге текстовый файл c названием как у чертежа.
5. Туда записываются координаты примитивов (вроде бы так тут это называют) в формате:
Pt X Y Z <Space>, где
Pt - для начала просто нумерация точек по мере добавления в файл,
X Y Z - координаты,
<Space> - разделитель.

От Вас прошу помощи. В программировании мало понимаю, но для меня пока что ясно, что скрипты можно создать как макрос - VBA, и LISP - на собственном языке. Хотелось бы увидеть такой скрипт, я думаю он не будет громоздким, на удобном Вам языке, но с описанием. Начну разбираться - с чего-нибудь надо начинать. Для начала поставленная задача будет минимальной, в дальнейшем хочу усложнить задачу собственными силами, если потяну.

Сразу оговорюсь, возможности купить ToolPak, Express и уж тем более Civil у меня нет, , да и не требуется пока мне выполнение задач отличных от этой. Поэтому надеюсь на Вашу помощь в написании такого скрипта. А уж за описание процедуры - буду безгранично благодарен.

P.S> Если требуются еще исходные данные - готов в найкротчайшие сроки предоставить их.

[VVA]

Ну тебе прямой наводкой сюда:
"Снять" координаты с поворотных точек
Там есть COOR - координаты в txt, csv, exel
и COORN - тоже с нумерацией
Все это и еще больше лежит в #7
PS (шепотом) Express покупать не нужно, он входит в стандартную поставку

[slan.ru]

Уважаемый, VVA, там я был.. Как говориться по усам текло - в рот не попало. Тяжко для начала. Два очень навороченныхъ LISP'а. Хочу разобраться с работой такого LISP с самых низов.

Вот, что я нашел во всемирной паутине:

Код:

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

;;; CDF - строки ограниченные запятыми
  (defun cdf-point (pt)
    (strcat (car pt) ", " (cadr pt) ", " (caddr pt)))
  ;;; SDF - ограниченные прбелами,
  ;;; легко обратно считывается AutoCAD
  (defun sdf-point (pt)
    (strcat (car pt) " " (cadr pt) " " (caddr pt)))
  ;;; Преобразует SDF фомат обратно в точку
  (defun str->point (s)
    (eval (read (strcat "(" s ")"))))

  ;;; Записывает в XYZ файл все выбранные
  ;;; объекты (SDF см. ниже)
  (defun C:XYZ (/ ss fname f)
    (if (and (setq ss (ssget))
          (setq fname (getfiled "Запись XYZ в файл"
                  (strcat (getvar "DWGNAME") ".XYZ") "XYZ" 7))
          (setq f (open fname "w")))
      (foreach ele (sslist ss)          ; -> [20.4]
        (foreach pt (getpts ele)        ; -> [23.1]
          (write-line (cdf-point pt) f)
        )
      )
    )
    (if f (close f))
  )
  ;;; => <fname>.xyz
  ;;; 0.45, 12.3, -34.0


Для преобразования в ASC файл (SDF-формат) нужно заменить все XYZ на ASC, и cdf-точку(cdf-point) на sdf-точку(sdf-point). 
Другой способ: создавай PLINES используя ascii x,y файл, лучше всего преобразовать файл в некий скрипт похожий на: 

PLINE
300.2,10
350.4,10.4

Моглы бы Вы мне его по-подробнее расскоментировать?

P.S> На всякий случай: если нет времени, сил и желания отвечать каждому новичку, по-сути спрашивающих одно и то же - я все понимаю.

[VVA]

Подробности в коментариях

Код:

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

  ;;; Записывает в XYZ файл координаты вабранных точек в порядке выбора
  ;;; Формат файла
  ;;; Порядковый номер Координата_X Координата_Y Координата_Z
  (defun C:XYZ (/ ss fname f i en pt str)
    (if (and
          (setq ss (ssget '((0 . "POINT")))) ;_Выбираем объект Автокада ТОчка
          (setq fname (getfiled "Запись XYZ в файл"
                  (strcat (getvar "DWGNAME") ".XYZ") "XYZ" 7)) ;_Запрашиваем файл
          (setq f (open fname "w"))                           ;_Открываем для записи
          );_ and
      (progn
        (setq i 0)
        (while (< i (sslength ss))
          (setq en (ssname ss i)) ;_Берем из набора i-й злемент
          (setq pt (cdr(assoc 10 (entget en)))) ;_ТОчка вставки объекта Автокада "Точка" (point)
          (setq str             ;_Формbруем строку из номера, координат X Y и Z? разделенных пробелом
          (strcat (itoa (1+ i)) ;_Порядковый номер, начиная с 1, переводим в строку
                  " "           ;_Пробел - разделитель
                  (rtos
                  (car pt)      ;_Координата X
                  2 12)
                  " "           ;_Пробел - разделитель
                  (rtos
                  (cadr pt)      ;_Координата Y
                  2 12)
                  " "           ;_Пробел - разделитель
                  (rtos
                  (caddr pt)      ;_Координата Z
                  2 12)
                  )
                )
          (write-line str f) ;_Пишем строку str в файл f
          (setq i (1+ i))    ;_Наращиваем счетчик
          )
    (if f (close f)) ;_Закрывем файл
        )
      )
  )

[slan.ru]

Спасибо большое, уважаемый VVA! Дали пищу для ума. Хватит на пару дней поразбираться.

По сути, когда писал первое сообщение - надеялся в конце концов создать лисп, похожий на Ваш COORN, только с несколько обратной задачей по нумерации точек. Т.е. брать их названия с чертежа, в идеале, если они есть. Я видел тут нечто подобное. Посмотрите, пожалуйста файл в аттаче и по-возможности подскажите - реально ли задуманное мною?

P.S> За файл COORN, IMHO, Вас пользователи на руках должны носить, в ряды которых я готов вступить при первой же возможности!

[Sync02]

Попробуй на VBA (как для меня то попроще чем лисп)
Вот для твоего файла примерчик

[VVA]

slan.ru Пробуй COORT для твоего примера
Описание
Экспорт координат указанных точек, выбранных объектов: точек, блоков, полилиний, сплайнов в текстовый файл, ексел с простановкой номеров
Текстовый файл — либо txt, либо csv.
Округление координат в соответствии с текущими настройками команды _UNITS (переменная LUPREC !!!)
!!!!!!!!!!!!!
Набрать в командной строке LUPREC и установить нужную точность округления.
!!!!!!!!!!

Определены 3 команды
COOR - экспорт координат
COORN -экспорт координат с нумерацией
COORT -экспорт координат с нумерацией, где номером считается ближайший к точке текст

*** Добавлено 26 августа
Из темы Lisp: coordinates of points to excel sheet (+point number)
Модифицированны и оптимизированы команды COOR, COORN, COORT, добавлена команда COORNP
COORNP - COORNP + Point - отрисовка точек в узлах полилинии. Файл Ecoor.zip
*** Добавлено 15 мая 2010
В архиве Ecoor.zip изменен принцип получения координат LW полилинии. Теперь координаты полилинии получаются как X,Y,Elevation (уровень)
================== 2012.03.28 ===========================
EcoorE тоже что Ecoor, но убраны русские сообщения в связи с проблемами при загрузке у китайских товарищей
На cadtutor'e эта тема получила дальнейшее развитие и в результате имеем
COOR - экспорт координат
COORN -экспорт координат с нумерацией
COORT -экспорт координат с нумерацией, где номером считается ближайший к точке текст
CoorNP-Координаты+Нумерация+Точки. Точки рисуются текущими режимами PDMODE and PDSIZE
COORNB - Координаты+Блок (в блок входят точка и атрибут с номером)
Так же добавлены настройки:
Суффикс, префикс, шаг инкремента, смещения, высоты текста, и символа-разделителя.
Если задать символ-разделитель, то можно получить список координат и отделить одну полилинию от другой. Что-то вида

-6473.5946,-556.051,0 -6472.4554,-554.5869,0 -6470.0142,-555.1834,0 X -6477.8259,-552.3095,0 -6475.439,-550.52,0 -6472.7266,-552.1468,0 X

В rev. 9 добавлены настройки для округления при экспорте и возможность экспортировать координаты в виде XYZ и YXZ. Читать или смотреть

rev.11 - Добавлена обработка MPolygon. В настройках добавлена опция при запросе разделителя координат опция ADD Number. В этом случае координаты получают префикс (начиная с 1) номера полилинии, сплайна, мполигона (если их выбрано несколько)

!!!Другие решения для экспорта: Ссылки здесь

[slan.ru]

Большое человеческое СПАСИБО! Обязательно протестииую и возьму на вооружение. О результатах теста отпишусь.

[slan.ru]

VVA, протестировал. Все работает на отлично. Это именно то что и нужно было. Еще раз спасибо.

[reyt-z]

VVA, пытаюсь немного модернизировать ваш лисп, дабы приспособить его для снятия координат точек и передачи их в ANSYS в виде *.mac файлов. Конечный формат файла с координатами сменить удалось. Но никак не пойму, что нужно исправить и дописать, чтобы в этом файле перед номерами точек стояло два символа: k,

[VVA]

Я так понимаю, что модифицируешь COORN
Тогда что-то типа такого (выделено красным)

Код:

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

(defun c:COORN1 (/ cFile curPt filPath objSet oFlag oldMode ptLst sFlag lw isRus Npt)
(defun group-by-num (lst num / ls ret)(if (= (rem (length lst) num ) 0)(progn (setq ls nil)
  (repeat (/ (length lst) num)(repeat num (setq ls(cons (car lst) ls)lst (cdr lst)))
  (setq ret (append ret (list (reverse ls))) ls nil)))) ret)
(defun PtCollect(SelSet)(mapcar 'cdr (mapcar '(lambda(x)(assoc 10 x))(mapcar 'entget
(vl-remove-if 'listp(mapcar 'cadr(ssnamex SelSet))))))); end of PtCollect
(defun PLCollect(SelSet / ret)
(foreach lw (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp(mapcar 'cadr(ssnamex SelSet))))
  (cond ((wcmatch (vla-get-ObjectName lw) "*Polyline")
  (setq ret (append ret (group-by-num (vlax-get lw 'Coordinates)
  (if (=(vla-get-ObjectName lw) "AcDbPolyline") 2 3)))))
       ((=(vla-get-ObjectName lw) "AcDbSpline")(setq ret (append ret (group-by-num
         (vlax-safearray->list(vlax-variant-value (vla-get-controlpoints lw)))  3))))
      (t nil))) ret)
  (vl-load-com)(setq isRus(= (getvar "SysCodePage") "ANSI_1251"))(if(not ptcol:mode)(setq ptcol:mode "Pick"))
  (initget "Указать Точка Блоки Полилиния Pick pOints Blocks poLyline _Pick pOints Blocks poLyline Pick pOints Blocks poLyline")
(setq oldMode ptcol:mode ptcol:mode
(getkword (if IsRus (strcat "\nВыберите режим [Указать/Точка/Блоки/Полилиния или сплайн] <"
(cadr (assoc ptcol:mode '(("Pick" "Указать")("pOints" "Указать")("Blocks" "Блоки")("poLyline" "Полилиния")))) ">: ")
        (strcat "\nSpecify mode [Pick/pOints/Blocks/poLyline or spline] <"ptcol:mode">: "))) ptLst nil)
(if(null ptcol:mode)(setq ptcol:mode oldMode))
(cond ((= "Pick" ptcol:mode)(setq curPt T)
       (while curPt (setq curPt(getpoint (if IsRus
         "\nУкажите точку или Enter завершения > " "\nPick point or Enter to continue > ")))
  (if curPt (setq ptLst(append ptLst(list (trans curPt 1 0))))))); end condition #1
      ((= "pOints" ptcol:mode)(if (not(setq objSet(ssget "_I" '((0 . "POINT")))))(progn
         (if IsRus (princ "\nВыберите точки и нажмите Enter ")(princ "\nSelect points and press Enter "))
   (setq objSet(ssget '((0 . "POINT"))))))(if objSet (setq ptLst(PtCollect objSet)))); end condition #2
      ((= "Blocks" ptcol:mode)(if (not(setq objSet(ssget "_I" '((0 . "INSERT")))))(progn
        (if IsRus(princ "\nВыберите блоки и нажмите Enter ")(princ "\nSelect blocks and press Enter "))
     (setq objSet(ssget '((0 . "INSERT"))))))(if objSet (setq ptLst(PtCollect objSet)))); end condition #3
      ((= "poLyline" ptcol:mode)(if (not(setq objSet(ssget "_I" '((0 . "*POLYLINE,SPLINE")))))(progn
        (if IsRus(princ "\nВыберите полилинии и нажмите Enter  ")(princ "\nSelect polyline and press Enter "))
     (setq objSet(ssget '((0 . "*POLYLINE,SPLINE"))))))(if objSet (setq ptLst(PLCollect objSet)))); end condition #4
); end cond
(if ptLst (progn (princ "\n+++++++ Coordinates list +++++++\n")(setq ptLst (mapcar '(lambda(x)(trans x 0 1)) ptLst))
(mapcar '(lambda(x)(princ(strcat "\n"(rtos(car x))","(rtos(cadr x))
(if(= 3(length x))(strcat ","(rtos(nth 2 x))) "")))) ptLst); end mapcar
(princ "\n\n+++++++++ End of list +++++++++")
(setq Npt (getint (if IsRus "\nНачальный номер точки <Не маркировать> : " "\nStart number of points <Don't mark> : " )))
(initget "Файл Excel Не Text Excel Not _Text Excel Not Text Excel Not")
(setq sFlag (getkword (if IsRus "\nСохранить координаты в [Файл/Excel/Не сохранять] <Файл> : "
"\nSave coordinates to [Text file/Excel/Not save] <Text> : ")))
(if(null sFlag)(setq sFlag "Text"))(setq oFlag Npt)(if (numberp Npt)
(foreach ln ptlst
  (text-draw                 ;_Отрисовка текста
    (itoa Npt)               ;_Номер точки
    (polar ln (/ pi 4) 1.)   ;_Координаты на 1 ед по углом 45 градусов
    (getvar "TEXTSIZE")      ;_ Текущей высотой текста
    0                        ;_Угол поворота
    nil
    )
  (setq Npt (1+ Npt))))
(setq Npt oFlag)    
(setq ptLst (mapcar '(lambda(x)(mapcar 'rtos x)) ptlst))
(cond ((and (= "Text" sFlag)(setq filPath
       (getfiled (if IsRus "Сохранение координат в текстовый файл" "Save Coordinates to Text File") "Coordinates.txt" "txt;csv" 33)))
       (setq cFile(open filPath "w"))(foreach ln ptLst (write-line (strcat "k," (if (numberp Npt)(strcat (itoa Npt) ",") "")(car ln)","(cadr ln)
         (if(= 3(length ln))(strcat ","(nth 2 ln)))) cFile)(if (numberp Npt)(setq Npt (1+ Npt))))(close cFile)(initget "Yes No")
       (setq oFlag(getkword (if IsRus "\nОткрыть файл? [Yes/No] <No> : " "\nOpen text file? [Yes/No] <No> : " )))
       (if(= oFlag "Yes")(startapp "notepad.exe" filPath))); end condition #1
     ((= "Excel" sFlag)(if (numberp Npt)(progn
      (setq ptlst (mapcar '(lambda(x)(cons (1- (setq Npt (1+ Npt))) x)) ptlst))
      (xls ptlst '("N" "X" "Y" "Z") nil "COORN"))
      (xls ptLst nil nil "COOR"))); end condition #2
     (t nil)))) (princ)); end of c:COOR

Остальные ф-ции в #7

[reyt-z]

VVA, спасибо большое Все работает

[Disney]

Владимир, огромное спасибо!
Я понимаю, что прошло уже больше полу года, и возвращаться к старым программам нет большого желания, но хотел бы вас попросить, если возможно, добавить в вашу программу следующие возможности:
1) К списку типов объектов: круг и текст,
2) Для 2D полилинии, в качестве Z, брать её уровень,
3) По запросу, в качестве Z, брать значение из близлежащего текста.
4) При маркировке, использовать префикс в номере точки.

[liberakatnem]

Это просто делается в "Инструментарии для MapInfo". Там можно выгрузить координаты селектированных объектов в TXT, XLS и Word. Сами координаты могут быть как в прямоугольных координатах, так и в виде длин и дирекционных углов или измеренных углов.

[Кулик Алексей aka kpblc]

liberakatnem, ты тему внимательно прочитал? По-моему, нет.

[bogdanov]

Здравствуйте VVA,подскажите пожалуйста, а можно ли в этом лиспе:
1. вместо простановки точек ставить круги диаметром 2 мм и от них делать выноску с номером?
2. при экспорте координат поменять Х и У местами,а также выводить их не только во внешние файлы, а в таблицу AutoCad?

[Кулик Алексей aka kpblc]

Если будет образец, то можно будет и поковыряться...
1. Обязательна ли выноска (LEADER) или можно просто вставлять текст?
2. Стиль табличный нужен, как минимум.

[bogdanov]

Вот он пример правда он немного кривой,т.к. делался вручную в максимально сжатые сроки...Выноска обязательна...требуется оформлением((И еще такой вопросик,можно ли проставлять эту нумерацию например, слева от линии или справа,для того чтобы потом вручную не относить каждый номер ?

[Кулик Алексей aka kpblc]

Слушай, да у тебя там следы Civil'a и ADT. Может, действительно попробовать Civil'овские инструменты (если, конечно, Civil вообще имеется)?

[bogdanov]

Civil имеется но как в нем работать у нас к сожалению никто не знает....((
не знаю что такое ADT... а делался этот чертеж с применением ПК Развязка

[Агент СмиТ]

Уважаемый VVA! Большое вам спасибо за COOR, всё работает! Если вам не трудно не могли бы вы подкорректировать эту функцию, т.к. при работе с двухмерными чертежами она возвращает и координату Z, которая хоть и равна нулю, но при последующем построении полилинии вставкой массива координат из буфера обмена, останавливает выполнение команды после первой же точки!

[Disney]

Мои программы по этой теме:
Экспорт координат выбранных объектов из AutoCAD в *.txt
Импорт координат из текстового файла txt (sdr csv) в AutoCAD

[Агент СмиТ]

Здравствуйте уважаемый Disney! Протестировал Вашу программу, очень порадовало наличие функции подписей на чертеже! Однако есть и несколько просьб по доработке программы

При экспорте координат точек в файл желательно:
1. при необходимости отключать номера точек;
2. отключать координату Z.

По возможности: упростить имя команды запуска программы.

Заранее спасибо!

[Disney]

Сообщение от Агент СмиТ При экспорте координат точек в файл желательно: 1. при необходимости отключать номера точек; 2. отключать координату Z.

Вот как раз за Номер, Z и Комментарий я и боролся, если они тебе не нужны то вот, даже более навороченная программа Point Manager, (для скачивания нужна регистрация, прикрепляю последнею версию программы)

Сообщение от Агент СмиТ По возможности: упростить имя команды запуска программы.

Чем проще имя команды, тем больше вероятности, что оно совпадёт с другой , при серьёзном обновлении программы добавлю альтернативное короткое название, а вообще удобнее повесить команду на кнопку, вот макрос, причём файл должен лежать в путях поиска AutoCAD, ну или на худой конец в автозагрузке

Код:

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

^C^C^P(if (not C:geo_export)(load "Geo_export_3_03_10"));^Pgeo_export;

[vladimir1963]

Сообщение от Disney Написал программу по экспорту координат(как геодезических так и математических) из AutoCADа

Disney, подскажите пожалуйста, как ее запустить?

[Агент СмиТ]

To vladimir1963

Сообщение от vladimir1963 Disney, подскажите пожалуйста, как ее запустить?

Смотрите пост #2 в этой теме-всё подробно изложено!

[zaabifff]

Особенно, если учесть, что темы с поста #2 уже не существует.

[VVA]

Сообщение от zaabifff Особенно, если учесть, что темы с поста #2 уже не существует.

Во #2 посте 2 ссылки. Та, которой не существует повторена в виде кода и улучшена в #7
Вторая ниже, в моей подписи. Именно ее и имели ввиду
------------------------------------------------------|
------------------------------------------------------|
------------------------------------------------------V Вот эта

[Агент СмиТ]

Сообщение от zaabifff Особенно, если учесть, что темы с поста #2 уже не существует.

Иногда получение новых знаний требует приложения определенных усилий. Речь шла о второй ссылке.

[Disney]

Сообщение от vladimir1963 Disney, подскажите пожалуйста, как ее запустить?

Нажмите для просмотра

http://www.youtube.com/watch?v=9v2x_cH7Dl4

[vladimir1963]

Доброго времени суток, Disney. Спасибо за видеотутор. Протестировал програмку - понравилась(очень просто пользоваться). Хотелось бы еще вывод координат на чертеж автоматически. Можно конечно просто скопировать с блокнота координаты, да вставить в отметку или описание на чертеже, но хотелось бы автоматом. Возможно ли это?

[Disney]

Сообщение от vladimir1963 вывод координат на чертеж автоматически

Нажмите для просмотра

http://www.youtube.com/watch?v=F7qf3R01kqo

1. Если блоки с полями создавать не умеешь, можешь взять готовый, например тут или посмотреть пример создания аналогичного здесь
2. Программу PoinManager возьми из #24

[vladimir1963]

Еще раз хочу сказать Вам спасибо Disney, за видеотутор, все отлично получается.

[MANUL]

Добрый день Товарищи.
Впоисках проги, наносящей на чертёж точки и подписывающей их номера обрадовался ветке.
Но рано обрадовался...

Сообщение от Агент СмиТ Здравствуйте уважаемый Disney! Протестировал Вашу программу, очень порадовало наличие функции подписей на чертеже!

Это как? Я вот пробовал такое проделать с точками из текстового файла exp_1. (вложение).
Geo_Export - не наносит точки на чертёж и не подписывает, а я надеялся что рядом с точкой пропишет атрибут из 4го столбца (её название, или номер).
Так прога даже не чертит точки.

Попробовал с другой программой: IMPORTXYZ (см.вложение). Тоже ни хрена не чертит точки, вместо этого ругается:
Команда: IMPORTXYZ
Displaying data... Done.
Opening TXT file...
Determining delimiter... Done.
Counting line numbers... Done.
Extracting coords... Done.
Closed TXT file.
Displaying data... Done.
Saving variables from dialog box... Done.
Inserting block # 1Неизвестная команда "-INSERT". Для вызова справки нажмите
F1.
1.000000
Неизвестная команда "IMPORTXYZ". Для вызова справки нажмите F1.
Неизвестная команда "IMPORTXYZ". Для вызова справки нажмите F1.
0
; ошибка: неверный тип аргумента: lentityp nil

PtManager V2.4 тоже ничего не делает.

Помогите пожалуйста разобраться в чём дело.

[hwd]

Сообщение от MANUL Впоисках проги, наносящей на чертёж точки и подписывающей их номера обрадовался ветке.

Здесь я рассматривал ряд задач, одной из них была ваша (как мне кажется). Вот ещё что-то с точками...

[Disney]

MANUL, пока посмотри тут

[Олег (jr.)]

Сообщение от MANUL Добрый день Товарищи. Впоисках проги, наносящей на чертёж точки и подписывающей их номера обрадовался ветке. Но рано обрадовался... Это как? Я вот пробовал такое проделать с точками из текстового файла exp_1. (вложение). Geo_Export - не наносит точки на чертёж и не подписывает, а я надеялся что рядом с точкой пропишет атрибут из 4го столбца (её название, или номер). Так прога даже не чертит точки. Попробовал с другой программой: IMPORTXYZ (см.вложение). Тоже ни хрена не чертит точки, вместо этого ругается: Команда: IMPORTXYZ Displaying data... Done. Opening TXT file... Determining delimiter... Done. Counting line numbers... Done. Extracting coords... Done. Closed TXT file. Displaying data... Done. Saving variables from dialog box... Done. Inserting block # 1Неизвестная команда "-INSERT". Для вызова справки нажмите F1. 1.000000 Неизвестная команда "IMPORTXYZ". Для вызова справки нажмите F1. Неизвестная команда "IMPORTXYZ". Для вызова справки нажмите F1. 0 ; ошибка: неверный тип аргумента: lentityp nil PtManager V2.4 тоже ничего не делает. Помогите пожалуйста разобраться в чём дело.

Пробуем

Код:

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

(defun C:PTCAD	(/ fname fd hgt p1 p2 strline strlist strtext)

  (defun emake-pt  (pt)
    (entmake
      (list
	(cons 0 "POINT")
	(cons 100 "AcDbEntity")
	(cons 100 "AcDbPoint")
	(cons 10 pt)
	(cons 8 "0")
	)
      )
    )

  (defun emake-mtext  (p1 p2 txt)
    (entmake
      (list
	(cons 0 "MTEXT")
	(cons 100 "AcDbEntity")
	(cons 100 "AcDbMText")	
	(cons 10 p1)
	(cons 40 (getvar "TEXTSIZE"))
	(cons 41 (abs (- (car p2) (car p1))))
	(cons 7 (getvar "TEXTSTYLE"))
	(cons 1 txt)
	(cons 71 4)
	(cons 72 5)
	(cons 73 1)

	)
      )
    )


  (defun str2lst  (str sep / pos)
    (if	(setq pos (vl-string-search sep str))
      (cons (substr str 1 pos)
	    (str2lst
	      (substr str (+ (strlen sep) pos 1))
	      sep
	      )
	    )
      (list str)
      )
    )
  (if (and (setq fname (getfiled "Select a Points Data File"
				 (getvar "dwgprefix")
				 "txt"
				 4)
		 )
	   (setq fd (open fname "r")
		 )
	   )
    (progn

      (while (setq strline (read-line fd))
	(setq strlist (cons strline strlist))
	)

      (if fd
	(close fd))
      (setq strlist
	     (mapcar '(lambda (x) (str2lst x " ")) strlist)
	    )
      (if (/= (getvar "textsize") 2.5)		  ;<--change text size
	(progn
	  (setvar "textsize" 2.5)		  ;<--change text size
	  (setq hgt (getvar "textsize")))
	(setq hgt (getvar "textsize")))
      (setvar "PDSIZE" 2.5)
      (setvar "PDMODe" 34)
      (foreach item  strlist

	(emake-pt
	  (setq p1 (mapcar 'atof (list (car item) (cadr item) (caddr item)))))
	(emake-mtext
	  (polar p1 0 (* hgt 2))
	  (polar p1 (/ pi 4) (* hgt 10))
	  (last item))
	)
      )
    )
  (princ)
  )
(prompt "\n|t***\tProgram loaded")
(C:PTCAD)
(prin1)

[MANUL]

Олег (jr.) код работает, вставляет точки и подписывает их.
Но есть проблема: нанесение точек на чертёж в соответсвии с какой то другой системой координат. Не в той что я выставил. ((( (см. вложение)
Это как то можно исправить?

(exp_1 - данные о точках)

[Олег (jr.)]

Сообщение от MANUL Олег (jr.) код работает, вставляет точки и подписывает их. Но есть проблема: нанесение точек на чертёж в соответсвии с какой то другой системой координат. Не в той что я выставил. ((( (см. вложение) Это как то можно исправить? (exp_1 - данные о точках)

Завтра освобожусь и попытаюсь переделать
(Посмотри функцию trans в справке)

[Disney]

MANUL, попробуй такую программу

[G-RAV]

Сообщение от Disney Владимир, огромное спасибо! Я понимаю, что прошло уже больше полу года, и возвращаться к старым программам нет большого желания, но хотел бы вас попросить, если возможно, добавить в вашу программу следующие возможности: 1) К списку типов объектов: круг и текст, 2) Для 2D полилинии, в качестве Z, брать её уровень, 3) По запросу, в качестве Z, брать значение из близлежащего текста. 4) При маркировке, использовать префикс в номере точки.

Уважаемый, Disney! Есть ли решение по 3-му пункту? Очень было бы полезно, потому как "вертикалка" обычно "прилетает", состоящая не из блоков, а из круг/точка и текст/мтекст...

[Disney]

Сообщение от G-RAV Сообщение от Disney 3) По запросу, в качестве Z, брать значение из близлежащего текста. Есть ли решение по 3-му пункту? Очень было бы полезно, потому как "вертикалка" обычно "прилетает", состоящая не из блоков, а из круг/точка и текст/мтекст...

Посмотри темы Создание точек с высотой из окружностей и близлежащего текста и Перенос из содержания текста в координату z рядом стоящей точки

[MANUL]

о программе вставке и подписывания: Олегу и Диснею.
Однако. Щас буим пробовать.
Команда trans не прошла. PTCAD вставляет отлично только в первоначальной системе. Очень подозрительно однокос. Неужели я нечто не верно делаю?
во всяком случае попробую сейчас Geo_Import_v1_3.VLX.
Если инет будет работать с ближайшие часы то отпишусь.

[Олег (jr.)]

Сообщение от MANUL о программе вставке и подписывания: Олегу и Диснею. Однако. Щас буим пробовать. Команда trans не прошла. PTCAD вставляет отлично только в первоначальной системе. Очень подозрительно однокос. Неужели я нечто не верно делаю? во всяком случае попробую сейчас Geo_Import_v1_3.VLX. Если инет будет работать с ближайшие часы то отпишусь.

Пробуй еще раз

Код:

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

(defun C:PTCAD	(/ fname fd hgt p1 p2 strline strlist strtext)

  (defun emake-pt  (pt)
    (entmake
      (list
	(cons 0 "POINT")
	(cons 100 "AcDbEntity")
	(cons 100 "AcDbPoint")
	(cons 10 (trans pt 1 0));<--WCS
	(cons 8 "0")
	)
      )
    )

  (defun emake-mtext  (p1 p2 txt)
    (entmake
      (list
	(cons 0 "MTEXT")
	(cons 100 "AcDbEntity")
	(cons 100 "AcDbMText")	
	(cons 10 p1 )
	(cons 40 (getvar "TEXTSIZE"))
	(cons 41 (abs (- (car p2) (car p1))))
	(cons 7 (getvar "TEXTSTYLE"))
	(cons 1 txt)
	(cons 71 4)
	(cons 72 5)
	(cons 73 1)

	)
      )
    )


  (defun str2lst  (str sep / pos)
    (if	(setq pos (vl-string-search sep str))
      (cons (substr str 1 pos)
	    (str2lst
	      (substr str (+ (strlen sep) pos 1))
	      sep
	      )
	    )
      (list str)
      )
    )
  (if (and (setq fname (getfiled "Select a Points Data File"
				 (getvar "dwgprefix")
				 "txt"
				 4)
		 )
	   (setq fd (open fname "r")
		 )
	   )
    (progn

      (while (setq strline (read-line fd))
	(setq strlist (cons strline strlist))
	)

      (if fd
	(close fd))
      (setq strlist
	     (mapcar '(lambda (x) (str2lst x " ")) strlist)
	    )
      (if (/= (getvar "textsize") 2.5)		  ;<--change text size
	(progn
	  (setvar "textsize" 2.5)		  ;<--change text size
	  (setq hgt (getvar "textsize")))
	(setq hgt (getvar "textsize")))
      (setvar "PDSIZE" 2.5)
      (setvar "PDMODe" 34)
      (foreach item  strlist

	(emake-pt (trans 
	  (setq p1 (mapcar 'atof (list (car item) (cadr item) (caddr item)))) 0 1));<--UCS
	(emake-mtext
	 (trans (trans (polar p1 0 (* hgt 2)) 1 0) 0 1);<--WCS
	  (trans(trans (polar p1 (/ pi 4) (* hgt 10)) 1 0)0 1);<--WCS
	  (last item))
	)
      (command "_.zoom" "_O" "_L" ""
	       "_.zoom" ".5x")
      )
    )
  (princ)
  )
(prompt "\n|t***\tProgram loaded")
(C:PTCAD)
(prin1)

[MANUL]

Олег здравствуйте, я попробовал с новым кодом. Наконец то приехал в Питер и могу отписаться в срочном порядке.
Нет эффекта с новым кодом.
Делал так, раз уж загружен предидущий код (ваш пост ) под названием PTCAD то файл в новым кодом я назвал PTCADa. Но с таким названием он не хочет работать (неизвестная команда PTCADa, нажмите F1) поэтому я просто изменил содержимое файла на новый код.
Ничего: вставляет так же в соответсвии с СК у которой ось X направлена на восток.Подразумеваю что ось Х координат направлена на восток а ось У направлена на север. Наверно это исходная система координат. Но МОЯ ПОЛЬЗОВАТЕЛЬСКАЯ повёрнута на угол 181.67 градусов против часовой стрелки. По пользовательской не получится вставить?

Есть ещё вопросы. Но хотелось бы решить сначала этот.

Делюсь опытом. Пользовался программой Диснея http://geodesist.ru/forum/topic.php?...274#1295056274
Та же проблема СК. Отписался с вопросами.
Может дело в выставлении геоположения и направления на север? Подскажите пожалуйста.

[Disney]

Сообщение от MANUL Но МОЯ ПОЛЬЗОВАТЕЛЬСКАЯ повёрнута на угол 181.67 градусов против часовой стрелки

Дело в том что у тебя Map 3D, и я подозреваю там пользовательская СК, задаётся как-то иначе, чем в "голом" AutoCAD, и соответственно trans в неё не переводит. Попробуй вместо точек кружочки, их не надо trans-ить, они всегда создаются в текущей(пользовательской) СК

[Олег (jr.)]

Сообщение от MANUL Олег здравствуйте, я попробовал с новым кодом. Наконец то приехал в Питер и могу отписаться в срочном порядке. Нет эффекта с новым кодом. Делал так, раз уж загружен предидущий код (ваш пост ) под названием PTCAD то файл в новым кодом я назвал PTCADa. Но с таким названием он не хочет работать (неизвестная команда PTCADa, нажмите F1) поэтому я просто изменил содержимое файла на новый код. Ничего: вставляет так же в соответсвии с СК у которой ось X направлена на восток.Подразумеваю что ось Х координат направлена на восток а ось У направлена на север. Наверно это исходная система координат. Но МОЯ ПОЛЬЗОВАТЕЛЬСКАЯ повёрнута на угол 181.67 градусов против часовой стрелки. По пользовательской не получится вставить? Есть ещё вопросы. Но хотелось бы решить сначала этот. Делюсь опытом. Пользовался программой Диснея http://geodesist.ru/forum/topic.php?...274#1295056274 Та же проблема СК. Отписался с вопросами. Может дело в выставлении геоположения и направления на север? Подскажите пожалуйста.

Следующая попытка (вроде все учел)
у меня работает нормально при любых вариантах которые я использовал
(крутил все 3 оси в разные стороны)

Код:

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

(defun C:PTCAD	(/ *error* fname fd hgt p1 p2 strline strlist strtext)
  (defun *error* (msg)
    (or (= msg "Fuction cancelled")
        (princ (strcat "Error: " msg))
    )
    (command "_undo" "_end")
    (princ)
  )
  (defun emake-pt  (pt)
    (entmake
      (list
	(cons 0 "POINT")
	(cons 100 "AcDbEntity")
	(cons 100 "AcDbPoint")
	(cons 10 (trans pt 1 0));<--WCS
	(cons 8 "0")
	)
      )
    )

  (defun emake-mtext  (p1 p2 txt)
    (entmake
      (list
	(cons 0 "MTEXT")
	(cons 100 "AcDbEntity")
	(cons 100 "AcDbMText")	
	(cons 10 (trans p1 1 0) )
	(cons 40 (getvar "TEXTSIZE"))
	(cons 41 (abs (- (car p2) (car p1))))
	(cons 7 (getvar "TEXTSTYLE"))
	(cons 1 txt)
	(cons 71 4)
	(cons 72 5)
	(cons 73 1)

	)
      )
    )


  (defun str2lst  (str sep / pos)
    (if	(setq pos (vl-string-search sep str))
      (cons (substr str 1 pos)
	    (str2lst
	      (substr str (+ (strlen sep) pos 1))
	      sep
	      )
	    )
      (list str)
      )
    )
  (command "_undo" "_begin")
  (if (and (setq fname (getfiled "Select a Points Data File"
				 (getvar "dwgprefix")
				 "txt"
				 4)
		 )
	   (setq fd (open fname "r")
		 )
	   )
    (progn

      (while (setq strline (read-line fd))
	(setq strlist (cons strline strlist))
	)

      (if fd
	(close fd))
      (setq strlist
	     (mapcar '(lambda (x) (str2lst x " ")) strlist)
	    )
      (if (/= (getvar "textsize") 2.5)		  ;<--change text size
	(progn
	  (setvar "textsize" 2.5)		  ;<--change text size
	  (setq hgt (getvar "textsize")))
	(setq hgt (getvar "textsize")))
      (setvar "PDSIZE" 2.5)
      (setvar "PDMODe" 34)
      (foreach item  strlist

	(emake-pt (trans 
	  (trans (setq p1 (mapcar 'atof (list (car item) (cadr item) (caddr item)))) 1 0)0 1 t));<--WCS
	(emake-mtext
	 (trans (trans (polar p1 0 (* hgt 2)) 1 0) 0 1 t);<--WCS
	  (trans(trans (polar p1 (/ pi 4) (* hgt 10)) 1 0)0 1 t);<--WCS
	  (last item))
	)
      (command "_.zoom" "_O" "_L" ""
	       "_.zoom" ".5x")
      )
    )
  (princ)
  )
(prompt "\n\t***\tВведите: PTCAD для старта программы")

(prin1)

[MANUL]

Олег, спасибо огромное. Теперь отметки точек отображаются в соответсвии с моей СК.

С вашего позволения к вам ещё один вопрос Вам:
Не сочтите за идиотизм, но нельзя ли сделать так чтобы нименование точк не накладывалось на саму отметку? (см.вложение: "indication problem")


Товарищи, общий вопрос:
Каким образом отслеживать ещё и географические коодинаты? При условии что положение геомаркера задано и и текущему чертежу вроде назначена СК: LL84 (см. вложение: "LL84 problem"). Шаблон: map2d.

Заранее благодарю за внимание и лично кто в Питере.

[Disney]

Сообщение от Олег (jr.) Код: [Выделить все] (trans(trans point 1 0)0 1 t);<--WCS

Олег, объясни пожалуйста принцип этого "транс перетранс", в справке нашёл, что при t point рассматривается не как точка, а как координаты вектор перемещения. вроде всё чёрным по-русскому написано, но что-то не доходит, наверно я в школе уроки векторной алгебры прогулял...
Ну если мы вставляем в ПСК, то мне кажется, ещё стоит и вектор выдавливания DXF код 210, тоже trans-ить

Сообщение от MANUL Каким образом отслеживать ещё и географические коодинаты?

Спроси у у пользователей Map в ветке Вертикальные решения на базе AutoCAD
А в голом AutoCAD, можно настроить географическое отображение координат(если предварительно установить ГЕОПОЛОЖЕНИЕ) в строке состояния см. вложение.

Соответственно вопрос знатокам: от куда и как можно выудить заданные параметры геоположения?

[hwd]

Сообщение от MANUL ... Не сочтите за идиотизм, но нельзя ли сделать так чтобы нименование точк не накладывалось на саму отметку? (см.вложение: "indication problem")...

можно. например так, как это показано здесь (использовать дин.блок).

[MANUL]

Ещё раз здравствуйте.
Дисней, спасибо за совет но я так и не понял как сдвинуть блок атрибута (ну чтобы надпись не на точке светилась). Если есть где понятнее то не будете ли вы так любезны кинуть ссылку на видео ролик?

Олег, спасибо за PTCAD. но оказалась проблема.
я применил прогу к старому файлу (прилагаю). В нм есть уже географическая привязка, так как точки импортированы из Аксесса.

Но при нанесении точек на слой "0" содержимое остальных слоёв не индицируется. И на оборот: если я покажу слой какой то на карте (например там есть нужный мне для работы waypoints) то воспользовавшись командой PTCAD я не увижу точек.
Не могли бы вы помочь в этом? В чём дело? Вашей программе не пофигу где работать, есть же система координат привязанная к одной точке на карте. Странно, с новым файлом работает однако. С этим нет.

[Олег (jr.)]

Сообщение от MANUL Странно, с новым файлом работает однако. С этим нет.

У меня не открывается твой чертеж (имею только версию 2009)
С другой стороны не уверен что помогу, поскольку в геграфических не работал вовсе,
смогу помочь только в общих вопросах)
Но на всякий случай перегрузи на указанную версию...

[MANUL]

вот файл из архива. Содержание тоже самое
дал сохранить только в LT2007. Не было выбора МАПа 2009.

[Олег (jr.)]

Сообщение от MANUL вот файл из архива. Содержание тоже самое дал сохранить только в LT2007. Не было выбора МАПа 2009.

Не могу открыть даже через конвертер DwgTrueView
Вот лог:


Conversion File Format: AutoCAD 2007/LT 2007 Drawing Format
Conversion package type: In-place (overwrite files)
Converted DWG files: 0
Recovered DWG files: 0
Conversion errors: 1


Conversion Errors
Unconverted files:
The files listed below could not be saved due to a sharing violation or disk write problem.
C:\...\Олег\...\DwgRu\complex.dwg

[Елпанов Евгений]

открыл файл в 2011 акаде и пересохранил в версии 2004.
Проверил в акаде 2008 - открывается...

[Олег (jr.)]

Спасибо


MANUL
Я тут нашел ссылку:
http://www.movable-type.co.uk/scripts/latlong.html
моих мозгов маловато чтобы тут помочь, тут спец знания
вопроса нужны
Так что извини

А на нужный слой можешь поменять в коде сам - ищи группы в
локальных функциях:
(cons 8 "0")
и замени на:
(cons 8 "waypoints") или добавляй туда имя слоя как аргумент

[isheedo]

Сообщение от VVA slan.ru Пробуй COORT для твоего примера Описание Экспорт координат указанных точек, выбранных объектов: точек, блоков, полилиний, сплайнов в текстовый файл, ексел с простановкой номеров Текстовый файл — либо txt, либо csv. Округление координат в соответствии с текущими настройками команды _UNITS (переменная LUPREC !!!) !!!!!!!!!!!!! Набрать в командной строке LUPREC и установить нужную точность округления. !!!!!!!!!! Определены 3 команды COOR - экспорт координат COORN -экспорт координат с нумерацией COORT -экспорт координат с нумерацией, где номером считается ближайший к точке текст *** Добавлено 26 августа Из темы Lisp: coordinates of points to excel sheet (+point number) Модифицированны и оптимизированы команды COOR, COORN, COORT, добавлена команда COORNP COORNP - COORNP + Point - отрисовка точек в узлах полилинии. Файл Ecoor.zip *** Добавлено 15 мая 2010 В архиве Ecoor.zip изменен принцип получения координат LW полилинии. Теперь координаты полилинии получаются как X,Y,Elevation (уровень)

Хотя предназначалось не для меня,но хотел бы поблагодарить. Сильно облегчило жизнь

[VVA]

isheedo, Наздоровье

[isheedo]

2VVA
Если использовать команду coorn,то на чертеже проставляются номера точек,что чрезвычайно удобно. Нельзя ли добавить возможность помимо номеров точек отрисовывать окружность вокруг точки с задаваемым радиусом? В автолиспе не понимаю,но догадываюсь,что делается это несложно. Заранее спасибо

[VVA]

isheedo,

COORNP - COORNP + Point - отрисовка точек в узлах полилинии. Файл Ecoor.zip

Если для точки настроить PDMODE = 33 (круг) и соответственно установить нужный PDSIZE не подойдет?

[isheedo]

Сообщение от VVA isheedo, Если для точки настроить PDMODE = 33 (круг) и соответственно установить нужный PDSIZE на подойдет?

ок,спасибо)

[trir]

Чтобы отслеживать координаты в Map, надо установит СК для чертежа:
http://forum.dwg.ru/showthread.php?t=63171
пост № 6

[Vladimir_Sergeevich]

Предлагаю еще свой вариант. Проще и наглядней и есть возможность отмены последней поставленной точки (правда на ctrl+z прикрутить не смог).
Писал конкретно для координорования отвода. точки и текст ставятся в один из двух предлагаемых слоев.
Заранее извиняюсь перед владельцами английских версий, Вам придется искать русскоязычные команды в коде и менять их на аутентичные (подобрать смог не все)

Код:

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

  ;(ver)"Visual LISP 2010 (ru)"
;(c)Кобелев Владимир aka SADist
(defun c:ot2 ( /  h cordotv x xl oldcmd oldct oldcol oldw file i adoc lotv)
      (defun *error* (msg)
      (setq xl (open file "w"))
 (write-line "\tX\tY" xl) 
 (foreach item (reverse cordotv)
 (write-line (strcat (itoa (car item)) "\t" (cadr item) "\t" (caddr item)) xl)
 );end foreach
 (close xl)
      (setvar "CELTYPE" oldct)      (setvar "cecolor" oldcol)      (setvar "celweight" oldw)      (setvar "CMDECHO" oldcmd)
      (princ msg)
      (princ)
      );end of error
(setq oldcmd (getvar "CMDECHO") oldct (getvar "CELTYPE") oldcol (getvar "cecolor") oldw (getvar "celweight"))
(setvar "CMDECHO" 1) (setvar "CELTYPE" "bylayer") (setvar "celweight" -1) (setvar "cecolor" "bylayer")
(if (and (setq file (getfiled "новый файл" "" "xls" 1)) 
  (/= file "") 
    );end and
   (progn
   (initget 1 "Постоянный Временный")
   (setq lotv (getkword "\nВыберите вид отведения: [Постоянный/Временный]"))
   (if (= lotv "Временный") (command "_layer" "_m" "vr_otvod" "_lw" "0.4" "" "_c" "92" "" "") 
       (command "_layer" "_m" "otvod" "_lw" "0.4" "" "_c" "синий" "" ""))
  (setq lotv (getvar "textstyle"))
  (if (= 0 (getvar "worlducs")) (command "_ucs" "_w")) 
  (vl-load-com)
  (initget (+ 2 4))
  (if (null (setq h (getreal "\nзадайте высоту текста: <2.5>"))) (setq h 2.5)) 
  (initget (+ 2 4))
    (if (null (setq i (getint "\nс какого номера начинать нумерацию: <1>" ))) (setq i 1))
(setq x (getpoint "\nточка на полосе отвода: "))
(entmake (list (cons 0 "CIRCLE") (cons 10 x) (cons 40 0.4) ))
(setq cordotv (cons (cons  i  (list (rtos (cadr x) 2 2) (rtos (car x) 2 2))) cordotv)) 
(prin1 i) (princ ": ") (princ (rtos (cadr x) 2 2)) (princ "  ") (princ (rtos (car x) 2 2)) 
(entmake (list (cons 0 "TEXT") (cons 1 (itoa i)) (cons 7 lotv) (cons 10 x) (cons 40 h) ))
  (while (setq x (getpoint x "\nследующая точка на полосе отвода или [Отмена]: ")) 
     (if (= x "Отмена") 
 
  (progn
  (entdel (entlast))
  (entdel (entlast))
  (setq x (list (atof (caddar (cdr cordotv))) (atof (cadar (cdr cordotv)))))
  (setq cordotv (cdr cordotv))
  (setq i (1- i))
  (initget "Отмена")
  );end progn
 
  (progn
    (vla-startundomark ;начальная метка 
        (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
        );end undo 
     (entmake (list (cons 0 "CIRCLE") (cons 10 x) (cons 40 0.4) ))
    (setq cordotv (cons (cons (setq i (1+ i)) (list (rtos (cadr x) 2 2) (rtos (car x) 2 2))) cordotv)) 
  (prin1 i) (princ ": ") (princ (rtos (cadr x) 2 2)) (princ "  ") (princ (rtos (car x) 2 2)) 
   (entmake (list (cons 0 "TEXT") (cons 1 (itoa i)) (cons 7 lotv) (cons 10 x) (cons 40 h) ))
  (initget "Отмена")
      (vla-endundomark adoc) ;конечная метка
  );end progn
 
 );end if
  );end while
 );end progn
);end if
(setq xl (open file "w"))
(write-line "\tX\tY" xl) 
 (foreach item (reverse cordotv)
 (write-line (strcat (itoa (car item)) "\t" (cadr item) "\t" (caddr item)) xl)
 );end foreach
(close xl)
(setvar "CELTYPE" "bylayer") (setvar "celweight" -1) (setvar "cecolor" "bylayer") (setvar "CMDECHO" oldcmd) (prin1)
) 
 

за помошь в написании благодарность Кулику Алексею aka kpblc
з.ы. сильно ногами не пинайте, это моя первая программа...

[Кулик Алексей aka kpblc]

Строку (command "_text" x h "" i) советую дополнить проверкой на значение предустановленной высоты текущего текстового стиля. Если она не 0, запроса на h не будет.

[Vladimir_Sergeevich]

Как проверить сие не придумал... переделал, что бы даже не смотрел на это через (entmake...)
з.ы. у меня это и не надо, потому как и стиль создаю програмно. Убрал эту строку, подумав, что не все пользуют такие шрифты как у нас...

[VVA]

Сообщение от Vladimir_Sergeevich Как проверить сие не придумал

Посмотри (а можешь взять на вооружение) здесь ru-text-draw.

Сообщение от Vladimir_Sergeevich через (entmake...)

Там же есть ru-text-add и ru-text-entmake
Еще замени русские опции на английские с _

(command "_layer" "с" "otvod" "е" "0.4" "" "ц" "синий" "" ""))

[Disney]

Сообщение от G-RAV Сообщение от Disney Владимир, огромное спасибо! Я понимаю, что прошло уже больше полу года, и возвращаться к старым программам нет большого желания, но хотел бы вас попросить, если возможно, добавить в вашу программу следующие возможности: 1) К списку типов объектов: круг и текст, 2) Для 2D полилинии, в качестве Z, брать её уровень, 3) По запросу, в качестве Z, брать значение из близлежащего текста. 4) При маркировке, использовать префикс в номере точки. Уважаемый, Disney! Есть ли решение по 3-му пункту? Очень было бы полезно, потому как "вертикалка" обычно "прилетает", состоящая не из блоков, а из круг/точка и текст/мтекст...

Добавил такую опцию, но будьте осторожны, не всегда близлежащий текст к точке, относиться именно к этой точки.
Экспорт координат выбранных объектов из AutoCAD в *.txt

[Олег (jr.)]

Сообщение от Vladimir_Sergeevich з.ы. сильно ногами не пинайте, это моя первая программа...

Cтранно, что никто не заметил экстра-фатальной ошибки:
посмотри на фруме как нужно прописывать в программe
функцию *error* , если сразу не начнешь ей пользоваться
правильно, то поимеешь много неприятностей позже,
рекомендую взять за образец из примеров, написанных VVA
(намек)

[Grigarash]

А можно еще добавить следующее:

• определение координат с запросом МСК или ПСК
• Масштаб координат из текущего размерного стиля
• Автонумерация (с указанием номера первой точки) выделенных точек в том порядке, в котором выделяют

ВАЖНО:
данный скрипт не работает на ACAD 2012 x64 SP1 RUS
Исправьте плз

[Disney]

Grigarash, Не стоит писать одно и тоже во всех темах, в которых есть ссылка или упомянута программа, достаточно вашего вопроса в основной теме посвящённой программе. Если вам не отвечают сразу, значит либо ищут решения вашей проблемы, либо некогда, либо ваш вопрос не интересен автору.

Сообщение от Grigarash А можно еще добавить следующее: Учёт ПСК Масштаб Автонумерацию

Как можно предлагать, если вы не видели работу программы

Сообщение от Grigarash данный скрипт не работает

1-ый не сложно, но пока нет желания,
2-ой считаю не уместным (чертить нужно 1:1).
3-иё пункт реализован, во всех возможных вариациях,

[VVA]

Тема экспорта координат в последние пару дней получила бурное развитие на cadtutor'e
Добавил в пост #7 версию с cadtutor'a с описанием

[S R G]

Добрый день, Спасибо за скрипт - много раз выручал. Но тут столкнулся с проблемой. Есть только круги с высотами. Данный скрипт круги похоже не воспринимает. Где дописать в нем, чтобы учитывался и круг?

Спасибо!

[VVA]

S R G, Это ты к кому обращаешься? ECoorE rev6 экспортирует круги

[Barti]

Добрый день! В этом посте http://forum.dwg.ru/showpost.php?p=244237&postcount=7 выложен распрекрасный скрипт coort.
Дело в том, что для оформления разных листов чертежа пришлось дважды нумеровать одни и те же точки (то есть на одном листе - одна нумерация, на другом - другая). Соответственно у каждой точки стоит по два номера (один на одном слое, другой на другом). Я думал с помощью coorta для каждого листа экспортировать координаты с соответствующими номерами. Так вопрос такой - не знаете ли вы можно ли что-то сделать, чтобы coort не выбирал текст с выключенных слоев? то есть чтобы можно было выключить к примеру первый слой с нумерацией и COORT выбирал бы текст только со включенного,то есть второго. Заморозка слоя не помогает.

[VVA]

Barti, Обновил EcoorE до r8. Теперь тексты для Coort с блокированных слоев не выбираются

[Gurikin]

Уважаемые знатоки, всем доброго времени суток. Может кто-нибудь помочь разобраться с кодом. Лисп по команде EcoorNP вполне устраивает, только хотелось бы дополнить эту команду возможность добавлять в текстовый файл семантические коды точек (0- рельеф, 2 - откос и т.д.). Предполагается указывать код в ответ на запрос, при выборе полилиний из которых выцепляются точки. Очень слабо разбираюсь в Lisp. Помогите пожалуйста. Понимаю, что нужно добавить команды в функцию vva-export-point. По-моему сюда:

Код:

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

 (foreach ln ptLst
           (write-line
             (strcat (if (numberp Npt)
                       (strcat (itoa Npt) pat)
                       ""
                     ) ;_ end of if
                     (car ln)
                     pat
                     (cadr ln)
                     (if (= 3 (length ln))
                       (strcat pat (nth 2 ln))
                     ) ;_ end of if
             ) ;_ end of strcat

а также возможно в функцию vva-get-final-points-list.
Только вот как это сделать не понимаю - lisp для меня сложноват. Если вдруг скинете код, то по возможности объясните, какие команды добавились и что они выполняют, ибо хочется разобраться на будущее.
Исходник прилагаю:

Код:

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

 ;;;;-------------------------------------------------------------------------------
;;;; Program Name: ECoor.lsp [Extraction Coordinates]
;;;; Created By:   Vladimir Azarko (VVA) (Email: azarko@yandex.ru)
;;;; Posted http://www.cadtutor.net/forum/showthread.php?t=31653
;;;; Date Created: I do not remember when the beginnings
;;;; Function:     Export coordinates with some options
;;; Commands:
;;;           COOR  - export coordinates
;;;           COORN - export coordinates with numbering
;;;                   Numbers of points are drawn by the text on the current layer,
;;;                   the current style, current height (TEXTSIZE)
;;;           COORNP - CoorNP-Coordinates + Numbers + Points. Draw points with current value of PDMODE and PDSIZE 
;;;           COORT - export of coordinates with numbering where number considers the text nearest to a point
;;;;-------------------------------------------------------------------------------
;;;; Revision History
;;;; Rev  By     Date    Description
;;;;-------------------------------------------------------------------------------
;;;; 1    VVA   9-02-2009  Has started to put things in order
;;;; 2    VVA   15-05-2010 Add Elevation as Z coordinates from export of polyline

(vl-load-com)

;;; =============== COMMAND SECTION START ==================

(defun c:COOR ( / ptLst)
  (vl-load-com)
  (if (setq ptLst (vva-get-final-points-list))
    (vva-export-point ptLst nil nil)
    )
  (princ)
  )
;|=============== Êîìàíäà COORN ===============================================

EN:
   Export of coordinates of the specified points, the chosen objects: points, blocks, polylines, splines in a text file, Excel With numbers.
   Text file — txt, or csv. A rounding off of coordinates according to current adjustments of a command _UNITS (LUPREC !!!)
   And make P
RUS:
Ýêñïîðò êîîðäèíàò óêàçàííûõ òî÷åê, âûáðàííûõ îáúåêòîâ: òî÷åê, áëîêîâ, ïîëèëèíèé, ñïëàéíîâ â òåêñòîâûé ôàéë, åêñåë ñ ïðîñòàíîâêîé íîìåðîâ
Òåêñòîâûé ôàéë — ëèáî txt, ëèáî csv.
Íîìåðà òî÷åê îòðèñîâûâàþòñÿ òåêñòîì íà òåêóùåì ñëîå, òåêóùèì ñòèëåì, òåêóùåé âûñîòîé
Îêðóãëåíèå êîîðäèíàò â ñîîòâåòñòâèè ñ òåêóùèìè íàñòðîéêàìè êîìàíäû _UNITS (ïåðåìåííàÿ LUPREC !!!)

|;

(defun c:COORN ( / ptLst)
  (vl-load-com)
  (if (setq ptLst (vva-get-final-points-list))
    (vva-export-point ptLst t nil)
    )
  (princ)
  )
(defun c:COORNP ( / ptLst)
  (vl-load-com)
  (if (setq ptLst (vva-get-final-points-list))
    (vva-export-point ptLst t t)
    )
  (princ)
  )
(defun c:COORT( /  ptLst objSet lw buf pat isRus oFlag sFlag txtList filPath cFile)
    (vl-load-com)
(setq isRus (= (getvar "SysCodePage") "ANSI_1251"))
(if (setq ptLst (vva-get-final-points-list))
  (progn
    (setq objSet(ssget "_X" (list '(0 . "*TEXT")(cons 410 (getvar "CTAB")))))
    (setq lw (vl-remove-if 'listp(mapcar 'cadr(ssnamex objSet))))
    (setq lw (mapcar '(lambda(x)(setq x (entget x))(list (cdr(assoc 10 x))(cdr(assoc 1 x)))) lw))
    (foreach pt ptlst
      (setq pt (trans pt 1 0))
      (setq buf (mapcar '(lambda(x)(list (distance pt (car x))(cadr x))) lw))
      (setq pat (car buf))
      (foreach dst buf (if (< (car dst) (car pat))(setq pat dst)))
      (setq txtList (cons (cadr pat) txtList))
      )
    (setq txtList (reverse txtList))
    (princ "\n+++++++ Coordinates list +++++++\n")
    (setq buf
    (mapcar '(lambda (x y)
               (princ (strcat "\n" y "  "
                              (rtos (car x))
                              ","
                              (rtos (cadr x))
                              (if (= 3 (length x))
                                (strcat "," (rtos (nth 2 x)))
                                ""
                              ) ;_ end of if
                      ) ;_ end of strcat
               ) ;_ end of princ
              (list y (rtos (car x))(rtos (cadr x))
                              (if (= 3 (length x))(rtos (nth 2 x))) ;_ end of if
                      )
             ) ;_ end of lambda
            ptLst txtList
    );_ end mapcar
          )
    (princ "\n\n+++++++++ End of list +++++++++")
  (initget
    "Ôàéë Excel Íå Text Excel Not _Text Excel Not Text Excel Not"
  ) ;_ end of initget
  (setq sFlag
         (getkword
           (if IsRus
             "\nÑîõðàíèòü êîîðäèíàòû â [Ôàéë txt èëè csv/Excel/Íå ñîõðàíÿòü] <Ôàéë> : "
             "\nSave coordinates to [Txt or csv file/Excel/Not save] <Text> : "
           ) ;_ end of if
         ) ;_ end of getkword
  ) ;_ end of setq
    (if (null sFlag)
      (setq sFlag "Text")
    ) ;_ end of if
    (cond ((and (= "Text" sFlag)
              (setq filPath
                     (getfiled (if IsRus
                                 "Ñîõðàíåíèå êîîðäèíàò â òåêñòîâûé èëè csv ôàéë"
                                 "Save Coordinates to Text or CSV File"
                               ) ;_ end of if
                               "Coordinates.csv"
                               "csv;txt"
                               17
                     ) ;_ end of getfiled
              ) ;_ end of setq
         ) ;_ end of and
         (if (= (strcase (vl-filename-extension filPath)) ".CSV")
           (setq pat ";")
           (setq pat "      ")
         ) ;_ end of if
         (if (or (not (findfile filPath))
                 (and  (findfile filPath)
                       (VL-FILE-SYSTIME filPath)
                       )
                 )
           (progn
         (setq cFile (open filPath "w"))
         (foreach ln buf
             (write-line
               (apply 'strcat
               (append (list(car ln))
                       (mapcar '(lambda(x)(strcat "," x))
                               (cdr ln)
                               )
                       )
                 )     
               cFile
             ) ;_ end of write-line
           )
         (close cFile)
         (initget "Yes No")
         (setq oFlag (getkword (if IsRus
                                 "\nÎòêðûòü ôàéë? [Yes/No] <No> : "
                                 "\nOpen text file? [Yes/No] <No> : "
                               ) ;_ end of if
                     ) ;_ end of getkword
         ) ;_ end of setq
         (if (= oFlag "Yes")
           ;;; (startapp "notepad.exe" filPath)
           (vva-xopen filPath)
         ) ;_ end of if
         )
           (alert (strcat (if IsRus "Íåâîçìîæíî îòêðûòü " "Do not open") "\n" filPath))
           )
        )
                                               ; end condition #1
          ((= "Excel" sFlag)
           (xls buf
                (if IsRus
                  '("Íîìåð òî÷êè" "X" "Y" "Z")
                  '("Number" "X" "Y" "Z")
                  )
                nil
                "COORT"
           ) ;_ end of xls
          )                                       ; end condition #2
          (t nil)
    ) ;_ end of cond
  ) ;_ end of progn
) ;_ end of if
 (princ))

;;; =============== COMMAND SECTION END ==================

;;; ==================== Helper function Start ===========================
;|================== XLS ========================================
*  published http://www.autocad.ru/cgi-bin/f1/board.cgi?t=31371zf
               http://forum.dwg.ru/showthread.php?t=20509
* Purpose: Export of the list of data Data-list in Excell
*             It is exported to a new leaf of the current book.
              If the book is not present, it is created
* Arguments:
              Data-list — The list of lists of data (LIST)
                            ((Value1 Value2 ... VlalueN)(Value1 Value2 ... VlalueN)...)
                            Each list of a kind (Value1 Value2... VlalueN) enters the name in
                            a separate line in corresponding columns (Value1-A Value2-B and .ò.ä.)
                  header —  The list (LIST) headings or nil a kind (" Signature A " " Signature B "...)
                            If header nil, is accepted ("X" "Y" "Z")
                 Colhide —  The list of alphabetic names of columns to hide or nil — to not hide ("A" "C" "D") — to hide columns A, C, D
                 Name_list — The name of a new leaf of the active book or nil — is not present
* Return: nil
* Usage
(xls '((1.1 1.2 1.3 1.4)(2.1 2.2 2.3 2.4)(3.1 3.2 3.3 3.4)) '("Col1" "Col2" "Col3"  "Col4") '("B") "test")   |;


;|================== XLS ========================================
* Îïóáëèêîâàíî http://www.autocad.ru/cgi-bin/f1/board.cgi?t=19833nl&page=2
               http://forum.dwg.ru/showthread.php?t=20509
               http://www.autocad.ru/cgi-bin/f1/board.cgi?t=31596eW
* Àâòîð: Âëàäèìèð Àçàðêî aka VVA
* Íàçíà÷åíèå: Ïå÷àòü ñïèñêà äàííûõ Data-list â Excell
*             Äëÿ âûâîäà ñîçäàåòñÿ íîâàÿ êíèãà
              Âûâîä îñóùåñòâëÿåòñÿ â ïåðâîì ëèñòå
* Àðãóìåíòû:
              Data-list — ñïèñîê ñïèñêîâ äàííûõ (LIST) âèäà
                            ((Value1 Value2 ... VlalueN)(Value1 Value2 ... VlalueN)...)
                            Êàæäûé ñïèñîê âèäà (Value1 Value2 ... VlalueN) çàïèñûâàåòñÿ
                            â îòäåëüíóþ ñòðîêó â ñîîòâåòñòâóþùèå ñòîëáöû (Value1-A Value2-B è .ò.ä.)
                  header —  ñïèñîê (LIST) çàãîëîâêîâ èëè nil âèäà ("Ïîäïèñü A" "Ïîäïèñü B" ...)
                            Åñëè header nil, ïðèíèìàåòñÿ ("X" "Y" "Z")
                 Colhide —  ñïèñîê áóêâåííûõ íàçâàíèé ñòîáëöîâ äëÿ ñêðûòèÿ èëè nil — íå ñêðûâàòü
                            ("A" "C" "D") — ñêðûòü ñòîëáöû A, C, D
                 Name_list — èìÿ íîâîãî ëèñòà àêòèâíîé êíèãè èëè nil — íîâàÿ êíèãà
* Âîçâðàò: nil
* TIPS!!! : Ïðè ïåðåäà÷è ôóíêöèè xls ÷èñëîâûõ âåùåñòâåííûõ äàííûõ íåò íåîáõîäèìîñòè ïðîâåðÿòü òåêóùèé ñèñòåìíûé
            ðàçäåëèòåëü öåëîé è äðîáíîé ÷àñòè ("HKEY_CURRENT_USER\\Control Panel\\International" "sDecimal")
            Ôóíêöèåé íà âðåìÿ âûâîäà îòêëþ÷àåòñÿ èñïîëüçîâàíèå â Excele ñèñòåìíîãî ðàçäåëèòåëÿ, ðàçäåëèòåëåì
            öåëîé è äðîáíîé ÷àñòè óñòàíàâëèâàåòñÿ òî÷êà. Ïîñëå çàâåðøåíèÿ ô-öèè âñå âîññòàíàâëèâàåòñÿ.
Ïðèìåð âûçîâà
(xls '((1.1 1.2 1.3 1.4)(2.1 2.2 2.3 2.4)(3.1 3.2 3.3 3.4)) '("Ñòîëáåö1" "Ñòîëáåö2" "Ñòîëáåö3" "Ñòîëáåö4") '("B"))|;
(vl-load-com)
(defun xls ( Data-list header Colhide Name_list / *aplexcel* *books-colection* Currsep
*excell-cells* *new-book* *sheet#1* *sheet-collection* col iz_listo row cell cols)
(defun Letter (N / Res TMP)(setq Res "")(while (> N 0)(setq TMP (rem N 26)
  TMP (if (zerop TMP)(setq N (1- N) TMP 26) TMP)
  Res (strcat (chr (+ 64 TMP)) Res)  N   (/ N 26))) Res)
(if (null Name_list)(setq Name_list ""))
  (setq  *AplExcel*     (vlax-get-or-create-object "Excel.Application"))
  (if (setq *New-Book*  (vlax-get-property *AplExcel* "ActiveWorkbook"))
    (setq *Books-Colection*  (vlax-get-property *AplExcel* "Workbooks")
          *Sheet-Collection* (vlax-get-property *New-Book* "Sheets")
               *Sheet#1*     (vlax-invoke-method *Sheet-Collection* "Add"))
(setq *Books-Colection*  (vlax-get-property *AplExcel* "Workbooks")
              *New-Book*     (vlax-invoke-method *Books-Colection* "Add")
          *Sheet-Collection* (vlax-get-property *New-Book* "Sheets")
               *Sheet#1*     (vlax-get-property *Sheet-Collection* "Item" 1)))
(setq *excell-cells*     (vlax-get-property *Sheet#1* "Cells"))
(setq Name_list (if (= Name_list "")
                  (vl-filename-base(getvar "DWGNAME"))
                  (strcat (vl-filename-base(getvar "DWGNAME")) "&" Name_list))
   col 0 cols nil)
(if (> (strlen Name_list) 26)
(setq Name_list (strcat (substr Name_list 1 10) "..." (substr Name_list (- (strlen Name_list) 13) 14))))
(vlax-for sh *Sheet-Collection* (setq cols (cons (strcase(vlax-get-property sh 'Name)) cols)))
(setq row Name_list)
(while (member (strcase row) cols)(setq row (strcat Name_list " (" (itoa(setq col (1+ col)))")")))
(setq Name_list row)
(vlax-put-property *Sheet#1* 'Name Name_list)
(setq Currsep (vlax-get-property *AplExcel* "UseSystemSeparators"))
(vlax-put-property *AplExcel* "UseSystemSeparators" :vlax-false) ;_íå èñïîëüçîâàòü ñèñòåìíûå óñòàíîâêè
(vlax-put-property *AplExcel* "DecimalSeparator" ".")            ;_ðàçäåëèòåëü äðîáíîé è öåëîé ÷àñòè
(vlax-put-property *AplExcel* "ThousandsSeparator" " ")          ;_ðàçäåëèòåëü òûñÿ÷åé
(vla-put-visible *AplExcel* :vlax-true)(setq row 1 col 1)
(if (null header)(setq header '("X" "Y" "Z")))
(repeat (length header)(vlax-put-property *excell-cells* "Item" row col
(vl-princ-to-string (nth (1- col) header)))(setq col (1+ col)))(setq  row 2 col 1)
(repeat (length Data-list)(setq iz_listo (car Data-list))(repeat (length iz_listo)
(vlax-put-property *excell-cells* "Item" row col (vl-princ-to-string (car iz_listo)))
(setq iz_listo (cdr iz_listo) col (1+ col)))(setq Data-list (cdr Data-list))(setq col 1 row (1+ row)))
(setq col (1+(length header)) row (1+ row))
(setq cell (vlax-variant-value (vlax-invoke-method *Sheet#1* "Evaluate"
    (strcat "A1:" (letter col)(itoa row))))) ;_ end of setq
(setq cols (vlax-get-property cell  'Columns))
(vlax-invoke-method cols 'Autofit)
(vlax-release-object cols)(vlax-release-object cell)
(foreach item ColHide (if (numberp item)(setq item (letter item)))
(setq cell (vlax-variant-value (vlax-invoke-method *Sheet#1* "Evaluate"
    (strcat item "1:" item "1"))))
(setq cols (vlax-get-property cell  'Columns))
(vlax-put-property cols 'hidden 1)
(vlax-release-object cols)(vlax-release-object cell))
(vlax-put-property *AplExcel* "UseSystemSeparators" Currsep)
(mapcar 'vlax-release-object (list *excell-cells* *Sheet#1* *Sheet-Collection* *New-Book* *Books-Colection*
*AplExcel*))(setq *AplExcel* nil)(gc)(gc)(princ))
(defun group-by-num (lst num / ls ret)(if (= (rem (length lst) num ) 0)(progn (setq ls nil)
  (repeat (/ (length lst) num)(repeat num (setq ls(cons (car lst) ls)lst (cdr lst)))
  (setq ret (append ret (list (reverse ls))) ls nil)))) ret)
(defun PtCollect(SelSet)(mapcar 'cdr (mapcar '(lambda(x)(assoc 10 x))(mapcar 'entget
(vl-remove-if 'listp(mapcar 'cadr(ssnamex SelSet))))))); end of PtCollect
(defun PLCollect(SelSet / ret tmp)
(foreach lw (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp(mapcar 'cadr(ssnamex SelSet))))
  (cond ((wcmatch (vla-get-ObjectName lw) "*Polyline")
	 (setq tmp (group-by-num (vlax-get lw 'Coordinates)
		     (if (=(vla-get-ObjectName lw) "AcDbPolyline") 2 3)))
	 (if (vlax-property-available-p lw 'Elevation)
         (setq tmp(mapcar '(lambda(x)(list (car x)(cadr x)(vla-get-elevation lw))) tmp)))
	 (setq ret (append ret tmp)))
       ((=(vla-get-ObjectName lw) "AcDbSpline")(setq ret (append ret (group-by-num
         (vlax-safearray->list(vlax-variant-value (vla-get-controlpoints lw)))  3))))
      (t nil))
  
  )
  
  ret)
;;;Îòðèñîâêà òåêñòà
;;; txt - òåêñò
;;; pnt - òî÷êà îòðèñîâêè â ÏÑÊ
;;; heigtht - âûñîòà
;;; rotation - óãîë ïîâîðîòà
;;;justification - èëè nil
;;;Âîçâðàùàåò èìÿ ïðèìèòèâà
(defun vva-text-draw (txt pnt height rotation justification)
   (if (null pnt)(command "_.-TEXT" "" txt)
   (if (= (cdr (assoc 40 (tblsearch "STYLE" (getvar "TEXTSTYLE"))))
    0.0
       ) ;_ end of =
     (progn
     ;; íóëåâàÿ âûñîòà òåêñòà
       (if justification
   (command "_.-TEXT" "_J" justification "_none" pnt height rotation txt)
   (command "_.-TEXT" "_none" pnt height rotation txt)
       ) ;_ end of if
     ) ;_ end of progn
     (progn
       ;; ôèêñèðîâàíííàÿ âûñîòà
       (if justification
   (command "_.-TEXT" "_J" justification "_none" pnt rotation txt)
   (command "_.-TEXT" "_none" pnt rotation txt)
       ) ;_ end of if
     ) ;_ end of progn
   ) ;_ end of if
     )
  (entlast)
)
(defun vva-get-final-points-list ( / isRus  curPt ptLst objSet  )
  (setq isRus(= (getvar "SysCodePage") "ANSI_1251"))
  (if(not ptcol:mode)(setq ptcol:mode "Pick"))
  (initget "Óêàçàòü Òî÷êà Áëîêè Ïîëèëèíèÿ Pick pOints Blocks poLyline _Pick pOints Blocks poLyline Pick pOints Blocks poLyline")
(setq oldMode ptcol:mode ptcol:mode
(getkword (if IsRus (strcat "\nÂûáåðèòå ðåæèì [Óêàçàòü/Òî÷êà/Áëîêè/Ïîëèëèíèÿ èëè ñïëàéí] <"
(cadr (assoc ptcol:mode '(("Pick" "Óêàçàòü")("pOints" "Óêàçàòü")("Blocks" "Áëîêè")("poLyline" "Ïîëèëèíèÿ")))) ">: ")
        (strcat "\nSpecify mode [Pick/pOints/Blocks/poLyline or spline] <"ptcol:mode">: "))) ptLst nil)
(if(null ptcol:mode)(setq ptcol:mode oldMode))
(cond ((= "Pick" ptcol:mode)(setq curPt T)
       (while curPt (setq curPt(getpoint (if IsRus
         "\nÓêàæèòå òî÷êó èëè Enter çàâåðøåíèÿ > " "\nPick point or Enter to continue > ")))
  (if curPt (setq ptLst(append ptLst(list (trans curPt 1 0))))))); end condition #1
      ((= "pOints" ptcol:mode)(if (not(setq objSet(ssget "_I" '((0 . "POINT")))))(progn
         (if IsRus (princ "\nÂûáåðèòå òî÷êè è íàæìèòå Enter ")(princ "\nSelect points and press Enter "))
   (setq objSet(ssget '((0 . "POINT"))))))(if objSet (setq ptLst(PtCollect objSet)))); end condition #2
      ((= "Blocks" ptcol:mode)(if (not(setq objSet(ssget "_I" '((0 . "INSERT")))))(progn
        (if IsRus(princ "\nÂûáåðèòå áëîêè è íàæìèòå Enter ")(princ "\nSelect blocks and press Enter "))
     (setq objSet(ssget '((0 . "INSERT"))))))(if objSet (setq ptLst(PtCollect objSet)))); end condition #3
      ((= "poLyline" ptcol:mode)(if (not(setq objSet(ssget "_I" '((0 . "*POLYLINE,SPLINE")))))(progn
        (if IsRus(princ "\nÂûáåðèòå ïîëèëèíèè è íàæìèòå Enter  ")(princ "\nSelect polyline and press Enter "))
     (setq objSet(ssget '((0 . "*POLYLINE,SPLINE"))))))(if objSet (setq ptLst(PLCollect objSet)))); end condition #4
); end cond
(if ptLst (progn (princ "\n+++++++ Coordinates list +++++++\n")(setq ptLst (mapcar '(lambda(x)(trans x 0 1)) ptLst))
(mapcar '(lambda(x)(princ(strcat "\n"(rtos(car x))","(rtos(cadr x))
(if(= 3(length x))(strcat ","(rtos(nth 2 x))) "")))) ptLst); end mapcar
(princ "\n\n+++++++++ End of list +++++++++")
            )
  )
 ptLst
  )
(defun vva-xopen (name / di na sh) 
;; http://www.theswamp.org/index.php?topic=29548.0 
;;;Usage 
;;;(setq my_file (vva-xopen "c:/test.txt")) 
;;;(setq my_file (vva-xopen "c:/test.avi")) 
;;;(setq my_file (vva-xopen "c:/test.3gp")) 

  (and   (setq name (findfile name)) 
   (setq sh (vlax-create-object "Shell.Application")) 
   (setq di (vlax-invoke sh 'Namespace (vl-filename-directory name))) 
   (setq na (vlax-invoke di 'parsename (strcat (vl-filename-base name) (vl-filename-extension name)))) 
   (vlax-invoke-method na 'invokeverbex "open") 
  ) 
  (vlax-release-object sh) 
  na 
)

(defun vva-export-point (ptlst isNum isPoint / Npt IsRus sFlag oFlag Step pat)
  ;;; ptLst - points list
  ;;; isNum - t - numerate nil -not
  ;;; isPoint - t - create point nil - not
  (setq isRus (= (getvar "SysCodePage") "ANSI_1251"))
  (if isNum
  (setq Npt (getint (if IsRus
                      "\nÍà÷àëüíûé íîìåð òî÷êè <Íå ìàðêèðîâàòü> : "
                      "\nStart number of points <Don't mark> : "
                    ) ;_ end of if
            ) ;_ end of getint
  ) ;_ end of setq
    )
  (setq Step 1)
  (if (numberp Npt)
    (progn
      (princ (if IsRus
               "\nÏðèðàùåíèå ÷èñëà"
               "\nIncrement of number"
             ) ;_ end of if
      ) ;_ end of princ
      (if (not (numberp ptcol:Step))
        (setq ptcol:Step 1)
      ) ;_ end of if
      (princ " <")
      (princ ptcol:Step)
      (princ ">: ")
      (setq Step (getint))
      (if (null Step)
        (setq Step ptcol:Step)
      ) ;_ end of if
      (setq ptcol:Step Step)
    ) ;_ end of progn
  ) ;_ end of if
  (initget
    "Ôàéë Excel Íå Text Excel Not _Text Excel Not Text Excel Not"
  ) ;_ end of initget
  (setq sFlag
         (getkword
           (if IsRus
             "\nÑîõðàíèòü êîîðäèíàòû â [Ôàéë txt èëè csv/Excel/Íå ñîõðàíÿòü] <Ôàéë> : "
             "\nSave coordinates to [Txt or csv file/Excel/Not save] <Text> : "
           ) ;_ end of if
         ) ;_ end of getkword
  ) ;_ end of setq
  (if (null sFlag)
    (setq sFlag "Text")
  ) ;_ end of if
  (setq oFlag Npt)
  (if (numberp Npt)
    (foreach ln ptlst
      (vva-text-draw ;_Îòðèñîâêà òåêñòà
        (itoa Npt) ;_Íîìåð òî÷êè
        (polar ln (/ pi 4) 1.) ;_Êîîðäèíàòû íà 1 åä ïî óãëîì 45 ãðàäóñîâ
        (getvar "TEXTSIZE") ;_ Òåêóùåé âûñîòîé òåêñòà
        0 ;_Óãîë ïîâîðîòà
        nil
      ) ;_ end of vva-text-draw
      (if isPoint (entmakex (list (cons 0 "POINT") (cons 10 (trans ln 1 0)))))
      ;;_Make POINT
      (setq Npt (+ Npt Step))
    ) ;_ end of foreach
  ) ;_ end of if
  (setq Npt oFlag)
  (setq ptLst (mapcar '(lambda (x) (mapcar 'rtos x)) ptlst))
  (cond ((and (= "Text" sFlag)
              (setq filPath
                     (getfiled (if IsRus
                                 "Ñîõðàíåíèå êîîðäèíàò â òåêñòîâûé èëè csv ôàéë"
                                 "Save Coordinates to Text or CSV File"
                               ) ;_ end of if
                               "Coordinates.csv"
                               "csv;txt"
                               1
                     ) ;_ end of getfiled
              ) ;_ end of setq
         ) ;_ end of and
         (if (= (strcase (vl-filename-extension filPath)) ".CSV")
           (setq pat ";")
           (setq pat "      ")
         ) ;_ end of if
         (if (or (not (findfile filPath))
                 (and  (findfile filPath)
                       (VL-FILE-SYSTIME filPath)
                       )
                 )
           (progn
         (setq cFile (open filPath "w"))
         (foreach ln ptLst
           (write-line
             (strcat (if (numberp Npt)
                       (strcat (itoa Npt) pat)
                       ""
                     ) ;_ end of if
                     (car ln)
                     pat
                     (cadr ln)
                     (if (= 3 (length ln))
                       (strcat pat (nth 2 ln))
                     ) ;_ end of if
             ) ;_ end of strcat
             cFile
           ) ;_ end of write-line
           (if (numberp Npt)
             (setq Npt (+ Npt Step))
           ) ;_ end of if
         ) ;_ end of foreach
         (close cFile)
         (initget "Yes No")
         (setq oFlag (getkword (if IsRus
                                 "\nÎòêðûòü ôàéë? [Yes/No] <No> : "
                                 "\nOpen text file? [Yes/No] <No> : "
                               ) ;_ end of if
                     ) ;_ end of getkword
         ) ;_ end of setq
         (if (= oFlag "Yes")
           ;;; (startapp "notepad.exe" filPath)
           (vva-xopen filPath)
         ) ;_ end of if
         )
           (alert (strcat (if IsRus "Íåâîçìîæíî îòêðûòü " "Do not open") "\n" filPath))
           )
        )                                         ; end condition #1
        ((= "Excel" sFlag)
         (if (numberp Npt)
           (progn
             (setq Npt (- Npt Step))
             (setq ptlst
                    (mapcar '(lambda (x) (cons (setq Npt (+ Npt Step)) x))
                            ptlst
                    ) ;_ end of mapcar
             ) ;_ end of setq
             (xls ptlst '("N" "X" "Y" "Z") nil "COORN")
           ) ;_ end of progn
           (xls ptLst nil nil "COOR")
         ) ;_ end of if
        )                                         ; end condition #2
        (t nil)
  ) ;_ end of cond
  (princ)
) ;_ end of defun

;;; ==================== Helper function End   ===========================

(princ "\nFor use type Coor, CoorN, CoorNP or CoorT in command line ")
(princ)

[VVA]

По просьбе отсюда в EcoorE rev.9 добавлены настройки округления координат и возможность экспортировать координаты в виде XYZ и YXZ. Обновил #7

[lara]

Программа PtManager 2.4
При импорте точек из файла *.txt, они вставляются в мировую систему координат, хотя на панели инструментов у меня установлена именованная (моя) система.
Пробовала в разных файлах, результат тот же, как исправить ситуацию?

[VVA]

lara,
1. Правило хорошего тона подразумевают, что система координат той местности, где вы работаете совпадает с мировой системой координат Автокада. Читать здесь, здесь и здесь. Поэтому лучше изменить свой стиль работы
2. Обратиться к автору
3. Попробовать другую программу Импорт координат из текстовых файлов форматов txt, sdr, csv и других в AutoCAD или отсюда Import coordinates from a text file txt (sdr csv) in AutoCAD

[lara]

Спасибо за помощь, очень приятно и полезно.
У меня начальные знания по ПСК, буду разбираться.
По поводу программы "Импорт координат ...AutoCAD 2.10", была я до этого на сайте Геодезист, т.к. регистрация требуется, я не смогла скачать. Теперь попробую.
Не так быстро, но после разбора, отпишусь что и как.

[config]

Доброго времени суток! Уважаемые форумчане, подскажите, а как сделать так, чтобы координаты блоков экспортировались в "правильном" порядке и вообще правильно? Может быть какой-то косяк в моем чертеже? Спасибо.

[Кулик Алексей aka kpblc]

Пять баллов! Что за "правильный" порядок? Что за чертеж? Сплошные загадки.

[config]

Offtop: Прошу прощения за невнимательность. Прикрепил

[Кулик Алексей aka kpblc]

Первая часть вопроса: что есть "правильный" порядок? И ты вообще про какой код? Хоть бы ссылку показал

[config]

Сообщение от Кулик Алексей aka kpblc Первая часть вопроса: что есть "правильный" порядок?

В порядке нумерации атрибутов блока NOMER. А по поводу кода, разными программами пытался. Вот и задал в этой ветке вопрос, что возможно существует в "природе" программа по экспорту, в которой можно указать начальный блок точки, от которого будет производиться дальнейший отсчет. Или автор сможет внести такое дополнение, если это не очень трудно и затратно по времени.

[engngr]

Так при dataextraction отсортировать по атрибуту? Пост-обработка в табличном процессоре?

[Сергей812]

при извлечении данных можно сразу отсортировать по столбцу.. правда.. из-за отсутствия лидирующих нулей в атрибуте Nomer порядок будет 1, 10, 11,...2..

[Кулик Алексей aka kpblc]

Тупо добавить еще один столбец в Excel, куда вколотить "=Число(A1)" или что-то подобное - не?

[Berty002]

Доброго времени суток. У меня вопрос: можно ли как то при помощи команды coorn экспортировать координаты в excel, так что бы программа разделяла координаты разных полилиний?

[Агент СмиТ]

Berty002 Для того, что бы отделить координаты одной полилинии от другой, необходимо после вызова команды выбрать пункт "settings", третьим пунктом которого и будет предложение задать символ для разделения списков координат.

VVA Опробовал работу coorn и coor из ECoorE rev10a, не удалось выполнить экспорт в эксель (пользуюсь ECoorE rev6, всё работает).
Очень понравилась возможность выбора округления и XYZ -> YXZ, т.к. постоянно приходилось менять столбцы вручную.

Код:

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

Команда: _coorn

Settings: Text offset=(0.5,0.5,0.0) Text heigth=2.5 Separate coordinates 
flag=<AAA> Coordinate type=YXZ Round=NOT
Specify mode [Pick/pOints/Blocks/Circle/poLyline or spline/Settings] 
<poLyline>: S

Type offset the text from the point <0.5,0.5,0.0> :

Type text height <2.5> :

Type flag, which separates the coordinates or press ENTER - none: AAA

Settings: Text offset=(0.5,0.5,0.0) Text heigth=2.5 Separate coordinates 
flag=<AAA> Coordinate type=YXZ Round=NOT
Specify mode [Pick/pOints/Blocks/Circle/poLyline or spline/Settings] 
<Settings>: L

Select polyline and press Enter
Выберите объекты: найдено: 1

Выберите объекты: найдено: 1, всего: 2

Выберите объекты:

+++++++ Coordinates list +++++++

139.92,156.73,0.00
251.88,234.70,0.00
428.77,109.27,0.00
AAA
138.47,102.98,0.00
250.42,180.95,0.00
427.32,55.52,0.00
AAA

+++++++++ End of list +++++++++
Type prefix:(If you want to delete prefix type ' ' (press SPACE key on 
keyboard) <t> :

Type suffix:(If you want to delete prefix type ' ' (press SPACE key on 
keyboard) <suff> :

Start number of points <7>: 1

Increment of number <1>:

Save coordinates (type=YXZ round=NOT) to [Text file/Csv file/Excel/Not 
save/Settings] <Excel> : E

Код:

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

Команда: _coor

Settings: Text offset=(0.5,0.5,0.0) Text heigth=2.5 Separate coordinates 
flag=<AAA> Coordinate type=YXZ Round=NOT
Specify mode [Pick/pOints/Blocks/Circle/poLyline or spline/Settings] 
<poLyline>: S

Type offset the text from the point <0.5,0.5,0.0> :

Type text height <2.5> :

Type flag, which separates the coordinates or press ENTER - none: AAA

Settings: Text offset=(0.5,0.5,0.0) Text heigth=2.5 Separate coordinates 
flag=<AAA> Coordinate type=YXZ Round=NOT
Specify mode [Pick/pOints/Blocks/Circle/poLyline or spline/Settings] 
<Settings>: L

Select polyline and press Enter
Выберите объекты: найдено: 1

Выберите объекты: найдено: 1, всего: 2

Выберите объекты:

+++++++ Coordinates list +++++++

139.92,156.73,0.00
251.88,234.70,0.00
428.77,109.27,0.00
AAA
138.47,102.98,0.00
250.42,180.95,0.00
427.32,55.52,0.00
AAA

+++++++++ End of list +++++++++
Save coordinates (type=YXZ round=NOT) to [Text file/Csv file/Excel/Not 
save/Settings] <Excel> : E

[VVA]

Berty002, Можно. Coorn последней версии из архива ECoorE rev10a.zip
Добавлена опция Setting

Команда: coorn Specify mode [Pick/pOints/Blocks/Circle/poLyline or spline/Settings] <poLyline>: S Type offset the text from the point <0.5,0.5,0.0> : Type text height <1.5> : Type flag, which separates the coordinates or press ENTER - none: ~

Результат

1 3285.23 1201.60 0.00 2 2876.38 1386.28 0.00 3 2656.23 1103.37 0.00 4 2498.98 1166.24 0.00 ~ 5 2070.47 1378.42 0.00 6 2373.18 1763.50 0.00 7 2844.93 1519.88 0.00 8 3045.42 1692.77 0.00

[Berty002]

все с разделение заработало, но команда coorn почему-то не выставляет нумерацию на самом чертеже

[VVA]

Berty002, Только что проверил - выставляет.
1. Проверь, не отключен ли текущий слой
2. Выложи пример чертежа, где не выставляет

[Berty002]

Уже разобрался. Спасибо огромное

[VVA]

Сообщение от Агент СмиТ VVA Опробовал работу coorn и coor из ECoorE rev10a, не удалось выполнить экспорт в эксель (пользуюсь ECoorE rev6, всё работает).

Дай больше информации:
- какую ошибку выдает
- версия/разрядность Автокада, версия/разрядность Winsows, версия MS Office
- ошибка постоянно, периодически. Если возможно, выложи пример.

[Агент СмиТ]

VVA

1. Ошибки не выдаёт никакой, листинг команд привёл в посте #90.
2. Версия ОС - Win7x64 Домашняя базовая, Автокад 2011х64, MS Office 2010х64.
3. Методом тыка в течении 15 минут нащупал, что экспорт срабатывает (txt и csv - диалог сохранения, Excel - создание листа с результатом) независимо от того, одна полилиния или две, но только при "пустом флаге" в настройках. Если в настройках задаю какой либо символ-разделитель, то программа доходит до команды на экспорт и далее ничего не происходит.

[VVA]

Сообщение от Агент СмиТ но только при "пустом флаге" в настройках

Да, было такое при сортировке YXZ. Исправил, обновил #7

[Berty002]

Всем привет. у меня такой вопрос: может ли лисп ECoorE rev10a или какая то альтернатива ему выводить координаты разделяя полилинии и нумеруя каждую из них?

1 1 xyz
1 2 xyz
1 3 xyz

2 3 xyz
2 4 xyz
и так далее

[subbotinPV]

Доброго времени суток!

Вопрос к знатокам: возможно поправить функцию Coorn таким образом, чтобы помимо координат, в Excel выводились расстояния между характерными точками (длины отрезков)?

Формула теоремы Пифагора известна с девятого класса: |AB|² = (y2 - y1)² + (x2 - x1)² Приходится добавлять вручную ещё один столбец.

Теоретически, понимаю что это не трудно. Но, незнание lispa усложняет работу.

[sam_nesung]

В DW6 нужного нет. А че такое DRKB?

[Lafaet]

Добрый день! На данном файле, мне необходимо поставить точки (чтоб их видно было кружочком или еще каким то образом) , подписать номер точки и получить каталог координат. С помощью функции COORNP я получила координаты узлов полилиний, с расстановкой точек и подписанием номеров, но там где полилинии имеют общую точку, координаты соответственно задвоились.
Вопрос:
1) Как убрать задвоение точек
2) Или как проставить сначала точки в узлах (не задвоеные в местах где полигоны имеют общую границу)
3) и как точки в узлах сделать объемыми

p/s. Четвертый день поисков по сайтам... не принес мне результатов

[engngr]

1 _overkill (expresstools?)
2 точка не может быть объёмной, точка - это точка.

[Lafaet]

Сообщение от engngr 1 _overkill (expresstools?) 2 точка не может быть объёмной, точка - это точка.

попробовала, первая функция разбила мне часть объектов, удвоение где-то убралось, где то нет, это я ввела в командную строку _overkill, но желаемого результата я не получила
а про объемную точку, выразилась я не правильно....как обозначить ее кругом, со штриховкой или иным способом, чтоб ее было видно.

[engngr]

Сообщение от Lafaet удвоение где-то убралось, где то нет, это я ввела в командную строку _overkill, но желаемого результата я не получила

У себя задвоения точек не нашел.

Сообщение от Lafaet как обозначить ее кругом, со штриховкой или иным способом, чтоб ее было видно

В поиск. Например: http://forum.dwg.ru/showthread.php?t=36287

[VVA]

Сообщение от Lafaet 1) Как убрать задвоение точек

По быстрому добавил удаление дублирующихся точек (см вложение)

Сообщение от Lafaet как обозначить ее кругом, со штриховкой или иным способом, чтоб ее было видно

В дополнение к #104 - используй COORNB. Блок потом отредактируй по своему вкусу

[Jetpriest]

Огромное спасибо за программу

[MrBrown]

Здравствуйте!
Я так понимаю, что макрос "COORT" экспортирует в таблицу в качестве номера/наименования точки ближайший текст/мтекст.
На перегруженных текстами (подписями, обозначениями и т.д.) чертежах ближайшим к точке может оказаться посторонний текст, что приведёт к экспорту в таблицу неправильного номера/наименования точки.
Можно ли включить ещё и функцию ручного выбора текста/мтекста рядом с точкой?
То есть, после приглашения ком. строки к выбору точек указываем курсором точку и текст, точку и текст...
Спасибо.
p.s. так как работаем "ручками", я назвал бы команду "COORH" - от "hands" или "COORM" - от "manual".

[VVA]

MrBrown, Команда COORT при поиске ближайшего текста игнорирует тексты на блокированных, выключенных или замороженных слоях (достаточно чего-то одного).
Отсюда алгоритм:
ручками отсортируй посторонний/непосторонний текст, разбросай по разным слоям, заблокируй (выключи, заморозь) лишнее и вызывай COORT

[MrBrown]

VVA, благодарю за подсказку.

[SergeyP]

Здравствуйте!
Спасибо за полезную программу!
Возник вопрос: строю полилинию (привязанную к геометрии на чертеже) состоящую из отрезков и дуг окружностей, затем сохраняю координаты вершин в файл который затем открываю в Matlab и восстанавливаю эту самую линию по координатам и тут возникает проблема, для восстановления дуги не достоточно двух координат вершин. Нужно знать координаты центра и радиус.
Как вариант в Matlab можно передать вместе с координатами вершин координаты средних точек и вычислить искомый центр и радиус.
Может есть другие способы? Можно ли извлечь помимо координат вершин еще какую то информацию о полилинии?

[trir]

есть - парсить dxf

[VVA]

Сообщение от SergeyP Можно ли извлечь помимо координат вершин еще какую то информацию о полилинии?

Можно. Для сегмента полилинии хранится его кривизна (Bulge) Polyline Bulges

[Бася]

Уважаемые форумчане, помогите пожалуйста!
Есть планировка благоустройства, необходимо ее разбить. Хочу получить точки перелома (характерные) осей и экспортнуть их координаты.
Подскажите, пожалуйста, как автоматически проставить точки на линии оси?
Прикрепляю скрин - некоторые точки уже выставлены руками, а рядом выделила ось, на которой дофига точек - вот как их проставить автоматически?

[trir]

как их проставить автоматически?

напиши код

[Бася]

trir, была бы я такая умная - не спрашивала бы...не умею

[trir]

...не умею

учите

точки перелома

это что? Экстремум? И на чём вы хотите брать производную от сплайна?

[MrBrown]

Бася, может быть, этот макрос поможет:

Код:

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

 ;****** KOORD.LSP *******************************************************
;       Определение координат точки и простановка
;       в рисунке  на плане.
;       Разработал  Громов В.В. Декабрь 2000.
;
(defun C:KOORD (/ pt1 pt2 koord)
       (setvar "cmdecho" 0)
       (setq pt1 T)
    (while pt1
       (setq pt1 (getpoint "\n Укажите точку (ENTER — конец): "))
       (if pt1
       (progn
       (setq koord (strcat (rtos (nth 0 pt1) 2 2) " " (rtos (nth 1 pt1) 2 2)))
       (setq pt2 (getpoint "\n Укажите точку вставки текста: "))
       (command "_text" pt2 "" "" koord)
       (princ)
       ))
     )
       (princ)
)
;Возможный макрос для кнопки или пункта меню:
;^C^C^P(if (not C:KOORD (load "koord")) KOORD

Проставляешь свои точки в нужных местах, макросом KOORD проставляешь их координаты, а потом используешь макрос из #105.

[Бася]

trir, есть полилиния, она в некоторых точках меняет направление - в двухмерке, просто поворачивает под углом. Мне надо каждое место изгиба линии обозначить точкой. См.скрин.
Просто руками- замучаешься.
В идеале- хочу их потом пронумеровать и получить координаты.

----- добавлено через ~2 мин. -----
MrBrown, спасибо, но сначала хотелось бы точки проставить автоматически

----- добавлено через ~22 мин. -----
Мне кажется, что это должно быть похоже на функцию "разметить" - автоматически проставляются точки на выбранном Path. Здесь суть нужна та же самая, только точки уже де юро есть, надо их де факто нанести.

[MrBrown]

Бася, Для автоматической разметки используй _measure и _device.
И вот ещё хороший макрос, тоже пригодится:

Код:

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

 ;;; возвращает координаты выбранной полилинии
;;; http://forum.dwg.ru/showthread.php?t=3790
(defun c:plcoords (/ coords pline pt_list)
(setq pline (vlax-ename->vla-object (car (nentsel))))
(if (wcmatch (vla-get-objectname pline)
	       "AcDbPolyline,AcDb2dPolyline,AcDb3dPolyline,AcDbLeader")
  (progn
  (setq coords (vlax-get pline 'Coordinates))
  (if (eq (vla-get-objectname pline) "AcDbPolyline")
    (progn
          (repeat (/ (length coords) 2)
            (setq pt_list (cons (list (car coords) (cadr coords)) pt_list))
            (setq coords (cddr coords))
          )
        )
        (progn
          (repeat (/ (length coords) 3)
            (setq pt_list (cons (list (car coords) (cadr coords) (caddr coords)) pt_list))
            (setq coords (cdddr coords))
          )
        )
      )
    (setq pt_list (mapcar (function (lambda (x)
				   (trans x 1 0)))
		       (reverse pt_list)))
  )
  )
  )
;CaLL:(get-wcs-coords)

Он возвращает координаты вершин полилинии (в ком. строке).

[Бася]

MrBrown, measure и divide делят на заданные расстояния или определенное количество отрезков.
А мне нужно как: выбрал линию и программа проставляет точки в местах излома линии. И не важно, их 2 или 122. Просто линий туча, хочется процесс автоматизировать.

Макрос Ваш завтра попробую и отпишусь, спасибо.

[Vladimir_Sergeevich]

Бася, такие задачи решались столько раз, что лень писать еще раз такой же код.
расставить вхождения блоков по полилинии можно таким куском кода:

Код:

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

 (setq pl_ent (entsel "\nУкажите полилинию <Завершить> : ")) ;;всю обработку указания полилинии не прикладываю дабы не загромождать
(setq 
	pl_ent (vlax-ename->vla-object (car pl_ent))
	count (vlax-curve-getEndParam pl_ent)
) 
(while (>= count 0) ;;inserting blk def
	(setq pt_ins (vlax-curve-getPointAtParam pl_ent count)
		ang_ins (+ (* pi 0.5)
		(angle 
			pt_ins 
			(mapcar '+
				pt_ins
				(vlax-curve-getFirstDeriv pl_ent count)
			)
		))
	) 
	
	(vla-InsertBlock (sad-get-CurrentSpace) (vlax-3d-point pt_ins) bl_name 1 1 1 ang_ins )
	
	(setq count (1- count))
) ;;while

bl_name - имя вставляемого блока (по хорошему в коде должна быть проверка наличия этого блока и создание его при отсутствии такового)
(sad-get-CurrentSpace) - заменить на указатель пространства в котором надо рисовать

Лень - двигатель прогресса! Лень рисовать ручками - учись кодить.

[Бася]

Vladimir_Sergeevich, спасибо за помощь! не пыталась писать ибо не умею, а ясно, что эта задача не мною придумана и уже давно решена. тут лучше не мучать своими измышлениями гуру, а спросить уже готовое решение.
по поводу кода - вылезла ошибка

Команда: _appload 01.lsp успешно загружено. 01.lsp успешно загружено. Команда: Укажите полилинию <Завершить> : ; ошибка: no function definition: SAD-GET-CURRENTSPACE

[SergeyP]

Сообщение от VVA Можно. Для сегмента полилинии хранится его кривизна (Bulge) Polyline Bulges

Интересная ссылка, спасибо!

Ваша программа станет еще лучше, если сможет сохранять для полилинии помимо координат вершин еще и кривизну участка)
№ x y z bulg

(при этом bulg относится к участку который начинается в данной точке)

Насколько сложно это реализовать?

[Рyslan]

Как в программе COORN изменить нумерация точек? Чтобы не просто цифрой задавался порядок, но и текстом? Например не 1, а Точка (POint) 1

[VVA]

Сообщение от Рyslan Как в программе COORN изменить нумерация точек?

Команда COORN из архива ECoorE rev10b.zip

[Рyslan]

Так у меня уже есть эта программа. Или тут что-то новое?

Аа, вроде разобрался. Спасибо!

VVA подскажи еще. Нужен лисп, если такой существует...Например есть текст, с значением, нужно чтобы этот текст суммировался и далее вставлялся с новым значением. Например 0, 20, 40, 60, 80, 100 и так далее

[VVA]

FAQ #23 Как последовательно пронумеровать в чертеже числа?

[Рyslan]

Спасибо большое!

[Рyslan]

VVA подскажи еще, как в программе COORN сделать так, чтобы нумерация точек полилинии начиналась с определенной точки? Например, у меня есть трубопровод, он идет с севера на юг, а программа мне сейчас нумерует с юга на север .

[Vladimir_Sergeevich]

Сообщение от Рyslan VVA подскажи еще, как в программе COORN сделать так, чтобы нумерация точек полилинии начиналась с определенной точки? Например, у меня есть трубопровод, он идет с севера на юг, а программа мне сейчас нумерует с юга на север .

Разверни линию и все. команда _reverse/Обратить

[VVA]

Нумерация идет в порядке выбора. Отрисуй по точкам полилинию и нумеруй вершины. Полилинию, если что, можно и реверсировать

----- добавлено через ~2 мин. -----
О, не заметил, что речь идет уже про готовую полилинию

[Рyslan]

Спасибо! Развернул. Я полинию скопировал в новый файл и вставил с исходными координатами

[Eugene.ne.Eugene]

Уважаемый VVA, а есть возможность извлекать не только координаты точек полилиний, но и название слоев полилиний?

[Агент СмиТ]

VVA, протестировал код в каждом из режимов, мполигоны обрабатываются. Два момента, если это возможно, нуждаются в корректировке:
1. Принудительная нумерация вершин в списке координат всех контуров мполигона по часовой стрелке.

При создании мполигона из полилиний, вне зависимости от порядка задания внутреннего и внешнего контура и порядка чередования вершин в каждом контуре, результирующий мполигон получает чередование вершин внешнего контура против часовой стрелки, а внутреннего ПО часовой. Необходимо, что бы все контуры в списке координат нумеровались ПО часовой стрелке.

2. Не включать в список координат центроиды мполигонов (1-1 и 2-10).

[VVA]

Агент СмиТ, Обновил #7.

[Агент СмиТ]

VVA, проверял работу кода в режиме COORNP.
1. По нумерации вершин: тестил мполигоны созданные конвертацией из существующих прямоугольников, так и созданные напрямую по команде mpolygon с указанием точек. Так и не смог понять логику по которой нумеруются вершины внешнего и внутренних контуров. Желательно, что бы вершины нумеровались по часовой стрелке всегда в каждом контуре и при этом начало нумерации шло с внешнего контура, что не получилось ни в одном из тестов. На рисунке слева большими цифрами показал, в каком порядке показал создавал мполигон, справа результат с правильной последовательностью нумерациии вершин.
2. Центроиды учитываться перестали, это то что нужно.
3. Пропала очень удобная особенность-номер контура, к которому относится вершина (ИМХО такая опция при сортировке и фильтации в эксель гораздо важней флага-разделителя), верните её пожалуйста!
4. Заинтересовал недокументированный режим "COORVIK" - было бы здорово допилить его до таблицы румбов (№, x, y, румб, длина линии), получилась бы тоже очень полезная опция как для мполигонов, так и для остальных примитивов.

[VVA]

Агент СмиТ, Выложи пример с парой разных мполигонов. Я не нашел описания принципа формирования dxf кодов мполигона.

----- добавлено через ~2 ч. -----
Нашел пару примеров в интернете. Немного поменял логику. Тестируй

[Агент СмиТ]

VVA, протестировал код в режиме coornp:
1. Во всех случаях (в т.ч. при порядке вершин против часовой стрелки) нумерация вершин происходит по часовой стрелке - то что нужно!
2. При создании мполигона напрямую (указанием точек вручную) порядок нумерации контуров противоположен порядку их создания, а нумерация в каждом контуре противоположня порядку указания вершин.
3. При создании мполигона путём конвертации существующих прямоугольников важен только порядок указания примитивов, а порядок их создания роли не играет.
Offtop: В процессе тестирования появился вопрос, возможен ли реверс тех контуров мполигона, где чередование вершин идёт против часовой стрелки? Было бы здорово перед снятием координат приводить все мполигоны к единообразию.

[VVA]

внес небольшие правки

Сообщение от Агент СмиТ возможен ли реверс тех контуров мполигона, где чередование вершин идёт против часовой стрелки?

надо будет попробовать

[Агент СмиТ]

VVA, попробовал работу COORNP на двух мполигонах в один приём:
1. насколько я понял, программа правильно обрабатывает только те мполигоны, у которых внешний контур создан раньше внутренних (розовый цвет);
2. те мполигоны, у которых создание происходило начиная с внутренних контуров, обрабатываются также в порядке создания контуров, а не начиная с внешнего, что приводит к неправильному порядку нумерации вершин (зелёный цвет).
Т.е. желательно начинать нумерацию принудительно с внешнего контура, а внутренние контуры обрабатывать в порядке их создания.

[Browning Zed]

VVA, в посте #7 есть скриншот диалогового окна программы. Существует ли в природе версия данной проги с DCL-файлом?

[VVA]

Сообщение от Browning Zed VVA, в посте #7 есть скриншот диалогового окна программы. Существует ли в природе версия данной проги с DCL-файлом?

В том же посте ECoorE rev11c.zip
DCL файл пишется лиспом "на лету". См опцию "Settings"

[lesha_rz]

Прочитал несколько веток по проблеме, решил написать сюда.
Схожая с моей была поднята в сообщении #48, но ответа по всей видимости не было

Сообщение от MANUL Товарищи, общий вопрос: Каким образом отслеживать ещё и географические коодинаты? При условии что положение геомаркера задано и и текущему чертежу вроде назначена СК: LL84

В изыскательском файле есть географическая привязка и ACAD и Civil в строке состояния показывает координаты в градусах и минутах. Civil без проблем экспортирует полилинию в kmz, которая корректно отображается и в GE и в SAS Planet-е.
Теперь, мой дилетантский вопрос: как при всем этом богатстве материалов выгрузить координаты вершин в географических координатах?
_list и описываемые здесь lispы выгружают прямоугольные.

[trir]

как я сразу и говорил - работать через FDO

[lesha_rz]

Сообщение от trir как я сразу и говорил - работать через FDO

Если не сложно, можно поподробнее?

[trir]

1. Создаёшь слои
2. Экспортируешь в нужную СК

[lesha_rz]

Спасибо, за два бесполезных ответа.

[trir]

команда MAPEXPORT и сохранить в gml в нужной СК - получишь текстовый файл с координатами
лично я предпочитаю просто копировать слой в пределах БД

[lesha_rz]

Сообщение от trir команда MAPEXPORT и сохранить в gml в нужной СК - получишь текстовый файл с координатами лично я предпочитаю просто копировать слой в пределах БД

Спасибо, попробую, во множестве выводимых атрибутов и свойств наверняка найду Долготу/Широту
Пока вышел из положения следующим образом: по имеющейся полилинии создал точки COGO и из Навигатора Области Инструментов просто скопипастил в Excel.
Параллельно можно добавить маркеры точек с номерами и координатами для вывода графики.

[Vikulassuk]

Сообщение от VVA slan.ru Пробуй COORT для твоего примера Описание Модифицированны и оптимизированы команды COOR, COORN, COORT, добавлена команда COORNP COORNP - COORNP + Point - отрисовка точек в узлах полилинии. Файл Ecoor.zip *** Добавлено 15 мая 2010 CoorNP-Координаты+Нумерация+Точки. Точки рисуются текущими режимами PDMODE and PDSIZE [/more]!!!Другие решения для экспорта: Ссылки здесь

Здравствуйте! Ваш лисп просто супер! Спасибо вам большое!
Помогите, пожалуйста, разобраться в нем немного.
Как сделать, чтобы в точках рисовался кружочек? У вас , вроде, такое есть, но никак не могу это осуществить.
И еще такой вопрос - реально ли сделать, чтобы нумерация была на выноске с текстом "т.1", "т.2" и т.д?

Заранее спасибо, если найдете время ответить

[anastaskot]

Добрый день! Пользуюсь ECoor для выгрузки координат в Excel, и соответственно нумерую точки (1,2,3...). Но далее мне нужно увеличить шрифт до 2.5 и проставить кружки на точки радиусом 1, после чего нумерация наползает на полилинию и точку, приходится потом растаскивать все вручную. Есть ли возможность, чтобы это все автоматически растаскивалось? А то по 2 тысячи и более точек вручную растащить - это смерть. Приложила фото, на 1 - как получается и на 2 - как должно быть.

PS: я просто сама не смыслю в коде ничего, но мне кажется там должно быть уточнение, что текст (номер точки) не должен залезать на полилинию и/или на другой текст(номер точки). Буду очень признательна если поможете это написать.

[VVA]

anastaskot, Найди строку

(polar ln (/ pi 4) 1.) ;_Координаты на 1 ед по углом 45 градусов

Здесь определяется точка отрисовки текста (на 1 ед под углом 45 градусов от вершины полилинии)
Попробуй заменить 1. на большее число.
Если устроит, можно задавать не угол, а смещение по x y от вершины полилинии

[anastaskot]

Сообщение от VVA anastaskot, Найди строку Здесь определяется точка отрисовки текста (на 1 ед под углом 45 градусов от вершины полилинии) Попробуй заменить 1. на большее число. Если устроит, можно задавать не угол, а смещение по x y от вершины полилинии

Спасибо за подсказку! Теперь легче, хоть и приходится ручками дорабатывать.

PS: а смещение по х и у также в коде или из автокада можно настроить?

[Кулик Алексей aka kpblc]

anastaskot, посмотри справку по функции polar - там все внятно достаточно описано.

[trir]

А то по 2 тысячи и более точек вручную растащить - это смерть.

Ну так в Civil 3D на это есть штатный функционал...

[VVA]

Сообщение от anastaskot PS: а смещение по х и у также в коде или из автокада можно настроить?

Вместо строки

(polar ln (/ pi 4) 1.) ;_Координаты на 1 ед по углом 45 градусов

впиши

(mapcar '+ ln '(1. 2. 3.))

где
1 - смещение по X со своим знаком
2 - смещение по Y со своим знаком
3 - смещение по Z со своим знаком
Пример смещения от вершины, координаты которой хранятся в переменной ln на -2.5 по Х ; 3.2 по Y и 0 по Z

(mapcar '+ ln '(-2.5 3.2 0.))

[bengan777]

Добрый день. Используем для нумерации точек и выгрузки координат в exel ваш лисп ECoorE rev11c.LSP, за что вам огромное спасибо.
Возник вопрос. Появилось желание немного переделать нумерацию точек. Сейчас текст с номером точки появляется с одинаковым смещением по диагонали на северо-восток относительно узловой точки.
Есть ли возможность сделать так, чтобы текст вставлялся только с внешней стороны фигуры(как на скрине 2)?

[bengan777]

Если не ошибаюсь, реализовывать это надо по одному из описанных тут алгоритмов^
https://ru.wikipedia.org/wiki/%D0%97...B8%D0%BA%D1%83
К сожалению, сам я делать это буду очень долго( Если кто нибудь поможет, буду очень признателен.

[VVA]

bengan777, В этой реализации программы такой возможности нет. Можно только отредактировать смещение для всех точек. Координаты обрабатываются поточно, возможность определять и хранить для каждой точки свое смещение не предусмотрено.

[Boxa]

Я что то подобное делал, для теодолитных ходов... проставление номеров вершин, правда не текстом , а выносками и проставление площадей, с последующей выгрузкой всего этого добра в ексель по определенной форме....

ИМХО, алгоритм то там простой:
берете координаты вершины и смещаете на единичный вектор в сторону средней точки между предыдущей и последующей вершинами, потом проверяете полученные координаты на попадание в контур, если попали внутрь, то умножаем вектор на -1. Собственно всё. Далее умножаем полученный вектор на требуемую величину смещения. Код проверки на попадание в контур можно найти тут на форуме, хотя можно и самому написать, там ничего сложного нет, тут уж как удобнее.

Сообщение от bengan777 К сожалению, сам я делать это буду очень долго(

Дорогу осилит идущий.

Сообщение от bengan777 Если кто нибудь поможет, буду очень признателен.

Надеюсь помог.

[bengan777]

Всем большое спасибо. Буду ковырять.

[kacugu]

Сообщение от Boxa ИМХО, алгоритм то там простой

Offtop: А если расставлять номера точек в вершины подобной фигуры? Т.е. есть какой-то контур, строим его подобие во внешнюю сторону, расставляем номера точек в вершины новой фигуры, удаляем новую фигуру. Сходу не соображу есть ли подводные камни у такого варианта

[Сергей812]

Сообщение от kacugu Offtop: А если расставлять номера точек в вершины подобной фигуры? Т.е. есть какой-то контур, строим его подобие во внешнюю сторону, расставляем номера точек в вершины новой фигуры, удаляем новую фигуру. Сходу не соображу есть ли подводные камни у такого варианта

Сообщение от VVA В этой реализации программы такой возможности нет. Можно только отредактировать смещение для всех точек.

Если программа не гарантирует размещение номеров внутри контура...

[Boxa]

kacugu, ну вычислять то направление оффсета все равно придется, плюс при оффсете могут вырождаться грани, про накладные расходы на создание доп объекта и последующая чистка: тут надо смотреть на конкретных примерах, где то выиграете, где то нет...
а вообще экспериментируйте

[alexx_z25]

Спасибо VVA за такой классный lisp! А нельзя ли сделать, так, чтобы в файле txt можно было выбрать разделитель между координатами, у Вас идёт 6 пробелов, а мне до зарезу нужна просто запятая?!

[Сергей812]

если фиксированные 6 пробелов - то легко заменой в любом текстовом редакторе делается

[Кулик Алексей aka kpblc]

Я полагаю, что там на самом деле символ табуляции стоит (код не смотрел).

[alexx_z25]

Сообщение от Сергей812 если фиксированные 6 пробелов - то легко заменой в любом текстовом редакторе делается

Спасибо! Действительно, легко и быстро 6 пробелов меняются на одну запятую, но если бы такая возможность была в лиспе - было бы ещё быстрее

[Сергей812]

Сообщение от alexx_z25 но если бы такая возможность была в лиспе - было бы ещё быстрее

искать, где ссылка на лисп - лень) Если там 6 пробелов, то ищите в коде конструкцию вида

Код:

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

 (setq %Какая то переменная% "      ")

по строковой константе в 6 пробелов

" "

и заменяете их на нужный разделитель вместо пробелов внутри кавычек.

----- добавлено через ~4 мин. -----
или в аргументах strcat может быть строковая константа в коде, например

[VVA]

Сообщение от alexx_z25 у Вас идёт 6 пробелов, а мне до зарезу нужна просто запятая?!

Сохраняй как csv файл, разделитель будет точка с запятой. Или настраивай программу импорта на разделитель ; или меняй в редакторе ; на ,

[probkoball]

Как отделаться от введения prefix и suffix при вводе команды coorn. Ввожу пробел, как там написано, а он не воспринимается.

[VVA]

У меня воспринимается. Только что проверил версию ECoorE rev11c.zip отсюда

----- добавлено через ~2 мин. -----
Если они пустые и не нужны, просто жми Enter на запросы

Type prefix: (If you want to delete prefix type ' ' (press SPACE key on keyboard) <> : Type suffix: (If you want to delete prefix type ' ' (press SPACE key on keyboard) <> :

[probkoball]

Сообщение от VVA У меня воспринимается. Только что проверил версию ECoorE rev11c.zip отсюда ----- добавлено через ~2 мин. ----- Если они пустые и не нужны, просто жми Enter на запросы

Перезапустил автокад и заработало. Спасибо большое.

[Valeranna]

Сообщение от Кулик Алексей aka kpblc Я полагаю, что там на самом деле символ табуляции стоит (код не смотрел).

В Notepad++ с табуляцией можно работать в режиме замены (расширенный поиск). Подходящее сочетание — \t.

[bengan777]

Сообщение от Boxa Надеюсь помог.

Очень помог)
Этот кусок я реализовал.
Осталось понять как это все в эксель теперь запихать)
Когда доделаю, выложу что получилось.

[bengan777]

Код:

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

 (defun C:Nplne (/ pt pt1 pt2 pt4 ent ent2 lst_point sys_var htxt mysset counter n coun2 temp)
  (vl-load-com)
  (setq Htxt 2) ;_Высота текста
  (setq sys_var (mapcar 'getvar '("osmode" "cmdecho")))	; Сохранение значений системных переменных
  (setvar "osmode" 0)
  (setvar "cmdecho" 0)
  (if (not (numberp *NPoint*))(setq *NPoint* 1))	; Проверка, пуста ли глобальная переменная *NPoint*
  (princ "\nНачальный номер <")(princ *NPoint*)(princ ">: ")
  (if (null (setq n (getint)))(setq n *NPoint*))	; Возможность ввести начальный номер руками
 (setq mysset (ssget))	; Выбор набора объектов
 (setq counter 0)
 (while (< counter (sslength mysset))	; Начало перебора объектов набора
    (setq ent (ssname mysset counter))	; Получение координат вершин списком
  (setq  lst_point (mapcar 'cdr				
        (vl-remove-if-not
          '(lambda (x) (= (car x) 10))
          (entget ent)
        ) ;_ end of vl-remove-if-not
      		   ) ;_ end of mapcar
  ) ;_ end of setq
(setq coun2 0)
   (while (< coun2 (length lst_point))
     (setq pt (nth coun2 lst_point))
	(if (= coun2 (- (length lst_point) 1)) (setq pt1 (nth 0 lst_point))
	  (setq pt1 (nth (1+ coun2) lst_point))); координаты следующей вершины
     	 (if (= coun2 0) (setq pt2 (nth coun2 (reverse lst_point)))
	   (setq pt2 (nth (- coun2 1) lst_point))) ; координаты предыдущей вершины
     
       	    (setq pt4 (polar pt (- (angle pt2 pt) (/ (- (angle pt2 pt) (angle pt1 pt)) 2)) 1)); получаем координату смещения на 1 нашего узла к середине внутреннего угла
	(vl-cmdf "_ray" pt4 "@5<90" "") ; Проводим луч из pt2 к северу
	(setq ent2 (entlast)) ; пишем в переменную имя луча
	(setq temp
         (vla-intersectwith
          (vlax-ename->vla-object ent)
          (vlax-ename->vla-object ent2)
          acExtendnone
          )
	 )
	(setq temp
	 (vlax-safearray-get-u-bound
	 (vlax-variant-value temp) 1)
	) ; Получаем количество пересечений (-1 если их нет, 2 если одно, 5 если 2 итд.)
	     (if (= (abs (rem temp 2)) 1)
     		(vl-cmdf "_text" "_none" (polar pt (angle pt pt4) (+ 2 Htxt)) Htxt 0 (itoa n) "")
     		(vl-cmdf "_text" "_none" (polar pt (- (angle pt pt4) 3.1415) (+ 2 Htxt)) Htxt 0 (itoa n) "")
	     ) ; вставляем текст учитывая внутри, или снаружи фигуры находится точка луча
     (vl-cmdf "_erase" ent2 "") ; стираем луч
    (setq coun2 (1+ coun2))
    (setq n (1+ n))
   ); end while
     (setq *Npoint* n)
   (setq counter (+ counter 1))
 );_end of while
  (mapcar 'setvar '("osmode" "cmdecho") sys_var)
  (princ)
) ;_ end of defun
(princ "\nНаберите Nplne в командной строке")

Извиняюсь если накосячил с форматом кода. Пока реализовал подписывание узлов. Разберусь с экселем, тоже выложу что получилось.

[miha_1k]

Идея классная, но в программе закралась ошибка.
Полигоны нумеруются не совсем корректно((

[bengan777]

Прошу помощи у знающих людей.
Вот координаты фигуры:

4364751.528,5006349.857
4364772.986,5006353.912
4364774.609,5006369.05
4364776.683,5006353.912
4364795.166,5006352.019
4364776.412,5006349.676
4364775.962,5006335.078
4364771.814,5006349.406
Здесь 5 точка оказывается внутри фигуры((

луч в этом случае попадает внутрь фигуры и имеет одно пересечение с ней, однако, программа почему то считает что пересечений 2
(setq temp
(vlax-safearray-get-u-bound
(vlax-variant-value temp) 1)
) выдает в этом случае значение 5

[Кулик Алексей aka kpblc]

И как этот вопрос связан со стартовым постом темы?

[bengan777]

Извиняюсь, думал что будет удобнее в одной той же теме обсудить. Если нужно, создам отдельную тему.

[Кулик Алексей aka kpblc]

Лучше отдельную - потому что потом фиг чего найдешь.

[Barmaley Bubusikin]

Использую COORN и не пойму как удалить префикс и суффикс в нумерации точек. Нажимаю "пробел" - поле очищается, но после нажатия "enter" восстанавливается старое значение. Подскажите, пожалуйста, как очистить значения префикса/суффикса.

[VVA]

Barmaley Bubusikin, На запрос

Type prefix: (If you want to delete prefix type ' ' (press SPACE key on keyboard) <> :

нажимаешь пробел и enter. Проверял на версии ECoorE rev11c

[TMK]

Здравствуйте! Пользуюсь COORN уже много лет, но местное управление архитектуры стало требовать менять координаты X и Y местами. Каждый раз делать это все вручную очень проблематично. Подскажите, может есть какой-нибудь lisp, выводящий координаты в эксель с переставленными X и Y?

[VVA]

Это делает сама команда, смотри настройки (опция Settings). Версия по ссылке с поста #183