[Holon]

Возможно-ли копирование например Name_1 имя примитива присвоенного entlast,pt1 точка копирования pt2- точка вставки ?

Код:

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

(vl-cmdf "_copy" Name_1 Name_2 Name_3 Name_4 Name_5 Name_6 Name_7 Name_8 "" pt1""  pt2 "")

[Евгений А.]

Да наздоровье! Только один "" лишний:

Код:

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

(vl-cmdf "_copy" Name_1 Name_2 Name_3 Name_4 Name_5 Name_6 Name_7 Name_8 "" pt1 pt2 "")

[VVA]

Код:

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

(setq Name_List nil)
(While (and (setq en (car(entsel "\nSpecify object for copying  <enough>")))
            (setq Name_list (cons en Name_list))
            )
  )
(initget 1)(setq pt1 (getpoint "\nPick point from ... "))
(initget 1)(setq pt2 (getpoint "\nPick point to ... "))
(vl-cmdf "_copy")
(foreach en Name_List (command en))
(command "" pt1 pt2)
(while (> (getvar "CMDACTIVE") 0)(command ""))

[Holon]

А вот например здесь почему-то неработает пример кода

Код:

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

(vl-cmdf "_copy" Name_16 Name_17 Name_18 Name_19 Name_20 Name_21 Name_22 Name_23 "" door_ar14 door_ar19 "")

[Alaspher]

Сообщение от Holon А вот например здесь почему-то неработает пример кода Код: [Выделить все] (vl-cmdf "_copy" Name_16 Name_17 Name_18 Name_19 Name_20 Name_21 Name_22 Name_23 "" door_ar14 door_ar19 "")

Проверяй передаваемые типы данных - обязано работать, при корректных значениях.

[Holon]

Нехотел открывать новую ветку по синтаксису, решил задать вопрос здесь,
простановка размеров, диаметр:

Код:

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

(vl-cmdf "_circle" hole_10b "_r" 6 "")
       (setq hole(entlast))
(vl-cmdf "_dim" "d" hole "" "@0,0" "")

[Евгений А.]

Код:

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

(setq hole_10b (list 10.0 10.0 10.0)
      radius   6.0
      ) ;_ end setq
(and
  (vl-cmdf "_circle" hole_10b radius)
  (setq hole (entlast))
  (vl-cmdf "_dimdiameter" hole hole_10b)
)

[Holon]

А как развернуть размерную линию, я хотел развернуть её на 45 градусов не реагирует

Код:

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

(vl-cmdf "_dimdiameter" hole hole_10b "_a" 45 "" "")

[Евгений А.]

Код:

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

(setq hole_10b (list 10.0 10.0 10.0)
      radius   6.0
      ) ;_ end setq 
(and (vl-cmdf "_circle" hole_10b radius)
     (setq hole (entlast))
     (vl-cmdf "_dimdiameter"
              hole
              (mapcar '+ hole_10b '(1. 1. 1.))
              ) ;_ end vl-cmdf
     ) ;_ end and