[zenon]

Сперва логи работы
в 2006

Command: _slice Select objects: 1 found Select objects: Specify first point on slicing plane by [Object/Zaxis/View/XY/YZ/ZX/3points] <3points>: Specify second point on plane: Specify third point on plane: Specify a point on desired side of the plane or [keep Both sides]

в 2008

Command: _slice Select objects to slice: 1 found Select objects to slice: Specify start point of slicing plane or [planar Object/Surface/Zaxis/View/XY/YZ/ZX/3points] <3points>: Specify second point on plane: Specify a point on desired side or [keep Both sides] <Both>:

Теперь расшифровка
в 2006
1. команда _slice -> 2. выбираем объекты -> 3. подтверждаем выбор <Enter> -> 4. далее указать плоскость реза (по умолчанию по 3м точкам, используем по умолчанию) -> 5. указываем 1 точку -> 6. указываем 2 точку -> 7. указываем 3 точку -> 8. показываем ту часть которую оставить или оставляем обе.

в 2008
1. команда _slice -> 2. выбираем объекты -> 3. подтверждаем выбор <Enter> -> 4. далее указать плоскость реза (по умолчанию по 3м точкам, используем по умолчанию) -> 5. указываем 1 точку -> 6. указываем 2 точку -> (странно, но запрос на 3 точку куда-то исчез) -> 7. показываем ту часть которую оставить или оставляем обе.

для того чтобы в 2008 сработало именно по 3 точкам, в 4п требуется либо вводить 3points, либо подтвердить выбор по умолчанию, в 2006 этот пункт не требует подтверждения, т.е. сразу после 3п указываем 3 точки плоскости.
Вопрос можно ли в 2008 тоже самое сделать, но возможность выбора способа указания плоскости должна остаться.

[Trucker]

небольшая поправка... по умолчанию опция не "3 точки", а "Начальная точка режущей плоскости"... вот ее описание из хелпа:
Начальная точка режущей плоскости
Установка первой из двух точек, определяющих угол режущей плоскости. Режущая поверхность перпендикулярна плоскости XY текущей ПСК.

[zenon]

то бишь в 2008 команда доработана и как в 2006 уже не срабатывает. жаль привык уже.

[Trucker]

да, чуть не забыл макрос на кнопку разреза с 3 точками по умолчанию должен быть такой:
_slice \ _3p

[sasha_lif]

и получается lisp-ы будут уже неработоспособны..
нужна хоть и маленькая, но переделка кода.
Чисто теоретический вопрос, возможно ли запустить автокад 2008 в режиме эмуляции акада 2004 (для работоспособности старых лиспов?)

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

А что, кто-то мешает использовать метод SliceSolid?

[sasha_lif]

6. указываем 2 точку -> (странно, но запрос на 3 точку куда-то исчез

т.е макрос в этом месте начнет работать неправильно.
Навскидку помню, что произошло изменение приглашения ком. строки и для комманды UCS по сравнению например 14 с 2004 кадом

[zenon]

Кулик Алексей aka kpblc, а подробнее???

[Дима_]

В том-то и проблемма командных методов, что ключи комманд периодически немного меняються, посему если есть возможность используйте либо dxf, либо vba - хотя "макрос" конечно подлиней получиться - но скорее всего быстрей.

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

Сорри что долго не отвечал.

Сообщение от zenon Кулик Алексей aka kpblc, а подробнее???

Ну а такой вариант устроит?

Код:

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

(defun test (/ ent pt1 pt2 pt3)
  (if (and (= (type (setq ent (vl-catch-all-apply
                                (function
                                  (lambda ()
                                    (ssname (ssget "_+.:E:S" '((0 . "3dsolid"))) 0)
                                    ) ;_ end of lambda
                                  ) ;_ end of function
                                ) ;_ end of vl-catch-all-apply
                          ) ;_ end of setq
                    ) ;_ end of type
              'ename
              ) ;_ end of =
           (= (type (setq pt1 (vl-catch-all-apply
                                (function
                                  (lambda ()
                                    (trans (getpoint "\nПервая точка <Отмена> : ") 1 0)
                                    ) ;_ end of lambda
                                  ) ;_ end of function
                                ) ;_ end of vl-catch-all-apply
                          ) ;_ end of setq
                    ) ;_ end of type
              'list
              ) ;_ end of =
           (= (type (setq pt2 (vl-catch-all-apply
                                (function
                                  (lambda ()
                                    (trans (getpoint "\nВторая точка <Отмена> : ") 1 0)
                                    ) ;_ end of lambda
                                  ) ;_ end of function
                                ) ;_ end of vl-catch-all-apply
                          ) ;_ end of setq
                    ) ;_ end of type
              'list
              ) ;_ end of =
           (= (type (setq pt3 (vl-catch-all-apply
                                (function
                                  (lambda (/ tmp)
                                    (cond
                                      ((setq tmp (getpoint "\nТретья точка <Вертикально по отношению к первой> : "))
                                       (trans tmp 0 1)
                                       )
                                      (t (list (car pt1) (cadr pt2) (1+ (caddr pt2))))
                                      ) ;_ end of cond
                                    ) ;_ end of lambda
                                  ) ;_ end of function
                                ) ;_ end of vl-catch-all-apply
                          ) ;_ end of setq
                    ) ;_ end of type
              'list
              ) ;_ end of =
           ) ;_ end of and
    (progn
      (setq ent (vlax-ename->vla-object ent))
      (vla-slicesolid ent (vlax-3d-point pt1) (vlax-3d-point pt2) (vlax-3d-point pt3) :vlax-false)
      ) ;_ end of progn
    ) ;_ end of if
  ) ;_ end of defun