[ua3rad]

Всем добрый день!!! Мне нужна помощь!!! Липс не знаю. Есть программа на липсе, которая записывает центры окружностей и диаметры в файл, но мне надо чтоб окружности в файле записывались по возрастанию.

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

По возрастанию чего? диаметров?
P.S. Код не проверял.

[ua3rad]

Да, по диаметрам. код работает. Сейчас строка выглядет так:
Х12Y12D3
Х10Y10D2
X20Y20D4
надо
D2
Х10Y10
D3
Х12Y12
D4
X20Y20
Если сложно, то хотя бы вот так
Х10Y10D2
Х12Y12D3
X20Y20D4

----- добавлено через ~25 мин. -----
может я не правильно использую

[bargool]

Не липс! Лепс же!

[ua3rad]

я думаю разработчики не обидятся

----- добавлено через ~2 мин. -----

Сообщение от Кулик Алексей aka kpblc По возрастанию чего? диаметров? P.S. Код не проверял.

Как пользоваться Вашей программой

[bargool]

Вам куда надо выводить это?
Посмотрите data extraction (извлечение данных), там прекрасно выдираются центры и диаметры кругов в эксель, а там сортируйте как хотите. И без всякого программирования.
И это была ирония. Язык называется Lisp. Произносим как Лисп.
Как использовать лисп, опубликованный на форуме

[ua3rad]

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

----- добавлено через ~20 ч. -----
Кулик Алексей aka kpblc!!! Допишите пожалуйста в Ваш липс буквы X,Y,D, чтобы координата X начиналась с буквы X и т.д. Я не знаю куда это писать

[Kirill_Ja]

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

[ua3rad]

Платы разные и соответственно кол-во контактных площадок и их диаметр тоже разное

[CB]

Код:

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

 
(defun c:drill2
       (/ fun_conv-selset-to-ename selset file handle)

  (defun fun_conv-selset-to-ename (selset / tab item)
    (repeat (setq tab  nil
                  item (sslength selset)
            ) ;_ end setq
      (setq tab
             (cons (ssname selset (setq item (1- item))) tab)
      ) ;_ end of setq
    ) ;_ end of repeat
    tab
  ) ;_ end of defun

  (if (and (setq selset (ssget "_X" '((0 . "CIRCLE"))))
           (setq file (strcat (vl-string-right-trim
                                "\\"
                                (getvar "dwgprefix")
                              ) ;_ end of vl-string-right-trim
                              "\\Circles.txt"
                      ) ;_ end of strcat
           ) ;_ end of setq
           (setq handle (open file "w"))
      ) ;_ end of and
    (progn
      (foreach item
               (mapcar
                 (function
                   (lambda (x)
                     (strcat
                       (vl-princ-to-string
                         (* 2. (cdr (assoc 40 (entget x))))
                       ) ;_ end of vl-princ-to-string
                       "\n"
                       (vl-princ-to-string
                         (cdr (assoc 10 (entget x)))
                       ) ;_ end of vl-princ-to-string
                     ) ;_ end of strcat
                   ) ;_ end of lambda
                 ) ;_ end of function
                 (vl-sort
                   (fun_conv-selset-to-ename selset)
                   (function
                     (lambda (a b)
                       (< (cdr (assoc 40 (entget a)))
                          (cdr (assoc 40 (entget b)))
                       ) ;_ end of <
                     ) ;_ end of lambda
                   ) ;_ end of function
                 ) ;_ end of vl-sort
               ) ;_ end of mapcar
        (write-line item handle)
      ) ;_ end of foreach
    ) ;_ end of progn
  ) ;_ end of if
  (if handle
    (close handle)
  ) ;_ end of if
  (if file
    (princ (strcat "\n" file " saved!"))
  ) ;_ end of if
)

[ua3rad]

СВ, огромное спасибо!!! Дальше я в паскале все приведу к нужному виду. Еще раз спасибо!!!

[Petrov-Vodkin]

Все-таки не выдержал, спрошу:
А что это у вас за программа такая для разводки плат, в которой ничего посчитать нельзя?
Почему приходится уже в автокаде такой огород городить?

[ua3rad]

Рассказываю. Жарким летом 2010 года дали усадку фотошаблоны. Чертежей в электронном виде нет. Нужен фотошаблон один в один с нужными размерами. Для этого была разработана мной технология регенерации. За основу берем DRIL файл и при помощи разработанной программы вставляем в AutoCad отверстия. Это опора от которой отталкиваемся дальше. Усевший фотошаблон сканируем и накладываем на отверстия. Остается только начертить линии и перевести в GBR файл. Но возникла еще одна проблема. Для некоторых плат DRIL считывали каким-то программатором (Я не знаю каким) и отверстия получаются не в сетке. Для этого придумал другую программу, которая вставляет отверстия в сетку. Но теперь старый DRIL файл не подходит и нужен другой. Вот собственно и все.