Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Vaidas

Pages: 1 ... 3 4 [5] 6 7
61
Free tools / OpenDCL
« on: 2011-12-02, 06:14:28 »
Development platform for LISP application user interfaces.
http://www.bricsys.lt/common/applications/application.jsp?app=373&apploc=576

62
Free tools / DocTabs
« on: 2011-12-02, 06:12:53 »
DocTabs provides an easy method for switching between documents.
http://www.bricsys.lt/common/applications/application.jsp?app=256&apploc=410

63
Free tools / DOSLib
« on: 2011-12-02, 06:11:56 »
DOSLib, is a library of AutoLISP-callable functions that provides a variety of Windows operating system capabilities to Bricscad.
http://www.bricsys.lt/common/applications/application.jsp?app=249&apploc=394

64
Free tools / DISTO transfer
« on: 2011-12-02, 06:10:57 »
DISTO transfer to send measuring data from your Leica DISTO right into the Bricscad application.
http://www.bricsys.lt/common/applications/application.jsp?app=435&apploc=671

65
Free tools / BcadTools Freeware
« on: 2011-12-02, 06:09:51 »
BcadTools provide a number of AutoCAD-compatible commands missing in Bricscad, and additional features like LayerTools to manage drawing layers.
http://www.bricsys.lt/common/applications/application.jsp?app=335&apploc=528

66
Kitox / Зимняя акция
« on: 2011-12-01, 17:41:51 »
Сезонные скидки на все продукты KitoxToolset.

68
Kitox / Žiemos akcija
« on: 2011-12-01, 17:38:54 »
Sezono nuolaidos visiems KitoxToolset produktams.

70
Kitox / Winter promotion
« on: 2011-12-01, 17:36:22 »
Season discounts to all products of KitoxToolset.

72
Code: [Select]
(setq ci '(10000 100000))
(vl-load-com)

(defun inax:timer (/ s o)
  (if (not inax-s)
    (progn
      (setq s (getvar "DATE"))
      (setq o    ""
    inax-s (* 86400.0 (- s (fix s)))
      )
    )
    (progn
      (setq s (getvar "DATE"))
      (setq o    (rtos (- (* 86400.0 (- s (fix s))) inax-s) 2 8)
    inax-s nil
      )
    )
  )
  o
)


(princ (strcat "\n\n"
       (getvar "product")
       " "
       (getvar "acadver")
       "\n==========\n"
       )
)

(foreach c ci
  (princ (strcat (itoa c) " cycles: \n"))


  (inax:timer)
  (setq m (vla-get-modelspace
    (vla-get-ActiveDocument
      (vlax-get-acad-object)
    )
  )
  )
  (repeat c
    (vla-addcircle
      m
      (vlax-3d-point '(0 0))
      1
    )
  )
  (princ (strcat (inax:timer) " s\n"))

)

(textscr)
(princ)

Результаты на моём Intel(R) Core(TM) i7-2720QM CPU @ 2.20GHz :

Bricscad 18.0Bricscad
==========
10000 cycles:
0.37400723 s
100000 cycles:
3.68197560 s

AutoCAD 18.0s (LMS Tech)
==========
10000 cycles:
0.88899136 s
100000 cycles:
8.84601921 s

73
LISP, DCL, Menu, Customization... / LISP engine speed
« on: 2011-12-01, 11:45:55 »
Code: [Select]
(setq ci '(10000 100000))
(vl-load-com)

(defun inax:timer (/ s o)
  (if (not inax-s)
    (progn
      (setq s (getvar "DATE"))
      (setq o    ""
    inax-s (* 86400.0 (- s (fix s)))
      )
    )
    (progn
      (setq s (getvar "DATE"))
      (setq o    (rtos (- (* 86400.0 (- s (fix s))) inax-s) 2 8)
    inax-s nil
      )
    )
  )
  o
)


(princ (strcat "\n\n"
       (getvar "product")
       " "
       (getvar "acadver")
       "\n==========\n"
       )
)

(foreach c ci
  (princ (strcat (itoa c) " cycles: \n"))


  (inax:timer)
  (setq m (vla-get-modelspace
    (vla-get-ActiveDocument
      (vlax-get-acad-object)
    )
  )
  )
  (repeat c
    (vla-addcircle
      m
      (vlax-3d-point '(0 0))
      1
    )
  )
  (princ (strcat (inax:timer) " s\n"))

)

(textscr)
(princ)

Results on my Intel(R) Core(TM) i7-2720QM CPU @ 2.20GHz :

Bricscad 18.0Bricscad
==========
10000 cycles:
0.37400723 s
100000 cycles:
3.68197560 s

AutoCAD 18.0s (LMS Tech)
==========
10000 cycles:
0.88899136 s
100000 cycles:
8.84601921 s

74
LISP, DCL, Meniu, pritaikymas... / LISP variklio greitis
« on: 2011-12-01, 11:43:09 »
Code: [Select]
(setq ci '(10000 100000))
(vl-load-com)

(defun inax:timer (/ s o)
  (if (not inax-s)
    (progn
      (setq s (getvar "DATE"))
      (setq o    ""
    inax-s (* 86400.0 (- s (fix s)))
      )
    )
    (progn
      (setq s (getvar "DATE"))
      (setq o    (rtos (- (* 86400.0 (- s (fix s))) inax-s) 2 8)
    inax-s nil
      )
    )
  )
  o
)


(princ (strcat "\n\n"
       (getvar "product")
       " "
       (getvar "acadver")
       "\n==========\n"
       )
)

(foreach c ci
  (princ (strcat (itoa c) " cycles: \n"))


  (inax:timer)
  (setq m (vla-get-modelspace
    (vla-get-ActiveDocument
      (vlax-get-acad-object)
    )
  )
  )
  (repeat c
    (vla-addcircle
      m
      (vlax-3d-point '(0 0))
      1
    )
  )
  (princ (strcat (inax:timer) " s\n"))

)

(textscr)
(princ)

Mano Intel(R) Core(TM) i7-2720QM CPU @ 2.20GHz rezultatai tokie:

Bricscad 18.0Bricscad
==========
10000 cycles:
0.37400723 s
100000 cycles:
3.68197560 s

AutoCAD 18.0s (LMS Tech)
==========
10000 cycles:
0.88899136 s
100000 cycles:
8.84601921 s

75
CADprofi / CADprofi 8
« on: 2011-12-01, 10:05:11 »
Основные обновления в CADprofi 8.03:
- Черчение и редактирование лестниц.
- Дополнительные символы для планов пожарной эвакуации.
- Дополнительные стандарты в механическом модуле.
- Дополнительные обозначения шероховатости и сварных швов.
- Новая система черчения стояков и распределителей в модуле HVAC & Piping.
- Черчение изолированных каналов и труб.
- Создание индивидуальных соединений (для трубопроводов, воздуховодов, инсталлиационных и кабельных каналов).
- Шаблоны линий электрических цепей и электрических схем.
- Расширенная библиотека электрических символов.
- Новые функции в редакторе схем: черчение линий полилиниями, автоматическая вставка и редактирование мультилиний, автоматичесное перенумерование символов при вставке схем, настройка атрибутов, параметров и других установок.
- Новые продукты в библиотеках производителей: Wilo, Reflex, Legrand, Lovato, Wavin...

Pages: 1 ... 3 4 [5] 6 7