[dextron3]

Поставил задачу с помощью макроса выделять объект находящийся в заданной области путем ввода координат, с помощью какой команды это реализовать.

Принцип работы нажав на кнопку выделился объект находящийся в заданной области, заранее благодарен


вот начал: не могу понять почему не завершается?

^C^Cselect;f;0,0;1000,1000;;

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

Суть макроса такова: Нужно выделить определнные объекты и потом выполнить над ними определенную команду, но не могу закончить выделение и тем самым не запускается следующая команда,

может кто скажет...

[dextron3]

Profan, еслия обращусь к этому объекту в экране то смысл макроса пропадает и так могу тогда его скопировать и удалить, суть в том чтобы автоматизировать

[Profan]

Давно известно, что выбор объектов возможен только в пределах видимой на экране части чертежа.

[dextron3]

Profan, так что моя идея не реализуема макросом?

[Profan]

По поводу выбора объектов было несколько тем.
Но твоя идея не озвучена пока.

[TararykovDG]

dextron3, может тогда на кнопку не макрос, а лисп повесить

Код:

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

;	Пример вызова (dextron3 '(0.0 0.0) '(1000.0 1000.0) '(10.0 10.0))


(defun dextron3(point0 point1 shift / nbr_all obj_line item nbr_loc)
  (vl-load-com)
  (if (setq nbr_all (ssget "_X"))
    (progn
      (if (vl-cmdf "_.line" point0 point1 "")
	(setq obj_line (entlast)
	      nbr_loc (ssadd)
	      )
	)
      (foreach item (vl-remove-if 'listp (mapcar 'cadr (ssnamex nbr_all)))
        (if (> (vlax-safearray-get-u-bound
	         (vlax-variant-value
		   (vla-IntersectWith
		     (vlax-ename->vla-object item)
		     (vlax-ename->vla-object obj_line)
		     acExtendNone
		     )
		   )
	         1
	         )
	       -1
	       )
	  (setq nbr_loc (ssadd item nbr_loc))
	  )
        )
      (entdel obj_line)
      (vl-cmdf "_.copy" nbr_loc "" point0 point0)
      (vl-cmdf "_.move" nbr_loc "" point0 (polar (polar point0 0 (car shift)) (* 0.5 pi) (cadr shift)))
      (vl-cmdf "_.erase" nbr_loc "")
      )
    )
); end dextron3

[dextron3]

TararykovDG,
Command: (dextron3 '(0.0 0.0) '(1000.0 1000.0) '(10.0 10.0))
_.line Specify first point:
Specify next point or [Undo]:
Specify next point or [Undo]:
Command: ; error: Automation Error. Null extents


TararykovDG, у Вас есть программа СПДС, это такая надстройка на автокад?

[TararykovDG]

Сообщение от dextron3 Command: (dextron3 '(0.0 0.0) '(1000.0 1000.0) '(10.0 10.0)) _.line Specify first point: Specify next point or [Undo]: Specify next point or [Undo]: Command: ; error: Automation Error. Null extents

Странно у меня такого не происходит, попробуй в пошаговом режиме в VisualLisp IDE и скажи на какой сроке проиходит ошибка.
Да, кстати, может это из-за привязок, отключи их вручную ради интереса, или добавь в код, в начало: (setq osmode_var (getvar 'osmode)) (setvar 'osmode 0) , в конец (setvar 'osmode osmode_var)

Сообщение от dextron3 у Вас есть программа СПДС, это такая надстройка на автокад?

Нет, у меня только голый ACad 2008, все надстройки - самоделки

[dextron3]

да чтото лисп сложный

[TararykovDG]

Сообщение от dextron3 да чтото лисп сложный

В каком смысле сложный?
1). Непонятно что делает
2). Понятно, что делает, но слишком длинный
3). Еще что-то

[dextron3]

Command: Specify opposite corner:
Command: (dextron3 '(0.0 0.0) '(1000.0 1000.0) '(10.0 10.0))
_.line Specify first point:
Specify next point or [Undo]:
Specify next point or [Undo]:
Command: ; error: Automation Error. Null extents

[IMG]http://i081.***********/1010/ef/18ba0e195981t.jpg[/IMG]


с привязкой тоже самое только тормозит больше, может всетаки макросом?