[getr]

Не поделится ли кто функциями из ruCAD'a - (ru-obj-undo-end) и (ru-obj-undo-begin), а то форум рукадовский не работает...спросить негде?

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

Если втупую:

Код:

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

(vla-startundomark (vla-get-activedocument (vlax-get-acad-object))); start-undo
(vla-endundomark (vla-get-activedocument (vlax-get-acad-object))); end-undo

В ruCAD'e, насколько я помню, указатель на активный документ вычисляется в момент старта, и потом просто не переопределяется.

[getr]

Щас попробую...

[getr]

К сожалению не прокатило...

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

Вот код из ruCAD'a книжной версии (надеюсь, ShaggyDoc на меня не обидится):
ru-obj-undo-begin.lsp:

Код:

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

;;; ************************************************************************
;;; * Компонент Интегрированной системы ruCAD
;;; *
;;; * Установка метки начала отката
;;; *
;;; * Copyright ©2004 ruCAD Group
;;; *		Сергей Зуев   (ShaggyDoc)
;;; *		Пётр Лоскутов (Alaspher)
;;; *		Николай Полещук
;;; * http://www.kurganobl.ru/cad
;;; * РАЗРЕШАЕТСЯ ИСПОЛЬЗОВАНИЕ В КОММЕРЧЕСКИХ ПРОГРАММНЫХ ПРОДУКТАХ
;;; * ТОЛЬКО ПРИ ПОСТАВКЕ ЧАСТЕЙ ПРОДУКТА, ИСПОЛЬЗУЮЩИХ НАСТОЯЩИЙ КОМПОНЕНТ,
;;; * С ИСХОДНЫМИ ТЕКСТАМИ
;;; *
;;; ************************************************************************


(defun ru-obj-undo-begin ()
    (vlax-invoke-method (ru-obj-get-active-document) 'StartUndoMark)
) ;_ end of defun

ru-obj-undo-end.lsp:

Код:

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

;;; ************************************************************************
;;; * Компонент Интегрированной системы ruCAD
;;; *
;;; * Установка метки конца отката
;;; *
;;; * Copyright ©2004 ruCAD Group
;;; *		Сергей Зуев   (ShaggyDoc)
;;; *		Пётр Лоскутов (Alaspher)
;;; *		Николай Полещук
;;; * http://www.kurganobl.ru/cad
;;; * РАЗРЕШАЕТСЯ ИСПОЛЬЗОВАНИЕ В КОММЕРЧЕСКИХ ПРОГРАММНЫХ ПРОДУКТАХ
;;; * ТОЛЬКО ПРИ ПОСТАВКЕ ЧАСТЕЙ ПРОДУКТА, ИСПОЛЬЗУЮЩИХ НАСТОЯЩИЙ КОМПОНЕНТ,
;;; * С ИСХОДНЫМИ ТЕКСТАМИ
;;; *
;;; ************************************************************************


(defun ru-obj-undo-end ()
    (vlax-invoke-method (ru-obj-get-active-document) 'EndUndoMark)
) ;_ end of defun

Те же действия. Абсолютно.

[ShaggyDoc]

Точно. Вариант Алексея - более "лисповский", использует функции. Второй вариант использует более универсальное обращение (но менее читабельное для Lisp). Результаты абсолютно одинаковы.

[getr]

Если не трудно прошу проверить где я ошибаюсь?Дело в том,что я скачал с инета книгу "Сергей Зуев, Н. Полещук САПР на базе AutoCAD",там в главе 25 на стр.821 заинтересовал меня листинг 25.5-"быстрое стирание".Я попытался сделать из него каманду для автокада,но почему-то не получается.Может где-то ошибка в моем тексте,так как качество текста книги,особенно листингов не очень хорошее.Правда вместо макроса из книги,чтобы не использовать функцию ru-app-load,за неимением таковой,- составил свой: ^C^C^P(if (= c:ru_rubber nil) (load "ru_rubber"));ru_rubber;
Да еще заменил в вышеуказанных функциях (ru-obj-get-active-document) на выражение (vla-get-activedocument (vlax-get-acad-object)) насколько я понял это то же самое.Ниже привожу листинг ru_rubber.lsp.

Код:

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

;;;*********************ru_rubber.lsp****************************
;;; Программа "Стирание ластиком"или "быстрое стирание"
;;; на основе листинга 25.5 из книги С. Зуева и Н. Полещук "САПР на базе AUTOCAD"
;;; Макрос для кнопки ^C^C^P(if (= c:ru_rubber nil) (load "ru_rubber"));ru_rubber; 
;;;
;;; ************************************************************************
;;; * Компонент Интегрированной системы ruCAD
;;; *
;;; * Установка метки начала отката
;;; *
;;; * Copyright ©2004 ruCAD Group
;;; *		Сергей Зуев   (ShaggyDoc)
;;; *		Пётр Лоскутов (Alaspher)
;;; *		Николай Полещук
;;; * http://www.kurganobl.ru/cad
;;; * РАЗРЕШАЕТСЯ ИСПОЛЬЗОВАНИЕ В КОММЕРЧЕСКИХ ПРОГРАММНЫХ ПРОДУКТАХ
;;; * ТОЛЬКО ПРИ ПОСТАВКЕ ЧАСТЕЙ ПРОДУКТА, ИСПОЛЬЗУЮЩИХ НАСТОЯЩИЙ КОМПОНЕНТ,
;;; * С ИСХОДНЫМИ ТЕКСТАМИ
;;; *
;;; ************************************************************************
(defun ru-obj-undo-begin ()
  (vlax-invoke-method
    (vla-get-activedocument (vlax-get-acad-object))
    'StartUndoMark
  )
) ;_ end of defun
;;; ************************************************************************
;;; * Компонент Интегрированной системы ruCAD
;;; *
;;; * Установка метки конца отката
;;; *
;;; * Copyright ©2004 ruCAD Group
;;; *		Сергей Зуев   (ShaggyDoc)
;;; *		Пётр Лоскутов (Alaspher)
;;; *		Николай Полещук
;;; * http://www.kurganobl.ru/cad
;;; * РАЗРЕШАЕТСЯ ИСПОЛЬЗОВАНИЕ В КОММЕРЧЕСКИХ ПРОГРАММНЫХ ПРОДУКТАХ
;;; * ТОЛЬКО ПРИ ПОСТАВКЕ ЧАСТЕЙ ПРОДУКТА, ИСПОЛЬЗУЮЩИХ НАСТОЯЩИЙ КОМПОНЕНТ,
;;; * С ИСХОДНЫМИ ТЕКСТАМИ
;;; *
;;; ************************************************************************
(defun ru-obj-undo-end ()
  (vlax-invoke-method
    (vla-get-activedocument (vlax-get-acad-object))
    'EndUndoMark
  )
) ;_ end of defun
***********************************
(defun START (/ key mode point selection *error*)
;;; Локальный обработчик ошибок
  (defun *error* (msg)
    (ru-obj-undo-end)
    (command "_.U")
    (princ "\пСтирание отменено\n.")
    (princ)
  ) ;_ end of defun

  (ru-obj-undo-begin)
  (setq	key 3
	mode т
  )
  (while (or (= key 3) (= key 5))
    (cond ((= key 3)
	   (princ
;;;Выхол показываем в виде результата действия по умолчанию, т. е. нажатия клавиши
;;;Enter. Фактически можно нажать любую клавишу, но не будем смущать "теток"
;;;двусмысленным предложением "Any key"

	     (if (setq mode (not mode))
	       "\пРежим ЛАСТИК (клик = приостановить стирание) <Выход>"
	       "\nУкажи точку для запуска режима ЛАСТИК <Выкод>"
	     )
	   )
	  )
	  ((not mode))
	  (Т
	   (if (setq selection (ssget (cadr point)))
	     (entdel (ssname selection 0))
	   ) ;_ end of if
	  )
    ) ;_ end of cond
    (setq key (car (setq point (grread Т 6 2))))
  ) ;_ end of while
  (princ "\nРабота команды завершена.")
  (ru-obj-undo-end)
  (princ)
) ;_ end of defun
**************************
(defun c:ru_rubber ()
  (START)
  (princ)
)

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

А надо было книгу покупать, а не скачивать Во-первых, код распознан неверно. Во-вторых, его тоже не помешает анализировать. Вот рабочий вариант:

Код:

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

;;; ************************************************************************
;;; * Компонент Интегрированной системы ruCAD
;;; *
;;; * Быстрое стирание объектов под курсором
;;; *
;;; * Copyright ©2004 ruCAD Group
;;; *		Сергей Зуев   (ShaggyDoc)
;;; *		Пётр Лоскутов (Alaspher)
;;; *		Николай Полещук
;;; * http://www.kurganobl.ru/cad
;;; * РАЗРЕШАЕТСЯ ИСПОЛЬЗОВАНИЕ В КОММЕРЧЕСКИХ ПРОГРАММНЫХ ПРОДУКТАХ
;;; * ТОЛЬКО ПРИ ПОСТАВКЕ ЧАСТЕЙ ПРОДУКТА, ИСПОЛЬЗУЮЩИХ НАСТОЯЩИЙ КОМПОНЕНТ,
;;; * С ИСХОДНЫМИ ТЕКСТАМИ
;;; *
;;; ************************************************************************

;;; * Компонент Интегрированной системы ruCAD
;;; *
;;; * Установка метки начала отката
;;; *
;;; * Copyright ©2004 ruCAD Group
;;; *		Сергей Зуев   (ShaggyDoc)
;;; *		Пётр Лоскутов (Alaspher)
;;; *		Николай Полещук
;;; * http://www.kurganobl.ru/cad
;;; * РАЗРЕШАЕТСЯ ИСПОЛЬЗОВАНИЕ В КОММЕРЧЕСКИХ ПРОГРАММНЫХ ПРОДУКТАХ
;;; * ТОЛЬКО ПРИ ПОСТАВКЕ ЧАСТЕЙ ПРОДУКТА, ИСПОЛЬЗУЮЩИХ НАСТОЯЩИЙ КОМПОНЕНТ,
;;; * С ИСХОДНЫМИ ТЕКСТАМИ
;;; *
;;; ************************************************************************
(defun ru-obj-undo-begin ()
  (vlax-invoke-method
    (vla-get-activedocument (vlax-get-acad-object))
    'startundomark
    ) ;_ end of vlax-invoke-method
  ) ;_ end of defun
;;; ************************************************************************
;;; * Компонент Интегрированной системы ruCAD
;;; *
;;; * Установка метки конца отката
;;; *
;;; * Copyright ©2004 ruCAD Group
;;; *		Сергей Зуев   (ShaggyDoc)
;;; *		Пётр Лоскутов (Alaspher)
;;; *		Николай Полещук
;;; * http://www.kurganobl.ru/cad
;;; * РАЗРЕШАЕТСЯ ИСПОЛЬЗОВАНИЕ В КОММЕРЧЕСКИХ ПРОГРАММНЫХ ПРОДУКТАХ
;;; * ТОЛЬКО ПРИ ПОСТАВКЕ ЧАСТЕЙ ПРОДУКТА, ИСПОЛЬЗУЮЩИХ НАСТОЯЩИЙ КОМПОНЕНТ,
;;; * С ИСХОДНЫМИ ТЕКСТАМИ
;;; *
;;; ************************************************************************
(defun ru-obj-undo-end ()
  (vlax-invoke-method
    (vla-get-activedocument (vlax-get-acad-object))
    'endundomark
    ) ;_ end of vlax-invoke-method
  ) ;_ end of defun

(defun start (/ key mode point selection *error*)
  (defun *error* (msg)
    (ru-obj-undo-end)
    (command "_.U")
    (princ "\nСтирание отменено\n")
    (princ)
    ) ;_ end of defun

  (ru-obj-undo-begin)
  (setq key 3
        mode t
        ) ;_ end of setq
  (while (or (= key 3) (= key 5))
    (cond ((= key 3)
           (princ
             (if (setq mode (not mode))
               "\nРежим ЛАСТИК (клик = приостановить стирание) <Выход>"
               "\nУкажи точку для запуска режима ЛАСТИК <Выход>"
               ) ;_ end of if
             ) ;_ end of princ
           )
          ((not mode))
          (t
           (if (setq selection (ssget (cadr point)))
             (entdel (ssname selection 0))
             ) ;_ end of if
           )
          ) ;_ end of cond
    (setq key (car (setq point (grread t 4 2))))
    ) ;_ end of while
  (princ "\nРабота команды завершена.")
  (ru-obj-undo-end)
  (princ)
  ) ;_ end of defun

(defun c:ru_rubber ()
  (start)
  (princ)
  ) ;_ end of defun

Как говорится, "найти 10 отличий" (хотя их меньше).

[getr]

Спасибо,Алексей!Заработало после перевода в нижний регистр некоторых выражений,не думал что ошибка может быть именно в этом.А книгу купить в нашей дыре не возможно.
А как загнать часть текста сообщения(например код) в рамку с ползунком?

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

Ну было бы желание, выкрутиться можно Например, через ozon.ru заказать или colibri.ru - неважно.
Кстати, дело не в том, что я перевел все в нижний регистр совсем не в этом.

А как загнать часть текста сообщения(например код) в рамку с ползунком?

Если я правильно догадался, то вопрос в применении тэгов [code] и [/code]

[getr]

Ну тогда скорей всего символ Т(true) был написан русской буквой.
А где [code] в торопях(трафик кончается) не увидел.

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

Можно просто вколачивать в быстрый ответ; или перейти в расширенный режим - там есть специальная кнопочка.

[getr]

Понял.Спасибо еще раз.