[Iory]

хотел написать небольшую подпрограмму для копирования из открытого, но неактивного документа (не то чтобы таких не было, но мне интересно это сделать самому)

суть:

Код:

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

 
(defun C:test ( / obj)
  (vl-load-com)
  (setq acad_application (vlax-get-acad-object))
  (setq active_document (vla-get-ActiveDocument acad_application))
  (setq obj (vla-get-ActiveSelectionSet active_document))
  (vla-clear obj)
  (vla-Select obj acSelectionSetAll nil nil (vlax-safearray-fill (vlax-make-safearray vlax-vbinteger '(0 . 1)) '(0 8))
    (vlax-safearray-fill (vlax-make-safearray vlax-vbvariant '(0 . 1)) '("Line" "0")))

); end of test

линии есть, а возвращается nil. соответственно, ничего не происходит. подскажите, что тут не так.
спасибо

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

Используй не Select-метод, а CopyObjects

[gomer]

Сообщение от Iory линии есть, а возвращается nil

Все правильно читайте мат.часть... Кстати у Н. Полущука в книге "AutoLISP и Visual LISP в среде AutoCAD" нет ответа на ваш вопрос

Так понятно?

Код:

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

 (defun C:TEST (/ SS)
  (vl-load-com)
  (vla-Clear
    (setq SS (vla-get-ActiveSelectionSet
	       (vla-get-ActiveDocument (vlax-get-acad-object))
	     )
    )
  )
  (vla-Select
    SS
    acSelectionSetAll
    nil
    nil
    (vlax-safearray-fill
      (vlax-make-safearray vlax-vbinteger '(0 . 1))
      '(0 8)
    )
    (vlax-safearray-fill
      (vlax-make-safearray vlax-vbvariant '(0 . 1))
      '("LINE" "0")
    )
  )
  (princ (vl-princ-to-string SS))
  (vla-Clear SS)
  (princ)
)

ps но это все пока только для активного документа...
pss когда же тут будет нормальная кодировка для лиспа???

[Олег (jr.)]

Обращение к объекту
(vla-get-ActiveSelectionSet
может запросто завалить программу если его нет
Это грабли известные
Лучше вместо него применять
(vla-get-PickFirstSelectionSet и так же очищать его
перед использованием

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

Offtop:

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

За кодировку отвечает только автор кода

[gomer]

Offtop: Алексей, я про SyntaxHighlighter... на на его сайте уже выложена третья версия... Да и вообще... тут столько серьезных программистов...

[VVA]

Сообщение от Iory для копирования из открытого, но неактивного документа

Проштудируй эти лиспы
Copy to Drawing
Copy to XRef
Steal from Drawing

[Iory]

Сообщение от gomer Все правильно читайте мат.часть... Кстати у Н. Полущука в книге "AutoLISP и Visual LISP в среде AutoCAD" нет ответа на ваш вопрос

собственно пример Полущука и сбил с толку, потому как там сказано, что возвращается какое-то выражение. Опытным путём я уже выяснил, что набор создаётся, а на возвращаемый nil можно не обращать внимания (просто быть к этому готовым)

Спасибо всем кто остался неравнодушен и за рекомендации!

[Iory]

чтобы не плодить темы, спрошу тут же (как-никак связаны вопросы)

Код:

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

(vla-Select ss_texts acSelectionSetCrossing sp ep (vlax-safearray-fill (vlax-make-safearray vlax-vbinteger '(0 . 1)) '(0 8)) (vlax-safearray-fill (vlax-make-safearray vlax-vbvariant '(0 . 1)) filter))

каждый раз в набор попадает разное количество объектов, хотя сам чертёж я не трогаю. субьективно складывается ощущение, что это каким-то магическим образом зависит от масштаба и положения самого экрана (как бы странно это не звучало)
не подскажете как с этим бороться или как заменить этот шаг?

задача такова, что я хочу выбрать все объекты типа тест на определённой линии

[Дима_]

Поищи уже обсуждалось создание набора зависит от видимой области экрана - проверяй каждый в рукопашную либо "колдуй" с масштабом.