AutoCAD LISP 動態圖塊圖塊-動作參數 獲取或設定屬性的值
在這裡介紹Lee Mac所寫的函數。
設置動態圖塊特定動作參數屬性值
獲取動態圖塊所有動作參數屬性值
設置動態圖塊多個動作參數屬性值
獲取動態圖塊特定動作參數數值列示清單
切換動態圖塊翻轉狀態
獲取可見性參數名稱
獲取動態圖塊可見性狀態
設置動態圖塊可見性狀態
_$ (LM:getdynpropvalue (vlax-ename->vla-object (car(entsel))) "距離1")
853.74
設置動態圖塊特定動作參數屬性值
_$ (LM:setdynpropvalue (vlax-ename->vla-object (car(entsel))) "距離1" 300)
300
獲取動態圖塊所有動作參數屬性值
_$ (LM:getdynprops (vlax-ename->vla-object (car(entsel))))
(("距離1" . 300.0) ("Origin" 0.0 0.0) ("翻轉狀態1" . 0) ("可見性1" . "可見性狀態0"))
設置動態圖塊多個動作參數屬性值
_$ (LM:setdynprops (vlax-ename->vla-object (car(entsel))) '(("距離1" . 456)))
nil
獲取動態圖塊特定動作參數數值列示清單
_$ (LM:getdynpropallowedvalues (vlax-ename->vla-object (car(entsel))) "距離1")
(100.0 200.0 300.0 853.74)
切換動態圖塊翻轉狀態
_$ (LM:toggleflipstate (vlax-ename->vla-object (car(entsel))))
1
獲取可見性參數名稱
_$ (LM:getvisibilityparametername (vlax-ename->vla-object (car(entsel))))
"可見性1"
獲取動態圖塊可見性狀態
_$ (LM:getvisibilitystate (vlax-ename->vla-object (car(entsel))))
"可見性狀態0"
設置動態圖塊可見性狀態
_$ (LM:SetVisibilityState (vlax-ename->vla-object (car(entsel))) "可見性狀態1")
"可見性狀態1"
函數連結:
獲取動態圖塊特定動作參數屬性值設置動態圖塊特定動作參數屬性值
獲取動態圖塊所有動作參數屬性值
設置動態圖塊多個動作參數屬性值
獲取動態圖塊特定動作參數數值列示清單
切換動態圖塊翻轉狀態
獲取可見性參數名稱
獲取動態圖塊可見性狀態
設置動態圖塊可見性狀態
範例:
獲取動態圖塊特定動作參數屬性值_$ (LM:getdynpropvalue (vlax-ename->vla-object (car(entsel))) "距離1")
853.74
設置動態圖塊特定動作參數屬性值
_$ (LM:setdynpropvalue (vlax-ename->vla-object (car(entsel))) "距離1" 300)
300
獲取動態圖塊所有動作參數屬性值
_$ (LM:getdynprops (vlax-ename->vla-object (car(entsel))))
(("距離1" . 300.0) ("Origin" 0.0 0.0) ("翻轉狀態1" . 0) ("可見性1" . "可見性狀態0"))
設置動態圖塊多個動作參數屬性值
_$ (LM:setdynprops (vlax-ename->vla-object (car(entsel))) '(("距離1" . 456)))
nil
獲取動態圖塊特定動作參數數值列示清單
_$ (LM:getdynpropallowedvalues (vlax-ename->vla-object (car(entsel))) "距離1")
(100.0 200.0 300.0 853.74)
切換動態圖塊翻轉狀態
_$ (LM:toggleflipstate (vlax-ename->vla-object (car(entsel))))
1
獲取可見性參數名稱
_$ (LM:getvisibilityparametername (vlax-ename->vla-object (car(entsel))))
"可見性1"
獲取動態圖塊可見性狀態
_$ (LM:getvisibilitystate (vlax-ename->vla-object (car(entsel))))
"可見性狀態0"
設置動態圖塊可見性狀態
_$ (LM:SetVisibilityState (vlax-ename->vla-object (car(entsel))) "可見性狀態1")
"可見性狀態1"
留言
張貼留言