[dextron3]

Хотел узнать, существует ли данный макрос, а то обычный что то не подходит...

Код:

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

Command: (STARTAPP "C:/Program Files/Zapknijka/123.txt")
nil

[stas_org]

читай в acad.pgp, там можно на кнопку забиндить, только .txt должен быть в корне
акада.

[Makswell]

dextron3, попробуй так:

Код:

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

(startapp "Notepad" "C:\\Program Files\\Zapknijka\\123.txt")

[dextron3]

Makswell, спасибо!
но с кнопки он почему то не работает, если сразу всю строку копирую в командную то работает не могу понять в чем дело?


когда запускается доходит до С: и останавливается и дальше не в какую может что то в макросе кнопки дополнительно вставить?

[ShaggyDoc]

Сообщение от dextron3 Makswell, спасибо! но с кнопки он почему то не работает, если сразу всю строку копирую в командную то работает не могу понять в чем дело? когда запускается доходит до С: и останавливается и дальше не в какую может что то в макросе кнопки дополнительно вставить?

В макросе меню слэши - служебные символы. Надо записывать так:

Код:

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

(startapp "Notepad" (strcat "C:" (chr 92) "Program Files" (chr 92) "Zapknijka" (chr 92) "123.txt"))

[dextron3]

ShaggyDoc, СПОСИБО!

нужный макрос его можно использовать тупо как записная книжка , обычным ккопированием и вставкой!!!

[VVA]

Тогда предлагаю немного модифицированный вариант. Качаешь notepad++. Он позволяет запускать несколько документов и запоминать их при последующем вызове. Делаешь файлы КЖ.txt, КМ.txt и т.п. и получаешь нужные тебе закладки

*** Добавлено. Вставить из буфера обмена текст можно этим лиспом

Код:

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

;  ! ***************************************************************************
;; !                           Getclipboard
;; ! ***************************************************************************
;; ! Function : Return text string from clipboard
;; ! Argument : nil
;; ! Returns  : string
;; see http://www.theswamp.org/index.php?topic=21764.new
;; ! ****************************************************************************

(defun Getclipboard ( / htmlfile result)
(setq result
        (vlax-invoke
            (vlax-get
                (vlax-get
                    (setq htmlfile (vlax-create-object "htmlfile"))
                   'ParentWindow
                )
               'ClipBoardData
            )
           'GetData
            "Text"
        )
    )

    (vlax-release-object htmlfile)

    result
)
;;Insert TExt from Clipboard
(defun C:ITC ( / txt str pt tblobj row col tblset lst )
    (vl-load-com)
    (if
    (and
      (setq str (Getclipboard))
      (setq txt (entmakex
      (list
        (cons 0 "TEXT")
        (cons 100 "AcDbEntity")
        (cons 100 "AcDbText")
        (cons 72 0)           ;_ выравнивание влево
        (cons 1 str)
       (cons 7 (getvar "TEXTSTYLE")) ;_Текущий стиль
        ;(cons 8 layer) ;_Текущий слой
        (cons 10 '(0 0 0))
        (cons 11 '(0 0 0))
        (cons 40 (getvar "TEXTSIZE")) ;_Текущей высотой текста (переменная TEXTSIZE)
        ) ;_ list
      ) ;_ entmakex
          )
 
      )
    (progn
      (princ "\n Укажите точку вставки текста или ячейку таблицы:")
      (vl-cmdf "_.copybase" (trans '(0 0 0) 0 1) txt "" "_.erase" txt "" "_.pasteclip" "_none" pause)
        ;_ В txt примитив текста в pt точка вставки  
       (setq txt (entlast) pt (getvar "LASTPOINT"))
      (and ;_Проверяем, попала ли точка в ячейку таблицы
      (setq  tblobj nil tblset (ssget "_X" '((0 . "ACAD_TABLE"))))
      (setq lst (mapcar 'vlax-ename->vla-object(vl-remove-if 'listp (mapcar 'cadr (ssnamex tblset)))))
      (mapcar '(lambda (x)
           (or tblobj
               (and
                 (= :vlax-true (vla-HitTest x
                               (vlax-3d-point (trans pt 1 0))
                               (vlax-3d-point (trans (getvar "VIEWDIR") 1 0))
                               'row 'col))
                 (setq tblobj x)
                 )
               )
           )
        lst)
      tblobj row col
      (or (vla-SetText tblobj row col str) t)
      (entdel txt)
      )
      )
    )
    (princ)
    )

[pro9]

Сообщение от VVA Тогда предлагаю немного модифицированный вариант. Качаешь notepad++. Он позволяет запускать несколько документов и запоминать их при последующем вызове. Делаешь файлы КЖ.txt, КМ.txt и т.п. и получаешь нужные тебе закладки

А как запустить notepad++ макросом?
пробовал
(startapp "Notepad++") не получилось

[hwd]

Сообщение от pro9 А как запустить notepad++ макросом? пробовал (startapp "Notepad++") не получилось

на выбор:
1. укажи полный путь
2. добавь в PATH (системную переменную Windows) путь к этому файлу
3. добавь в Support Files Search Path каталог размещения этого файла (но применительно к данной задаче, это извращение)

[pro9]

Спасибо!
Указал полный путь и за место (chr 92) поставил //

[hwd]

Сообщение от pro9 Спасибо! Указал полный путь и за место (chr 92) поставил //

я бы всё же выбрал 2-й вариант (PATH), т.к. каталог размещения этой программы будет различным для Windows x86/x64.
имхо.