[討論]關於QSELECT 的功能?

RyanGuo 寫到:它是可以找A~B之間的數值,
方法就是用兩次qselect.

也就是說用了第一次之後馬上再用第二次.
EX:第一次找半徑大於A,第二次找半徑小於B,最後就是A＜半徑＜B.

如果你還想要縮小範圍,可以連續用n次,直到你滿意為止.

有3點需要注意的,
1.qselect可以從已經選取的圖元中做篩選,
當它是從選取中做篩選時,它上面的"套用至"後面接的是"目前的選取".
2.如果是要選取符合條件的圖元,套用方式要用併入新選集,
如果是要反向操作,從目前選取中排除符合條件的圖元,則是要用從新選集排除.
3.附加至目前選集不能打勾,打勾的話會強制變成套用至整個圖面.

關於qselect我再說一下怎樣在qselect中使用上一次選取:
1.在沒有選取的情況下使用qselect.
2.套用方式用併入新選集,附加至目前選集不打勾.
3.點擊"套用至"那一列後面的"選取物件"圖示.
4.輸入P後按空白鍵或ENTER

最後回到你的問題,
我覺得你可能只是要看長度是不是就如同標註顯示的,
如果是那樣的話,
可以直接修改標註形式,
把顯示的精確度提高就可以了.

Tiger&蘋果爸 寫到: 按照RyanGuo的作法，的確可以使用二次QSELECT指令過濾，以下操作供你參考：

DANDYYEUNG 寫到:我最後覺得如果當1000 這個值有誤差的時候，我要用好多次篩選的方法，但我還未完全了解如圖中有了1000以上n 個數值或1000以下n個數值的時候什樣去找到只是數值為1000.00001 或999.999999 因為畫圖的mistake去尋找1000 值，
我用了把標注explode 之後就變成mtext ，再用find 去找尋1000 這個時候，我就可以找到1000 的所在地，但當然要復制出來才做啦，這個方法很笨!!!!

代碼:

;;;說明:
;;;1.抓取"標註時計量測值"的精準度只有到小數點後一位 (例如:1000.1 or 999.9) 所以輸入的"正、負誤差值"最好只到小數點後一位(例如:0.1) 不然就要加大(例如:想抓0.0001的誤差 得輸入0.0002才抓得到你想抓到的標柱)
;;;2.QSELECT 沒有上述精確度的問題,但是沒有>=或是<=的篩選,
;;;3.有"文字置換"的標柱不會被此程式選取
(defun c:SelErrDim()
  (vl-load-com)
  (setq TNo nil)
  (setq TNo (getreal "\n輸入篩選值:<1000>"))
  (if (null TNo) (setq TNo 1000))
  (setq TNo (abs TNo))
  (setq PNo nil)
  (setq PNo (getreal "\n輸入正誤差:<0.1>"))
  (if (null PNo) (setq PNo 0.1))
  (setq PNo (abs PNo))
  (setq NNo nil)
  (setq NNo (getreal "\n輸入負誤差:<0.1>"))
  (if (null NNo) (setq NNo 0.1))
  (setq NNo (abs NNo))
  (setq ss (ssget "X" '((0 . "DIMENSION"))))
  (setq ONo (+ TNo PNo) UNo (- TNo NNo))
  ;(setq ONo (+ TNo PNo PNo) UNo (- TNo NNo NNo))
  (setq i 0)
  (setq ssnew (ssadd))
  (repeat (sslength ss)
    (setq obj (ssname ss i))
    (setq xobj (vlax-ename->vla-object obj))
    (if (/= (vla-get-Measurement xobj) TNo)
      (if (<= (vla-get-Measurement xobj) (+ TNo PNo))
      ;(if (<= (vla-get-Measurement xobj) ONo)
   (if (>= (vla-get-Measurement xobj) (- TNo NNo))
   ;(if (>= (vla-get-Measurement xobj) UNo)
     (setq ssnew (ssadd obj ssnew))
     )
   )
      )
    (setq i (1+ i))
    )
  (command "select" ssnew)
  (prin1)
  )

Tiger&蘋果爸 寫到: 謝謝熱心程式分享~< 積分 +1>
[公告]關於團隊成員的回文及貢獻

Tiger&蘋果爸 寫到: 按照RyanGuo的作法，的確可以使用二次QSELECT指令過濾，以下操作供你參考：

RyanGuo 寫到:它是可以找A~B之間的數值,
方法就是用兩次qselect.

Spoiler（用來隱藏帖子內容）:

Tiger&蘋果爸 寫到: 按照RyanGuo的作法，的確可以使用二次QSELECT指令過濾，以下操作供你參考：

Spoiler（用來隱藏帖子內容）:

leoneriol 寫到:

DANDYYEUNG 寫到:我最後覺得如果當1000 這個值有誤差的時候，我要用好多次篩選的方法，但我還未完全了解如圖中有了1000以上n 個數值或1000以下n個數值的時候什樣去找到只是數值為1000.00001 或999.999999 因為畫圖的mistake去尋找1000 值，
我用了把標注explode 之後就變成mtext ，再用find 去找尋1000 這個時候，我就可以找到1000 的所在地，但當然要復制出來才做啦，這個方法很笨!!!!

這樣確實是個方法,能確確實實解決您的的問題的方法,並沒有多笨的,

而且能想出解決的方式,就是真正的聰明人了~!

代碼:

(defun c:SelErrDim()
  (vl-load-com)
  (setq TNo nil)
  (setq TNo (getreal "\n輸入篩選值:<1000>"))
  (if (null TNo) (setq TNo 1000.0))
  (setq TNo (abs TNo))
  (setq PNo nil)
  (setq PNo (getreal "\n輸入正誤差:<0.0001>"))
  (if (null PNo) (setq PNo 0.0001))
  (setq PNo (abs PNo))
  (setq NNo nil)
  (setq NNo (getreal "\n輸入負誤差:<0.0001>"))
  (if (null NNo) (setq NNo 0.0001))
  (setq NNo (abs NNo))
  (setq ss (ssget "X" '((0 . "DIMENSION"))))
  (setq i 0)
  (setq ssnew (ssadd))
  (repeat (sslength ss)
    (setq obj (ssname ss i))
    (setq xobj (vlax-ename->vla-object obj))
    (if (<= (vla-get-Measurement xobj) (+ TNo PNo))
      (if (> (vla-get-Measurement xobj) TNo)
   (setq ssnew (ssadd obj ssnew))
   )
      )
    (if (>= (vla-get-Measurement xobj) (- TNo NNo))
      (if (< (vla-get-Measurement xobj) TNo)
   (setq ssnew (ssadd obj ssnew))
   )
      )
    (setq i (1+ i))
    )
  (command "select" ssnew)
  (prin1)
)

leoneriol 寫到:感謝兩位的指導及教學....我也搞清楚QSELECT的特別之處了...

RyanGuo 寫到:

Spoiler（用來隱藏帖子內容）:

RyanGuo 寫到:

Spoiler（用來隱藏帖子內容）:

RyanGuo 寫到:捨近求遠??

如果要用QSELECT完整選取才真的叫做麻煩,
先來看範圍,
在標註精準度0.00的情況下,
範圍是大於等於N-0.005,小於N+0.005,最後排除N,
QSELECT能用條件篩選中沒有大於等於,
所以要用大於N-0.00500001,小於N+0.005,最後排除N,
也就是說要用三次QSELECT才能完全選完.
最麻煩的地方是N-0.00500001,
這到底是在畫圖還是在算數學啊?

至於文字置換所造成的盲點,
用QSELECT的方法一樣會有這盲點,
而且沒辦法用QSELECT解決,
比較可行的解決法是把標註用圖塊的方式複製出來,
再把圖塊中標註的文字置換全部清空,
再用清空文字置換的標註當基準對照慢慢找,
程序相當繁雜,
所以我的上一份工作,
主管甚至就直接規定,
文字置換中不可以填入任何文字.

要一次解決以上幾點,
除了用程式輔助外,
應該是沒有其他方案好用.

DANDYYEUNG 寫到:另外提供大家可能認識的當文字置換了可以用COMMAND:DIMREASSOC 去把文字置換了的一拼還原作為謝謝!!!

leoneriol 寫到:

Spoiler（用來隱藏帖子內容）: