Adams命令

1. FIND_MACRO_FROM_COMMAND（STRING）： 經過宏命令找到宏所在位置

2. DEFAULT_GROUND($_topgui.model): 獲取默認地面Part

3. DB_DEFAULT(.System_Defaults,」Model」)': 默認值

4. prod_info(「raw_product」)': 獲取當前Adams產品種類

5. DB_CHILDREN($_self, 「Variable」）：獲取子集

6. acar toolkit warning warning=(eval(「message」))

7. obj_exists(db_default(system_defaults,」model」),」part_name」)

8. USER_STRING(「.model.part.marker.location」):  獲取用戶輸入的位置等內容。

    cond=(USER_STRING(‘$f_body.ground_part’)!=’True’)

9. for var=$_topgui.loopObj obj=(eval(db_children($_topgui,」GRaphic_Interface_Field」)): 循環界面上全部Field控件

10. symmetric_obj($_topgui.current_element).ref_marker: 獲取對稱位置的OBJECT

11. STR_CHAR_SWAP（「r」,」lrrl」,1)： 用於獲取對稱字符

12. DB_MOVE(marker, new_part)': 移動所屬的父類

13. ACAR.variables.vehicle_left@{1，2，3}：向量相乘之和

14. symmetry({x,y,z}）：對稱位置座標

15. db_ancestor(object, 「part」): 獲取父類中part的object

16.simulation set solver_preference = internal   設置使用內部Solver

 17.刪除UDE：assembly delete instance_name   或者 entity delete entity

18.添加圖片：var set var=.db_base.variables.i int=(eval(PUTENV(       "MDI_AVIEW_BITMAPS",getenv("MDI_AVIEW_BITMAPS")//";"//getenv("db_base")//"/bitmap")))

interface label create  icon_file = "nikon.png"

 19. 刪除文件：variable set variable=$_self.tmpret int=(eval(remove_file($_self.tmprptfil)))

 20. 詢問對話框：variable set variable = $_self.yes_no_cancel int = (eval(alert(\"Information\",\"Save the property file?\",\"Yes\",\"No\",\"Cancel\",2)))

21. 1rad：弧度對應值

22. 旋轉座標時要考慮旋轉方式的影響

undo begin sup=yes
variable set variable=.mdi.TmpDefOriS str=(eval(user_string(".system_defaults.orientation_type")))
defaults unit orientation_type=body123
move rotation marker_name = $attach_marker &
csmarker_name = $attach_marker &
a1=$sprocket_mis_x a2=$sprocket_mis_y a3=0.0 about=yes
defaults unit orientation_type = (eval(.mdi.TmpDefOriS))
undo end

23.獲取DBOX全部filed控件

" for variable = $_topgui.loopObj object = (eval(db_children($_topgui, \"Graphic_Interface_Field\")))", &
" interface field set field_name = (eval($_topgui.loopObj)) &", &
" strings = \"\" execute = no", &
" end", &

 

24. acar中的對稱性檢查obj_typecheck($reference_frame,"l")

25.UNIQUE_NAME數據庫裏惟一名字

26. UNIQUE_NAME_IN_HIERARCHY在當前模型數據庫裏惟一名字

26.循環刪除特定子內容

if condition = (db_obj_exists($chain_links_name, "span_at_*_a"))

for variable_name = $_self.loopObj object = $chain_links_name."span_at_*_a" type = request

variable set variable_name = $_self.request_name &

string_value = (eval($_self.loopObj.object_value))

variable set variable_name = $_self.loopObj &

object_value = (none)

amachinery standard_interface belt span_request delete &

request_name = (eval($_self.request_name.string_value))

end

end

27. DB_MOVE: 移動maker所屬PART   var set var=$_self.move_g int=(eval(db_move((eval($_self.con_guid_obj.object_value.ref_marker.object_value)),(eval($f_guide_conn)))))

 

 28. 單位隨公式條件：

variable set variable=$_self.angle &
real=(eval(($_self.angle[1]<0)+0.0 ? (360d+$_self.angle[1]) : ($_self.angle[1])))

29.NORMALIZE({1,1,4})

單位正交

 29.dot product:

real_value = (eval(acos(DOT($_self.u2, $_self.u3))))

30. TMAT獲取旋轉矩陣，並對u1座標進行旋轉

real_value = (eval(TMAT({-$_self.the2, 0.0, 0.0}, "space313") @ TRANSPOSE($_self.u1))) 

 31. 對稱性檢查：

obj_typecheck($reference_frame,"l")

 32.DM算距離，VR算徑向速度差

(DM(sprocketset_2tappet_g5.housing_part.housing_attach_marker,sprocketset_2tappet_g5.piston_part.piston_attach_marker)

-sprocketset_2tappet_g5.offsetCalc)*-sprocketset_2tappet_g5.stiffness

+VR(sprocketset_2tappet_g5.housing_part.housing_attach_marker,sprocketset_2tappet_g5.piston_part.piston_attach_marker)

*-sprocketset_2tappet_g5.damping

100.將宏寫到文本的方法：

[sourcecode language='bash'  padlinenumbers='true' collapse='false']
file text open file=".ACAR.macros.mac_ana_act_sub.txt" open_mode=overwrite
file text write format="%s" newline=yes value=(eval(user_string(".ACAR.macros.mac_ana_act_sub.commands_to_be_executed")))
file text close file=".ACAR.macros.mac_ana_act_sub.txt"
[/sourcecode]