[Jonas]

С клавиатуры _select;?;Л; работает, (выбор линией)
а выражение (command "_select" "?" "Л") не работает.
В чем проблема? L или Line не работает.

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

Попробуй _.select _f

[pan]

SELECT To view all options, enter ? at the Command prompt. Window/Last/Crossing/BOX/ALL/Fence/WPolygon/CPolygon/Group/Add/Remove/Multiple/Previous/Undo/AUto/SIngle/SUbobject/Object

Используйте опцию Fence.
В локализованных версиях добавляйте знак подчеркивания.
То есть "_f" подойдет.

[Jonas]

Спасибо за ответы.
Собственно вопрос с продолжением.
Давно пользуюсь макросом для определения массоинерционных характерисик в сложных (составных) сечениях
Макрос громоздкий и решил попробовать оформит лиспом.

Порядок действий следующий:
- выполняю section расчетного участка ,
- выдавливаю полученное сечение (сечения) на 0,0001 (чтобы результат был в см),
- нахожу центр тяжести полученного (полученных) тела,
- переношу начало координат в ЦТ,
- применяю massprop.

Собственно лисп работает до этого момента.

Хочу продолжить лисп - union;5; - не работает!
Вот код. Для нахождение ЦТ и переноса пск использовал часть кода "multicentroid2" (к сожалению не помню автора, да простит).

(defun C:mihar () (setq pt1 (getpoint "\nУкажите рамкой (с права на лево) расчетный участок: ")) (setq pt2 (getcorner pt1 "\nУкажите вторую точку: ")) (command "_section" "_f" pt1 pt2 "" "" "_yz" "_m2p" pt1 pt2 ) (command "_extrude" "Р" pt2 pt1 "" 0.0001) (command "_union" "Р" pt2 pt1 "") (setq ent1(entlast)) (defun centroid (entity /) (vlax-safearray->list (vlax-variant-value (vla-get-centroid (vlax-ename->vla-object entity)))) ) ;_ end of defun (defun mass (entity /) (vla-get-volume (vlax-ename->vla-object entity)) ) ;_ end of defun (if (setq ents (ssget "_L")) (progn (setq ents (vl-remove-if-not 'atom (mapcar 'cadr (ssnamex ents)))) (setq firstpoint (centroid (car ents))) (setq firstpointmass (mass (car ents))) (if (setq ents (cdr ents)) (progn (foreach n ents (setq secondpoint (centroid n)) (setq secondpointmass (mass n)) (setq length12 (sqrt (apply '+ (mapcar '(lambda (x) (* x x)) (mapcar '- firstpoint secondpoint))))) (setq length1 (/ (* secondpointmass length12) (+ firstpointmass secondpointmass))) (if (and (= length1 length12)(= length1 0))(setq length12 1)) (setq delta (mapcar '(lambda (x) (/ (* length1 x) length12)) (mapcar '- firstpoint secondpoint))) (setq firstpoint (mapcar '- firstpoint delta)) (setq firstpointmass (+ firstpointmass secondpointmass)) ) ;_ end of foreach ) ;_ end of progn ) ;_ end of if (setq osmode (getvar "osmode") firstpoint (trans firstpoint 0 1)) (vla-startundomark (vla-get-activedocument (vlax-get-acad-object))) (setvar "cmdecho" 0) (setvar "osmode" 0) (COMMAND "_ucs" "_o" firstpoint ) (setvar "osmode" osmode) )) (setvar "cmdecho" 1) (vla-endundomark (vla-get-activedocument (vlax-get-acad-object))) (command "_massprop" "_last" "") (princ) ) ;_ end of progn ) ;_ end of if ) ;_ end of defun (command "_massprop" "ent1" "") )

[/quote]

Уважаемые гуру, помогите закончить код.

[Jonas]

Хоть бы что сказали.
Теряюсь в догатках.
Либо я своим невежеством оскорбляю знатоков, либо задача неразрешимая?

[Do$]

Сообщение от Jonas Либо я своим невежеством оскорбляю знатоков

Код, честно говоря, на троечку с минусом...

Сообщение от Jonas либо задача неразрешимая

Разрешимая, но как-то нечетко вопрос сформулирован - нужно разбираться долго, вникать... Времени жалко.