[討論]找出弧線線長小於1mm的方法

以下程式可以找出所有綠色物件把他設定成隱藏線
(defun c:GH ()
(PROMPT "\n 挑選綠色線型為隱藏線 \n")
(command "change" (ssget '((62 . 3))) "" "P" "LT" "HIDDEN" "")
(princ))

如果要拿這個架構做 找出 弧線 並 線長小於1mm 改成綠色 是否有人知道  弧線的程式碼?(請賜教)
或是 有甚麼方法 可以做到一樣的功能。

謝謝！

以下修改:
(defun c:GH ()
(PROMPT "\n 挑選短線段為綠色 \n")
(command "change" (ssget '((?. ?))) "" ""P" "LA" "0" "C" "3" "LT" "BYBLOCK" "")
(princ))

(?. ?)內不知道怎麼填