[Владимир Вячеславович]

Добрый день! Установлен AutoCad 2012 с дополнительным софтом Csoft: СПДС GraphiCS 8 и Project Studio CS R5. При запуске программы автоматически загружается lisp приложение в котором имеется данные о автоматической настройки текстовых и размерных стилях. В lisp программировании я не силен, по этому прошу помощи: поменять в коде текстовые и размерные стили на нужные мне, что бы постоянно их не менять с исходных. Lisp во вложенных

[Klo]

Ещё раз повторю: для начала нужен шрифт cs_gost2304. Допустим он у меня есть.
При попытке запустить ваш скрипт, начинает ругаться на отсутствие шрифтов, используемых в остальных текстовых стилях. Что с ними делать, удалять или вы их предоставите?

[trir]

Код:

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

;;;;;;;;;; Проверка и установка текстовых стилей ;;;;;;;;;;;;;;;;;;;;;;;
(if(not (tblsearch "STYLE" "AR40"))(progn
   (command "._STYLE" "AR40" "ar" "0" "0.8" "" "" "")
   (if(= (getvar "CMDACTIVE")1)(command "_N"))   ) )
(if(not (tblsearch "STYLE" "SPECIF"))(progn
   (command "._STYLE" "SPECIF" "cs_gost2304" "0" "0.8" "" "" "")
   (if(= (getvar "CMDACTIVE")1)(command "_N"))   ) )
(if(not (tblsearch "STYLE" "SPCTITLE"))(progn
   (command "._STYLE" "SPCTITLE" "cs_gost2304" "0" "0.85" "" "" "")
   (if(= (getvar "CMDACTIVE")1)(command "_N"))   ) )
(if(not (tblsearch "STYLE" "TXT0"))(progn
   (command "._STYLE" "TXT0" "txt" "0" "0.8" "" "" "")
   (if(= (getvar "CMDACTIVE")1)(command "_N"))   ) )
;;19.02.2004 Kharit
;(if(not (tblsearch "STYLE" "PSTUDIO"))(progn
;   (command "._STYLE" "PSTUDIO" "pstudio" "0" "1.0" "" "" "")
;   (if(= (getvar "CMDACTIVE")1)(command "_N"))   ) )
(if(not (tblsearch "STYLE" "PSTUDIO"))(progn
   (command "._STYLE" "PSTUDIO" "cs_gost2304" "0" "1.0" "" "" "")
   (if(= (getvar "CMDACTIVE")1)(command "_N"))   ) )

[Сергей812]

Offtop:

Сообщение от Boxa Владимир Вячеславович, Здорово, т.е. Вы ищите человека, который за просто так перелопатит код и скажет Вам в какой строке и что поменять... ну конечно же это не тоже самое, что и поиск исполнителя, ведь менять то код будете Вы. </sarcasm>

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

[gomer]

Владимир Вячеславович, возьмите блокнот и с помощью Ctrl+F поменяйте что вам нужно на что вам нужно, ничего сложного в этом нет

[Владимир Вячеславович]

Сообщение от Сергей812 Жажда халявы неистребима

Что есть, то есть.

Сообщение от gomer помощью Ctrl+F поменяйте что вам нужно на что вам нужно

Спасибо, об этом я не подумал.
trir, тебе отдельное спасибо.