how to select overried dimension ?qselect is not working

how to select overried dimension ?qselect is not working in my autocad

Please try this one,

(prompt "Ketik chkd untuk menjalankan program!")
(defun c:chkd (/ cd DimSel Pengulangan cnt Sdat EntDat DimGan )
(setq DimSel (ssget "_X" (list (cons 0 "Dimension")))); pemilihan objek khusus dimensi
(setq Pengulangan (sslength DimSel)); menghitung jumlah objek yang terpilih
(Setq cnt -1); membuat counter
(setq cd (ssadd))
;----------
(repeat Pengulangan
(setq cnt  (1+ cnt))
(setq Sdat (ssname DimSel cnt)); mengambil ename
(setq EntDat (entget Sdat))
(setq DimGan (cdr(assoc 1 EntDat))); mencari data dimensi yang diganti
(if (/= DimGan "")
(ssadd Sdat cd )

); if
); repeat
(command "select" cd)
(princ)
);defun
(princ)

regards,

Afri

Ya Its Work,thank You So Much

MMS

Thanks for this lisp

Could you please translate the sentences from your native lang to English?

Ya Its Work,thank You So Much

You're welcome .

Regards,

Afri

MMS

Thanks for this lisp

Could you please translate the sentences from your native lang to English?

I'm Sorry , I will try for translate in English.

(prompt "Type CHKD for running program!")
(defun c:chkd (/ cd DimSel Pengulangan cnt Sdat EntDat DimGan )
(setq DimSel (ssget "_X" (list (cons 0 "Dimension")))); Selection set for Dimension
(setq Pengulangan (sslength DimSel)); calculating the selected object
(Setq cnt -1); Counter
(setq cd (ssadd))
;----------
(repeat Pengulangan
(setq cnt  (1+ cnt))
(setq Sdat (ssname DimSel cnt)); Get Ename
(setq EntDat (entget Sdat))
(setq DimGan (cdr(assoc 1 EntDat))); Searching Override Dimension
(if (/= DimGan "")
(ssadd Sdat cd )

); if
); repeat
(command "select" cd)
(princ)
);defun
(princ)

I'm from Indonesia so sometime I use Bahasa for create simple code.

Regards,

Afri

(defun c:dsel nil
 (sssetfirst nil
   (ssget "_X" '((0 . "DIMENSION") (-4 . "<NOT") (1 . "") (-4 . "NOT>")))
 )
 (princ)
)

Lee,

(sssetfirst nil (ssget "_X" '((0 . "DIMENSION") (1 . "*?*"))))

Nice one Gile