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

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

Ранее рабочий LSP отказывается работать

Ответ
Поиск в этой теме
Непрочитано 07.01.2017, 04:43 #1
Ранее рабочий LSP отказывается работать
Wanted
 
Регистрация: 24.09.2015
Сообщений: 36

Доброй ночи, недавно столкнулся с одной проблемой проблемой, мне написали программу которая расчитывает и проставляет площади с размерами в помещениях (проставляет номер и корпус дома, его этаж, квартиру и т.д.), после формирует этот чертеж на лист (все просиходит в моделях) и выводит на печать. Само видео процесса формирования чертежа https://youtu.be/mA23ysm8BKo (тамже и ошибку выдает в конце видео)
Выкладываю сам файл LISPa в котором по моему мнению ошибка (крассным цветом):
Код:
[Выделить все]
(defun C:Level (/ B0 B1 B2 BB DOM DX DXX DY E0 E1 E2 EE I J LEV N N1 NAM
		NAMEPOLY OB OB1 P2 P3 P4 POD POM PTEXT S1 SETALON SL SLOY
		SLOY1 T0 T1 T2 T3 T4 TC TIP)
(vl-load-com)

  (setvar "CLAYER" "0")
   (repeat 1   
       (command "_._purge" "_all" "")
	   (while (= 1 (logand (getvar "cmdactive") 1))
      (command "_y")
   )
)


  
  (setvar "CMDECHO" 0)
  (setvar "TEXTSTYLE" "BTI")
  (setvar "CeCOLOR" "7")
  (setq c100 (GetVAR "UserR1"))
(prompt "\nВыбери элементы этажа: ")
;######################################################################################    
(setq  S1 (ssget))
  ;--------------------------------------
(Setq EE (gabarit S1 ))
  (setq E1 (car EE))
  (setq E2 (cadr EE))
  (setq E0 (seredina E1 E2))
  ;--------------------------------------
(setq N1   (sslength S1)) ; составляем список слоев
(setq SL nil)  
(setq i 0)
  (Repeat N1
        (setq SLOY (cdr (assoc 8 (entget (ssname S1 i))))) ; метка полилинии в базе данных чертежа
    (if (and (= (vl-position SLOY SL) nil) (= (SubSTR SLOY 1 2) "D-"))   (Setq SL (cons  SLOY SL)))
    (setq i (+ i 1))
    ); RERPEAT N
  (setq Sl (vl-sort SL '>))
(print SL)
;######################################################################################
    
   (setq T0 (GetPoint "\nТочка вставки (верхний левый угол): "))
  (setq  SEtalon (ssget "X" '((0 . "POLYLINE") )))
  (Setq BB (gabarit SEtalon ))
  (setq B1 (car BB))
  (setq B2 (cadr BB))
  (setq B0 (seredina B1 B2))
  ;--------------------------------------
  (setq dXX (* 1.05 (-  (car B2) (car B1))))
  (setq DX  (- (car B2)   (car B1)))
  (setq DY  (- (cadr B2) (cadr B1)))
   (command "_ZOOM" "_W" B1 B2 ) ; выбираем эталонную рамку  
  (setq  SEtalon (ssget "_W" (dekart B1 100.0 100.0 0.0) (dekart B2 -100.0 -100.0 0.0)))
;######################################################################################
;--------------------------------------------------------------------------------------
;--------------------------------------------------------------------------------------
(command "_ZOOM" "_ALL") ; выбираем эталонную рамку  
(setq N (length SL))  
(setq i 0)
  (Repeat N
    (setq Sloy (nth i SL))
            (command "_COPY" SEtalon "" (list (car B1) (cadr B2) 0.0) T0)
    (setq T1 T0)
    (setq T2 (dekart T1 DX 0.0 0.0))
    (setq T3 (dekart T2 0.0 (* -1.0 DY) 0.0))
    (setq T4 (dekart T1 0.0 (* -1.0 DY) 0.0))
    (setq TC (dekart (seredina T1 T3) (* (getvar "UserR1") 7.5) 0.0 0.0))
    (setvar "Clayer" "PrintPDF")
    (setvar "CeCOLOR" "7")
    (command "_PLINE" T1 "_w" 0.0 0.0 T2 T3 T4 "_C") (setq OB1 (entlast))
    (setvar "Clayer" Sloy)    
    (setq DOM (subSTR (word1 Sloy 1) 3))
    (setq POD (subSTR (word1 Sloy 2) 3))
    (setq LEV (subSTR (word1 Sloy 3) 3))
    (setq POM (subSTR (word1 Sloy 4) 5))
    (setq NAM (strcase (alltrim (subSTR (word1 Sloy 5) 5 45)) T))
    (setq NamePoly (strCAT "Дом-" DOM " Подъезд-" POD " " Lev " "))
;----------------------------------------------------------------------
;----------------------------------------------------------------------
	  (setq P0 (dekart (seredina T1 T2) (* c100 7.5) 0.0 0.0))
          (setq Ptext (dekart P0 0.0 (* c100 -32.0) 0.0))
    	  (command "_TEXT" "_J" "_mc" Ptext 0.0 LEV) (setq Ob (entlast)) (command "_SCALE" Ob "" Ptext 2.0)
          (setq Ptext (dekart P0 0.0 (* c100 -39.0) 0.0))
          (command "_TEXT" "_J" "_mc" Ptext 0.0 (strcat "Подъезд №" POD)) (setq Ob (entlast)) (command "_SCALE" Ob "" Ptext 2.0)
;----------------------------------------------------------------------
;----------------------------------------------------------------------
    (IF (= (substr  (word1 Sloy 4) 1 3) "Pom" )
      (progn
	        
	        (setq Ptext (dekart P0 0.0 (* c100 -46.0) 0.0))
	        (setq RRR (RIMSKOE (- (atoi POM) 1000)))
    		(command "_TEXT" "_J" "_mc" Ptext 0.0 (strcat "Нежилое помещение " RRR) )
	         (setq Ptext (dekart P0 0.0 (* c100 -48.0) 0.0))
	        (command "_TEXT" "_J" "_mc"  Ptext  0.0 (strcat "(" NAM ")"))
		        (setq NamePoly (strCAT "Дом-" DOM " Подъезд-" POD " " Lev " Нежилое помещение " POM " " NAM))
	(set_URL OB1 NamePoly NamePoly NamePoly)
	))
;----------------------------------------------------------------------
;----------------------------------------------------------------------
    (IF (= (substr  (word1 Sloy 4) 1 3) "Kva" )
      (progn
		(setq Ptext (dekart P0 0.0 (* c100 -44.0) 0.0))	
    		(command "_TEXT" "_J" "_mc" Ptext 0.0 (strcat "Квартира №" POM) )
	
	        ;(setq Ptext (dekart (seredina T1 T2) 0.0  (* (getvar "UserR1") -46.0) 0.0))
    		;(command "_TEXT" "_J" "_mc" Ptext 0.0 NAM )
	
	        ;(setq NamePoly (strCAT "Дом-" DOM " Подъезд-" POD " " Lev " Квартира №" POM " " NAM))
		(setq NamePoly (strCAT "Дом-" DOM " Подъезд-" POD " " Lev " Квартира №" POM ))
	(set_URL OB1 NamePoly NamePoly NamePoly)
	))
;----------------------------------------------------------------------
;----------------------------------------------------------------------
	     	        (setq N1 (sslength S1))
			(setq j 0)
			  (Repeat N1
			    (setq Ob (ssname S1 j))
			    (setq TIP (cdr (assoc 0 (entget (ssname S1 j))))) ;
			    (setq SLOY1 (cdr (assoc 8 (entget (ssname S1 j))))) ;

                            ;(if (=  SLOY SLOY1)              (setq P1 T) (setq P1 nil))
			    (if (or (=  SLOY SLOY1) (/= (SubSTR SLOY1 1 2) "D-")) (setq P2 T) (setq P2 nil))
	        	    (if (/= TIP "INSERT")            (setq P3 T) (setq P3 nil))
           		    (if (/= TIP "HATCH")             (setq P4 T) (setq P4 nil))

		             (if (and P2 P3 P4)
			       (progn
			       (command "_COPY" Ob "" E0 TC)
			       (setq Ob (entlast))
			       ;(if (= TIP "LWPOLYLINE") (command "_CHANGE" Ob "" "_P" "_C" "7" ""))
			       (if (= TIP "TEXT")  (command "_CHANGE" Ob "" "_P" "_C" "7" ""))
			       ))
			    
			    (setq j (+ j 1))    
			 )

 

;----------------------------------------------------------------------    
    
        (setq T0 (dekart T0 dXX 0.0 0.0))
    (setq i (+ i 1))
    ); RERPEAT N
;----------------------------------------------------------------------
;----------------------------------------------------------------------  

;######################################################################  
  (princ)  
)











(defun word1 ( str ns / i k1 tn slovo n s1 dl)
    (setq Str (StrCat Str "$"))
  (setq N (strlen STR))
    (setq I 1)
    (setq K1 0)
    (setq TN 0)
    (setq SLOVO "")
    (repeat N
        (setq S1 (substr STR I 1))
        (if (and (= S1 "$") (= SLOVO "") (= NS 1))
            (setq SLOVO (substr STR 1 (- I 1)))
        )
        (if (= S1 "$")
            (setq K1 (+ K1 1))
        )
        (if (and (= S1 "$") (= K1 (- NS 1)) (= SLOVO ""))
            (setq TN (+ 1 I))
        )
        (if (and (= S1 "$") (= K1 NS) (= SLOVO ""))
            (setq DL (- I TN))
        )
        (setq I (+ I 1))
    )
    (if (and (= SLOVO "") (> TN 0))
        (setq SLOVO (substr STR TN DL))
    )
    (setq SLOVO (alltrim slovo))
)    








(defun RIMSKOE (RIM / Rims)


(IF (= RIM 1) (setq RIMS "I"))
(IF (= RIM 2) (setq RIMS "II"))
(IF (= RIM 3) (setq RIMS "III"))
(IF (= RIM 4) (setq RIMS "IV"))
(IF (= RIM 5) (setq RIMS "V"))
(IF (= RIM 6) (setq RIMS "VI"))
(IF (= RIM 7) (setq RIMS "VII"))
(IF (= RIM 8) (setq RIMS "VIII"))
(IF (= RIM 9) (setq RIMS "IX"))
(IF (= RIM 10) (setq RIMS "X"))
(IF (= RIM 11) (setq RIMS "XI"))
(IF (= RIM 12) (setq RIMS "XII"))
(IF (= RIM 13) (setq RIMS "XIII"))
(IF (= RIM 14) (setq RIMS "XIV"))
(IF (= RIM 15) (setq RIMS "XV"))
(IF (= RIM 16) (setq RIMS "XVI"))
(IF (= RIM 17) (setq RIMS "XVII"))
(IF (= RIM 18) (setq RIMS "XVIII"))
(IF (= RIM 19) (setq RIMS "XIX"))
(IF (= RIM 20) (setq RIMS "XX"))
(IF (= RIM 21) (setq RIMS "XXI"))
(IF (= RIM 22) (setq RIMS "XXII"))
(IF (= RIM 23) (setq RIMS "XXIII"))
(IF (= RIM 24) (setq RIMS "XXIV"))
(IF (= RIM 25) (setq RIMS "XXV"))
(IF (= RIM 26) (setq RIMS "XXVI"))
(IF (= RIM 27) (setq RIMS "XXVII"))
(IF (= RIM 28) (setq RIMS "XXVIII"))
(IF (= RIM 29) (setq RIMS "XXIX"))
(IF (= RIM 30) (setq RIMS "XXX"))
(IF (= RIM 31) (setq RIMS "XXXI"))
(IF (= RIM 32) (setq RIMS "XXXII"))
(IF (= RIM 33) (setq RIMS "XXXIII"))
(IF (= RIM 34) (setq RIMS "XXXIV"))
(IF (= RIM 35) (setq RIMS "XXXV"))
(IF (= RIM 36) (setq RIMS "XXXVI"))
(IF (= RIM 37) (setq RIMS "XXXVII"))
(IF (= RIM 38) (setq RIMS "XXXVIII"))
(IF (= RIM 39) (setq RIMS "XXXIX"))
(IF (= RIM 40) (setq RIMS "XL"))
(IF (= RIM 41) (setq RIMS "XLI"))
(IF (= RIM 42) (setq RIMS "XLII"))
(IF (= RIM 43) (setq RIMS "XLIII"))
(IF (= RIM 44) (setq RIMS "XLIV"))
(IF (= RIM 45) (setq RIMS "XLV"))
(IF (= RIM 46) (setq RIMS "XLVI"))
(IF (= RIM 47) (setq RIMS "XLVII"))
(IF (= RIM 48) (setq RIMS "XLVIII"))
(IF (= RIM 49) (setq RIMS "XLIX"))
(IF (= RIM 50) (setq RIMS "L"))
(IF (= RIM 51) (setq RIMS "LI"))
(IF (= RIM 52) (setq RIMS "LII"))
(IF (= RIM 53) (setq RIMS "LIII"))
(IF (= RIM 54) (setq RIMS "LIV"))
(IF (= RIM 55) (setq RIMS "LV"))
(IF (= RIM 56) (setq RIMS "LVI"))
(IF (= RIM 57) (setq RIMS "LVII"))
(IF (= RIM 58) (setq RIMS "LVIII"))
(IF (= RIM 59) (setq RIMS "LIX"))
(IF (= RIM 60) (setq RIMS "LX"))
(IF (= RIM 61) (setq RIMS "LXI"))
(IF (= RIM 62) (setq RIMS "LXII"))
(IF (= RIM 63) (setq RIMS "LXIII"))
(IF (= RIM 64) (setq RIMS "LXIV"))
(IF (= RIM 65) (setq RIMS "LXV"))
(IF (= RIM 66) (setq RIMS "LXVI"))
(IF (= RIM 67) (setq RIMS "LXVII"))
(IF (= RIM 68) (setq RIMS "LXVIII"))
(IF (= RIM 69) (setq RIMS "LXIX"))
(IF (= RIM 70) (setq RIMS "LXX"))
(IF (= RIM 71) (setq RIMS "LXXI"))
(IF (= RIM 72) (setq RIMS "LXXII"))
(IF (= RIM 73) (setq RIMS "LXXIII"))
(IF (= RIM 74) (setq RIMS "LXXIV"))
(IF (= RIM 75) (setq RIMS "LXXV"))
(IF (= RIM 76) (setq RIMS "LXXVI"))
(IF (= RIM 77) (setq RIMS "LXXVII"))
(IF (= RIM 78) (setq RIMS "LXXVIII"))
(IF (= RIM 79) (setq RIMS "LXXIX"))
(IF (= RIM 80) (setq RIMS "LXXX"))
(IF (= RIM 81) (setq RIMS "LXXXI"))
(IF (= RIM 82) (setq RIMS "LXXXII"))
(IF (= RIM 83) (setq RIMS "LXXXIII"))
(IF (= RIM 84) (setq RIMS "LXXXIV"))
(IF (= RIM 85) (setq RIMS "LXXXV"))
(IF (= RIM 86) (setq RIMS "LXXXVI"))
(IF (= RIM 87) (setq RIMS "LXXXVII"))
(IF (= RIM 88) (setq RIMS "LXXXVIII"))
(IF (= RIM 89) (setq RIMS "LXXXIX"))
(IF (= RIM 90) (setq RIMS "XC"))
(IF (= RIM 91) (setq RIMS "XCI"))
(IF (= RIM 92) (setq RIMS "XCII"))
(IF (= RIM 93) (setq RIMS "XCIII"))
(IF (= RIM 94) (setq RIMS "XCIV"))
(IF (= RIM 95) (setq RIMS "XCV"))
(IF (= RIM 96) (setq RIMS "XCVI"))
(IF (= RIM 97) (setq RIMS "XCVII"))
(IF (= RIM 98) (setq RIMS "XCVIII"))
(IF (= RIM 99) (setq RIMS "XCIX"))
(IF (= RIM 100) (setq RIMS "C"))
(IF (= RIM 101) (setq RIMS "CI"))
(IF (= RIM 102) (setq RIMS "CII"))
(IF (= RIM 103) (setq RIMS "CIII"))
(IF (= RIM 104) (setq RIMS "CIV"))
(IF (= RIM 105) (setq RIMS "CV"))
(IF (= RIM 106) (setq RIMS "CVI"))
(IF (= RIM 107) (setq RIMS "CVII"))
(IF (= RIM 108) (setq RIMS "CVIII"))
(IF (= RIM 109) (setq RIMS "CIX"))
(IF (= RIM 110) (setq RIMS "CX"))
(IF (= RIM 111) (setq RIMS "CXI"))
(IF (= RIM 112) (setq RIMS "CXII"))
(IF (= RIM 113) (setq RIMS "CXIII"))
(IF (= RIM 114) (setq RIMS "CXIV"))
(IF (= RIM 115) (setq RIMS "CXV"))
(IF (= RIM 116) (setq RIMS "CXVI"))
(IF (= RIM 117) (setq RIMS "CXVII"))
(IF (= RIM 118) (setq RIMS "CXVIII"))
(IF (= RIM 119) (setq RIMS "CXIX"))
(IF (= RIM 120) (setq RIMS "CXX"))
(IF (= RIM 121) (setq RIMS "CXXI"))
(IF (= RIM 122) (setq RIMS "CXXII"))
(IF (= RIM 123) (setq RIMS "CXXIII"))
(IF (= RIM 124) (setq RIMS "CXXIV"))
(IF (= RIM 125) (setq RIMS "CXXV"))
(IF (= RIM 126) (setq RIMS "CXXVI"))
(IF (= RIM 127) (setq RIMS "CXXVII"))
(IF (= RIM 128) (setq RIMS "CXXVIII"))
(IF (= RIM 129) (setq RIMS "CXXIX"))
(IF (= RIM 130) (setq RIMS "CXXX"))
(IF (= RIM 131) (setq RIMS "CXXXI"))
(IF (= RIM 132) (setq RIMS "CXXXII"))
(IF (= RIM 133) (setq RIMS "CXXXIII"))
(IF (= RIM 134) (setq RIMS "CXXXIV"))
(IF (= RIM 135) (setq RIMS "CXXXV"))
(IF (= RIM 136) (setq RIMS "CXXXVI"))
(IF (= RIM 137) (setq RIMS "CXXXVII"))
(IF (= RIM 138) (setq RIMS "CXXXVIII"))
(IF (= RIM 139) (setq RIMS "CXXXIX"))
(IF (= RIM 140) (setq RIMS "CXL"))
(IF (= RIM 141) (setq RIMS "CXLI"))
(IF (= RIM 142) (setq RIMS "CXLII"))
(IF (= RIM 143) (setq RIMS "CXLIII"))
(IF (= RIM 144) (setq RIMS "CXLIV"))
(IF (= RIM 145) (setq RIMS "CXLV"))
(IF (= RIM 146) (setq RIMS "CXLVI"))
(IF (= RIM 147) (setq RIMS "CXLVII"))
(IF (= RIM 148) (setq RIMS "CXLVIII"))
(IF (= RIM 149) (setq RIMS "CXLIX"))
(IF (= RIM 150) (setq RIMS "CL"))
(IF (= RIM 151) (setq RIMS "CLI"))
(IF (= RIM 152) (setq RIMS "CLII"))
(IF (= RIM 153) (setq RIMS "CLIII"))
(IF (= RIM 154) (setq RIMS "CLIV"))
(IF (= RIM 155) (setq RIMS "CLV"))
(IF (= RIM 156) (setq RIMS "CLVI"))
(IF (= RIM 157) (setq RIMS "CLVII"))
(IF (= RIM 158) (setq RIMS "CLVIII"))
(IF (= RIM 159) (setq RIMS "CLIX"))
(IF (= RIM 160) (setq RIMS "CLX"))
(IF (= RIM 161) (setq RIMS "CLXI"))
(IF (= RIM 162) (setq RIMS "CLXII"))
(IF (= RIM 163) (setq RIMS "CLXIII"))
(IF (= RIM 164) (setq RIMS "CLXIV"))
(IF (= RIM 165) (setq RIMS "CLXV"))
(IF (= RIM 166) (setq RIMS "CLXVI"))
(IF (= RIM 167) (setq RIMS "CLXVII"))
(IF (= RIM 168) (setq RIMS "CLXVIII"))
(IF (= RIM 169) (setq RIMS "CLXIX"))
(IF (= RIM 170) (setq RIMS "CLXX"))
(IF (= RIM 171) (setq RIMS "CLXXI"))
(IF (= RIM 172) (setq RIMS "CLXXII"))
(IF (= RIM 173) (setq RIMS "CLXXIII"))
(IF (= RIM 174) (setq RIMS "CLXXIV"))
(IF (= RIM 175) (setq RIMS "CLXXV"))
(IF (= RIM 176) (setq RIMS "CLXXVI"))
(IF (= RIM 177) (setq RIMS "CLXXVII"))
(IF (= RIM 178) (setq RIMS "CLXXVIII"))
(IF (= RIM 179) (setq RIMS "CLXXIX"))
(IF (= RIM 180) (setq RIMS "CLXXX"))
(IF (= RIM 181) (setq RIMS "CLXXXI"))
(IF (= RIM 182) (setq RIMS "CLXXXII"))
(IF (= RIM 183) (setq RIMS "CLXXXIII"))
(IF (= RIM 184) (setq RIMS "CLXXXIV"))
(IF (= RIM 185) (setq RIMS "CLXXXV"))
(IF (= RIM 186) (setq RIMS "CLXXXVI"))
(IF (= RIM 187) (setq RIMS "CLXXXVII"))
(IF (= RIM 188) (setq RIMS "CLXXXVIII"))
(IF (= RIM 189) (setq RIMS "CLXXXIX"))
(IF (= RIM 190) (setq RIMS "CXC"))
(IF (= RIM 191) (setq RIMS "CXCI"))
(IF (= RIM 192) (setq RIMS "CXCII"))
(IF (= RIM 193) (setq RIMS "CXCIII"))
(IF (= RIM 194) (setq RIMS "CXCIV"))
(IF (= RIM 195) (setq RIMS "CXCV"))
(IF (= RIM 196) (setq RIMS "CXCVI"))
(IF (= RIM 197) (setq RIMS "CXCVII"))
(IF (= RIM 198) (setq RIMS "CXCVIII"))
(IF (= RIM 199) (setq RIMS "CXCIX"))
(IF (= RIM 200) (setq RIMS "CC"))
(IF (= RIM 201) (setq RIMS "CCI"))
(IF (= RIM 202) (setq RIMS "CCII"))
(IF (= RIM 203) (setq RIMS "CCIII"))
(IF (= RIM 204) (setq RIMS "CCIV"))
(IF (= RIM 205) (setq RIMS "CCV"))
(IF (= RIM 206) (setq RIMS "CCVI"))
(IF (= RIM 207) (setq RIMS "CCVII"))
(IF (= RIM 208) (setq RIMS "CCVIII"))
(IF (= RIM 209) (setq RIMS "CCIX"))
(IF (= RIM 210) (setq RIMS "CCX"))
(IF (= RIM 211) (setq RIMS "CCXI"))
(IF (= RIM 212) (setq RIMS "CCXII"))
(IF (= RIM 213) (setq RIMS "CCXIII"))
(IF (= RIM 214) (setq RIMS "CCXIV"))
(IF (= RIM 215) (setq RIMS "CCXV"))
(IF (= RIM 216) (setq RIMS "CCXVI"))
(IF (= RIM 217) (setq RIMS "CCXVII"))
(IF (= RIM 218) (setq RIMS "CCXVIII"))
(IF (= RIM 219) (setq RIMS "CCXIX"))
(IF (= RIM 220) (setq RIMS "CCXX"))
(IF (= RIM 221) (setq RIMS "CCXXI"))
(IF (= RIM 222) (setq RIMS "CCXXII"))
(IF (= RIM 223) (setq RIMS "CCXXIII"))
(IF (= RIM 224) (setq RIMS "CCXXIV"))
(IF (= RIM 225) (setq RIMS "CCXXV"))
(IF (= RIM 226) (setq RIMS "CCXXVI"))
(IF (= RIM 227) (setq RIMS "CCXXVII"))
(IF (= RIM 228) (setq RIMS "CCXXVIII"))
(IF (= RIM 229) (setq RIMS "CCXXIX"))
(IF (= RIM 230) (setq RIMS "CCXXX"))
(IF (= RIM 231) (setq RIMS "CCXXXI"))
(IF (= RIM 232) (setq RIMS "CCXXXII"))
(IF (= RIM 233) (setq RIMS "CCXXXIII"))
(IF (= RIM 234) (setq RIMS "CCXXXIV"))
(IF (= RIM 235) (setq RIMS "CCXXXV"))
(IF (= RIM 236) (setq RIMS "CCXXXVI"))
(IF (= RIM 237) (setq RIMS "CCXXXVII"))
(IF (= RIM 238) (setq RIMS "CCXXXVIII"))
(IF (= RIM 239) (setq RIMS "CCXXXIX"))
(IF (= RIM 240) (setq RIMS "CCXL"))
(IF (= RIM 241) (setq RIMS "CCXLI"))
(IF (= RIM 242) (setq RIMS "CCXLII"))
(IF (= RIM 243) (setq RIMS "CCXLIII"))
(IF (= RIM 244) (setq RIMS "CCXLIV"))
(IF (= RIM 245) (setq RIMS "CCXLV"))
(IF (= RIM 246) (setq RIMS "CCXLVI"))
(IF (= RIM 247) (setq RIMS "CCXLVII"))
(IF (= RIM 248) (setq RIMS "CCXLVIII"))
(IF (= RIM 249) (setq RIMS "CCXLIX"))
(IF (= RIM 250) (setq RIMS "CCL"))
(IF (= RIM 251) (setq RIMS "CCLI"))
(IF (= RIM 252) (setq RIMS "CCLII"))
(IF (= RIM 253) (setq RIMS "CCLIII"))
(IF (= RIM 254) (setq RIMS "CCLIV"))
(IF (= RIM 255) (setq RIMS "CCLV"))
(IF (= RIM 256) (setq RIMS "CCLVI"))
(IF (= RIM 257) (setq RIMS "CCLVII"))
(IF (= RIM 258) (setq RIMS "CCLVIII"))
(IF (= RIM 259) (setq RIMS "CCLIX"))
(IF (= RIM 260) (setq RIMS "CCLX"))
(IF (= RIM 261) (setq RIMS "CCLXI"))
(IF (= RIM 262) (setq RIMS "CCLXII"))
(IF (= RIM 263) (setq RIMS "CCLXIII"))
(IF (= RIM 264) (setq RIMS "CCLXIV"))
(IF (= RIM 265) (setq RIMS "CCLXV"))
(IF (= RIM 266) (setq RIMS "CCLXVI"))
(IF (= RIM 267) (setq RIMS "CCLXVII"))
(IF (= RIM 268) (setq RIMS "CCLXVIII"))
(IF (= RIM 269) (setq RIMS "CCLXIX"))
(IF (= RIM 270) (setq RIMS "CCLXX"))
(IF (= RIM 271) (setq RIMS "CCLXXI"))
(IF (= RIM 272) (setq RIMS "CCLXXII"))
(IF (= RIM 273) (setq RIMS "CCLXXIII"))
(IF (= RIM 274) (setq RIMS "CCLXXIV"))
(IF (= RIM 275) (setq RIMS "CCLXXV"))
(IF (= RIM 276) (setq RIMS "CCLXXVI"))
(IF (= RIM 277) (setq RIMS "CCLXXVII"))
(IF (= RIM 278) (setq RIMS "CCLXXVIII"))
(IF (= RIM 279) (setq RIMS "CCLXXIX"))
(IF (= RIM 280) (setq RIMS "CCLXXX"))
(IF (= RIM 281) (setq RIMS "CCLXXXI"))
(IF (= RIM 282) (setq RIMS "CCLXXXII"))
(IF (= RIM 283) (setq RIMS "CCLXXXIII"))
(IF (= RIM 284) (setq RIMS "CCLXXXIV"))
(IF (= RIM 285) (setq RIMS "CCLXXXV"))
(IF (= RIM 286) (setq RIMS "CCLXXXVI"))
(IF (= RIM 287) (setq RIMS "CCLXXXVII"))
(IF (= RIM 288) (setq RIMS "CCLXXXVIII"))
(IF (= RIM 289) (setq RIMS "CCLXXXIX"))
(IF (= RIM 290) (setq RIMS "CCXC"))
(IF (= RIM 291) (setq RIMS "CCXCI"))
(IF (= RIM 292) (setq RIMS "CCXCII"))
(IF (= RIM 293) (setq RIMS "CCXCIII"))
(IF (= RIM 294) (setq RIMS "CCXCIV"))
(IF (= RIM 295) (setq RIMS "CCXCV"))
(IF (= RIM 296) (setq RIMS "CCXCVI"))
(IF (= RIM 297) (setq RIMS "CCXCVII"))
(IF (= RIM 298) (setq RIMS "CCXCVIII"))
(IF (= RIM 299) (setq RIMS "CCXCIX"))
(IF (= RIM 300) (setq RIMS "CCC"))
(setq RiMS RIMS)
)
Видео прошлых удычных проектов https://youtu.be/UzfQN19oEbI

Подскажите в чем проблема. Еще 2-ва месяца назад прога работала, потом перестала и я с испугу винду перебил, не помогло.
Спасибо!!!

Последний раз редактировалось Wanted, 07.01.2017 в 04:53.
Просмотров: 2826
 
Непрочитано 08.01.2017, 17:47
#2
skkkk


 
Регистрация: 20.03.2008
Сообщений: 2,653


Ошибка в конце видео говорит о том, что программе не удается найти какой-то файл.
Посмотрев приведенный код, я не обнаружил в нем никаких операций с файлами. Для чего программе смог понадобиться файл и какой, мне понять не удалось. Может, это как-то связано с кнопкой ExCell в диалоговом окне программы? Не знаю, мои попытки догадаться зашли в тупик. Полагаю, что ошибка возникает либо в функции set_URL, либо в alltrim, либо в word1. Для выявления диагноза, думаю, понадобиться весь больной, а не только пару органов.
А что на это говорит автор программы? Неужто связь с ним потеряна?
skkkk вне форума  
 
Автор темы   Непрочитано 08.01.2017, 22:44
#3
Wanted


 
Регистрация: 24.09.2015
Сообщений: 36


Могу предоставить всю прогу с файлом установки https://cloud.mail.ru/public/2Ta4/QVSpcguSq. На счет кнопки Exell: после проставление всех размеров и площадей эта кнопка выводит все в таблицы экселя со своими нумерами квартир. этажей, названиями помещений и т.д.

----- добавлено через ~3 мин. -----
Есть у меня подозрения что дело не в проге, потому что она работала нормально, а потом начала выделываться.
Wanted вне форума  
 
Непрочитано 09.01.2017, 07:41
#4
Profan


 
Регистрация: 25.12.2005
Москва
Сообщений: 13,627


Или это юзер начал выделываться.
Profan вне форума  
 
Автор темы   Непрочитано 09.01.2017, 16:11
#5
Wanted


 
Регистрация: 24.09.2015
Сообщений: 36


что за Юзер? Я?
Wanted вне форума  
 
Автор темы   Непрочитано 20.01.2017, 19:27
#6
Wanted


 
Регистрация: 24.09.2015
Сообщений: 36


Вопрос решен, всем спасибо.

Тему можно закрывать!
Wanted вне форума  
 
Непрочитано 21.01.2017, 11:23
#7
Кулик Алексей aka kpblc
Moderator

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


Ну так расскажи, в чем было дело. Интересно же
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 22.01.2017, 23:43
#8
Wanted


 
Регистрация: 24.09.2015
Сообщений: 36


Мне помог форумчанин, ник его говорить не буду захочет сам напишет, в общем програмист (который писал прогу) сделал закладку в лиспе с датой до 12,05,2016 и после этой даты прога отказывалась работать. Я просто поменял дату на 2100 год и все!

Код:
[Выделить все]
)
    (setq _a (/ (atof (rtos (GetVAr "CDATE") 2 0)) 100.0) )
    (if ( > _A 210012.05) (progn (setq ff (open "c:/autolisp/psw/psw.mnr" "w"))
    (print " " ff) (close ff)))
Красным цветом измененная часть кода.
Wanted вне форума  
 
Непрочитано 28.01.2017, 10:57
#9
VVA

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


Эти 2 строчки вообще лишние. Вставлены, чтобы в определенный момент генерировать ошибку
Код:
[Выделить все]
(if ( > _A 210012.05) (progn (setq ff (open "c:/autolisp/psw/psw.mnr" "w"))
    (print " " ff) (close ff)))
Открывать файл, писать в него пробел и закрывать смысла нет. Попробуй их удалить вообще.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Автор темы   Непрочитано 29.01.2017, 19:43
#10
Wanted


 
Регистрация: 24.09.2015
Сообщений: 36


Спасибо за совет, попробую попозже, сейчас активно юзаю прогу.
Wanted вне форума  
 
Непрочитано 01.02.2017, 21:15
#11
Do$

AutoCAD/Civil3D LISP/C#
 
Регистрация: 15.08.2008
Санкт-Петербург
Сообщений: 1,702
Отправить сообщение для Do$ с помощью Skype™


Цитата:
Сообщение от Wanted Посмотреть сообщение
Могу предоставить всю прогу с файлом установки https://cloud.mail.ru/public/2Ta4/QVSpcguSq.
У меня для вас плохие новости:
Миниатюры
Нажмите на изображение для увеличения
Название: BadNews.png
Просмотров: 48
Размер:	80.1 Кб
ID:	182942  
__________________
Толковый выбор приходит с опытом, а к нему приводит выбор бестолковый. (The Mechanic)
Do$ вне форума  
 
Непрочитано 01.02.2017, 23:43
#12
Сергей812


 
Регистрация: 10.08.2013
Сообщений: 11,002


а чего там на 300 с лишним мб?) Если там не видео, конечно
Сергей812 вне форума  
 
Автор темы   Непрочитано 04.02.2017, 00:32
#13
Wanted


 
Регистрация: 24.09.2015
Сообщений: 36


в архиве идет Vb6 и прога для печати пдф занимает основное место
Wanted вне форума  
 
Непрочитано 04.02.2017, 10:28
#14
Кулик Алексей aka kpblc
Moderator

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


Wanted, ты посмотри на заголовок темы и задайся вопросом - что здесь будет делать VB6?
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 04.02.2017, 18:50
#15
Wanted


 
Регистрация: 24.09.2015
Сообщений: 36


Виноват, но я просто ответил на Ваш же вопрос, а VB6 тут нипричем эта программа идет в комплекте с прогой которуя я скидывал (типа без него не работает программа), потому она в архивет.
Еще раз извените если нарушил правила сайта.

Последний раз редактировалось Wanted, 04.02.2017 в 19:05.
Wanted вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Ранее рабочий LSP отказывается работать

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
AUTOCAD 2016 не работает программа вырезания фрагмента генплана Помогите внести изменения. jackUAROBEY Программирование 59 12.06.2020 21:44
Помогите с пояснительной запиской по разделам ГСВ, ВК, ОВ, как сделать у кого есть пример помогите Shamilchik Поиск литературы, чертежей, моделей и прочих материалов 2 11.07.2015 20:04
Помогите умным советом... Agens Программирование 43 30.12.2007 10:43
ПОМОГИТЕ!! при выводе на печать ПУСТО nikashkoda AutoCAD 11 16.12.2007 19:11
ANSYS 10 Помогите разобраться. Aндрeй ANSYS 6 12.12.2007 00:03