Как в чертеже автоматически прописать полный путь?

Соня · 14.09.2004, 14:45

Давненько проблема светится, сейчас наиболее остро. Надо автоматически поставить полный путь чертежа, откуда он распечатался. Сделать это надо как в ворде это организованно, чтобы было видно где он стоит и чтобы подвигать можно было.
Стандартное прописание пути не устраивает при больших форматах чертежа, когда по бокам остается место, путь указывваается за пределами чертежа. и еще минус- путь не масштабируется с чертежом.

Torino · 14.09.2004, 15:26

Варианты программ, для простановки полного пути сохранения файла можно найти здесь http://dwg.ru/forum/viewtopic.php?t=565

Другой вариант, воспользоваться plot stamp из параметров печати.

Также нужные утилиты лежат в ТулПаке.

Соня · 14.09.2004, 15:29

а что такое тулпак?

Torino · 14.09.2004, 15:31

ToolPac - сборник программ для Автокада, типа ExpressTools

Apelsinov · 14.09.2004, 15:38

можно создать rtext ("Remote text" из express tools), с таким дизельным выражением для
текущей даты:

Цитата:

"$(edtime, $(getvar, date),DD.MO.YYYY/HH:MM)"

имени файла:

Цитата:

"$(getvar, \"dwgname\")"

Пути с именем файла:

Цитата:

$(getvar, dwgprefix)$(getvar, "dwgname")

Дело в том, что отображение rtext меняется автоматически, в зависимости от изменения переменных в дизельном выражении. то есть если вы измените имя файла - оно автоматически изменится в тексте.
Или для себя набросал лиспик, создающий rtext (имя файла или дата)(минус лиспика в том что он ничего не создает если до этого в текущем сеансе не была запущена команда rtext):

Цитата:

(defun c:filename (/ A)
(setq cmd (getvar "cmdecho"))
(setvar "cmdecho" 0)
(initget "Date Filename")
(if (setq N (getkword "\n Выбери[Date/Filename]<exit>:"))
(progn
(setq N (cond
((eq N "Date")
"$(edtime, $(getvar, date),DD.MO.YYYY/HH:MM)"
)
((eq N "Filename") "$(getvar, \"dwgname\")")
)
)

(if (setq A (getpoint "\n Точка вставки:"))
(progn
(entmake (list
'(0 . "RTEXT")
;;; '(67 . 0)
'(100 . "AcDbEntity")
'(100 . "RText")
(cons 10 A)
'(50 . 0)
(cons 40 (getvar "textsize"))
(cons 7 (getvar "textstyle"))
'(70 . 1)
(cons 1 N)
)
)
)
)
)
)
(setvar "cmdecho" cmd)
(princ)
)

14.09.2004, 16:33

>Apelsinov
Если добавить в код что-то вроде

Код:

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

    (if (not AcetRText:appload)
        (progn
            (load "rtext.lsp")
            (AcetRText:appload)
        ) ;_ end of progn
    ) ;_ end of if

то будет работать если до этого в текущем сеансе не была запущена команда rtext

14.09.2004, 14:45		#1
Как в чертеже автоматически прописать полный путь? Соня Пермь Регистрация: 14.01.2004 Сообщений: 220 Давненько проблема светится, сейчас наиболее остро. Надо автоматически поставить полный путь чертежа, откуда он распечатался. Сделать это надо как в ворде это организованно, чтобы было видно где он стоит и чтобы подвигать можно было. Стандартное прописание пути не устраивает при больших форматах чертежа, когда по бокам остается место, путь указывваается за пределами чертежа. и еще минус- путь не масштабируется с чертежом.
Просмотров: 4407

	Реклама i