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

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > lisp из autocad 2004 некорректно выполняется в autocad 2008

lisp из autocad 2004 некорректно выполняется в autocad 2008

Ответ
Перейти к новому Перейти к новому  
Поиск в этой теме
Непрочитано 10.10.2012, 02:03 #1
lisp из autocad 2004 некорректно выполняется в autocad 2008
sid_geo
 
Регистрация: 10.10.2012
Сообщений: 6
Данный lisp некорректно работает в autocad 2008:

Код:
[Выделить все] 
 (defun povorot ( / w0 )
    (setvar "cmdecho" 1)
(command "-layer" "n" "opi" "")
  (setq count 0
	  scale 0.25
	  PL 0.00)
     (setq lineprim (car (entsel "\nselect pline")))
  (setq var (getint "\nВарианты:1-Проект границ,2-Залитые,3-Незалитые,4-Выборочные <1>"))
  (if	(= var 1)
	(setq dwg2 "o_.dwg")
  );if
  (if	(or (= var 2) (= var 4))
	(setq dwg2 "d.dwg")
  );if
  (if	(= var 3)
	(setq dwg2 "")
  );if
  (setq Ntoch "")
  (setq Nvar 0)
  (if	(/= var 1)
       (setq Nvar (getint "\nТочки:1-Старые,2-Новые,3-Выборочные <1>"))
  );if
  
  (if	(= Nvar 2)
       (setq Ntoch "н")
  );if
(setq prim lineprim)
     (while
	(= "VERTEX"
	   (cdr
	     (assoc 0
		    (setq vert
			   (entget
			     (setq prim (entnext prim))
			   )
		    )
	     )
	   )
	)
       (setq count (1+ count)) ;счетчик вершин
       (setq vert (assoc 10 vert)) ;получение координат
       (setq x (cadr vert)
             y (caddr vert))
       
       (if (and (= x x2) (= y y2))
	 (progn
	   (alert (strcat "\nПовтор в cтроках №№ " (rtos (- count 1)) " и " (rtos count)))
	   (exit)
	 )
	 (progn
       	(if (= count 1) (setq xf x
			      yf y
			      xmin x
			      ymin y
			      xmax x
			      ymax y)
        )
       (if (> x xmax) (setq xmax x))
       (if (> y ymax) (setq ymax y))
       (if (< x xmin) (setq xmin x))
       (if (< y ymin) (setq ymin y))
)
)
       (setq x1 x2
	     y1 y2
             x2 x
	     y2 y)
       )
  (setq prX (/ (- xmax xmin) 150))
  (setq prY (/ (- ymax ymin) 150))
  (if (< prX prY)
    (setq scale (/ (fix (* (+ prY 0.25) 10) ) 10.0)) 
    (setq scale (/ (fix (* (+ prX 0.25) 10) ) 10.0)) 
  )
  (if (and (> scale 0) (<= scale 0.25))
    (setq scale 0.25)
  )
  (if (and (> scale 0.25) (<= scale 0.5))
    (setq scale 0.5)
  )
  (if (and (> scale 0.5) (<= scale 1))
    (setq scale 1)
  )
  (if (and (> scale 1) (<= scale 2))
    (setq scale 2)
  )
  (if (and (> scale 2) (<= scale 5))
    (setq scale 5)
  )
  (if (and (> scale 5) (<= scale 10))
    (setq scale 10)
  )
  (if (and (> scale 10) (<= scale 25))
    (setq scale 25)
  )
;;;;;;;;;;;;;;;(command "filedia" "0")  
;;;;;;;;;;;;;;;(command "new" "C:/Program Files/AutoCAD 2004/Template/PROEKT_PLAN.dwt")
;;;;;;;;;;;;;;;(command "filedia" "1")  
;;;;;;;;;;;;;;;(command "_saveas" "2004" "~")
;;;;;;;;;;;;;;;(setq name (getvar "dwgname"))
;;;;;;;;;;;;;;;(setq path (getvar "dwgprefix"))
;;;;;;;;;;;;;;;(command "filedia" "0")
;;;;;;;;;;;;;;;(command "new")  
;;;;;;;;;;;;;;;(command "-insert" "C:/KUGI/PROEKT_PLAN.dwg" "0,0" "1" "1" "0")  
;;;;;;;;;;;;;;;(command "-xref" "A" (strcat path name) (list (/ (+ xmax xmin) 2) (/ (+ ymax ymin) 2)) scale scale "0")
;;;;;;;;;;;;;;;(command "_saveas" "2004" (strcat path "pp" name))  
;;;;;;;;;;;;;;;  
;;;;;;;;;;;;;;;(command "filedia" "1")  
;;;;;;;;;;;;;;;	 
(setq count 0)
(if  	(= var 1)
	(setq scale 0.25)
);if     
(setq prim lineprim)
     (while
	(= "VERTEX"
	   (cdr
	     (assoc 0
		    (setq vert
			   (entget
			     (setq prim (entnext prim))
			   )
		    )
	     )
	   )
	)
       (setq count (+ count 1)) ;счетчик вершин
       (setq vert (assoc 10 vert)) ;получение координат
       (setq x (cadr vert)
             y (caddr vert))
       
       (if (and (= x x2) (= y y2))
	 (progn
	   (alert (strcat "\nПовтор в cтроках №№ " (rtos (- count 1)) " и " (rtos count)))
	   (exit)
	 )
	 (progn
       	(if (= count 1) (setq xf x
			      yf y
			      xmin x
			      ymin y
			      xmax x
			      ymax y)
        )
       (if (> x xmax) (setq xmax x))
       (if (> y ymax) (setq ymax y))
       (if (< x xmin) (setq xmin x))
       (if (< y ymin) (setq ymin y))

	
       	(if (= count 2) (setq xs x
			      ys y)
        )
        (if (>= count 3)
	  (progn
	    (setq angle1 (angle (list x2 y2) (list x1 y1) ) )
	    (setq angle2 (angle (list x y) (list x2 y2) ) )
	    (setq PL (+ PL (* y2 (- x1 x))))
	    (if (= var 1)
	    (progn  
    (setvar "cmdecho" 0)
	    (if (> x2 x1)
	    (command "-dimstyle" "r" "Promer Above")
	    (command "-dimstyle" "r" "Promer Outside")
	    )
	    (command "_zoom" "e")
	    (command "_zoom" "w" (list x2 y2) (list x1 y1))
	    (command "_zoom" "S" ".5x")
	    (if (> x2 x1)
	    (command "_dimaligned" (list x1 y1) (list x2 y2) (list x2 y2))
	    (command "_dimaligned" (list x2 y2) (list x1 y1) (list x2 y2))
	    )  

	    (command "_-dimstyle" "a" "l" "")
;;;	    (if (> (sqrt (* (- x2 x1) (- x2 x1)) (* (- y2 y1) (- y2 y1))) 4)
	    (command "-dimstyle" "r" "Promer Above")
    (setvar "cmdecho" 1)
    	    ))  
            (setq anglebis (- (/ (+ angle2 angle1) 2)(/ 3.1415 2)) )
	    (if (> angle2  angle1)
	    (setq scaleang (* scale -1))
	    (setq scaleang scale)
	    )
            (if	(= Nvar 3)
	        (progn
                (setq Ntoch (getint "\nВыборочные точки:0-Старые,1-Новые"))
		(if (= Ntoch 0)
		  (setq Ntoch "")
		  (setq Ntoch "н")
		);if  
		);progn
            );if
;;;	      (if	(= var 1)
;;;		(setq scale 0.25)
;;;		)
(command "DIMZIN" "0")
	    (if	(= var 1)
	    (command "-insert" "o.dwg" (list x2 y2) scale  "" "0" (strcat Ntoch (rtos (- count 1) 2 0)))
	    (command "-insert" "po.dwg" (list x2 y2) scale  "" "0" (strcat Ntoch (rtos (- count 1) 2 0)))
  )  
	    (setq cx (+ x2 (* (* scaleang 5.36) (cos anglebis)))
		  cy (+ y2 (* (* scaleang 5.36) (sin anglebis))))
	    (command "_zoom" (list cx cy) (list (- x2 (- cx x2)) (- y2 (- cy y2))))
	    (command "_zoom" "S" ".5x")
	    (command "-attedit" "Y" "*" "*" "*" "l" "P" (list cx cy) "")
  (if	(= var 1)
	    (command "-insert" dwg2 (list cx cy) scale  "" "0")
  )  
  (if	(= var 2)
    	    (command "-insert" dwg2 (list x2 y2) scale  "" "0" (rtos (- count 1)))
  )  
  (if	(= var 4)
            (progn
	    (setq Toch (getint "\nВыборочные точки:1-Залитые,2-Незалитые <1>"))
		(if (= Toch 1)
	    (command "-insert" dwg2 (list x2 y2) scale  "" "0" (rtos (- count 1)))) 
	    )
  )  
	  )
	)  
       ; устанавливаем x1-первая точка, x2-следующая, x-последняя
       (setq x1 x2
	     y1 y2
             x2 x
	     y2 y)
	);progn
	 );if
	  );while
	    ;последняя точка
       (if (and (= xf x2) (= yf y2))
	 (progn
	   (alert (strcat "\nПовтор в cтроках №№ 1 и " (rtos count) ))
	   (exit)
	 )
	 (progn
            (setq angle1 (angle (list x2 y2) (list x1 y1) ) )
	    (setq angle2 (angle (list xf yf) (list x2 y2) ) )
	    (setq PL (+ PL (* y2 (- x1 xf))))
	    (if (= var 1)
	      (progn
              (setvar "cmdecho" 0)
	   (if (> x2 x1)
	    (command "-dimstyle" "r" "Promer Above")
	    (command "-dimstyle" "r" "Promer Outside")
	    )
	    (command "_zoom" "e")
	    (command "_zoom" "w" (list x2 y2) (list x1 y1))
	    (command "_zoom" "S" ".5x")
	    (if (> x2 x1)
	    (command "_dimaligned" (list x2 y2) (list x1 y1) (list x1 y1))
	    (command "_dimaligned" (list x1 y1) (list x2 y2) (list x2 y2))
	    )  

	    (command "_-dimstyle" "a" "l" "")
    (setvar "cmdecho" 1)
 ))  
            (setq anglebis (- (/ (+ angle2 angle1) 2)(/ 3.1415 2)) )
	    (if (> angle2  angle1)
	    (setq scaleang (* scale -1))
	    (setq scaleang scale)
	    )
            (if	(= Nvar 3)
	        (progn
                (setq Ntoch (getint "\nВыборочные точки:0-Старые,1-Новые"))
		(if (= Ntoch 0)
		  (setq Ntoch "")
		  (setq Ntoch "н")
		);if  
		);progn
            );if
  (if	(= var 1)
    	    (command "-insert" "o.dwg" (list x2 y2) scale  "" "0" (strcat Ntoch (rtos count 2 0)))
    	    (command "-insert" "po.dwg" (list x2 y2) scale  "" "0" (strcat Ntoch (rtos count 2 0)))
)
    (setq cx (+ x2 (* (* scaleang 5.36) (cos anglebis)))
		  cy (+ y2 (* (* scaleang 5.36) (sin anglebis))))
	    (command "_zoom" (list cx cy) (list (- x2 (- cx x2)) (- y2 (- cy y2))))
	    (command "_zoom" "S" ".5x")
	    (command "-attedit" "Y" "*" "*" "*" "l" "P" (list cx cy) "")
(if (= var 1)
	    (command "-insert" dwg2 (list cx cy) scale  "" "0")
  )  
  (if	(= var 2)
    	    (command "-insert" dwg2 (list x2 y2) scale  "" "0" (rtos (- count 1)))
  )  
  (if	(= var 4)
            (progn
	    (setq Toch (getint "\nВыборочные точки:1-Залитые,2-Незалитые <1>"))
		(if (= Toch 1)
	    (command "-insert" dwg2 (list x2 y2) scale  "" "0" (rtos (- count 1)))) 
	    )
  )  
	   
	   
	);progn
       );if
	   

	    ;первая точка
  	    (setq angle1 (angle (list xf yf) (list x2 y2) ) )
	    (setq angle2 (angle (list xs ys) (list xf yf) ) )
	    (setq PL (+ PL (* yf (- x2 xs))))
  	    (if (= var 1)
	    (progn  
	    (setvar "cmdecho" 0)
	    (if (> xf x2)
	    (command "-dimstyle" "r" "Promer Above")
	    (command "-dimstyle" "r" "Promer Outside")
	    )
	    (command "_zoom" "e")
	    (command "_zoom" "w" (list xf yf) (list x2 y2))
	    (command "_zoom" "S" ".5x")
	    (command "_dimaligned" (list xf yf) (list x2 y2) (list x2 y2))
	    (command "_-dimstyle" "a" "l" "")
    		(setvar "cmdecho" 1)
	    ))  
            (setq anglebis (- (/ (+ angle2 angle1) 2)(/ 3.1415 2)) )
	    (if (> angle2  angle1)
	    (setq scaleang (* scale -1))
	    (setq scaleang scale)
	    )
            (if	(= Nvar 3)
	        (progn
                (setq Ntoch (getint "\nВыборочные точки:0-Старые,1-Новые"))
		(if (= Ntoch 0)
		  (setq Ntoch "")
		  (setq Ntoch "н")
		);if  
		);progn
            );if
  (if	(= var 1)
    	    (command "-insert" "o.dwg" (list xf yf) scale  "" "0" (strcat Ntoch "1"))
    	    (command "-insert" "po.dwg" (list xf yf) scale  "" "0" (strcat Ntoch "1"))
  )  
	    (setq cx (+ xf (* (* scaleang 5.36) (cos anglebis)))
		  cy (+ yf (* (* scaleang 5.36) (sin anglebis))))
	    (command "_zoom" (list cx cy) (list (- xf (- cx xf)) (- yf (- cy yf))))
	    (command "_zoom" "S" ".5x")
	    (command "-attedit" "Y" "*" "*" "*" "l" "P" (list cx cy) "")
(if (= var 1)
	    (command "-insert" dwg2 (list cx cy) scale  "" "0")
  )  
  (if	(= var 2)
    	    (command "-insert" dwg2 (list xf yf) scale  "" "0" (rtos (- count 1)))
  )  
  (if	(= var 4)
            (progn
	    (setq Toch (getint "\nВыборочные точки:1-Залитые,2-Незалитые <1>"))
		(if (= Toch 1)
	    (command "-insert" dwg2 (list xf yf) scale  "" "0" (rtos (- count 1)))) 
	    )
  )  

  (if	(= var 1)
            (progn
  	    (command "-insert" "pn.dwg" (list (/ (+ xmax xmin) 2) (/ (+ ymax ymin) 2)) "0.3"  "" "0" "1")
	    (setq PL (/ (ABS PL) 2.00))
	    (command "text" (list (+ (/ (+ xmax xmin) 2) 2) (+ (/ (+ ymax ymin) 2) 2)) "1.5" "0" (strcat (rtos PL 2 0) " кв.м."))
	    (command "_insert" "krest.dwg" (list (* (fix (/ xmin 50)) 50) (* (fix (/ ymin 50)) 50)) "1" "" "0" (rtos (* (fix (/ xmin 50)) 50) 2 0) (rtos (* (fix (/ ymin 50)) 50) 2 0))
	    )
  );if

;;;  Расчет площади  
;;;  X[0]:=x[n]; X[n+1]:=X[1]; PL:=0.0;
;;;  for i:=1 to N do PL:=PL+y[i]*(X[i-1]-X[i+1]);
;;;  PL:=ABS(PL)/2.0;

  (command "_zoom" (list (- (- (+ xmin 32000) (* scale 15)) 32000) (- (- (+ ymin 32000) (* scale 15)) 32000)) (list (- (+ (+ xmax 32000) (* scale 15)) 32000) (- (+ (+ ymax 32000) (* scale 15)) 32000)))

)					;defun
команда вызова лиспа - (load "povorot")(povorot)

Пожалуйста помогите переписать lisp.
Последний раз редактировалось Кулик Алексей aka kpblc, 10.10.2012 в 09:25.
Просмотров: 5162
 
Непрочитано 10.10.2012, 02:08
#2
gomer

строю, ломаю
 
Регистрация: 03.04.2008
Украина
Сообщений: 5,515

а слабо на кнопочку lisp было нажать? сразу скажу хреновый это лисп
gomer вне форума  
 
Непрочитано 10.10.2012, 08:05
#3
TararykovDG

Программист-энтузиаст
 
Регистрация: 17.07.2009
Воронеж
Сообщений: 571

Цитата:
Сообщение от sid_geo Посмотреть сообщение
Пожалуйста помогите переписать lisp.
Если Вам надо именно помочь, а не сделать за Вас, то открываете Редактор Visual LISP, запускаете в нем код и в пошаговом режиме проверяете где происходит ошибка.
Полезности в редакторе VLIDE
Полезности в редакторе VLIDE, часть 2
__________________
cadtools
TararykovDG вне форума  
 
Автор темы   Непрочитано 10.10.2012, 11:36
#4
sid_geo


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

Уважаемый TararykovDG. Я в программировании чайник. В редакторе Visual Lisp почему-то не активна отладка. Данный lisp работает в autocad 2004, но некорректно выполняется в autocad 2008. Lisp писал другой человек и я смутно представляю как он работает. Помогите, пожалуйста разобраться.
sid_geo вне форума  
 
Непрочитано 10.10.2012, 11:46
#5
Кулик Алексей aka kpblc
Moderator

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

Стоп. Разобраться или переделать? Это принципиально разные вещи.
Лично я вижу как минимум 3 логических ошибки, из-за которых лисп не работает.
Поправка - 4 ошибки.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Последний раз редактировалось Кулик Алексей aka kpblc, 10.10.2012 в 11:52.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 10.10.2012, 12:00
#6
sid_geo


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

Помогите переделать данный lisp. Я просто не понимаю почему он нормально работает в 2004 и не работает в 2008. С помощью данного лиспа я формирую схемы расположения земельных участков: он проставляет промеры линий, нумерует точки, подписывает площадь и крест сетки. Если у Вас нет возможности объяснить ошибки в лиспе, то прошу извинить за беспокойство.
sid_geo вне форума  
 
Непрочитано 10.10.2012, 13:22
#7
Victor


 
Регистрация: 14.06.2009
Бат-Ям
Сообщений: 295

Добавляются файлы o.dwg, po.dwg, pn.dwg, krest.dwg. Пути в 2008 прописаны к этим файлам? Если бы можно увидеть сообщения на этот лисп было бы проще искать причину
__________________
... а Автокад то - голый
Victor вне форума  
 
Автор темы   Непрочитано 10.10.2012, 13:45
#8
sid_geo


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

Цитата:
Сообщение от Victor Посмотреть сообщение
Добавляются файлы o.dwg, po.dwg, pn.dwg, krest.dwg. Пути в 2008 прописаны к этим файлам? Если бы можно увидеть сообщения на этот лисп было бы проще искать причину
Вот протокол запуска в 2008:
Код:
[Выделить все] 
Команда: (load "povorot")(povorot) -layer Неизвестная команда "-LAYER".  Для 
вызова справки нажмите F1.
Команда: n Неизвестная команда "N".  Для вызова справки нажмите F1.
Команда: opi Неизвестная команда "OPI".  Для вызова справки нажмите F1.
Команда: ПОКАЗАТЬ
Укажите угол рамки, введите масштаб (nX или nXП), или
[Все/Центр/Динамика/Границы/Предыдущий/Масштаб/Рамка/Объект] <реальное время>:
select pline
Варианты:1-Проект границ,2-Залитые,3-Незалитые,4-Выборочные <1>1
Требуется расстояние, числоX или ключевое слово.
; ошибка: Функция отменена
Укажите угол рамки, введите масштаб (nX или nXП), или
[Все/Центр/Динамика/Границы/Предыдущий/Масштаб/Рамка/Объект] <реальное время>: 
*Прервано*

и тот же протокол в 2004:
Substituting [simplex.shx] for [cyril1w.shx].
Regenerating model.
Press ENTER to continue:
AutoCAD Express Tools Copyright © 2002-2003 Autodesk, Inc.

Command: (load "povorot")(povorot) -layer
Current layer:  "granitsa"
Enter an option 
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock/stAte]: 
n
Enter name list for new layer(s): opi Enter an option 
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock/stAte]:
Command:
select pline
Варианты:1-Проект границ,2-Залитые,3-Незалитые,4-Выборочные <1>1
DIMZIN
Enter new value for DIMZIN <1>: 0
Command: -insert Enter block name or [?]: o.dwg Substituting [simplex.shx] for 
[cyril1w.shx].
Specify insertion point or [Scale/X/Y/Z/Rotate/PScale/PX/PY/PZ/PRotate]:
Enter X scale factor, specify opposite corner, or [Corner/XYZ] <1>: 
0.250000000000000 Enter Y scale factor <use X scale factor>: Specify rotation 
angle <0d0'0">: 0
Enter attribute values
o <o>: 2
Command: _zoom
Specify corner of window, enter a scale factor (nX or nXP), or
[All/Center/Dynamic/Extents/Previous/Scale/Window] <real time>:
Specify opposite corner:
Command: _zoom
Specify corner of window, enter a scale factor (nX or nXP), or
[All/Center/Dynamic/Extents/Previous/Scale/Window] <real time>: S
Enter a scale factor (nX or nXP): .5x
Command: -attedit
Edit attributes one at a time? [Yes/No] <Y>: Y
Enter block name specification <*>: *
Enter attribute tag specification <*>: *
Enter attribute value specification <*>: * Select Attributes: l 1 found

1 attributes selected.
Enter an option [Value/Position/Height/Angle/Style/Layer/Color/Next] <N>: P
Specify new text insertion point <no change>:
Enter an option [Value/Position/Height/Angle/Style/Layer/Color/Next] <N>:
Command: -insert Enter block name or [?] <o>: o_.dwg Substituting [simplex.shx] 
for [cyril1w.shx].
Specify insertion point or [Scale/X/Y/Z/Rotate/PScale/PX/PY/PZ/PRotate]:
Enter X scale factor, specify opposite corner, or [Corner/XYZ] <1>: 
0.250000000000000 Enter Y scale factor <use X scale factor>: Specify rotation 
angle <0d0'0">: 0
Command: DIMZIN
Enter new value for DIMZIN <1>: 0
Command: -insert Enter block name or [?] <o_>: o.dwg Specify insertion point or 
[Scale/X/Y/Z/Rotate/PScale/PX/PY/PZ/PRotate]:
Enter X scale factor, specify opposite corner, or [Corner/XYZ] <1>: 
0.250000000000000 Enter Y scale factor <use X scale factor>: Specify rotation 
angle <0d0'0">: 0
Enter attribute values
o <o>: 3
Command: _zoom
Specify corner of window, enter a scale factor (nX or nXP), or
[All/Center/Dynamic/Extents/Previous/Scale/Window] <real time>:
Specify opposite corner:
Command: _zoom
Specify corner of window, enter a scale factor (nX or nXP), or
[All/Center/Dynamic/Extents/Previous/Scale/Window] <real time>: S
Enter a scale factor (nX or nXP): .5x
Command: -attedit
Edit attributes one at a time? [Yes/No] <Y>: Y
Enter block name specification <*>: *
Enter attribute tag specification <*>: *
Enter attribute value specification <*>: * Select Attributes: l 1 found

1 attributes selected.
Enter an option [Value/Position/Height/Angle/Style/Layer/Color/Next] <N>: P
Specify new text insertion point <no change>:
Enter an option [Value/Position/Height/Angle/Style/Layer/Color/Next] <N>:
Command: -insert Enter block name or [?] <o>: o_.dwg Specify insertion point or 
[Scale/X/Y/Z/Rotate/PScale/PX/PY/PZ/PRotate]:
Enter X scale factor, specify opposite corner, or [Corner/XYZ] <1>: 
0.250000000000000 Enter Y scale factor <use X scale factor>: Specify rotation 
angle <0d0'0">: 0
Command: DIMZIN
Enter new value for DIMZIN <1>: 0
Command: -insert Enter block name or [?] <o_>: o.dwg Specify insertion point or 
[Scale/X/Y/Z/Rotate/PScale/PX/PY/PZ/PRotate]:
Enter X scale factor, specify opposite corner, or [Corner/XYZ] <1>: 
0.250000000000000 Enter Y scale factor <use X scale factor>: Specify rotation 
angle <0d0'0">: 0
Enter attribute values
o <o>: 4
Command: _zoom
Specify corner of window, enter a scale factor (nX or nXP), or
[All/Center/Dynamic/Extents/Previous/Scale/Window] <real time>:
Specify opposite corner:
Command: _zoom
Specify corner of window, enter a scale factor (nX or nXP), or
[All/Center/Dynamic/Extents/Previous/Scale/Window] <real time>: S
Enter a scale factor (nX or nXP): .5x
Command: -attedit
Edit attributes one at a time? [Yes/No] <Y>: Y
Enter block name specification <*>: *
Enter attribute tag specification <*>: *
Enter attribute value specification <*>: * Select Attributes: l 1 found

1 attributes selected.
Enter an option [Value/Position/Height/Angle/Style/Layer/Color/Next] <N>: P
Specify new text insertion point <no change>:
Enter an option [Value/Position/Height/Angle/Style/Layer/Color/Next] <N>:
Command: -insert Enter block name or [?] <o>: o_.dwg Specify insertion point or 
[Scale/X/Y/Z/Rotate/PScale/PX/PY/PZ/PRotate]:
Enter X scale factor, specify opposite corner, or [Corner/XYZ] <1>: 
0.250000000000000 Enter Y scale factor <use X scale factor>: Specify rotation 
angle <0d0'0">: 0
Command: DIMZIN
Enter new value for DIMZIN <1>: 0
Command: -insert Enter block name or [?] <o_>: o.dwg Specify insertion point or 
[Scale/X/Y/Z/Rotate/PScale/PX/PY/PZ/PRotate]:
Enter X scale factor, specify opposite corner, or [Corner/XYZ] <1>: 
0.250000000000000 Enter Y scale factor <use X scale factor>: Specify rotation 
angle <0d0'0">: 0
Enter attribute values
o <o>: 5
Command: _zoom
Specify corner of window, enter a scale factor (nX or nXP), or
[All/Center/Dynamic/Extents/Previous/Scale/Window] <real time>:
Specify opposite corner:
Command: _zoom
Specify corner of window, enter a scale factor (nX or nXP), or
[All/Center/Dynamic/Extents/Previous/Scale/Window] <real time>: S
Enter a scale factor (nX or nXP): .5x
Command: -attedit
Edit attributes one at a time? [Yes/No] <Y>: Y
Enter block name specification <*>: *
Enter attribute tag specification <*>: *
Enter attribute value specification <*>: * Select Attributes: l 1 found

1 attributes selected.
Enter an option [Value/Position/Height/Angle/Style/Layer/Color/Next] <N>: P
Specify new text insertion point <no change>:
Enter an option [Value/Position/Height/Angle/Style/Layer/Color/Next] <N>:
Command: -insert Enter block name or [?] <o>: o_.dwg Specify insertion point or 
[Scale/X/Y/Z/Rotate/PScale/PX/PY/PZ/PRotate]:
Enter X scale factor, specify opposite corner, or [Corner/XYZ] <1>: 
0.250000000000000 Enter Y scale factor <use X scale factor>: Specify rotation 
angle <0d0'0">: 0
Command: -insert Enter block name or [?] <o_>: o.dwg Specify insertion point or 
[Scale/X/Y/Z/Rotate/PScale/PX/PY/PZ/PRotate]:
Enter X scale factor, specify opposite corner, or [Corner/XYZ] <1>: 
0.250000000000000 Enter Y scale factor <use X scale factor>: Specify rotation 
angle <0d0'0">: 0
Enter attribute values
o <o>: 6
Command: _zoom
Specify corner of window, enter a scale factor (nX or nXP), or
[All/Center/Dynamic/Extents/Previous/Scale/Window] <real time>:
Specify opposite corner:
Command: _zoom
Specify corner of window, enter a scale factor (nX or nXP), or
[All/Center/Dynamic/Extents/Previous/Scale/Window] <real time>: S
Enter a scale factor (nX or nXP): .5x
Command: -attedit
Edit attributes one at a time? [Yes/No] <Y>: Y
Enter block name specification <*>: *
Enter attribute tag specification <*>: *
Enter attribute value specification <*>: * Select Attributes: l 1 found

1 attributes selected.
Enter an option [Value/Position/Height/Angle/Style/Layer/Color/Next] <N>: P
Specify new text insertion point <no change>:
Enter an option [Value/Position/Height/Angle/Style/Layer/Color/Next] <N>:
Command: -insert Enter block name or [?] <o>: o_.dwg Specify insertion point or 
[Scale/X/Y/Z/Rotate/PScale/PX/PY/PZ/PRotate]:
Enter X scale factor, specify opposite corner, or [Corner/XYZ] <1>: 
0.250000000000000 Enter Y scale factor <use X scale factor>: Specify rotation 
angle <0d0'0">: 0
Command: -insert Enter block name or [?] <o_>: o.dwg Specify insertion point or 
[Scale/X/Y/Z/Rotate/PScale/PX/PY/PZ/PRotate]:
Enter X scale factor, specify opposite corner, or [Corner/XYZ] <1>: 
0.250000000000000 Enter Y scale factor <use X scale factor>: Specify rotation 
angle <0d0'0">: 0
Enter attribute values
o <o>: 1
Command: _zoom
Specify corner of window, enter a scale factor (nX or nXP), or
[All/Center/Dynamic/Extents/Previous/Scale/Window] <real time>:
Specify opposite corner:
Command: _zoom
Specify corner of window, enter a scale factor (nX or nXP), or
[All/Center/Dynamic/Extents/Previous/Scale/Window] <real time>: S
Enter a scale factor (nX or nXP): .5x
Command: -attedit
Edit attributes one at a time? [Yes/No] <Y>: Y
Enter block name specification <*>: *
Enter attribute tag specification <*>: *
Enter attribute value specification <*>: * Select Attributes: l 1 found

1 attributes selected.
Enter an option [Value/Position/Height/Angle/Style/Layer/Color/Next] <N>: P
Specify new text insertion point <no change>:
Enter an option [Value/Position/Height/Angle/Style/Layer/Color/Next] <N>:
Command: -insert Enter block name or [?] <o>: o_.dwg Specify insertion point or 
[Scale/X/Y/Z/Rotate/PScale/PX/PY/PZ/PRotate]:
Enter X scale factor, specify opposite corner, or [Corner/XYZ] <1>: 
0.250000000000000 Enter Y scale factor <use X scale factor>: Specify rotation 
angle <0d0'0">: 0
Command: -insert Enter block name or [?] <o_>: pn.dwg Substituting 
[simplex.shx] for [cyril1w.shx].
Specify insertion point or [Scale/X/Y/Z/Rotate/PScale/PX/PY/PZ/PRotate]:
Enter X scale factor, specify opposite corner, or [Corner/XYZ] <1>: 0.3 Enter Y 
scale factor <use X scale factor>: Specify rotation angle <0d0'0">: 0
Enter attribute values
po <n>: 1
Command: text
Current text style:  "arial"  Text height:  0.54
Specify start point of text or [Justify/Style]:
Specify height <0.54>: 1.5
Specify rotation angle of text <0d0'0">: 0
Enter text: 1767 кв.м.
Command: _insert Enter block name or [?] <pn>: krest.dwg Substituting 
[simplex.shx] for [cyril1w.shx].
Specify insertion point or [Scale/X/Y/Z/Rotate/PScale/PX/PY/PZ/PRotate]:
Enter X scale factor, specify opposite corner, or [Corner/XYZ] <1>: 1 Enter Y 
scale factor <use X scale factor>: Specify rotation angle <0d0'0">: 0
Enter attribute values
a <a>: 4250 b <b>: -21800
Command: _zoom
Specify corner of window, enter a scale factor (nX or nXP), or
[All/Center/Dynamic/Extents/Previous/Scale/Window] <real time>:
Specify opposite corner:
Command: nil
Последний раз редактировалось Кулик Алексей aka kpblc, 10.10.2012 в 14:02.
sid_geo вне форума  
 
Непрочитано 10.10.2012, 13:58
#9
Victor


 
Регистрация: 14.06.2009
Бат-Ям
Сообщений: 295

Русский автокад. Помочь не могу ввиду отсутствия присутствия.
Попрoбуйте добавить точки везде где command.
было (command "-layer" "n" "opi" "")
стало (command ".-layer" "n" "opi" "")
__________________
... а Автокад то - голый
Victor вне форума  
 
Непрочитано 10.10.2012, 14:01
#10
Кулик Алексей aka kpblc
Moderator

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

Этого недостаточно: Локализация и команды
P.S. И это только вторая ошибка.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 10.10.2012, 17:20
#11
sid_geo


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

Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
Этого недостаточно: Локализация и команды
P.S. И это только вторая ошибка.
Спасибо за совет. Внес изменения. Лисп заработал, но промеры лежат непосредственно на линиях, а не на небольшом отступе и в протоколе лиспа встречаются строки "Команда: Неизвестный размерный стиль." Вот сам протокол:
Код:
[Выделить все] 
Команда: (load "povorot")(povorot) _.-layer
Текущий слой:  "granitsa"
Задайте опцию [?/Создать/Установить/Новый/Вкл/Откл/Цвет/Тип линий/вЕс 
линий/Материал/пеЧать/Заморозить/Разморозить/Блок/рАзблок/Конфигурация]: _n
Имя нового слоя(ев): _opi Задайте опцию 
[?/Создать/Установить/Новый/Вкл/Откл/Цвет/Тип линий/вЕс 
линий/Материал/пеЧать/Заморозить/Разморозить/Блок/рАзблок/Конфигурация]:
Команда:
select pline
Варианты:1-Проект границ,2-Залитые,3-Незалитые,4-Выборочные <1>1

Неизвестный размерный стиль.

Неизвестный размерный стиль.
_.DIMZIN
Новое значение DIMZIN <1>: 0
Команда: _.-insert Имя блока или [?]: o.dwg Подстановка [simplex.shx] вместо 
[cyril1w.shx].

Единицы: Безразмерный   Преобразование:      1.00
Точка вставки или [Базовая точка/Масштаб/X/Y/Z/ПОворот]:
Введите масштаб по оси X, укажите второй угол или [Угол/XYZ] <1>: 
0.250000000000000 Масштаб по оси Y <равен масштабу по X>:
Угол поворота <0d0'0">: 0
Введите значения атрибутов
o <o>: 2
Команда: _.zoom
Укажите угол рамки, введите масштаб (nX или nXП), или
[Все/Центр/Динамика/Границы/Предыдущий/Масштаб/Рамка/Объект] <реальное время>:
Противоположный угол:
Команда: _.zoom
Укажите угол рамки, введите масштаб (nX или nXП), или
[Все/Центр/Динамика/Границы/Предыдущий/Масштаб/Рамка/Объект] <реальное время>: 
_S
Масштабный коэффициент (nX или nXП): .5x
Команда: _.-attedit
Редактировать атрибуты по одному? [Да/Нет] <Д>: _Y
Шаблон имени блока <*>: *
Шаблон имени атрибута <*>: *
Шаблон значения атрибута <*>: * Выберите атрибуты: _l 1 найдено

Выбрано атрибутов: 1.
Задайте опцию [Значение/Положение/Высота/Угол/сТиль/сЛой/Цвет/Следующий] <С>: _P
Новая точка вставки текста <не изменять>:
Задайте опцию [Значение/Положение/Высота/Угол/сТиль/сЛой/Цвет/Следующий] <С>:
Команда: _.-insert Имя блока или [?] <o>: o_.dwg Подстановка [simplex.shx] 
вместо [cyril1w.shx].

Единицы: Безразмерный   Преобразование:      1.00
Точка вставки или [Базовая точка/Масштаб/X/Y/Z/ПОворот]:
Введите масштаб по оси X, укажите второй угол или [Угол/XYZ] <1>: 
0.250000000000000 Масштаб по оси Y <равен масштабу по X>:
Угол поворота <0d0'0">: 0
Команда:
Неизвестный размерный стиль.

Неизвестный размерный стиль.
_.DIMZIN
Новое значение DIMZIN <0>: 0
Команда: _.-insert Имя блока или [?] <o_>: o.dwg
Единицы: Безразмерный   Преобразование:      1.00
Точка вставки или [Базовая точка/Масштаб/X/Y/Z/ПОворот]:
Введите масштаб по оси X, укажите второй угол или [Угол/XYZ] <1>: 
0.250000000000000 Масштаб по оси Y <равен масштабу по X>:
Угол поворота <0d0'0">: 0
Введите значения атрибутов
o <o>: 3
Команда: _.zoom
Укажите угол рамки, введите масштаб (nX или nXП), или
[Все/Центр/Динамика/Границы/Предыдущий/Масштаб/Рамка/Объект] <реальное время>:
Противоположный угол:
Команда: _.zoom
Укажите угол рамки, введите масштаб (nX или nXП), или
[Все/Центр/Динамика/Границы/Предыдущий/Масштаб/Рамка/Объект] <реальное время>: 
_S
Масштабный коэффициент (nX или nXП): .5x
Команда: _.-attedit
Редактировать атрибуты по одному? [Да/Нет] <Д>: _Y
Шаблон имени блока <*>: *
Шаблон имени атрибута <*>: *
Шаблон значения атрибута <*>: * Выберите атрибуты: _l 1 найдено

Выбрано атрибутов: 1.
Задайте опцию [Значение/Положение/Высота/Угол/сТиль/сЛой/Цвет/Следующий] <С>: _P
Новая точка вставки текста <не изменять>:
Задайте опцию [Значение/Положение/Высота/Угол/сТиль/сЛой/Цвет/Следующий] <С>:
Команда: _.-insert Имя блока или [?] <o>: o_.dwg
Единицы: Безразмерный   Преобразование:      1.00
Точка вставки или [Базовая точка/Масштаб/X/Y/Z/ПОворот]:
Введите масштаб по оси X, укажите второй угол или [Угол/XYZ] <1>: 
0.250000000000000 Масштаб по оси Y <равен масштабу по X>:
Угол поворота <0d0'0">: 0
Команда:
Неизвестный размерный стиль.

Неизвестный размерный стиль.
_.DIMZIN
Новое значение DIMZIN <0>: 0
Команда: _.-insert Имя блока или [?] <o_>: o.dwg
Единицы: Безразмерный   Преобразование:      1.00
Точка вставки или [Базовая точка/Масштаб/X/Y/Z/ПОворот]:
Введите масштаб по оси X, укажите второй угол или [Угол/XYZ] <1>: 
0.250000000000000 Масштаб по оси Y <равен масштабу по X>:
Угол поворота <0d0'0">: 0
Введите значения атрибутов
o <o>: 4
Команда: _.zoom
Укажите угол рамки, введите масштаб (nX или nXП), или
[Все/Центр/Динамика/Границы/Предыдущий/Масштаб/Рамка/Объект] <реальное время>:
Противоположный угол:
Команда: _.zoom
Укажите угол рамки, введите масштаб (nX или nXП), или
[Все/Центр/Динамика/Границы/Предыдущий/Масштаб/Рамка/Объект] <реальное время>: 
_S
Масштабный коэффициент (nX или nXП): .5x
Команда: _.-attedit
Редактировать атрибуты по одному? [Да/Нет] <Д>: _Y
Шаблон имени блока <*>: *
Шаблон имени атрибута <*>: *
Шаблон значения атрибута <*>: * Выберите атрибуты: _l 1 найдено

Выбрано атрибутов: 1.
Задайте опцию [Значение/Положение/Высота/Угол/сТиль/сЛой/Цвет/Следующий] <С>: _P
Новая точка вставки текста <не изменять>:
Задайте опцию [Значение/Положение/Высота/Угол/сТиль/сЛой/Цвет/Следующий] <С>:
Команда: _.-insert Имя блока или [?] <o>: o_.dwg
Единицы: Безразмерный   Преобразование:      1.00
Точка вставки или [Базовая точка/Масштаб/X/Y/Z/ПОворот]:
Введите масштаб по оси X, укажите второй угол или [Угол/XYZ] <1>: 
0.250000000000000 Масштаб по оси Y <равен масштабу по X>:
Угол поворота <0d0'0">: 0
Команда:
Неизвестный размерный стиль.

Неизвестный размерный стиль.
_.DIMZIN
Новое значение DIMZIN <0>: 0
Команда: _.-insert Имя блока или [?] <o_>: o.dwg
Единицы: Безразмерный   Преобразование:      1.00
Точка вставки или [Базовая точка/Масштаб/X/Y/Z/ПОворот]:
Введите масштаб по оси X, укажите второй угол или [Угол/XYZ] <1>: 
0.250000000000000 Масштаб по оси Y <равен масштабу по X>:
Угол поворота <0d0'0">: 0
Введите значения атрибутов
o <o>: 5
Команда: _.zoom
Укажите угол рамки, введите масштаб (nX или nXП), или
[Все/Центр/Динамика/Границы/Предыдущий/Масштаб/Рамка/Объект] <реальное время>:
Противоположный угол:
Команда: _.zoom
Укажите угол рамки, введите масштаб (nX или nXП), или
[Все/Центр/Динамика/Границы/Предыдущий/Масштаб/Рамка/Объект] <реальное время>: 
_S
Масштабный коэффициент (nX или nXП): .5x
Команда: _.-attedit
Редактировать атрибуты по одному? [Да/Нет] <Д>: _Y
Шаблон имени блока <*>: *
Шаблон имени атрибута <*>: *
Шаблон значения атрибута <*>: * Выберите атрибуты: _l 1 найдено

Выбрано атрибутов: 1.
Задайте опцию [Значение/Положение/Высота/Угол/сТиль/сЛой/Цвет/Следующий] <С>: _P
Новая точка вставки текста <не изменять>:
Задайте опцию [Значение/Положение/Высота/Угол/сТиль/сЛой/Цвет/Следующий] <С>:
Команда: _.-insert Имя блока или [?] <o>: o_.dwg
Единицы: Безразмерный   Преобразование:      1.00
Точка вставки или [Базовая точка/Масштаб/X/Y/Z/ПОворот]:
Введите масштаб по оси X, укажите второй угол или [Угол/XYZ] <1>: 
0.250000000000000 Масштаб по оси Y <равен масштабу по X>:
Угол поворота <0d0'0">: 0
Команда:
Неизвестный размерный стиль.
_.-insert Имя блока или [?] <o_>: o.dwg
Единицы: Безразмерный   Преобразование:      1.00
Точка вставки или [Базовая точка/Масштаб/X/Y/Z/ПОворот]:
Введите масштаб по оси X, укажите второй угол или [Угол/XYZ] <1>: 
0.250000000000000 Масштаб по оси Y <равен масштабу по X>:
Угол поворота <0d0'0">: 0
Введите значения атрибутов
o <o>: 6
Команда: _.zoom
Укажите угол рамки, введите масштаб (nX или nXП), или
[Все/Центр/Динамика/Границы/Предыдущий/Масштаб/Рамка/Объект] <реальное время>:
Противоположный угол:
Команда: _.zoom
Укажите угол рамки, введите масштаб (nX или nXП), или
[Все/Центр/Динамика/Границы/Предыдущий/Масштаб/Рамка/Объект] <реальное время>: 
_S
Масштабный коэффициент (nX или nXП): .5x
Команда: _.-attedit
Редактировать атрибуты по одному? [Да/Нет] <Д>: _Y
Шаблон имени блока <*>: *
Шаблон имени атрибута <*>: *
Шаблон значения атрибута <*>: * Выберите атрибуты: _l 1 найдено

Выбрано атрибутов: 1.
Задайте опцию [Значение/Положение/Высота/Угол/сТиль/сЛой/Цвет/Следующий] <С>: _P
Новая точка вставки текста <не изменять>:
Задайте опцию [Значение/Положение/Высота/Угол/сТиль/сЛой/Цвет/Следующий] <С>:
Команда: _.-insert Имя блока или [?] <o>: o_.dwg
Единицы: Безразмерный   Преобразование:      1.00
Точка вставки или [Базовая точка/Масштаб/X/Y/Z/ПОворот]:
Введите масштаб по оси X, укажите второй угол или [Угол/XYZ] <1>: 
0.250000000000000 Масштаб по оси Y <равен масштабу по X>:
Угол поворота <0d0'0">: 0
Команда:
Неизвестный размерный стиль.
_.-insert Имя блока или [?] <o_>: o.dwg
Единицы: Безразмерный   Преобразование:      1.00
Точка вставки или [Базовая точка/Масштаб/X/Y/Z/ПОворот]:
Введите масштаб по оси X, укажите второй угол или [Угол/XYZ] <1>: 
0.250000000000000 Масштаб по оси Y <равен масштабу по X>:
Угол поворота <0d0'0">: 0
Введите значения атрибутов
o <o>: 1
Команда: _.zoom
Укажите угол рамки, введите масштаб (nX или nXП), или
[Все/Центр/Динамика/Границы/Предыдущий/Масштаб/Рамка/Объект] <реальное время>:
Противоположный угол:
Команда: _.zoom
Укажите угол рамки, введите масштаб (nX или nXП), или
[Все/Центр/Динамика/Границы/Предыдущий/Масштаб/Рамка/Объект] <реальное время>: 
_S
Масштабный коэффициент (nX или nXП): .5x
Команда: _.-attedit
Редактировать атрибуты по одному? [Да/Нет] <Д>: _Y
Шаблон имени блока <*>: *
Шаблон имени атрибута <*>: *
Шаблон значения атрибута <*>: * Выберите атрибуты: _l 1 найдено

Выбрано атрибутов: 1.
Задайте опцию [Значение/Положение/Высота/Угол/сТиль/сЛой/Цвет/Следующий] <С>: _P
Новая точка вставки текста <не изменять>:
Задайте опцию [Значение/Положение/Высота/Угол/сТиль/сЛой/Цвет/Следующий] <С>:
Команда: _.-insert Имя блока или [?] <o>: o_.dwg
Единицы: Безразмерный   Преобразование:      1.00
Точка вставки или [Базовая точка/Масштаб/X/Y/Z/ПОворот]:
Введите масштаб по оси X, укажите второй угол или [Угол/XYZ] <1>: 
0.250000000000000 Масштаб по оси Y <равен масштабу по X>:
Угол поворота <0d0'0">: 0
Команда: _.-insert Имя блока или [?] <o_>: pn.dwg Подстановка [simplex.shx] 
вместо [cyril1w.shx].

Единицы: Безразмерный   Преобразование:      1.00
Точка вставки или [Базовая точка/Масштаб/X/Y/Z/ПОворот]:
Введите масштаб по оси X, укажите второй угол или [Угол/XYZ] <1>: 0.3 Масштаб 
по оси Y <равен масштабу по X>:
Угол поворота <0d0'0">: 0
Введите значения атрибутов
po <n>: 1
Команда: _.-text
Текущий текстовый стиль:  "arial"  Высота текста:  0.54  Аннотативный:  Нет
Начальная точка текста или [Выравнивание/Стиль]:
Высота <0.54>: 1.5
Угол поворота текста <0d0'0">: 0
Введите текст: 1767 кв.м.
Команда: _.-insert Имя блока или [?] <pn>: krest.dwg Подстановка [simplex.shx] 
вместо [cyril1w.shx].

Единицы: Безразмерный   Преобразование:         1
Точка вставки или [Базовая точка/Масштаб/X/Y/Z/ПОворот]:
Введите масштаб по оси X, укажите второй угол или [Угол/XYZ] <1>: 1 Масштаб по 
оси Y <равен масштабу по X>:
Угол поворота <0d0'0">: 0
Введите значения атрибутов
a <a>: 4250 b <b>: -21800
Команда: _.zoom
Укажите угол рамки, введите масштаб (nX или nXП), или
[Все/Центр/Динамика/Границы/Предыдущий/Масштаб/Рамка/Объект] <реальное время>:
Противоположный угол:
Команда: nil
Если не трудно подскажите оставшиеся ошибки.
Последний раз редактировалось sid_geo, 10.10.2012 в 17:29.
sid_geo вне форума  
 
Непрочитано 10.10.2012, 23:23
#12
Александр Ривилис

программист, рыцарь ObjectARX
 
Регистрация: 09.05.2005
Киев
Сообщений: 2,408
Отправить сообщение для Александр Ривилис с помощью Skype™

Убери пока строки с
Код:
[Выделить все] 
 (setvar "cmdecho" 0)
Это позволит увидеть протокол полностью. Ну и покажи какие изменения уже внёс (исправленный текст).
Судя по всему не определены размерные стили Promer Above и Promer Outside
Александр Ривилис вне форума  
 
Непрочитано 10.10.2012, 23:25
#13
Кулик Алексей aka kpblc
Moderator

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

Не определены, брать их неоткуда; плюс настройки текстового стиля - тоже возможная причина проблем.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 11.10.2012, 11:20
#14
sid_geo


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

Разобрался - вроде все работает. Спасибо всем за помощь.
sid_geo вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > lisp из autocad 2004 некорректно выполняется в autocad 2008

Размещение рекламы

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ATABLE для autocad 2008 casaatik AutoCAD 181 07.03.2014 15:41
AutoCAD 2008, Функция "Последние Файлы" никак не хочет работать Fredyk AutoCAD 4 05.07.2012 08:35
Lisp. Как адаптировать под AutoCAD 2010 программу, заточеную для AutoCad 2004? byackafoot LISP 25 30.09.2011 08:08
AutoCAD 2008 vs Autocad 2008 LT (_imageattach) svlc AutoCAD 8 19.02.2009 14:55
AutoCad 2004 RUS или AutoCad LT 2004 RUS DEN AutoCAD 7 23.01.2004 22:23

Обратная связь - Вверх