社区 › AutoLISP/Visual LISP 编程技术 › ssget 后跟mode 的部分理解(不断更新)

cocoorange 发表于 2022-9-13 14:52:00

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

Bdj 发表于 2022-9-13 17:11:01

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

露水2 发表于 2023-1-3 14:59:27

好久没来了，溜达一下。

magicheno 发表于 2023-3-2 16:10:54

感谢大佬，学习了

刘炎华 发表于 2023-4-6 15:07:22

本帖最后由 刘炎华 于 2023-9-3 15:40 编辑

大师,用户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 "")
)

刘炎华 发表于 2023-9-3 15:43:12

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 发表于 2023-10-26 17:12:34

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

xxyyzzlg 发表于 2024-8-4 19:57:49

感谢楼主的用心整理

jenlin 发表于 2024-8-11 16:06:46

学习一下！

gf123 发表于 2024-11-29 22:47:34

学习了。。。

查看完整版本: ssget 后跟mode 的部分理解(不断更新)