[Krieger]

Такой вопросик:
Как сделать набор элементов состоящих, допустим, только из линии?
Т.е. ssget, только выбирать функция должна только то что надо.

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

(ssget "_X" '((0 . "LINE")) - выберет линии по всему файлу
(ssget '((0 . "LINE"))) - отфильтрует отрезки из выбора пользователя

[Лентяй]

Код:

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

(ssget "X" '((0 . "LINE")))

[Лентяй]

kрЫс, ишо раз поперед дяди сунешься - накажу ! Вот только в Питер приеду...

[Krieger]

А какие функции работают с буфером обмена?

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

> Лентяй : Ай-яй-яй, мама, попка, больно!
> Krieger : Сугубо ИМХО. Кад не очень качественно работает с буфером обмена, да и в многодокументном режиме лисп может вызвать несколько труднопонятных ошибок: тут функция загружена, тут - нет. Тут такие значения, тут - эдакие. Наверняка можно решить по другому (а если нельзя, то попробуй использовать функции vl-bb-*, работающие с внедокументными переменными, либо setenv / getenv, что тоже не фонтан - это же все обнулять надо, а в какой момент выполнять обнуление - кто знает?)... Чего надо сделать?

[Krieger]

Ну дык: скопировать выбранные примитивы, а потом вставить куда надо.
Все что пришло на ум
(command "_Copybase" HP a "")
(command "_Pasteclip" EP)
hp и ep - точки, а - набор примитивов.

[Krieger]

Можно создать блок, потом вставить куда надо, потом его удалить.
Как это будет выглядеть на лиспе? Через command?

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

Так это проще сделать так, я думаю:

Код:

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

(defun test-copy (/ selset)
  (setq selset (ssget '((0 . "LINE"))))
  (if selset
    (command "_.copy" selset "" pause pause)
    ) ;_ end of if
  ) ;_ end of defun

---
Добавлено:
Вставлять как блок можно, конечно, только вряд ли это требуется в этой задаче. А если сильно надо, то тогда уж смотреть на ruCAD с его решениями.

[Лентяй]

Krieger: Ну дык: скопировать выбранные примитивы, а потом вставить куда надо.

Не понял :? ! их что - в другой файл копировать надо? Тогда - ActivX-ом их, болезных!

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

> Лентяй : А разве возможно через такой метод интерактивно получить точку вставки в неактивном документе? Ее же надо как-то хитро задавать ИМХО... В общем, головняк. Я б постарался не связываться.

[Krieger]

Сообщение от Лентяй Не понял :? ! их что - в другой файл копировать надо? Тогда - ActivX-ом их, болезных!

Да нет, все там-же.

kpblc
Малость не то, надо какой-то аналог ctrl+c, ctrl+v

А зачем там функция if?

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

IF - чтобы отследить, был ли выбор. Если выбора не было, то ничего не делается. Так что ничего сверхъестественного
Если надо именно полный аналог, то тогда действительно без создания временного анонимного блока не обойтись (а потом его разбивать)...

[Лентяй]

Krieger: Да нет, все там-же

Вторично не понял - на хрена тогда бувер? Или между копированием и вставкой предполагаются какие-нить иные действия?

А зачем там функция if?

А это - вредное влияние Fatty и Apelsinov'а. Все - от неуверенности в себе и работе своих программ.

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

А также ShaggyDoc, Alasher, {Smirnoff}... Если есть возможность сделать неправильно, рано или поздно найдется Кулибин, который именно так и сделает. Функция должна быть надежна, как шпала. Или как топор - кому как больше нравится . Но работать она должна всегда и в любых режимах.
От компа за лишнюю проверку не убудет, а мне поспокойнее.

[Krieger]

Сообщение от Лентяй Или между копированием и вставкой предполагаются какие-нить иные действия?

Точно! Извиняюсь, что не смог нормально сформулировать сразу.

[Лентяй]

Krieger: Точно! Извиняюсь, что не смог нормально сформулировать сразу.

Предупреждать надо! Я тут прикинул - можно нарисовать связку из двух функций. Одна собирает объекты для копирования, вторая - собственно копирует. Только вот вызов будет производится раздельно. Продолжать ли? Если да, то нужен ли фильтр примитивов и какой? Отвечать бысрто, а то уйду спать[sm1202].

[Лентяй]

Krieger, ловите прогу, ибо добр аз есмь днесь. Первая создает набор для копирования, вторая - копирует.

Код:

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

(defun C:Df_Copy ( / sss)
  (setq adoc (vla-get-ActiveDocument (vlax-get-acad-object))
        sss (vla-get-SelectionSets adoc)
        df_css (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-item (list sss "df_css")))
              (vla-add sss "df_css") (vla-item sss "df_css")));setq
  (if (> (vla-get-count df_css) 0) (vla-clear df_css))
  (prompt "\nSelect Objects")
  (vla-SelectOnScreen df_css (vlax-safearray-fill (vlax-make-safearray vlax-vbinteger '(0 . 0)) '(0)) 
    (vlax-safearray-fill (vlax-make-safearray vlax-vbvariant '(0 . 0)) (list "*Line")))
);Df_Copy
;
(defun C:Df_Pst ( / util pt0 pt1)
  (setq util (vla-get-utility adoc)
        pt0 (vla-getpoint util nil "Specify base point of displacement: ")
        pt1 (vla-getpoint util nil "Specify second point of displacement: "))
  (vlax-for obj df_css (vla-copy obj) (vla-move obj pt0 pt1))
);Df_Pst

DF - значит "Deffered" - задержанный (-ая). Фильтр "*Lines" можно заменить на любой другой, или отменить вовсе. Для этого нужно стереть все, что после (vla-SelectOnScreen df_css . Состав набора сохраняется, пока не будет создан новый набор. Пользуйтесь на здоровье и не забывайте денно и нощно благодарить меня за то, что я есть. [sm3514] Если что - свистите. [sm1400]

[Krieger]

Лентяй
Спасибо, пригодится.

Для этого нужно стереть все, что после (vla-SelectOnScreen df_css

Для чего? Если правильно понял это чтоб вообще фильтра небыло.

Не совсем ctrl+c, т.к. после удаления примитивов которые значатся в наборе копировать будет нечего.

[Krieger]

Еще такой вопросик:
Существует набор A из одного объекта (примитива):
(setq A (ssget))
Как узнать его имя (Entity name)?