ssget 后跟mode 的部分理解(不断更新)

cocoorange

需要用到这个功能，先学习一下，谢谢分享

Bdj

我天，这个好帖啊，看别人代码里面的那些写法，完全看不懂，找到这个了，学习~

露水2

好久没来了，溜达一下。

magicheno

感谢大佬，学习了

刘炎华

大师,用户UCS下不行呢?
(defun c:test (/ vs vc pcx pcy pt1 pt3 ss)
  (setq vs 1000)
  (setq vc (getvar "viewctr"))
  (setq vc (trans vc 1 0))
  (setq pcx (car vc)
          pcy (cadr vc)
          pt1 (list (- pcx vs) (- pcy vs))
          pt3 (list (+ pcx vs) (+ pcy vs))
  )
  (setq pt1 (trans pt1 0 1))
  (setq pt3 (trans pt3 0 1))
  (setq ss (ssget "x"  (list
        '(-4 . "<and")
        '(0  . "insert")
                      '(-4 . ">,>,*")
          (cons 10 pt1)
        '(-4 . "<,<,*")
                        (cons 10 pt3)
                      '(-4 . "and>")
)))
  (command "erase" ss "")
)

刘炎华

masterlong 发表于 2012-3-25 19:09
补充一个用法
其实帮助文件里有用法说明
但讲的比较含混

大师,用户UCS下不行呢?(比如坐标旋转一定角度后)
(defun c:test26 (/ vs vc pcx pcy pt1 pt3 ss)
  (setq vs 1000)
  (setq vc (getvar "viewctr"))
  (setq vc (trans vc 1 0))
  (setq pcx (car vc)
          pcy (cadr vc)
          pt1 (list (- pcx vs) (- pcy vs))
          pt3 (list (+ pcx vs) (+ pcy vs))
  )
  (setq pt1 (trans pt1 0 1))
  (setq pt3 (trans pt3 0 1))
  (setq ss (ssget "x"  (list
        '(-4 . "<and")
        '(0  . "insert")
                      '(-4 . ">,>,*")
          (cons 10 pt1)
        '(-4 . "<,<,*")
                        (cons 10 pt3)
                      '(-4 . "and>")
)))
  (command "erase" ss "")
)

ziyouwzb

屏幕外选择实体太牛了，以前用SSGET "W" 老是选不到屏幕外的实体，现在方便多了。