^C^C_Tedit-Пример из книги Владимира Света "Язык макрок

19.06.2007, 14:27

Добрый день.Попытался создать новую кнопку используя макрос-^C^C_Tedit.Данная опереация приведена в качестве примера в книге Владимира Света "AutoCAD Язык макрокоманд и создание кнопок".При попытке редактирования текста в командной строке выдаётся ответ "Неизвестная команда "TEDIT".
Программа AutoCAD 2006 русская версия.
В чём причина?

ASLYS · 19.06.2007, 14:36

^C^C_ddedit
^C^C_mtedit

Кулик Алексей aka kpblc · 19.06.2007, 14:41

Вот что сказал 2005 Eng:

Цитата:

Command: _tedit

Initializing...

File 'tedit.lsp' could not be found.
The specified command is not installed.
To get the very latest versions of all Express Tools, visit the
Express Tools page on the Autodesk web site at:
http://www.autodesk.com/expresstools

Команда исключена из комплекта ET, как я понял.

19.06.2007, 14:48

Цитата:

Сообщение от ASLYS

^C^C_ddedit
^C^C_mtedit

Как предлагается в книге:
"...Есть команда (универсальная команда) Edit any text (моя ред. ^C^C_Tedit),которая редактирует любой текст-однострочный,многострочный,атрибут,текст размеров.Она заменяет собой две стандартные команды AutoCAD:Edit Text (Ddedit) и Edit Attribute (Eattedit). ..."

19.06.2007, 15:01

->Кулик Алексей aka kpblc
Спасибо.
Особенно за перевод.

.

Кулик Алексей aka kpblc · 19.06.2007, 15:03

А номер страницы не подскажешь? Я что-то не нашел так напрямую...
P.S. Ну ладно издеваться-то... [sm2702]

ASLYS · 19.06.2007, 15:24

все-таки попробуй _ddedit

19.06.2007, 15:26

Цитата:

Сообщение от Кулик Алексей aka kpblc

А номер страницы не подскажешь? Я что-то не нашел так напрямую...
P.S. Ну ладно издеваться-то... [sm2702]

Самое начало.Я только собрался изучать LISP.

.Стр.12
Ты мне рекомендовал начать с книги В.Света.
В англ. я действительно только со словарём.

19.06.2007, 15:27

19.06.2007, 15:51

Цитата:

Сообщение от ASLYS

все-таки попробуй _ddedit

Кстати да. [sm200]
Заработало.

Vova · 19.06.2007, 20:56

Книга писалась под 2002. В 2004 команда tedit так-же была. Затем ее не стало. Но tedit гораздо удобней, чем Ddedit. Она позволяет населектировать все, а затем появляется собственно редактор. Поэтому я делаю так: http://www.autocad.ru/cgi-bin/f1/board.cgi?t=36377rG

PL · Регистрация: 23.11.2006

Цитата:

Сообщение от Владимир Егорьев

"Неизвестная команда "TEDIT".

Если нет возможности найти оригинальный tedit (а я когда книжку читал не нашел), здесь код его заменяющий.
Положи фаил в папку которую автокад видит, лучше создать свою папку, например “егорьев-support”
Код на кнопку будет:
^C^C(load "tedit");tedit
Только для такой часто используемой команды по моему зря кнопку заводить, лучше с клавиатуры набрать что-то вроде DD или как то так :roll: .
[ATTACH]1182357110.zip[/ATTACH]

Vova · 21.06.2007, 06:46

Вот оригинальный TEDIT:

Код:

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

;;
;;  tedit.lsp - generic text editing
;;
;;  Copyright © 1999 by Autodesk, Inc.
;;
;;  Your use of this software is governed by the terms and conditions of the
;;  License Agreement you accepted prior to installation of this software.
;;  Please note that pursuant to the License Agreement for this software,
;;  "[c]opying of this computer program or its documentation except as
;;  permitted by this License is copyright infringement under the laws of
;;  your country.  If you copy this computer program without permission of
;;  Autodesk, you are violating the law."
;;
;;  AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.
;;  AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
;;  MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE.  AUTODESK, INC.
;;  DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
;;  UNINTERRUPTED OR ERROR FREE.
;;
;;  Use, duplication, or disclosure by the U.S. Government is subject to
;;  restrictions set forth in FAR 52.227-19 (Commercial Computer
;;  Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii)
;;  (Rights in Technical Data and Computer Software), as applicable.
;;
;;  ----------------------------------------------------------------
;;
;;  DESCRIPTION
;;  The TEDIT command provides a single command for editing all 
;;  forms of annotation objects.
;;
;;  ----------------------------------------------------------------
 
(defun C:TEDIT (/ noll filter ss idx ename elist kind)
  ;;  remove objects on locked layers from ss
  (defun noll (ss / i d ename)
    (setq i 0
          d 0 )
    (while (and ss
                (setq ename (ssname ss i)) )
      (if (acet-layer-locked (cdr (assoc 8 (entget ename))))
        (progn
          (ssdel ename ss)
          (setq d (1+ d))
        )
        (setq i (1+ i))
      )
    )
    (if (/= 0 d)
      (princ (acet-str-format "%1 %2 on a locked layer.\n"
                              d
                              (if (< 1 d) "were" "was") ) )
    )
    ss
  )
 
  (acet-error-init '(("CMDECHO" 0) T))
 
  ;;  make object filter
  (setq filter (list
        (cons 410 (if (and (= 0 (getvar "TILEMODE"))
                           (/= 1 (getvar "CVPORT")) )
                    "Model"
                    (getvar "CTAB") ) )
        '(-4 . "<OR")
          '(0 . "TEXT,MTEXT,RTEXT,ARCALIGNEDTEXT,DIMENSION,ATTDEF")
          '(-4 . "<AND")
            '(0 . "INSERT")
            '(66 . 1)
          '(-4 . "AND>")
        '(-4 . "OR>") ) )
 
  ;;  pick objects
  (if (not (and (= 1 (logand 1 (getvar "PICKFIRST")))
                (setq ss (noll (ssget "_I" filter))) ) )
    (setq ss (ssget "_:L" filter))
  )
 
  ;;  process ss
  (if ss
    (progn
      (setq idx -1)
      (acet-ui-progress "Editing:" (sslength ss))
      (sssetfirst)
      (redraw)
      (while (setq ename (ssname ss (setq idx (1+ idx))))
      (redraw ename 3)
      (redraw)
        (setq elist (entget ename)
              kind (cdr (assoc 0 elist)) )
        (cond
          ((or (= kind "TEXT")
               (= kind "MTEXT")
               (= kind "DIMENSION")
               (= kind "ATTDEF") )
            (command "_.DDEDIT" ename "") )
          ((= kind "INSERT")
            (command "_.DDATTE" ename) )
          ((= kind "ARCALIGNEDTEXT")
            (command "_.ARCTEXT" ename) )
          ((= kind "RTEXT")
            (if (or (= 'USUBR AcetRText:edit) (load "rtext" nil))
              (AcetRText:edit elist)
              (princ "TEDIT: Cannot edit RTEXT objects.\n")
            )
          )
        )
        (entupd ename)
        (redraw ename 4)
        (acet-ui-progress -1)
      )
      (acet-ui-progress)
      (sssetfirst nil ss)
    )
  )
 
  (acet-error-restore)
  (princ)
)


(acet-autoload2	'("Rtext.lsp"	(AcetRText:edit ent)))
(princ)

Krieger · 21.06.2007, 08:25

Vova
А ведь я говорил, - переписывать книжку пора.

kserg · 13.06.2016, 08:31

Добавлены мультивыноски

Код:

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

 ;;
;;  tedit.lsp - generic text editing
;;
;;  Copyright © 1999 by Autodesk, Inc.
;;
;;  Your use of this software is governed by the terms and conditions of the
;;  License Agreement you accepted prior to installation of this software.
;;  Please note that pursuant to the License Agreement for this software,
;;  "[c]opying of this computer program or its documentation except as
;;  permitted by this License is copyright infringement under the laws of
;;  your country.  If you copy this computer program without permission of
;;  Autodesk, you are violating the law."
;;
;;  AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.
;;  AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
;;  MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE.  AUTODESK, INC.
;;  DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
;;  UNINTERRUPTED OR ERROR FREE.
;;
;;  Use, duplication, or disclosure by the U.S. Government is subject to
;;  restrictions set forth in FAR 52.227-19 (Commercial Computer
;;  Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii)
;;  (Rights in Technical Data and Computer Software), as applicable.
;;
;;  ----------------------------------------------------------------
;;
;;  DESCRIPTION
;;  The TEDIT command provides a single command for editing all 
;;  forms of annotation objects.
;;
;;  ----------------------------------------------------------------
 
(defun C:TEDIT0 (/ noll filter ss idx ename elist kind)
  ;;  remove objects on locked layers from ss
  (defun noll (ss / i d ename)
    (setq i 0
          d 0 )
    (while (and ss
                (setq ename (ssname ss i)) )
      (if (acet-layer-locked (cdr (assoc 8 (entget ename))))
        (progn
          (ssdel ename ss)
          (setq d (1+ d))
        )
        (setq i (1+ i))
      )
    )
    (if (/= 0 d)
      (princ (acet-str-format "%1 %2 on a locked layer.\n"
                              d
                              (if (< 1 d) "were" "was") ) )
    )
    ss
  )
 
  (acet-error-init '(("CMDECHO" 0) T))
 
  ;;  make object filter
  (setq filter (list
        (cons 410 (if (and (= 0 (getvar "TILEMODE"))
                           (/= 1 (getvar "CVPORT")) )
                    "Model"
                    (getvar "CTAB") ) )
        '(-4 . "<OR")
          '(0 . "TEXT,MTEXT,RTEXT,ARCALIGNEDTEXT,DIMENSION,ATTDEF,MULTILEADER")
          '(-4 . "<AND")
            '(0 . "INSERT")
            '(66 . 1)
          '(-4 . "AND>")
        '(-4 . "OR>") ) )
 
  ;;  pick objects
  (if (not (and (= 1 (logand 1 (getvar "PICKFIRST")))
                (setq ss (noll (ssget "_I" filter))) ) )
    (setq ss (ssget "_:L" filter))
  )
 
  ;;  process ss
  (if ss
    (progn
      (setq idx -1)
      (acet-ui-progress "Editing:" (sslength ss))
      (sssetfirst)
      (redraw)
      (while (setq ename (ssname ss (setq idx (1+ idx))))
      (redraw ename 3)
      (redraw)
        (setq elist (entget ename)
              kind (cdr (assoc 0 elist)) )
        (cond
          ((or (= kind "TEXT")
               (= kind "MTEXT")
               (= kind "DIMENSION")
               (= kind "MULTILEADER")
               (= kind "ATTDEF") )
            (command "_.DDEDIT" ename "") )
          ((= kind "INSERT")
            (command "_.DDATTE" ename) )
          ((= kind "ARCALIGNEDTEXT")
            (command "_.ARCTEXT" ename) )
          ((= kind "RTEXT")
            (if (or (= 'USUBR AcetRText:edit) (load "rtext" nil))
              (AcetRText:edit elist)
              (princ "TEDIT: Cannot edit RTEXT objects.\n")
            )
          )
        )
        (entupd ename)
        (redraw ename 4)
        (acet-ui-progress -1)
      )
      (acet-ui-progress)
      (sssetfirst nil ss)
    )
  )
 
  (acet-error-restore)
  (princ)
)


(acet-autoload2	'("Rtext.lsp"	(AcetRText:edit ent)))
(princ)

Agnilebannen · 13.06.2016, 11:10

Воу некропостинг.
В 2015 и в 2016 "_.DDEDIT" уже тоже не работает, и его надо заменять на "_.multiple" "_.textedit". Типа вот так:

Код:

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

 ;;
;;  tedit.lsp - generic text editing
;;
;;  Copyright © 1999 by Autodesk, Inc.
;;
;;  Your use of this software is governed by the terms and conditions of the
;;  License Agreement you accepted prior to installation of this software.
;;  Please note that pursuant to the License Agreement for this software,
;;  "[c]opying of this computer program or its documentation except as
;;  permitted by this License is copyright infringement under the laws of
;;  your country.  If you copy this computer program without permission of
;;  Autodesk, you are violating the law."
;;
;;  AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.
;;  AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
;;  MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE.  AUTODESK, INC.
;;  DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
;;  UNINTERRUPTED OR ERROR FREE.
;;
;;  Use, duplication, or disclosure by the U.S. Government is subject to
;;  restrictions set forth in FAR 52.227-19 (Commercial Computer
;;  Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii)
;;  (Rights in Technical Data and Computer Software), as applicable.
;;
;;  ----------------------------------------------------------------
;;
;;  DESCRIPTION
;;  The TEDIT command provides a single command for editing all 
;;  forms of annotation objects.
;;
;;  ----------------------------------------------------------------
 
(defun C:TEDIT (/ noll filter ss idx ename elist kind)
  ;;  remove objects on locked layers from ss
  (defun noll (ss / i d ename)
    (setq i 0
          d 0 )
    (while (and ss
                (setq ename (ssname ss i)) )
      (if (acet-layer-locked (cdr (assoc 8 (entget ename))))
        (progn
          (ssdel ename ss)
          (setq d (1+ d))
        )
        (setq i (1+ i))
      )
    )
    (if (/= 0 d)
      (princ (acet-str-format "%1 %2 on a locked layer.\n"
                              d
                              (if (< 1 d) "were" "was") ) )
    )
    ss
  )
 
  (acet-error-init '(("CMDECHO" 0) T))
 
  ;;  make object filter
  (setq filter (list
        (cons 410 (if (and (= 0 (getvar "TILEMODE"))
                           (/= 1 (getvar "CVPORT")) )
                    "Model"
                    (getvar "CTAB") ) )
        '(-4 . "<OR")
          '(0 . "TEXT,MTEXT,RTEXT,ARCALIGNEDTEXT,DIMENSION,ATTDEF,MULTILEADER")
          '(-4 . "<AND")
            '(0 . "INSERT")
            '(66 . 1)
          '(-4 . "AND>")
        '(-4 . "OR>") ) )
 
  ;;  pick objects
  (if (not (and (= 1 (logand 1 (getvar "PICKFIRST")))
                (setq ss (noll (ssget "_I" filter))) ) )
    (setq ss (ssget "_:L" filter))
  )
 
  ;;  process ss
  (if ss
    (progn
      (setq idx -1)
      (acet-ui-progress "Editing:" (sslength ss))
      (sssetfirst)
      (redraw)
      (while (setq ename (ssname ss (setq idx (1+ idx))))
      (redraw ename 3)
      (redraw)
        (setq elist (entget ename)
              kind (cdr (assoc 0 elist)) )
        (cond
          ((or (= kind "TEXT")
               (= kind "MTEXT")
               (= kind "DIMENSION")
	       (= kind "MULTILEADER")
               (= kind "ATTDEF") )
            (command "_.multiple" "_.textedit" ename ""))
          ((= kind "INSERT")
            (command "_.DDATTE" ename) )
          ((= kind "ARCALIGNEDTEXT")
            (command "_.ARCTEXT" ename) )
          ((= kind "RTEXT")
            (if (or (= 'USUBR AcetRText:edit) (load "rtext" nil))
              (AcetRText:edit elist)
              (princ "TEDIT: Cannot edit RTEXT objects.\n")
            )
          )
        )
        (entupd ename)
        (redraw ename 4)
        (acet-ui-progress -1)
      )
      (acet-ui-progress)
      (sssetfirst nil ss)
    )
  )
 
  (acet-error-restore)
  (princ)
)


(acet-autoload2	'("Rtext.lsp"	(AcetRText:edit ent)))
(princ)

gomer · 13.06.2016, 13:06

А че по-человечески нельзя сделать с разбором версий и адекватными комментариями.
А то некоторые гуры рассказывают какой лисп кросплаферменноверсиенезависимый

kserg · 14.06.2016, 08:56

Цитата:

Сообщение от gomer

А че по-человечески нельзя сделать с разбором версий и адекватными комментариями.
А то некоторые гуры рассказывают какой лисп кросплаферменноверсиенезависимый

Комментирую пост #15:
1. мультивыноски - см. строки 065 и 094 кода в посте #15
2. версия - подправленная от ВОВы из поста #13
3. а до гурав нам еще кашлять и кашлять

(за кулисами - Гомеровский смех......

)

19.06.2007, 14:27		#1
^C^C_Tedit-Пример из книги Владимира Света "Язык макрок Владимир Егорьев Сообщений: n/a Добрый день.Попытался создать новую кнопку используя макрос-^C^C_Tedit.Данная опереация приведена в качестве примера в книге Владимира Света "AutoCAD Язык макрокоманд и создание кнопок".При попытке редактирования текста в командной строке выдаётся ответ "Неизвестная команда "TEDIT". Программа AutoCAD 2006 русская версия. В чём причина?
Просмотров: 8043