[gizmo_zx]

Бодрого дня.
Пререстала паботать програмулька на lisp.
В Acad 2013 все ОК.
В Acad 2014 стало появлятся окошко. Там перечислены все атрибуты блока с возможностью заполнения. А блок необходимо вставить уже с установленными атрибутами без этого окошка.

Код:

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

 
(defun C:raschdu2 (/)
  (vl-load-com)
	
	(setq  tochka (getpoint "\n Точка вставки?"))
	
	;расчет тока и dU
	;**********************
	
	(setq p1 (getreal  "\nМощность: "))

	(setq txt1 (strcat "\nДлинна: [" (ITOA global_dlin1)"] "))
	
	(setq dlin_1 (getstring txt1))
	
	(if (= dlin_1 "" )(setq dlin_1 (ITOA global_dlin1)) )
	(setq dlin (atoi dlin_1))
  	(setq global_dlin1 dlin)

	;(setq txt1 (strcat "\nКосинус: [" (RTOS global_cos_st 2 2) "] "))
  
	;(setq cos_st (getstring  txt1))
	;(if (= cos_st "" )(setq cos_st (RTOS global_cos_st 2 2)) )
	;(setq cos_s (atof cos_st))
  	;(setq global_cos_st cos_s)

	(setq cos_s 0.94)

  	(setq txt1 (strcat "\nНапряжение: [" (ITOA global_u1t) "]"))
	(setq u1s (getstring  txt1))	
	(setq names (strcat u1s))
	(if ( = names "220") (PROGN (setq u1 2)(setq u1t 220)(setq u2t 220) (setq global_u1 2)(setq global_u1t 220)(setq global_u2t 220) ))
	(if ( = names "380") (PROGN (setq u1 1.73)(setq u1t 380)(setq u2t 658.18)(setq global_u1 1.73)(setq global_u1t 380)(setq global_u2t 658.18)))
	(if ( = names "") (PROGN (setq u1 global_u1)(setq u1t global_u1t)(setq u2t global_u2t)))

	
	;расчет
	(setq p10 (* p1 1000))
	(setq p1_1 (/ p10 u2t))
	(setq i1 (/ p1_1 cos_s))
	
	(setq text "\n I= : ")
	(setq text_t (rtos i1 2 2)) 
	(princ (strcat text text_t))

	(setq txt1 (strcat "\nСечение [" (RTOS global_s1_0 2 2) "]"))
	(setq s1_0 (getstring txt1))
	(if (= s1_0 "" )(setq s1_0 (RTOS global_s1_0 2 2)) )
	(setq s1 (atof s1_0))
	(setq global_s1_0 s1)

	;(setq s1_0 (getstring  "\nСечение [1.5]: " global_s1_0 "] "))
	;(if (= s1_0 "" )(setq s1_0 "1.5") )
	;(setq s1 (atof s1_0))
	
	;(setq s1_0 (getstring  "\nМатериал 'A'(AL) 'C'(CU) [Cu]: "))
	(setq ro 0.0175)
	;(if (= s1_0 "A" )(setq ro 0.028) )
    ;(if (= s1_0 "C" )(setq ro 0.0175) )

	(setq p1_2 (* i1 u1))
	(setq p1_21 (/ p1_2 3800))

	;(setq text "\n  p1_21= : ")
	;(setq text_t (rtos p1_21 2 2)) 
	;(princ (strcat text text_t))

	(setq p1_3 (* p1_2 ro))
	(setq p1_4 (* p1_3 dlin));***
	(setq p1_5 (* p1_4 0.001))
	(setq du1 (/ p1_4 s1))

	(setq du1_2 (/ du1 u1t)) ; ***
	(setq du1_3 (* du1_2 100))

	; вывод 
	(setq text "\n сечение= : ")
	(setq text_t (rtos s1 2 2))
	;(princ (strcat text text_t))

	(setq text "\n Длинна= : ")
	(setq text_t (rtos dlin 2 2))
	;(princ (strcat text text_t))
	
	(setq text "\n I= : ")
	(setq text_t (rtos i1 2 2)) 
	;(princ (strcat text text_t))

	(setq text "\n dU%= : ")
	(setq text_t (rtos du1_3 2 2))
	(princ (strcat text text_t))
  



	;**********************


	;**********************
 
  			(setq tochka1 (mapcar '+ tochka '(-12.152 61.5561 0.0))) 

  			(setq tochka3 (mapcar '+ tochka1 '(4.5 -10.5 0.0))) 

;+ + + + + + + + + + + +
;вставка текстта (в таблицу)
;+ + + + + + + + + + + +
			
			; вывод длинны
			(setq text (rtos dlin 2 2))
			(setq txt "L=")
			(setq text (strcat txt text))
			(setq txt " м")
			(setq text (strcat  text txt))
			(setq dlin2 text)
			; вывод длинны
			(if ( = u1t 220) (setq txt  "ВВГнг-LS 3х"))
			(if ( = u1t 380 ) (setq txt  "ВВГнг-LS 5х"))
			(if ( = u1t 220) (setq txt_blok  "faza_g1"))
			(if ( = u1t 380 ) (setq txt_blok  "faza_g2"))
			(setq text (rtos s1 2 2))
			(setq text (strcat txt text))
			(setq sech_2 text)
 						
			; мощность
			(setvar "TEXTSIZE" 2.5)	
			(setq text (rtos p1 2 2)) 
  			(setq tochka3 (mapcar '+ tochka '(-8.5 -19.1 0.0))) 
			(command "_.-mtext" 
      	      tochka3
           		"_j" 
	            "_tc" 
	            "_l" 
	            "_e" 
	            "" 
           		tochka3
			text 
	            "" 
           		) ;_ end of command 

			; ток
			(setq text (rtos i1 2 2)) 
  			(setq tochka3 (mapcar '+ tochka '(-8.5 -27.1 0.0))) 
			(command "_.-mtext" 
      	      tochka3
           		"_j" 
	            "_tc" 
	            "_l" 
	            "_e" 
	            "" 
           		tochka3
			text 
	            "" 
           		) ;_ end of command 

			; dU
			(setq text (rtos du1_3 2 2)) 
  			(setq tochka3 (mapcar '+ tochka '(-8.5 -43.1 0.0))) 
			(command "_.-mtext" 
      	      tochka3
           		"_j" 
	            "_tc" 
	            "_l" 
	            "_e" 
	            "" 
           		tochka3
			text 
	            "" 
           		) ;_ end of command 
			; помещение

;;;			(setq txt "Розетки\nбытовые\nП")
;;;			(setq text "")
;;;			(if (<> pomesh "") (setq text (strcat txt pomesh))); (setq text "1"));
;;;			;(setq text (strcat txt pomesh)) 
;;;  			(setq tochka3 (mapcar '+ tochka '(-8.5 -50.3 0.0))) 
;;;			(command "_.-mtext" 
;;;      	      tochka3
;;;           		"_j" 
;;;	            "_tc" 
;;;	            "_l" 
;;;	            "_e" 
;;;	            "" 
;;;           		tochka3
;;;			text 
;;;	            "" 
;;;           		) ;_ end of command 
			
			(command "_insert" "11" tochka 1 1 0 dlin2 sech_2)
			(command "_insert" txt_blok tochka 1 1 0)


	(princ)
  )
(prompt "\n\t***\tПрограмма загружена.\n\t***\t Команда для выполнения: raschdu2\t***")
(princ)

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

См.системные переменные attreq, attdia

[gizmo_zx]

О великий, проблемма решилась attdia=0.
Примного благодарен.

А можно в начале програмки выстасить attdia=0, а в конце программы attdia=1 ?