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

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

Lisp_code

Ответ
Поиск в этой теме
Непрочитано 15.07.2007, 19:36 #1
Lisp_code
Holon
 
CNC
 
Israel
Регистрация: 07.07.2007
Сообщений: 302

Programka rabotala,a potom perestala rabotat' potom vdrug opjat' nachala rabotat' potom ee vubilo, voobchem rabota programki nestabil'na vot code:

Код:
[Выделить все]
(defun Ord_tab (/ ret_value1 dcl_id what_next on_ed2 on_ed1 txt_new txt f f_man f_use f_new_coun list_sys_var sys_var)
  (defun ok_tab	(/)
     (vl-load-com) 
(setq list_sys_var '( "osmode" "CMDECHO" "BLIPMODE"  ))       
(setq sys_var (mapcar 'getvar list_sys_var)) 
  
  (setvar "osmode" 0) 
  (SETVAR "CMDECHO" 0)          
  (SETVAR "BLIPMODE" 0)          

					;(setq f (open "u:\\lisp\\new.tst" "r"))
					;(setq txt (read-line f))
					;(close f)
					;(setq txt_new (+ (atoi txt) 1))
					;(setq f_new (open (strcat "u:\\lisp\\" (itoa txt_new) ".tst") "a"))
					;(write-line (itoa txt_new) f_new)
					;(close f_new)
					;(setq f (open "u:\\lisp\\new.tst" "w"))
					;(write-line (itoa txt_new) f)
					;(close f)
					;(setq f (open "u:\\lisp\\new.tst" "r"))
					;(setq txt (read-line f))
					;(close f)
					;(command "style" "" "" "200" "1" "" "" "" "" "text" "400,1500" "0" txt)
					;(alert txt )
    (setq f (open "u:\\lisp\\Orders\\Ord_counter.tst" "r"))
    (setq txt (read-line f))
    (close f)
    (setq txt_new (+ (atoi txt) 1))
    (setq ret_value1 (list (list "ed1" on_ed1) (list "ed2" on_ed2)))

  )
  (setq dcl_id (load_dialog "u:\\lisp\\Orders\\ord_tab.dcl"))
  (if (not (new_dialog "dd_edit" dcl_id))
    (exit)
  )
					;(set_tile "edit2" "øôé ùôéøà")
  (set_tile "edit2" (strcat (itoa txt_new)))
  (set_tile "edit1" "îñôø äæîðä")
  (setq	on_ed1 "îñôø äæîðä"
	on_ed2 (itoa txt_new)		;"øôé ùôéøà";(itoa txt_new)
  )
  (setq what_next 8)
  (while (< 2 what_next)
    (action_tile "edit1" "(setq on_ed1 $value)")
    (action_tile "edit2" "(setq on_ed2 $value)")
    (action_tile "accept" "(done_dialog 1) (ok_tab)")
    (setq what_next (start_dialog))
  )

  (unload_dialog dcl_id)
  ret_value1


					;(("ed1" "12345") ("ed2" "5002")) 
					;(setq y1 (car ret_value1))       ;(("ed1" "12345")
					;(setq y2 (cadr ret_value1))      ;("ed2" "5002")
					;(setq y3 (caddr ret_value1))     ; nil
					;(setq y4 (cadar ret_value1))     ;"12345"
					;(setq y5 (caar ret_value1))      ;"ed1"
					;(setq y6 (cdar ret_value1))      ;("12345")
					;(setq y7 (cddr ret_value1))      ;nil
					;(setq y8 (caadr ret_value1))     ;"ed2"
					;(setq y9 (caaddr ret_value1))    ;nil
					;(setq y10 (cdr ret_value1))      ;(("ed2" "5002"))
					;(setq y11 (cdddr ret_value1))    ;nil
					;(setq y2 (cadr(cadr ret_value1)));"5002"

  (setq	f_use (open (strcat "u:\\lisp\\Orders\\Ord_Users\\"
			    (cadar ret_value1)
			    ".tst"
		    )
		    "a"
	      )
  )
  (write-line (cadr (cadr ret_value1)) f_use)
  (close f_use)
  (setq	f_man (open (strcat "u:\\lisp\\Orders\\Ord_manufact\\"
			    (cadr (cadr ret_value1))
			    ".tst"
		    )
		    "a"
	      )
  )
  (write-line (cadr (cadr ret_value1)) f_man)
  (close f_man)




  (setq f_new_coun (open "u:\\lisp\\Orders\\Ord_counter.tst" "w"))
    (write-line (itoa txt_new) f_new_coun)
    (close f_new_coun)
  (mapcar 'setvar list_sys_var sys_var)
)
fai'l DCL prilagaetsja:


Код:
[Выделить все]
// á÷ùä ìàùåø îñ' äæîðä
dd_edit : dialog {
label = "á÷ùä ìàùåø îñ' äæîðä";
fixed_height = true;
: edit_box { key = "edit1"; value = "0"; fixed_height = true; alignment = center; label = "äæîðú ì÷åç"; } 
: edit_box { key = "edit2"; value = "0"; fixed_height = true; alignment = center; label = "äæîðú ééöåø"; } 
: row {
ok_button;
cancel_button;
}
}
Просмотров: 5029
 
Непрочитано 15.07.2007, 20:07
#2
DEM

YngIngKllr
 
Регистрация: 29.03.2005
СПб
Сообщений: 12,968


Ставь русскую раскладку и кодировку может нам проще будет прочитать твой код.
А иначе нам удачи не видать.
__________________
Работаю за еду.
Working for food.
Für Essen arbeiten.
العمل من أجل الغذاء
Працую за їжу.
DEM вне форума  
 
Автор темы   Непрочитано 15.07.2007, 20:20
#3
Holon

CNC
 
Регистрация: 07.07.2007
Israel
Сообщений: 302


K cozhaleniju eato ivrit (Hebrew)
Holon вне форума  
 
Непрочитано 15.07.2007, 21:10
#4
dextron3

проектировшик
 
Регистрация: 01.01.2007
СССР
Сообщений: 5,143


Приложи переводчик с иврита на лисп
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 15.07.2007, 22:29
#5
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


> Holon: Для "перевода" на русский язык попробуй, например, translit.ru - там все достаточно просто по идее.
Теперь код. Полностью потестировать его я не смог (кодировка показывает нечто типа ?i^?a вместо осмысленных букв), поэтому я б в первую очередь проверял находимость файлов.
Код:
[Выделить все]
(setq f (open "u:\\lisp\\Orders\\Ord_counter.tst" "r"))
Может выбить функцию, если файл не найден. Либо он пустой, а ты пытаешься с него читать данные. ИМХО файловые операции и надо проверять в первую очередь.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 15.07.2007, 22:56
#6
Holon

CNC
 
Регистрация: 07.07.2007
Israel
Сообщений: 302


File suschestvuet, i v faile propisana stroka,a neskol'ko strok na Hebrew ja zamenju na English

Код:
[Выделить все]
(defun Ord_tab (/ ret_value1 dcl_id what_next on_ed2 on_ed1 txt_new txt f f_man f_use f_new_coun list_sys_var sys_var)
  (defun ok_tab	(/)
     (vl-load-com) 
(setq list_sys_var '( "osmode" "CMDECHO" "BLIPMODE"  ))       
(setq sys_var (mapcar 'getvar list_sys_var)) 
  
  (setvar "osmode" 0) 
  (SETVAR "CMDECHO" 0)          
  (SETVAR "BLIPMODE" 0)          

					;(setq f (open "u:\\lisp\\new.tst" "r"))
					;(setq txt (read-line f))
					;(close f)
					;(setq txt_new (+ (atoi txt) 1))
					;(setq f_new (open (strcat "u:\\lisp\\" (itoa txt_new) ".tst") "a"))
					;(write-line (itoa txt_new) f_new)
					;(close f_new)
					;(setq f (open "u:\\lisp\\new.tst" "w"))
					;(write-line (itoa txt_new) f)
					;(close f)
					;(setq f (open "u:\\lisp\\new.tst" "r"))
					;(setq txt (read-line f))
					;(close f)
					;(command "style" "" "" "200" "1" "" "" "" "" "text" "400,1500" "0" txt)
					;(alert txt )
    (setq f (open "u:\\lisp\\Orders\\Ord_counter.tst" "r"))
    (setq txt (read-line f))
    (close f)
    (setq txt_new (+ (atoi txt) 1))
    (setq ret_value1 (list (list "ed1" on_ed1) (list "ed2" on_ed2)))

  )
  (setq dcl_id (load_dialog "u:\\lisp\\Orders\\ord_tab.dcl"))
  (if (not (new_dialog "dd_edit" dcl_id))
    (exit)
  )
					;(set_tile "edit2" "Numer User")
  (set_tile "edit2" (strcat (itoa txt_new)))
  (set_tile "edit1" "Number Order")
  (setq	on_ed1 "Number Order"
	on_ed2 (itoa txt_new)		;"Numer User";(itoa txt_new)
  )
  (setq what_next 8)
  (while (< 2 what_next)
    (action_tile "edit1" "(setq on_ed1 $value)")
    (action_tile "edit2" "(setq on_ed2 $value)")
    (action_tile "accept" "(done_dialog 1) (ok_tab)")
    (setq what_next (start_dialog))
  )

  (unload_dialog dcl_id)
  ret_value1


					;(("ed1" "12345") ("ed2" "5002")) 
					;(setq y1 (car ret_value1))       ;(("ed1" "12345")
					;(setq y2 (cadr ret_value1))      ;("ed2" "5002")
					;(setq y3 (caddr ret_value1))     ; nil
					;(setq y4 (cadar ret_value1))     ;"12345"
					;(setq y5 (caar ret_value1))      ;"ed1"
					;(setq y6 (cdar ret_value1))      ;("12345")
					;(setq y7 (cddr ret_value1))      ;nil
					;(setq y8 (caadr ret_value1))     ;"ed2"
					;(setq y9 (caaddr ret_value1))    ;nil
					;(setq y10 (cdr ret_value1))      ;(("ed2" "5002"))
					;(setq y11 (cdddr ret_value1))    ;nil
					;(setq y2 (cadr(cadr ret_value1)));"5002"

  (setq	f_use (open (strcat "u:\\lisp\\Orders\\Ord_Users\\"
			    (cadar ret_value1)
			    ".tst"
		    )
		    "a"
	      )
  )
  (write-line (cadr (cadr ret_value1)) f_use)
  (close f_use)
  (setq	f_man (open (strcat "u:\\lisp\\Orders\\Ord_manufact\\"
			    (cadr (cadr ret_value1))
			    ".tst"
		    )
		    "a"
	      )
  )
  (write-line (cadr (cadr ret_value1)) f_man)
  (close f_man)




  (setq f_new_coun (open "u:\\lisp\\Orders\\Ord_counter.tst" "w"))
    (write-line (itoa txt_new) f_new_coun)
    (close f_new_coun)
  (mapcar 'setvar list_sys_var sys_var)
)
fai'l DCL prilagaetsja:


Код:
[Выделить все]
// Number Order&Number User
dd_edit : dialog {
label = "Number Order&Number User";
fixed_height = true;
: edit_box { key = "edit1"; value = "0"; fixed_height = true; alignment = center; label = "Number Order"; } 
: edit_box { key = "edit2"; value = "0"; fixed_height = true; alignment = center; label = "Number User"; } 
: row {
ok_button;
cancel_button;
}
}
$ (Ord_tab)
; error: bad argument type: fixnump: nil
_$
Holon вне форума  
 
Автор темы   Непрочитано 16.07.2007, 00:09
#7
Holon

CNC
 
Регистрация: 07.07.2007
Israel
Сообщений: 302


Problema v dvyx mestah, esli ishodnuju stroku zamenit' na krasnuju to vse rabotaet, chasticno estestvenno

Код:
[Выделить все]
(defun Ord_tab (/ ret_value1 dcl_id what_next on_ed2 on_ed1 txt_new txt f f_man f_use f_new_coun list_sys_var sys_var) 
  (defun ok_tab   (/) 
     (vl-load-com) 
(setq list_sys_var '( "osmode" "CMDECHO" "BLIPMODE"  ))        
(setq sys_var (mapcar 'getvar list_sys_var)) 
  
  (setvar "osmode" 0) 
  (SETVAR "CMDECHO" 0)          
  (SETVAR "BLIPMODE" 0)          

               ;(setq f (open "u:\\lisp\\new.tst" "r")) 
               ;(setq txt (read-line f)) 
               ;(close f) 
               ;(setq txt_new (+ (atoi txt) 1)) 
               ;(setq f_new (open (strcat "u:\\lisp\\" (itoa txt_new) ".tst") "a")) 
               ;(write-line (itoa txt_new) f_new) 
               ;(close f_new) 
               ;(setq f (open "u:\\lisp\\new.tst" "w")) 
               ;(write-line (itoa txt_new) f) 
               ;(close f) 
               ;(setq f (open "u:\\lisp\\new.tst" "r")) 
               ;(setq txt (read-line f)) 
               ;(close f) 
               ;(command "style" "" "" "200" "1" "" "" "" "" "text" "400,1500" "0" txt) 
               ;(alert txt ) 
    (setq f (open "u:\\lisp\\Orders\\Ord_counter.tst" "r")) 
    (setq txt (read-line f)) 
    (close f) 
    (setq txt_new (+ (atoi txt) 1)) 
    (setq ret_value1 (list (list "ed1" on_ed1) (list "ed2" on_ed2))) 

  ) 
  (setq dcl_id (load_dialog "u:\\lisp\\Orders\\ord_tab.dcl")) 
  (if (not (new_dialog "dd_edit" dcl_id)) 
    (exit) 
  ) 
               ;(set_tile "edit2" "Numer User") 
  (set_tile "edit2" (strcat (itoa txt_new)))
(set_tile "edit2" "5000")
Код:
[Выделить все]
 (set_tile "edit1" "Number Order") 
  (setq   on_ed1 "Number Order" 
   on_ed2 (itoa txt_new)
on_ed2 "5000")
Код:
[Выделить все]
   
  (setq what_next 8) 
  (while (< 2 what_next) 
    (action_tile "edit1" "(setq on_ed1 $value)") 
    (action_tile "edit2" "(setq on_ed2 $value)") 
    (action_tile "accept" "(done_dialog 1) (ok_tab)") 
    (setq what_next (start_dialog)) 
  ) 

  (unload_dialog dcl_id) 
  ret_value1 


               ;(("ed1" "12345") ("ed2" "5002")) 
               ;(setq y1 (car ret_value1))       ;(("ed1" "12345") 
               ;(setq y2 (cadr ret_value1))      ;("ed2" "5002") 
               ;(setq y3 (caddr ret_value1))     ; nil 
               ;(setq y4 (cadar ret_value1))     ;"12345" 
               ;(setq y5 (caar ret_value1))      ;"ed1" 
               ;(setq y6 (cdar ret_value1))      ;("12345") 
               ;(setq y7 (cddr ret_value1))      ;nil 
               ;(setq y8 (caadr ret_value1))     ;"ed2" 
               ;(setq y9 (caaddr ret_value1))    ;nil 
               ;(setq y10 (cdr ret_value1))      ;(("ed2" "5002")) 
               ;(setq y11 (cdddr ret_value1))    ;nil 
               ;(setq y2 (cadr(cadr ret_value1)));"5002" 

  (setq   f_use (open (strcat "u:\\lisp\\Orders\\Ord_Users\\" 
             (cadar ret_value1) 
             ".tst" 
          ) 
          "a" 
         ) 
  ) 
  (write-line (cadr (cadr ret_value1)) f_use) 
  (close f_use) 
  (setq   f_man (open (strcat "u:\\lisp\\Orders\\Ord_manufact\\" 
             (cadr (cadr ret_value1)) 
             ".tst" 
          ) 
          "a" 
         ) 
  ) 
  (write-line (cadr (cadr ret_value1)) f_man) 
  (close f_man) 




  (setq f_new_coun (open "u:\\lisp\\Orders\\Ord_counter.tst" "w")) 
    (write-line (itoa txt_new) f_new_coun) 
    (close f_new_coun) 
  (mapcar 'setvar list_sys_var sys_var) 
)
Holon вне форума  
 
Непрочитано 16.07.2007, 08:43
#8
Alaspher


 
Регистрация: 11.10.2004
e•burg
Сообщений: 755


Holon
Объясни словами, что должна делать программа - в коде много заведомо ненужного, что затрудняет понимание замысла автора. И пожалуйста - не транслитом - пользуйся перекодировщиками (например - http://www.translit.ru/), если нет руской раскладки.
Alaspher вне форума  
 
Автор темы   Непрочитано 16.07.2007, 10:07
#9
Holon

CNC
 
Регистрация: 07.07.2007
Israel
Сообщений: 302


Программа должна выдавать диалоговое окно, в первом окне по умолчанию текст "номер клиента" во втором автоматически высвечивается номер заказа, он никогда неповторяется это своеобразный счетчик, после ввода номера клиента программа записывает даннуе в две папки Клиентов и Заказов вот вроде все

Код:
[Выделить все]
(defun Ord_tab (/	   ret_value1 dcl_id	 what_next  on_ed2
		on_ed1	   txt_new    txt	 f	    f_man
		f_use	   f_new_coun list_sys_var	    sys_var
	       )
  (defun ok_tab	(/)
    (vl-load-com)
    (setq list_sys_var '("osmode" "CMDECHO" "BLIPMODE"))
    (setq sys_var (mapcar 'getvar list_sys_var))

    (setvar "osmode" 0)
    (SETVAR "CMDECHO" 0)
    (SETVAR "BLIPMODE" 0)
    (setq f (open "U:\\LISP\\Orders\\Ord_counter.tst" "r"))
    (setq txt (read-line f))
    (close f)
    (setq txt_new (+ (atoi txt) 1))
    (setq ret_value1 (list (list "ed1" on_ed1) (list "ed2" on_ed2)))

  )
  (setq dcl_id (load_dialog "u:\\lisp\\Orders\\ord_tab.dcl"))
  (if (not (new_dialog "dd_edit" dcl_id))
    (exit)
  )


  (set_tile "edit2" (strcat (itoa txt_new)))
  (set_tile "edit1" "number order")
  (setq	on_ed1 "number order"
	on_ed2 (itoa txt_new)
  )
  (setq what_next 8)
  (while (< 2 what_next)
    (action_tile "edit1" "(setq on_ed1 $value)")
    (action_tile "edit2" "(setq on_ed2 $value)")
    (action_tile "accept" "(done_dialog 1) (ok_tab)")
    (setq what_next (start_dialog))
  )

  (unload_dialog dcl_id)

  ret_value1
  (setq	f_use (open (strcat "u:\\lisp\\Orders\\Ord_Users\\"
			    (cadar ret_value1)
			    ".tst"
		    )
		    "a"
	      )
  )
  (write-line (cadr (cadr ret_value1)) f_use)
  (close f_use)
  (setq	f_man (open (strcat "u:\\lisp\\Orders\\Ord_manufact\\"
			    (cadr (cadr ret_value1))
			    ".tst"
		    )
		    "a"
	      )
  )
  (write-line (cadr (cadr ret_value1)) f_man)
  (close f_man)




  (setq f_new_coun (open "u:\\lisp\\Orders\\Ord_counter.tst" "w"))
  (write-line (itoa txt_new) f_new_coun)
  (close f_new_coun)
  (mapcar 'setvar list_sys_var sys_var)
)

DCL

Код:
[Выделить все]
// Number Order&Number User 
dd_edit : dialog { 
label = "Number Order&Number User"; 
fixed_height = true; 
: edit_box { key = "edit1"; value = "0"; fixed_height = true; alignment = center; label = "Number Order"; } 
: edit_box { key = "edit2"; value = "0"; fixed_height = true; alignment = center; label = "Number User"; } 
: row { 
ok_button; 
cancel_button; 
} 
}
; 1 form loaded from #<editor "U:/LISP/Orders/Ord_code.LSP">
_$ (Ord_tab)
; error: bad argument type: fixnump: nil
_$
Holon вне форума  
 
Непрочитано 16.07.2007, 13:02
#10
Alaspher


 
Регистрация: 11.10.2004
e•burg
Сообщений: 755


Если я правильно определил, что куда пишется, то должно быть нечто вроде (очень на скорую руку):
Код:
[Выделить все]
(defun Ord_tab (/          basepath   cntfile    dclfile    dcl_id     fcount     f_man
                f_use      manupath   on_ed1     on_ed2     supppath   txt_new    userpath
               )
  (setq basepath "u:\\lisp\\Orders\\"
        supppath (strcat basepath "Support\\")
        userpath (strcat basepath "Ord_Users\\")
        manupath (strcat basepath "Ord_manufact\\")
        cntfile  "Ord_counter.tst"
        dclfile  "ord_tab.dcl"
  )
  (if (and (setq fcount (open (strcat basepath cntfile) "r"))
           (setq dcl_id (load_dialog (strcat supppath dclfile)))
           (new_dialog "dd_edit" dcl_id)
      )
    (progn (setq txt_new (1+ (atof (read-line fcount))))
           (close fcount)
           (setq on_ed1 "number order"
                 on_ed2 (rtos txt_new 2 0)
           )
           (set_tile "User" on_ed2)
           (set_tile "Order" on_ed1)
           (action_tile "Order" "(setq on_ed1 $value)")
           (action_tile "User" "(setq on_ed2 $value)")
           (if (= 1 (start_dialog))
             (progn (setq f_use (open (strcat userpath on_ed1 ".tst") "a"))
                    (write-line on_ed2 f_use)
                    (close f_use)
                    (setq f_man (open (strcat manupath on_ed2 ".tst") "a"))
                    (write-line on_ed1 f_man)
                    (close f_man)
                    (setq fcount (open (strcat basepath cntfile) "w"))
                    (write-line on_ed2 fcount)
                    (close fcount)
             )
           )
           (unload_dialog dcl_id)
    )
  )
)
DCL
Код:
[Выделить все]
// Number Order&Number User 
dd_edit :dialog {
	label = "Number Order&Number User";
	: edit_box {
		key = "Order";
		label = "Number Order";
		}
	: edit_box {
		key = "User";
		label = "Number User";
		}
	: row {
		ok_cancel;
		}
	}
Предполагается, что DCL лежит в папке "u:\\lisp\\Orders\\Support".
Alaspher вне форума  
 
Автор темы   Непрочитано 16.07.2007, 15:05
#11
Holon

CNC
 
Регистрация: 07.07.2007
Israel
Сообщений: 302


Программа невыдает никаких ошибок, но и неотрабатывает, я проверил, файлы были все на своих местах

1 form loaded from #<editor "U:/LISP/Orders/Support/ord_code_ver1.LSP">
_$ (Ord_tab)
nil
Holon вне форума  
 
Непрочитано 16.07.2007, 15:10
#12
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Содержимое файлов надо бы проверить. По идее должно поменяться.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 16.07.2007, 16:27
#13
Alaspher


 
Регистрация: 11.10.2004
e•burg
Сообщений: 755


Там собственно 2 файла должны быть на месте - DCL и Ord_counter.tst, а ещё 2 программа сама должна создать в указанных каталогах. В одном файл с именем из первого окошка диалога и занести в него значение из второго, а в другом каталоге - наоборот, а в файле Ord_counter.tst меняется содержимое.
Я так понял логику работы.
Alaspher вне форума  
 
Автор темы   Непрочитано 16.07.2007, 17:06
#14
Holon

CNC
 
Регистрация: 07.07.2007
Israel
Сообщений: 302


совершенно верно все правильно но почему-то она неработает, все вродебы правильно, кстати пример хорошего тона по поводу указания путей, теперь скажем для переноса програмки на другой компютер нужно поменять только одну строчку, жаль что неработает сейчас сижу разбираюсь.
Holon вне форума  
 
Непрочитано 17.07.2007, 10:08
#15
Alaspher


 
Регистрация: 11.10.2004
e•burg
Сообщений: 755


Вроде тут и неработать то особо нечему... Жмёшь: "OK" - пишет, жмёшь: "Cancel" - не пишет. Если нужные каталоги сущестуют и есть доступ на запись в них, то всё должно фунциклировать. Диалоговое окно возникает?
Alaspher вне форума  
 
Автор темы   Непрочитано 17.07.2007, 10:15
#16
Holon

CNC
 
Регистрация: 07.07.2007
Israel
Сообщений: 302


Странно но программа невыдает никаких ошибок просто неработает
и неприсваевает таблице никаких значений
Holon вне форума  
 
Непрочитано 17.07.2007, 10:20
#17
Alaspher


 
Регистрация: 11.10.2004
e•burg
Сообщений: 755


Цитата:
Сообщение от Holon
Странно но программа невыдает никаких ошибок просто неработает
и неприсваевает таблице никаких значений
Какой таблице?
Alaspher вне форума  
 
Автор темы   Непрочитано 17.07.2007, 13:06
#18
Holon

CNC
 
Регистрация: 07.07.2007
Israel
Сообщений: 302


я имел виду окошки DCL
Holon вне форума  
 
Непрочитано 17.07.2007, 13:18
#19
Alaspher


 
Регистрация: 11.10.2004
e•burg
Сообщений: 755


Цитата:
Сообщение от Holon
я имел виду окошки DCL
а ты DCL заменил на мою версию?
Alaspher вне форума  
 
Автор темы   Непрочитано 17.07.2007, 13:44
#20
Holon

CNC
 
Регистрация: 07.07.2007
Israel
Сообщений: 302


"Yes" конечно они у нас разные :shock:
Holon вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Lisp_code

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

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