josemukalel Posted May 30, 2010 Share Posted May 30, 2010 how to select overried dimension ?qselect is not working in my autocad Quote Link to comment Share on other sites More sharing options...
MMS Posted May 30, 2010 Share Posted May 30, 2010 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 Quote Link to comment Share on other sites More sharing options...
josemukalel Posted May 30, 2010 Author Share Posted May 30, 2010 Ya Its Work,thank You So Much Quote Link to comment Share on other sites More sharing options...
asos2000 Posted May 30, 2010 Share Posted May 30, 2010 MMS Thanks for this lisp Could you please translate the sentences from your native lang to English? Quote Link to comment Share on other sites More sharing options...
MMS Posted May 30, 2010 Share Posted May 30, 2010 Ya Its Work,thank You So Much You're welcome . Regards, Afri Quote Link to comment Share on other sites More sharing options...
MMS Posted May 30, 2010 Share Posted May 30, 2010 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 Quote Link to comment Share on other sites More sharing options...
Lee Mac Posted May 30, 2010 Share Posted May 30, 2010 (defun c:dsel nil (sssetfirst nil (ssget "_X" '((0 . "DIMENSION") (-4 . "<NOT") (1 . "") (-4 . "NOT>"))) ) (princ) ) Quote Link to comment Share on other sites More sharing options...
gile Posted May 30, 2010 Share Posted May 30, 2010 Lee, (sssetfirst nil (ssget "_X" '((0 . "DIMENSION") (1 . "*?*")))) Quote Link to comment Share on other sites More sharing options...
Lee Mac Posted May 30, 2010 Share Posted May 30, 2010 Nice one Gile Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.