• VADIK
  • Восстановленный участник
  • На форуме с 8 ноября 2003г.
  • Сообщений: 186
  • Спасибо: 0

Тема: Как вывести имя файла без расширения на чертёж?

Как вывесте имя файла на чертёж без его расширения? ($(Getvar,"dwgname"))

  • Откуда: Украина / Киев
  • На форуме с 15 апреля 2005г.
  • Сообщений: 8,666
  • Спасибо: 158

Re: Как вывести имя файла без расширения на чертёж?

$(substr,$(getvar,dwgname),1,$(-,$(strlen,$(getvar,dwgname)),4))

  • На форуме с 25 августа 2005г.
  • Сообщений: 6
  • Спасибо: 0

Re: Как вывести имя файла без расширения на чертёж?

Использую макрос:
^C^C^P(progn (command "_.text" pause "")(if (= 0.0 (cdr (assoc 40 (entget (tblobjname "STYLE" (getvar "TEXTSTYLE"))))))(command ""))(command (strcat (getvar "dwgprefix")(getvar "dwgname"))))