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

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Lisp+DCL=зависание Автокада, помогите найти ошибку пожалуйста

Lisp+DCL=зависание Автокада, помогите найти ошибку пожалуйста

Ответ
Поиск в этой теме
Непрочитано 07.05.2009, 21:54 #1
Lisp+DCL=зависание Автокада, помогите найти ошибку пожалуйста
faust999
 
Регистрация: 19.04.2009
Сообщений: 15

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

это лисп файл
Код:
[Выделить все]
;: программа для статического расчета        ::
;: плужных каналокапателей МК-19 МК-23 МД-12 ::
;: для запуска программы в командной строке  ::
;: наберите STAT    (creat in AutoCad 2008)  ::
;::::::::::::::::::::::::::::::::::::::::::::::

(defun stat ( / dcl_id act)
  (if (< (setq dcl_id (load_dialog "d:\\stat\\dialog.dcl")) 0)(exit))
  (if (not (new_dialog "stat" dcl_id)) (exit))

(action_tile "b11" "(set_tile \"hk\" \"0\")
             (set_tile \"bk\" \"0\")
            (set_tile \"m\" \"0\")
            (set_tile \"FL\" \"0\")
            (set_tile \"AL\" \"0\")
            (set_tile \"aotv\" \"0\")
            (set_tile \"ar\" \"0\")
            (set_tile \"fm1\" \"0\")
            (set_tile \"ky\" \"0\")
            (set_tile \"kr\" \"0\")
            (set_tile \"gb\" \"0\")
            (set_tile \"gm\" \"0\")
            (set_tile \"xr\" \"0\")
            (set_tile \"x1\" \"0\")
            (set_tile \"xm\" \"0\")
            (set_tile \"XL\" \"0\")
            (set_tile \"zc\" \"0\")
            (set_tile \"lb\" \"0\")
            (set_tile \"bg\" \"0\")
           ") ; конец action_tile "b11"
  (action_tile "b12" "(set_tile \"hk\" \"0.4\")
             (set_tile \"bk\" \"0.4\")
            (set_tile \"m\" \"1.25\")
            (set_tile \"FL\" \"40\")
            (set_tile \"AL\" \"40\")
            (set_tile \"aotv\" \"40\")
            (set_tile \"ar\" \"40\")
            (set_tile \"fm1\" \"1.25\")
            (set_tile \"ky\" \"100\")
            (set_tile \"kr\" \"0.8\")
            (set_tile \"gb\" \"130\")
            (set_tile \"gm\" \"11\")
            (set_tile \"xr\" \"4.7\")
            (set_tile \"x1\" \"0.3\")
            (set_tile \"xm\" \"5\")
            (set_tile \"XL\" \"5.6\")
            (set_tile \"zc\" \"0.3\")
            (set_tile \"lb\" \"3\")
            (set_tile \"bg\" \"0.3\")
           ") ; конец action_tile "b11"
  (action_tile "b13" "(set_tile \"hk\" \"0.45\")
             (set_tile \"bk\" \"0.45\")
            (set_tile \"m\" \"1.25\")
            (set_tile \"FL\" \"45\")
            (set_tile \"AL\" \"45\")
            (set_tile \"aotv\" \"45\")
            (set_tile \"ar\" \"45\")
            (set_tile \"fm1\" \"1.25\")
            (set_tile \"ky\" \"115\")
            (set_tile \"kr\" \"0.8\")
            (set_tile \"gb\" \"140\")
            (set_tile \"gm\" \"12\")
            (set_tile \"xr\" \"4.8\")
            (set_tile \"x1\" \"0.3\")
            (set_tile \"xm\" \"5.1\")
            (set_tile \"XL\" \"5.7\")
            (set_tile \"zc\" \"0.25\")
            (set_tile \"lb\" \"3.2\")
            (set_tile \"bg\" \"0.3\")
           ") ; конец action_tile "b12"
  (action_tile "b14" "(set_tile \"hk\" \"0.5\")
             (set_tile \"bk\" \"0.6\")
            (set_tile \"m\" \"1.25\")
            (set_tile \"FL\" \"35\")
            (set_tile \"AL\" \"40\")
            (set_tile \"aotv\" \"45\")
            (set_tile \"ar\" \"40\")
            (set_tile \"fm1\" \"1.25\")
            (set_tile \"ky\" \"105\")
            (set_tile \"kr\" \"0.8\")
            (set_tile \"gb\" \"130\")
            (set_tile \"gm\" \"11\")
            (set_tile \"xr\" \"4.9\")
            (set_tile \"x1\" \"0.3\")
            (set_tile \"xm\" \"5.2\")
            (set_tile \"XL\" \"5.8\")
            (set_tile \"zc\" \"0.3\")
            (set_tile \"lb\" \"3.45\")
            (set_tile \"bg\" \"0.3\")
           ") ; конец action_tile "b13"


(action_tile
"accept"
"(setq act T)
(setq hk (atof (get_tile \"hk\"))
       bk (atof (get_tile \"bk\"))
       m (atof (get_tile \"m\"))
       FL (angtof (get_tile \"FL\") 0)
       AL (angtof (get_tile \"AL\") 0)
       aotv (angtof (get_tile \"aotv\") 0)
       ar (angtof (get_tile \"ar\") 0)
       fm1 (atof (get_tile \"fm1\"))
       ky (atof (get_tile \"ky\"))
       kr (atof (get_tile \"kr\"))
       gb (atof (get_tile \"gb\"))
       gm (atof (get_tile \"gm\"))
       xr (atof (get_tile \"xr\"))
       x1 (atof (get_tile \"x1\"))
       xm (atof (get_tile \"xm\"))
       XL (atof (get_tile \"XL\"))
       zc (atof (get_tile \"zc\"))
       lb (atof (get_tile \"lb\"))
       bg (atof (get_tile \"bg\"))
)

"
)  
(action_tile "cancel" "(setq act nil)(done_dialog)")
(action_tile "bt1" "(setq act T)(statika)(done_dialog)")
  
 (start_dialog)


(unload_dialog dcl_id)
  (if (= act nil)
      (princ "\n \n ...ЗАДАНИЕ ОТМЕНЕНО. \n ")
)    ; конец if
(if (= act T)(princ "\n \n...ЗАДАНИЕ ВЫПОЛНЕНО!"))

(princ)
  
);конец defun 
  


;----------------------- Function's ---------------------------------
(defun Stepen (a b)
  (exp (* b (log a)))
)
(defun Tan (v)
  (/ (sin v) (cos v))
)
(defun KoordNew() 
  (cdr (assoc 10 (entget (entlast))))
)
(defun KoordEnd()
  (cdr (assoc 11 (entget (entlast))))
)
;-----------------д-жЁп Setting--------------------------------------
(defun Sett()
(setq cmde (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(setq blmd (getvar "BLIPMODE"))
(setvar "BLIPMODE" 0)
(setq lun (getvar "LUNITS"))
(setvar "LUNITS" 2)
(setq lup (getvar "LUPREC"))
(setvar "LUPREC" 3)
)

;------------------------SetLayer------------------------------

;(defun SetupLayer(name)
;(command "_.layer" name "")
;)
;------------------------ Abcd ---------------------------------
(defun Abcd()
(setq fotv 90)
(setq hp (* hk 2))
(setq zk (* 0.25 hk))
(setq ctgfl (/ 1 (* (/ (sin FL) (cos FL)) (sin AL)))
)
(setq xk (* zk ctgFL))
(setq l (* 0.75 hp))
(setq hp2 (Stepen hp 2))
(setq hp3 (Stepen hp 3))
(setq zk2 (Stepen zk 2))
(setq zk3 (Stepen zk 3))

(setq a (- (/  ctgfl (Stepen (* -1 (- zk hp)) 2)) 
           (/ (* 2 (- xk l)) (* -1 (Stepen (* -1 (- zk hp)) 3)))) )
(setq b (/ (- (/ ctgfl (- zk hp)) (* 3 a (+ zk hp))) 2) )
(setq c (- ctgfl (* 3 a zk2) (* 2 b zk) ))
(setq d (- xk (* a zk3) (* b zk2) (* c zk) ))
(setq a2 (/ (- AL aotv) (- (+ (* fotv fotv) (* FL FL) ) (* 2 FL fotv)))
)
(setq a1 (- (* 2 a2 fotv) ))
(setq a0 (+ aotv (* a2 fotv fotv) ))

)
;-----------------------  Raschet -------------------------------
(defun Raschet()
(setq pii (/ 180 pi))

(setq s (* hk (+ (* hk m) bk)))
(setq r (* ky s))
(setq er (- 90 (+ ar (* (atan fm1) pii))))
(setq rv (* r (sin er)))
(setq rg (* r (cos er)))
(setq xc (* 0.25 lb) hz (* kr hk))

(setq r2 (/ (+ (* rv xr) (* gm xm) (- (* rg (+ hk zc (- hz))))) 
            (+ xl (* fm1 (+ hk zc))) 
         ) 
) ;---R2
(setq r1 (- (+ gb gm rv) r2))
(setq aaa (+ (* rv (- xr xc)) (* gm (- xm xc)) (* gb X1) ))
(setq bbb (+ (* rg (- hk hz)) (* r2 (- XL xc)) (* fm1 r2 hk) ))
(setq xd (/ (- aaa bbb) r1)) 
(setq pmax (/ (* r1 (+ 1 (/ (* 6 xd) lb))) (* bg lb 2 1000)))
(setq pmin (/ (* r1 (- 1 (/ (* 6 xd) lb))) (* bg lb 2 1000)))
)

;----------------------- Statika--------------------------------------
(defun Statika()



(setq x 0.0 dx 0.0 dy 0.0 )

(Sett)
(Abcd)
(Raschet) 

;(SetupLayer "TEXT")
(command "_.text" (list 533 353) 8 0 (rtos rv) )
(command "_.text" (list 480 267) 8 0 (rtos rg) )
(command "_.text" (list 443 335) 8 0 (rtos r) )
(command "_.text" (list 252 243) 8 0 (rtos r1) )
(command "_.text" (list 703 160) 8 0 (rtos r2) )
(command "_.text" (list 255 283) 8 0 (rtos xd) )
(command "_.text" (list 284 35) 8 0 (rtos pmax) )
(command "_.text" (list 275 20) 8 0 (rtos pmin) )
(command "_.pline" (list 112 315) (list 112 235) 
                 (list 341 274) (list 341 315) "")
(command "_.text" (list 80 235) 8 0 pmax)
(command "_.text" (list 345 225) 8 0 pmin)

  (command "_.zoom" "_all")
  
  (setvar "CMDECHO" cmde)
  (setvar "BLIPMODE" blmd)
  (setvar "LUNITS" lun)
  (setvar "LUPREC" lup)
(princ "OK")
(princ)
)
а это диалоговое окно
Код:
[Выделить все]
stat: dialog{label="Расчет плужного каналокапателя";is_bold="true";fixed_width = true;

:text{label = " Выбирете данные для расчета ";fixed_width_font=true;alignment=centered;}
:radio_row{key="b1";
  :radio_button{label="Сброс"; key="b11";value="1";}
  :radio_button{label="МК-19"; key="b12";}
  :radio_button{label="МК-23"; key="b13";}
  :radio_button{label="МД-12"; key="b14";}
   } //конец радио кнопки
///(setq FL (angtof $value 0))
//action = "(setq FL (angtof $value 0))"
:text{label = " Параметры канала ";fixed_width_font=true;alignment=centered;}
:column{children_alignment=centered;
fixed_width_font = true;
  :edit_box{label="Глубина канала (Нк), м";key="hk";value="";edit_width=10;}
  :edit_box{label="Ширина канала по дну (В), м";key="bk";value="";edit_width=10;}
  :edit_box{label="Коэф заложения откосов (m) ";key="m";value="";edit_width=10;}
  :edit_box{label="угол F1 в градусах";key="FL";value="";edit_width=10;}
  :edit_box{label="угол AL в градусах";key="AL";value="";edit_width=10;}
 } //column Параметры канала
 
:text{label = " Параметры рабочего органа и грунта ";fixed_width_font=true;alignment=centered;}
 :column{children_alignment=centered;
  :edit_box{label="Угол захвата верхних отвалов (Аотв), в град";key="aotv";value="";edit_width=10;}
  :edit_box{label="Угол между силой R и горизонтом, в град";key="ar";value="";edit_width=10;}
  :edit_box{label="Коэф трения грунта о металл (fm1) ";key="fm1";value="";edit_width=10;}
  :edit_box{label="Удельное сопротивение грунта копанию (ky), кН";key="ky";value="";edit_width=10;}
  :edit_box{label="Коэф влияния св-в грунта на положение т.действия силы R (kr) ";key="kr";value="";edit_width=10;}
 } //column Параметры рабочего органа
 
:text{label = " Параметры машины ";fixed_width_font=true;alignment=centered;}
 :column{children_alignment=centered;  
  :edit_box{label="Вес трактора в кН, (G)";key="gb";value="";edit_width=10;}
  :edit_box{label="Вес рабочего органа в кН, (Gm)";key="gm";value="";edit_width=10;}
  :edit_box{label="Расстояние от т. действия силы R до т. С (Xr), м";key="xr";value="";edit_width=10;}
  :edit_box{label="Расстояние от оси Z до центра силы тяжести трактора (X1), м";key="x1";value="";edit_width=10;}
  :edit_box{label="Расстояние от т.С до центра силы тяжести раб.ограна (Xm), м";key="xm";value="";edit_width=10;}
  :edit_box{label="Расстояние от т.С до точки приложения силы R2 (XL), м";key="XL";value="";edit_width=10;}
  :edit_box{label="Расстояние от т.С до поверхности грунта (Zc), м";key="zc";value="";edit_width=10;}
  :edit_box{label="База трактора (Lb), м";key="lb";value="";edit_width=10;}
  :edit_box{label="Ширина гусеницы трактора (Bg), м";key="bg";value="";edit_width=10;}

} //column параметры машины
 :button{      //Правая кнопка
       key="bt1"; //Имя кнопки
       label="расчитать"; //Надпись на кнопке
       is_default=false; //Не срабатывает, если нажат Enter
       is_cancel=true; //Срабатывает, если нажат Х -крестик или Esc
       is_tab_stop = true;//Фокус переключается между кнопками клавишей Tab
       fixed_width = true;//Ширина кнопки - по ширине надписи
       }
  
 ok_cancel_err;
  
}// конец stat

Последний раз редактировалось Кулик Алексей aka kpblc, 07.05.2009 в 22:02.
Просмотров: 3866
 
Непрочитано 09.05.2009, 14:27
#2
Holon

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


Как то так (непроверял)

Код:
[Выделить все]
(defun stat ( / dcl_id act)
  (if (< (setq dcl_id (load_dialog "d:\\stat\\dialog.dcl")) 0)(exit))
  (if (not (new_dialog "stat" dcl_id)) (exit))

(action_tile "b11" "(set_tile \"hk\" \"0\")
             (set_tile \"bk\" \"0\")
            (set_tile \"m\" \"0\")
            (set_tile \"FL\" \"0\")
            (set_tile \"AL\" \"0\")
            (set_tile \"aotv\" \"0\")
            (set_tile \"ar\" \"0\")
            (set_tile \"fm1\" \"0\")
            (set_tile \"ky\" \"0\")
            (set_tile \"kr\" \"0\")
            (set_tile \"gb\" \"0\")
            (set_tile \"gm\" \"0\")
            (set_tile \"xr\" \"0\")
            (set_tile \"x1\" \"0\")
            (set_tile \"xm\" \"0\")
            (set_tile \"XL\" \"0\")
            (set_tile \"zc\" \"0\")
            (set_tile \"lb\" \"0\")
            (set_tile \"bg\" \"0\")
           ") ; конец action_tile "b11"
  (action_tile "b12" "(set_tile \"hk\" \"0.4\")
             (set_tile \"bk\" \"0.4\")
            (set_tile \"m\" \"1.25\")
            (set_tile \"FL\" \"40\")
            (set_tile \"AL\" \"40\")
            (set_tile \"aotv\" \"40\")
            (set_tile \"ar\" \"40\")
            (set_tile \"fm1\" \"1.25\")
            (set_tile \"ky\" \"100\")
            (set_tile \"kr\" \"0.8\")
            (set_tile \"gb\" \"130\")
            (set_tile \"gm\" \"11\")
            (set_tile \"xr\" \"4.7\")
            (set_tile \"x1\" \"0.3\")
            (set_tile \"xm\" \"5\")
            (set_tile \"XL\" \"5.6\")
            (set_tile \"zc\" \"0.3\")
            (set_tile \"lb\" \"3\")
            (set_tile \"bg\" \"0.3\")
           ") ; конец action_tile "b11"
  (action_tile "b13" "(set_tile \"hk\" \"0.45\")
             (set_tile \"bk\" \"0.45\")
            (set_tile \"m\" \"1.25\")
            (set_tile \"FL\" \"45\")
            (set_tile \"AL\" \"45\")
            (set_tile \"aotv\" \"45\")
            (set_tile \"ar\" \"45\")
            (set_tile \"fm1\" \"1.25\")
            (set_tile \"ky\" \"115\")
            (set_tile \"kr\" \"0.8\")
            (set_tile \"gb\" \"140\")
            (set_tile \"gm\" \"12\")
            (set_tile \"xr\" \"4.8\")
            (set_tile \"x1\" \"0.3\")
            (set_tile \"xm\" \"5.1\")
            (set_tile \"XL\" \"5.7\")
            (set_tile \"zc\" \"0.25\")
            (set_tile \"lb\" \"3.2\")
            (set_tile \"bg\" \"0.3\")
           ") ; конец action_tile "b12"
  (action_tile "b14" "(set_tile \"hk\" \"0.5\")
             (set_tile \"bk\" \"0.6\")
            (set_tile \"m\" \"1.25\")
            (set_tile \"FL\" \"35\")
            (set_tile \"AL\" \"40\")
            (set_tile \"aotv\" \"45\")
            (set_tile \"ar\" \"40\")
            (set_tile \"fm1\" \"1.25\")
            (set_tile \"ky\" \"105\")
            (set_tile \"kr\" \"0.8\")
            (set_tile \"gb\" \"130\")
            (set_tile \"gm\" \"11\")
            (set_tile \"xr\" \"4.9\")
            (set_tile \"x1\" \"0.3\")
            (set_tile \"xm\" \"5.2\")
            (set_tile \"XL\" \"5.8\")
            (set_tile \"zc\" \"0.3\")
            (set_tile \"lb\" \"3.45\")
            (set_tile \"bg\" \"0.3\")
           ") ; конец action_tile "b13"


(action_tile
"accept"
"(setq act T)
(setq hk (atof (get_tile \"hk\"))
       bk (atof (get_tile \"bk\"))
       m (atof (get_tile \"m\"))
       FL (angtof (get_tile \"FL\") 0)
       AL (angtof (get_tile \"AL\") 0)
       aotv (angtof (get_tile \"aotv\") 0)
       ar (angtof (get_tile \"ar\") 0)
       fm1 (atof (get_tile \"fm1\"))
       ky (atof (get_tile \"ky\"))
       kr (atof (get_tile \"kr\"))
       gb (atof (get_tile \"gb\"))
       gm (atof (get_tile \"gm\"))
       xr (atof (get_tile \"xr\"))
       x1 (atof (get_tile \"x1\"))
       xm (atof (get_tile \"xm\"))
       XL (atof (get_tile \"XL\"))
       zc (atof (get_tile \"zc\"))
       lb (atof (get_tile \"lb\"))
       bg (atof (get_tile \"bg\"))
)

"
)  
(action_tile "cancel" "(setq act nil)(done_dialog)")
(action_tile "bt1" "(setq act T)(done_dialog)")
(start_dialog)
(if (= act nil)(princ "\n \n ...ЗАДАНИЕ ОТМЕНЕНО. \n "))
(if (= act T)(statika))
(unload_dialog dcl_id)

(princ)
);конец defun 
  


;----------------------- Function's ---------------------------------
(defun Stepen (a b)
  (exp (* b (log a)))
)
(defun Tan (v)
  (/ (sin v) (cos v))
)
(defun KoordNew() 
  (cdr (assoc 10 (entget (entlast))))
)
(defun KoordEnd()
  (cdr (assoc 11 (entget (entlast))))
)
;-----------------д-жЁп Setting--------------------------------------
(defun Sett()
(setq cmde (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(setq blmd (getvar "BLIPMODE"))
(setvar "BLIPMODE" 0)
(setq lun (getvar "LUNITS"))
(setvar "LUNITS" 2)
(setq lup (getvar "LUPREC"))
(setvar "LUPREC" 3)
)

;------------------------SetLayer------------------------------

;(defun SetupLayer(name)
;(command "_.layer" name "")
;)
;------------------------ Abcd ---------------------------------
(defun Abcd()
(setq fotv 90)
(setq hp (* hk 2))
(setq zk (* 0.25 hk))
(setq ctgfl (/ 1 (* (/ (sin FL) (cos FL)) (sin AL)))
)
(setq xk (* zk ctgFL))
(setq l (* 0.75 hp))
(setq hp2 (Stepen hp 2))
(setq hp3 (Stepen hp 3))
(setq zk2 (Stepen zk 2))
(setq zk3 (Stepen zk 3))

(setq a (- (/  ctgfl (Stepen (* -1 (- zk hp)) 2)) 
           (/ (* 2 (- xk l)) (* -1 (Stepen (* -1 (- zk hp)) 3)))) )
(setq b (/ (- (/ ctgfl (- zk hp)) (* 3 a (+ zk hp))) 2) )
(setq c (- ctgfl (* 3 a zk2) (* 2 b zk) ))
(setq d (- xk (* a zk3) (* b zk2) (* c zk) ))
(setq a2 (/ (- AL aotv) (- (+ (* fotv fotv) (* FL FL) ) (* 2 FL fotv)))
)
(setq a1 (- (* 2 a2 fotv) ))
(setq a0 (+ aotv (* a2 fotv fotv) ))

)
;-----------------------  Raschet -------------------------------
(defun Raschet()
(setq pii (/ 180 pi))

(setq s (* hk (+ (* hk m) bk)))
(setq r (* ky s))
(setq er (- 90 (+ ar (* (atan fm1) pii))))
(setq rv (* r (sin er)))
(setq rg (* r (cos er)))
(setq xc (* 0.25 lb) hz (* kr hk))

(setq r2 (/ (+ (* rv xr) (* gm xm) (- (* rg (+ hk zc (- hz))))) 
            (+ xl (* fm1 (+ hk zc))) 
         ) 
) ;---R2
(setq r1 (- (+ gb gm rv) r2))
(setq aaa (+ (* rv (- xr xc)) (* gm (- xm xc)) (* gb X1) ))
(setq bbb (+ (* rg (- hk hz)) (* r2 (- XL xc)) (* fm1 r2 hk) ))
(setq xd (/ (- aaa bbb) r1)) 
(setq pmax (/ (* r1 (+ 1 (/ (* 6 xd) lb))) (* bg lb 2 1000)))
(setq pmin (/ (* r1 (- 1 (/ (* 6 xd) lb))) (* bg lb 2 1000)))
)

;----------------------- Statika--------------------------------------
(defun Statika()



(setq x 0.0 dx 0.0 dy 0.0 )

(Sett)
(Abcd)
(Raschet) 

;(SetupLayer "TEXT")
(command "_.text" (list 533 353) 8 0 (rtos rv) )
(command "_.text" (list 480 267) 8 0 (rtos rg) )
(command "_.text" (list 443 335) 8 0 (rtos r) )
(command "_.text" (list 252 243) 8 0 (rtos r1) )
(command "_.text" (list 703 160) 8 0 (rtos r2) )
(command "_.text" (list 255 283) 8 0 (rtos xd) )
(command "_.text" (list 284 35) 8 0 (rtos pmax) )
(command "_.text" (list 275 20) 8 0 (rtos pmin) )
(command "_.pline" (list 112 315) (list 112 235) 
                 (list 341 274) (list 341 315) "")
(command "_.text" (list 80 235) 8 0 pmax)
(command "_.text" (list 345 225) 8 0 pmin)

  (command "_.zoom" "_all")
  
  (setvar "CMDECHO" cmde)
  (setvar "BLIPMODE" blmd)
  (setvar "LUNITS" lun)
  (setvar "LUPREC" lup)
(princ "OK")
(princ)
)
Holon вне форума  
 
Непрочитано 16.05.2009, 09:09
#3
Евгений А.

Армспорт
 
Регистрация: 18.07.2006
Ейск
Сообщений: 355


Код сильно не изучал, но из опыта - знаю, что если при запущенном dcl окне обратиться к "command" то автокад глухо виснет! - выход, или отказаться от командных методов и перейти на чистый ActiveX, либо сначала закрывать окошко...
Евгений А. вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Lisp+DCL=зависание Автокада, помогите найти ошибку пожалуйста

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите найти нормативный документ Artiznov Поиск литературы, чертежей, моделей и прочих материалов 4 07.05.2009 09:35
помогите найти динамический блок N84 Разное 5 20.10.2008 10:25
Помогите найти библиотеки котельного оборудования..Плиззз.. ФОльга Поиск литературы, чертежей, моделей и прочих материалов 0 23.01.2008 12:01
Помогите Пожалуйста найти и скачать книгу Ф. А. Байтемиров, В. М. Головина, Э. М. Улицкая Расчет кон DenIZ Поиск литературы, чертежей, моделей и прочих материалов 0 27.12.2007 22:45
Пропала папка Template! Помогите найти! T-Yoke AutoCAD 11 25.04.2007 10:30