[Gretech89]

Доброе время суток!

Пытаюсь добавить точечный параметр и операцию переместить для объектов в блоке. Во время выполнения команды "BACTION" не удается передать имя параметра. В чём может быть проблема? Вручную выбирать параметр не вариант.

Фрагмент кода:

Код:

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

 (setq blkname (cdr (assoc 2 (entget (car (entsel "\nВыберите блок: "))))))
(command "_.BEDIT" blkname)
(command "._BPARAMETER" "_POINT" (list 0 0 0) (list 0 0 0) "")
(setq param (entlast))
(command "._BACTION" param "_MOVE" "")

[name02]

Вручную пробовал запускать команду _BPARAMETER и смотреть, что с ней можно делать?

Код:

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

   (setq
    blkname     (cdr (assoc 2 (entget (car (entsel "\nВыберите блок: ")))))
    param_name "МОЕ ИМЯ"
  )
  (command "_.BEDIT" blkname)
  (command "._BPARAMETER"
	   "_POINT"
	   "_LABEL"
	   param_name
	   (list 0 0 0)
	   (list 0 0 0)
	   ""
  )
  (setq param (entlast))
  
  (command "._BACTION" param "_MOVE" "")

[Gretech89]

name02, ага, по команде _BPARAMETER вопросов нет, всё стопорится на _BACTION -> "Выберете параметр"..

[name02]

Код:

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

   (setq
    blkname	    (cdr (assoc 2 (entget (car (entsel "\nSelect block: ")))))
    param_name	    "my_param_name"
    param_basepoint '(0 0 0)
  )
  (command-s "_.BEDIT" blkname)
  (command-s "._BPARAMETER"
	     "_POINT"
	     "_LABEL"
	     param_name
	     param_basepoint
	     (list 0 0 0)
	     0
	     ""
  )

  (setq param (entlast))

  (setq sel (ssget "_X" '((67 . 0)) ) )

  (command-s "._BACTION"
	     (list param param_basepoint)
	     "_MOVE"
	     sel
	     ""
  )

[Gretech89]

name02, благодарю за помощь! Я понял... команда _BACTION запрашивала не имя параметра, а его координаты.. Немного изменил код (убрал param и сделал число ручек "1"):

Код:

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

  (setq
  blkname	    (cdr (assoc 2 (entget (car (entsel "\nSelect block: ")))))
  param_name	    "my_param_name"
  param_basepoint '(0 0 0)
)
(command-s "_.BEDIT" blkname)
(command-s "._BPARAMETER"
    "_POINT"
    "_LABEL"
    param_name
    param_basepoint
    (list 0 0 0)
    1
    ""
)

(setq sel (ssget "_X" '((67 . 0))))

(command-s "._BACTION"
    param_basepoint
    "_MOVE"
    sel
    ""
)

[name02]

Сообщение от Gretech89 Я понял... команда _BACTION запрашивала не имя параметра, а его координаты.. Немного изменил код (убрал param и сделал число ручек "1"):

Нельзя так делать - у тебя может быть два параметра находиться в одной точке пространства. И если передавать в _BACTION только координаты, то команда примениться к последнему созданному (измененному) параметру.
Передавая список ты определяешь конкретный параметр!


Учти также, что набор создаваемый через (setq sel (ssget "_X" '((67 . 0)))) вмещает в себя все объекты пространства блока, в т.ч. и все (включая рассматриваемый) параметры. В блоке могут быть не только графические примитивы, а еще параметры, размеры всякие, атрибуты. В общем нужна фильтрация объектов.

[Gretech89]

name02, понял, учту это. Спасибо за уточнения