[*AllA*]

Недавно подгрузила себе две команды: MRot и Sm- поворот группы объектов относительно центра каждго и аналогичное масштабирование группы объектов соответственно. Проблема в том,что мне приходится каждый раз во время входа в программу подгружать их заново. Как решить эту проблему?

[AlexV]

А в автозагрузку их внесли?

[VVA]

Почитай Как использовать лисп, опубликованный на форуме там есть про автозагрузку файлов

[*AllA*]

Большое спасибо за подсказки

[sathalex]

Подправьте пожалуйста лисп mrot (его функция поворот выбранных объектов на 180 градусов). Хотелось бы чтоб при выборе некоторого количества объектов этот лисп поворачивал их методом Random. Спасибо.

Код:

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

 (defun c:mrot (/ ass ra rp pn pt dst pts om) 
(ssget)
  (vl-load-com) 
(setq adoc (vla-get-activedocument (vlax-get-acad-object)) 
ass (vla-get-ActiveSelectionset adoc) 
om (getvar "OSMODE"));setq 
(initget "Point Center") 
(setq kw "Center")
(if (= kw "Point") 
(progn (setq obj (vla-item ass 0)) 
(vla-highlight obj :vlax-true) 
(vla-getboundingbox obj 'pn 'px) 
(setq pn (vlax-safearray->list pn) 
pt (getpoint pt "\nEnter Rotation Point: ") 
dst (distance pn pt) ang (angle pn pt)) 
(vla-update obj)));if 
(setq ra 180)
(vla-startundomark adoc) 
(vlax-for ent ass 
(vla-getboundingbox ent 'mn 'mx) 
(setq pts (mapcar 'vlax-safearray->list (list mn mx)) 
rp (vlax-3d-point (if (= kw "Point") (polar (car pts) ang dst) 
(mapcar '(lambda (x y) (/ (+ x y) 2)) (car pts) (cadr pts)))));setq 
(vla-rotate ent rp (* (/ ra 180) pi)));vlax-for 
(setvar "OSMODE" om) 
(vla-endundomark adoc) 
);end

[VVA]

Сообщение от sathalex методом Random

Имеется ввиду на случайный угол?