(defun c:DdS3(/ dim ss1 ss)
(setq dim (entget (car (entsel))))
(setq ss1 (cdr (assoc 42(cdr dim))))
(setq ss (ssget (list (cons 0 "dimension") (cons 42 ss1))))
(sssetfirst nil ss)
(princ)
)


원본코드

(defun c:DdS6(/ ss)
(prompt "n치수만 선택..")
(setq ss (ssget (list (cons 0 "dimension") (cons 42 6))))
(sssetfirst nil ss)
(princ)
)


치수선에서 특정 거리값 칫수 선택 하는것 응용하여 사용하려합니다.