[DENBASS2004]

Здравствуйте! Есть одна закавырка. В строке (setq papka1 (getstring T "\n Введите путь к папке1")) ввожу в командной строке Проект\Сепаратор\Опорные элементы. Дальше идут построения деталей. Затем я пытаюсь удалить модель в отдельный файл для дальнейшего его возвращения в виде ссылки. В строке (command "_.-wblock" "D:\\papka1\\01-01.00.001-Кольцо опорное.dwg" 1kolco "0,0,0" 1kolco"") я прописываю что удалить и куда. Под словом papka1 должно вставляться автоматически то, что я прописывал ранее. Но программа мне выдает что путь D:\papka1 не существует. Подскажите что надо подправить.

[Кулик Алексей aka kpblc]

Использовать strcat

[DENBASS2004]

Сообщение от Кулик Алексей aka kpblc Использовать strcat

а по подробнее можно?

[Кулик Алексей aka kpblc]

http://help.autodesk.com/view/ACD/20...9-711B480976A1
А вообще-то и код не мешало бы показать. Кто его знает, где там еще используется это самое d:\\papka1...

[DENBASS2004]

Сообщение от Кулик Алексей aka kpblc А вообще-то и код не мешало бы показать. Кто его знает, где там еще используется это самое d:\\papka1...

Использоваться будет только для удаления моделей в отдельный файл, вставки ссылок этих моделей, открытие файла и закрытие файла этих моделей для составления чертежа

----- добавлено через ~7 мин. -----

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

Данная команда объединяет текстовые значения. Но даже применив ее, все равно программа пишет данного пути нет

[Alan]

Сообщение от DENBASS2004 все равно программа пишет данного пути нет

А что даёт (findfile "D:\\papka1\\") и есть ли права доступа (в Проводник ПКМ-Свойства-Безопасность) на эту папку?

[Кулик Алексей aka kpblc]

Сообщение от DENBASS2004 Но даже применив ее, все равно программа пишет данного пути нет

Я же вроде по-русски написал:

Сообщение от Кулик Алексей aka kpblc код не мешало бы показать

Результат по нулям.

[DENBASS2004]

Сообщение от Кулик Алексей aka kpblc Сообщение от Кулик Алексей aka kpblc код не мешало бы показать

Показываю

Код:

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

 (setq papka1 (getstring T "\n Введите путь к папке1"))
(command "_osmode" 0)                                                                                                               
(command "_.-layer" "_set" 0 "")                                                                                                                
(command "_celweight" 030)                                                                                                       
(command "_.-view" "_top")                                                                                                                       
(command "_.-view" "_swiso")                                                                                                                   

(setq D (getint "\n Введите диаметр колонны D >: "))
(setq L (getint "\n Введите ширину кармана L >: "))                                                                                  
(setq S1 (getint "\n Введите основную толщину металла S1 >: "))                                                              
(setq S2 (getint "\n Введите дополнительную толщину металла S2 >: "))                                                   

(setq P0 (list 0 0 (- 0 S1)))                                                                                                                             
(setq Rn (/ D 2))                                                                                                                                          
(setq Rv (- Rn 60))                                                                                                                                        
(setq Kx (- Rn L 64))                                                                                                                                

(command "_.cylinder" P0 Rn S1 )                                                                                        
(setq 1cyl (entlast))                                                                                                                             
(command "_.cylinder" P0 Rv S1 )                                                                                                  
(setq 2cyl (entlast))                                                                                                                                
(command "_.subtract" 1cyl "" 2cyl "")                                                                                                       
(setq 1kolco (entlast))                                                                                                                                 
(command "_.-view" "_top")                                                                                                                         
(command "_.slice" 1kolco "" "yz" (list (- Kx) 0 0) "0,0,0")                                                                                   
(command "_.slice" 1kolco "" "yz" (list Kx 0 0) "0,0,0")                                                                                     
(command "_.slice" 1kolco "" "zx" "0,0,0" "0,1,0")                                                                                         
(command "_.-view" "_swiso")                                                                                                                
(command "_.-wblock" "D:\\papka1\\01-01.00.001-Кольцо опорное.dwg" 1kolco "0,0,0" 1kolco"")

----- добавлено через ~4 мин. -----

Сообщение от Alan А что даёт (findfile "D:\\papka1\\")

выдает nil

[Кулик Алексей aka kpblc]

Ну е-мое... Я ж говорил про strcat!

Код:

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

 (setq papka1 (getstring T "\n Введите путь к папке1"))
; ...
(command "_.-wblock" (strcat papka1 "\\01-01.00.001-Кольцо опорное.dwg") 1kolco "0,0,0" 1kolco"") ; это если каталог задается с диском

[DENBASS2004]

Сообщение от Кулик Алексей aka kpblc Ну е-мое... Я ж говорил про strcat!

Спасибо огромное, получилось. Я без имени диска это пытался сделать. Задал диск и он тут же все сделал. Благодарю!

[VVA]

Предлагаю вместо

Код:

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

(setq papka1 (getstring T "\n Введите путь к папке1"))

воспользоваться диалоговым выбором DwgRuLispLib: Выбор папки или файла.

[gomer]

Сообщение от Alan А что даёт (findfile "D:\\papka1\\") и есть ли права доступа (в Проводник ПКМ-Свойства-Безопасность) на эту папку?

ничего не дает в автокаде, точнее дает ничего, в отличие от брикскада
лучше использовать

vl-file-directory-p Determines if a file name refers to a directory (vl-file-directory-p filename) Arguments filename A string containing a file name. If you do not specify a full path name, vl-file-directory-p searches only the AutoCAD default drawing directory. Return Values T, if filename is the name of a directory; nil if it is not.

[Alan]

Сообщение от gomer ничего не дает в автокаде, точнее дает ничего,

В данном случае при недостатке инфы, вопрос к автору темы.
В доменной сети у пользователя может тупо не быть прав...
Привычка что ты Админ, не у всех получается. Запрет записи на диск... и идёшь лесом
Но всё оказалось гораздо проще