[zolton]

Уважаевые люди! Хочу облегчить труд и сыкономить время на подсчеты. И вот у меня такой вопрос. Можно ли в AutoCade 2006 подсчитать массу детали, вернее ее развертки или хотябы найти ее площадь для далнейших расчетов. Внизу фаил преклеплен для примера развертки...прошу помощи или хотябы придание ускарения в нужном направлении

[teoretik24]

Profan
#20
возможно autodesk что придумал, для решения подобных задач

[nikolaev]

Где-то давно скачал прграмму,немного ее доделал. Мне удобно.

Код:

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

(VMON)
(defun pmassa ()
    (setq pm
     (getstring "\n Введите округленное значение массы для простановки в штампе: ")
    )
        (setq zt1 (getpoint "\nУкажите точку вставки текста "))
    (command "_layer" "_M" "ТЕКСТ" "")
    (command "_TEXT" "_C" zt1 (* (getvar "dimscale") 3.5) 0 pm)
)

(defun C:massa ()
(command "-OSNAP" "_OFF")

         (setq oce (getvar "cmdecho"))
         (setvar "cmdecho" 0)
         (setq lupold (getvar "luprec"))
         (setvar "luprec" 3)
         (setq pickold (getvar "pickbox"))
         (setvar "PICKBOX" 3)
         (initget (+ 1 2 4))
         (setq pl 0.00000785)
         (setq m 0)
         (setq kod nil)
        (princ "\nРазбейте деталь на элементы. Сложный контур очертите замкнутой полилинией. ")
   (while
         (/= kod "End")
    (progn

         (initget "Circle Box Pline Konus End ")
(setq tmp (getkword
(strcat "\nУкажите тип сечения (англ. букв.) : C - Круг, B - Прям-к, P - Полилиния, K - конус, или E - Конец расчета ")))
(if (/= tmp nil) (setq kod tmp))
      (if (= kod "Circle")
        (progn
         (initget (+ 1 2 4))
         (setq d (getreal "\n Введите диаметр элемента,мм: "))
         (setq s1 (/ (* pi d d) 4))
        )
      )

(if (/= tmp nil) (setq kod tmp))
      (if (= kod "Konus")
        (progn
         (initget (+ 1 2 4))
         (setq d1 (getreal "\n Введите больший диаметр ,мм: "))
         (setq d2 (getreal "\n Введите меньший диаметр ,мм: "))
         (setq s1 (/ (* (+ (* d1 d1) (* d1 d2) (* d2 d2)) pi) 12))
        )
      )

      (if (= kod "Box")
        (progn
         (initget (+ 1 2 4))
         (setq w (getreal "\n Введите ширину сечения элемента,мм: "))
         (initget (+ 1 2 4))
         (setq h (getreal "\n Введите высоту сечения элемента,мм: "))
         (setq s1 (* w h))
        )
      )
      (if (= kod "Pline")
        (progn
         (setq a
         (entsel "\n Укажите полилинию,образающую сечение: ")
         )
         (command "area" "e" a)
         (setq s1 (getvar "AREA"))                 
         (prin1 s1)
        )
      )
      (if (/= kod "End")
        (progn
         (initget (+ 1 2))
         (setq l (getreal "\n Введите длину элемента заданного сечения,мм: "))
         (initget 1)
         (setq n
          (getreal "\n Введите кол-во элементов (с минусом, если объем вычитается): ")
         )
         (setq v1 (* s1 l))
         (setq m1 (* v1 pl))
         (setq ms (* n m1))
         (setq m (+ m ms))
     ;;    (prompt "\n Масса одного элемента,кг: ")
      ;;   (prin1 m1)
     ;;    (prompt "  Масса N элементов,кг: ")
     ;;    (prin1 ms)
        )
      )
         (prompt "\nСуммарная масса детали,кг: ")
         (prin1 m)
    )
  )
         (pmassa)
         
         (setvar "luprec" lupold)
         (setvar "pickbox" pickold)
         (setvar "cmdecho" oce)
         (princ)
)

[Marsikus]

Сообщение от Profan В AutoCAD'е тело - не тело вовсе, а пустота, обман зрения при визуализации, поэтому ни о какой плотности и речи быть не может.

Тогда странно, зачем в информации о теле выдается масса, соответствующая объему с веществом единичной плотности. Видимо только подразнить пользователей.