| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > помогите с программой на лиспе

помогите с программой на лиспе

Ответ
Поиск в этой теме
Непрочитано 23.09.2006, 21:39 #1
помогите с программой на лиспе
lestate
 
ST
Регистрация: 23.09.2006
Сообщений: 2

помогите плз с методом Флойда(нахождение путя минимальной суммарной длины во взвешенном графе с произвольными весами для всех пар вершин)
сам алгоритм находиться здесь.
http://khpi-iip.mipk.kharkiv.edu/lib.../din_0124.html
проблема с реализацией
Просмотров: 2226
 
Непрочитано 17.10.2006, 16:22
#2
Om81

Хочу быть фотографом :)
 
Регистрация: 21.10.2005
Москва, Кисловодск
Сообщений: 2,538
<phrase 1=


Помогите, у кого время есть.. плиз! Нужна программка последовательной нумерации (несколько тысяч свай в чертеже) - уже расставлены объекты text, они все имеют одно значение. Предполагаю так: при запуске команды программа делает запрос числа (с какого начинать), затем я тыкаю в text'ы и она меняет параметр contents на следующее значение (+1 к предыдущему..). Заранее благодарен тем, у кого найдется время помочь..
__________________
Камень на камень, кирпич на кирпич..
Om81 вне форума  
 
Непрочитано 17.10.2006, 16:29
#3
gest

GEODATA Engineering S.p.A.
 
Регистрация: 11.02.2005
Монино
Сообщений: 686


Я для нумерации однострочного текста использую программу Галицкого Р.Ф grf numb
[ATTACH]1161088199.zip[/ATTACH]
gest вне форума  
 
Непрочитано 17.10.2006, 16:37
#4
Om81

Хочу быть фотографом :)
 
Регистрация: 21.10.2005
Москва, Кисловодск
Сообщений: 2,538
<phrase 1=


Спасибо!
__________________
Камень на камень, кирпич на кирпич..
Om81 вне форума  
 
Непрочитано 17.10.2006, 16:47
#5
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,990
<phrase 1= Отправить сообщение для VVA с помощью Skype™


>Om81
http://www.autocad.ru/cgi-bin/f1/board.cgi?t=29829Am
{Smirnoff} Команда Renum (да и NUM пригодиться)
VVA вне форума  
 
Непрочитано 17.10.2006, 17:01
#6
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,990
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Цитата:
несколько тысяч свай в чертеже
И в каждую тыкать :?: :?: :?:
Быстро переделал Прогу Лентяй №37 для текста. Можешь выделять диапазон рамкой

Код:
[Выделить все]
(defun C:SN-T (/ *error* adoc att_list axss blk_list fpt num oaq oat oqa osm sort_list spt test_list cm) 
  (vl-load-com) 
  (defun *error* (error) 
    (cond ((not error)) 
          ((wcmatch (strcase error) "*QUIT*,*CANCEL*")) 
          (1 (princ (strcat "\nERROR: " error)))) 
    (setvar "osmode" osm)  (setvar "attdia" oat) 
    (setvar "attreq" oaq) (setvar "qaflags" oqa) 
    (setvar "cmdecho" 1) (vla-endundomark adoc) 
    (princ));defun 
  (setq adoc (vla-get-activedocument (vlax-get-acad-object))) 
  (vla-endundomark adoc) 
  (vla-startundomark adoc) 
  (setvar "cmdecho" 0) 
  (setq oat (getvar "attdia") osm (getvar "osmode") 
        oaq (getvar "attreq") oqa (getvar "qaflags")) 
  (setvar "attdia" 0);Выводятся запросы в командной строке (окно подавляется) 
  (setvar "attreq" 0);Для каждого атрибута не выдается запрос значения    
  (setvar "qaflags" 0);Запрет вывода на экран окон предупреждений, перенос их в командную строку  
  (setvar "osmode" 0) 
  (setq fpt (getpoint "\nПервый угол рамки выбора >> \n") 
               spt (getcorner fpt "\nВторой угол рамки выбора >> \n")) 
    (if (ssget "_W" fpt spt (list (cons 0 "*TEXT"))) 
      (progn (initget 4) 
        (setq num (getint "\n\t >> Начальный номер [Enter для продолжения] : ")) 
        (if (not num) (setq num (if *last_number* *last_number* 
                            (getint "\n\t >> Первый раз номер задается обязательно  : ")))) 
        (setq axss (vla-get-activeselectionset adoc)) 
        (vlax-for a axss (setq blk_list (cons a blk_list))) 
        (initget "Вперед Назад") 
        (setq dir (getkword "\nНаправление [Вперед/Назад]: <Вперед>")) 
        (if (null dir) (setq dir "Вперед")) 
        (if (= dir "Вперед") (setq cm <) (setq cm >))  
        (setq test_list (mapcar '(lambda (x) (vlax-get x 'Insertionpoint)) blk_list) 
              sort_list (vl-sort blk_list '(lambda (e1 e2) 
                          (if (vl-every '(lambda (x) (equal (cadr x) (cadar test_list) 0.1)) test_list) 
                            (cm (abs (- (car fpt) (car (vlax-get e1 'Insertionpoint)))) 
                               (abs (- (car fpt) (car (vlax-get e2 'Insertionpoint))))) 
                            (cm (abs (- (cadr fpt) (cadr (vlax-get e1 'Insertionpoint)))) 
                               (abs (- (cadr fpt) (cadr (vlax-get e2 'Insertionpoint)))))))));setq 
        (foreach blk_obj sort_list
          (if (and (vlax-property-available-p blk_obj 'Textstring) 
                   (vlax-read-enabled-p blk_obj) (vlax-write-enabled-p blk_obj)) 
	      (vla-put-textstring blk_obj (itoa num))
              );if 
          (setq num (1+ num)));foreach 
        (vla-clear axss) (vla-delete axss) 
        (vlax-release-object axss) (setq axss nil) 
        (setq blk_list nil)));if 
  (setq *last_number* num) 
  (vla-regen adoc acactiveviewport) 
  (*error* nil) 
  (princ) 
);end 
(prompt "\nВ командной строке набери SN-T \n") 
(princ)

Последний раз редактировалось VVA, 20.09.2015 в 12:19.
VVA вне форума  
 
Непрочитано 17.10.2006, 17:26
#7
Om81

Хочу быть фотографом :)
 
Регистрация: 21.10.2005
Москва, Кисловодск
Сообщений: 2,538
<phrase 1=


Цитата:
Сообщение от VVA
И в каждую тыкать :?:
Дело в том, что очень сложная конфигурация свайных лент, автоматически можно только небольшими диапазонами, что я тоже делаю местами..
Спасибо всем, проблема решена, пять-семь часов времени сэкономлено
__________________
Камень на камень, кирпич на кирпич..
Om81 вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > помогите с программой на лиспе

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск