[Zaghim]

Скажите можно ли выполнить команду INSERT программно, если я укажу не просто имя файла, а полностью путь к нему.
Просто, если указывать только имя, нужно заранее прописывать путь к нему в опциях, а если таких путей сотни

[gomer]

мдя

[Nike]

(vl-cmdf "insert" (strcat "C:/Program Files/AutoCAD 2010/Sample/" BlockName) (getpoint "\nPick Point:") "" "" "")

[Zaghim]

Заработало! СПАСИБО!!!

[Nike]

...

[gomer]

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

Код:

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

(defun insert_block_from_path (path name / fn pt)
;;; Функция вставки блока из определенной папки
;;;  (insert_block_from_path "D:\\test" "test")
  (vl-load-com)
  (if (and (vl-file-directory-p path)
	   (setq fn
		  (findfile
		    (strcat
		      (car (acad_strlsort
			     (mapcar
			       '(lambda	(x)
				  (vl-string-right-trim (chr x) path)
				)
			       '(47 92)
			     )
			   )
		      )
		      (chr 92)
		      name
		      ".dwg"
		    )
		  )
	   )
      )
    (if	(setq pt (getpoint "\nУкажите точку вставки блока: "))
      (vl-cmdf "_.-insert" fn pt "" "" "")
      (alert (strcat "Ошибка: Не указана точка вставки блока"))
    )
    (alert (strcat "Ошибка: Не найден файл блока '" name "'"))
  )
  (princ)
)

[ShaggyDoc]

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

А вот "так" не надо. Если findfile вернет NIL, незачем запрашивать точку.

[Дима_]

Сообщение от ShaggyDoc А вот "так" не надо. Если findfile вернет NIL, незачем запрашивать точку.

так он ее не будет запрашивать - она'ж внутри особой формы and

[gomer]

Обнаружил проблему: не хватает обработки path:
(vl-file-directory-p "d:\\test" )
(vl-file-directory-p "d:\\test\\" )
возвращает T...
Исправил...

[ShaggyDoc]

так он ее не будет запрашивать - она'ж внутри особой формы and

А представим (vl-file-directory-p path) вернет NIL. Или findfile вернет NIL. Что будет делать пользователь? Ничего не происходит, а он и не знает, что случилось. И недоумевает. Откуда ему знать, что тут "особая форма" издевательства над ним.

Такие дела надо пропускать через if с непременным информированием - что делается. А может и с ловушкой ошибок.

[Дима_]

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

[Profan]

Вы метр лучше меня знаете

А что там особого надо знать про метр? Все знают, что метр - размерность длины, расстояния и равен 100 см.

[Дима_]

то профан - хорошо "О Метр"

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

Offtop: Метр и мэтр - разные вещи Да и запятые тоже не помешают

[Дима_]

Offtop: да я понял - но исправлять уже поздно
p.s. ShaggyDoc ни в коем случае не хотел Вас задеть.
p.p.s. - насчет запятых - чем ближе к полуночи - тем меньше запятых.

[gomer]

Обнаружил еще одну проблему если в рисунке есть блок с таким же именем... вставляется именно он

[ShaggyDoc]

Сообщение от gomer Обнаружил еще одну проблему если в рисунке есть блок с таким же именем... вставляется именно он

Это уж само собой. Чтобы вставился именно блок из файла, надо чуть посоображать. Рекомендую это сделать самостоятельно.

А ещё надо учитывать возможность атрибутов, причем разных типов. Просто так - (vl-cmdf "_.-insert" fn pt "" "" "") подойдет только для частных случаев.

PS. Не надо задним числом код менять (мелкое жульничество), иначе непонятно про что разговор. Новая версия - новый пост.

[gomer]

Сообщение от ShaggyDoc Не надо задним числом код менять (мелкое жульничество), иначе непонятно про что разговор. Новая версия - новый пост.

не считаю это жульничеством, так как искать самую новую версию очень просто... хотя насчет понимания вы правы

[ShaggyDoc]

так как искать самую новую версию очень просто...

Вот когда выкладывают готовую программу, а потом её периодически обновляют - правильнее менять в одном месте. Как делает, например, VVA с PL-Tools. Да и при этом желательно в головном посте комментировать, когда и что заменено.