模拟ssget功能显示小刷子

langjs · 发表于 2020-7-30 16:02:18

; 模拟ssget功能显示小刷子,示例：(setq ss (brushss '((0 . "text"))))
  (defun brushss (fun / cl code d e gr loop pd pt ptbak ss x y)
(defun jpt (pt x y d)
   (list (list (+ (car pt) (* d x)) (+ (cadr pt) (* d y))))
)
(setq loop t)
(while loop
   (setq gr (grread t 15 1)
      code (car gr)
      pt (cadr gr)
   )
   (cond
((= code 3)          ; 鼠标左键
   (redraw)
   (setq e (* 0.5 (getvar "pickbox"))
e (append
      (jpt pt e e d)
      (jpt pt e (- e) d)
      (jpt pt (- e) (- e) d)
      (jpt pt (- e) 4 d)
   )
   )
   (if (null ptbak)
      (if (setq ss (ssget "CP" e fun))
      (progn
(setq loop nil
      pd "Y"
)
      )
      (setq ptbak pt)
      )
      (progn
      (if (= cl -1)
(if (setq ss (ssget "_CP" (list pt (list (car pt) (cadr ptbak)) ptbak (list (car ptbak) (cadr pt)) pt) fun))
   (setq loop nil)
)
      )
      (if (= cl -3)
(if (setq ss (ssget "W" ptbak pt fun))
   (setq loop nil)
)
      )
      (setq ptbak nil)
      )
   )
)
((= code 5)          ; 鼠标移动
   (redraw)
   (setq d (* 2 (/ (getvar "viewsize") (cadr (getvar "screensize")))))
   (grvecs (append
      '(2)          ; 刷子颜色
      (jpt pt 8.5 -3.2 d)
      (jpt pt 8.5 -7 d)
      (jpt pt 9.1 -3.2 d)
      (jpt pt 9.1 -7 d)
      (jpt pt 8 -7 d)
      (jpt pt 8 -3.7 d)
      (jpt pt 8 -3.7 d)
      (jpt pt 8.5 -3.2 d)
      (jpt pt 8.5 -3.2 d)
      (jpt pt 9.1 -3.2 d)
      (jpt pt 9.1 -3.2 d)
      (jpt pt 9.6 -3.7 d)
      (jpt pt 9.6 -3.7 d)
      (jpt pt 9.6 -7 d)
      (jpt pt 9.6 -7 d)
      (jpt pt 6.2 -7 d)
      (jpt pt 6.2 -7 d)
      (jpt pt 5.7 -7.5 d)
      (jpt pt 5.7 -7.5 d)
      (jpt pt 5.7 -12 d)
      (jpt pt 5.7 -12 d)
      (jpt pt 12 -12 d)
      (jpt pt 12 -12 d)
      (jpt pt 12 -7.5 d)
      (jpt pt 12 -7.5 d)
      (jpt pt 11.5 -7 d)
      (jpt pt 11.5 -7 d)
      (jpt pt 9.6 -7 d)
      (jpt pt 5.7 -12 d)
      (jpt pt 4 -14 d)
      (jpt pt 4 -14 d)
      (jpt pt 10.3 -14 d)
      (jpt pt 10.3 -14 d)
      (jpt pt 12 -12 d)
      (jpt pt 6.1 -14 d)
      (jpt pt 7.8 -12 d)
      (jpt pt 8.2 -14 d)
      (jpt pt 9.9 -12 d)
      (jpt pt 5.7 -8.8 d)
      (jpt pt 12 -8.8 d)
      (jpt pt 5.7 -10.2 d)
      (jpt pt 12 -10.2 d)
   )
   )
   (if ptbak
      (progn
      (if (< (car ptbak) (car pt))
(setq cl -3)
(setq cl -1)
      )
      (grvecs (list cl ptbak (list (car ptbak) (cadr pt)) (list (car ptbak) (cadr pt)) pt pt (list (car pt)
   (cadr ptbak)
      ) (list (car pt)
      (cadr ptbak)
         ) ptbak
      )
      )
      )
      (grvecs (append
      '(2)
      (jpt pt -3 -3 d)
      (jpt pt -3 3 d)
      (jpt pt -3 3 d)
      (jpt pt 3 3 d)
      (jpt pt 3 3 d)
      (jpt pt 3 -3 d)
      (jpt pt 3 -3 d)
      (jpt pt -3 -3 d)
      )
      )
   )
)
((member code '(11 25))
   (redraw)
   (setq loop nil)
)
   )
)
ss
  )

尘缘一生 · 发表于 2021-7-18 22:10:41

自贡黄明儒发表于 2020-7-30 17:04
还是调用系统的刷子，代码可以少很多。

希望放出代码少，速度快的刷子

1034072509 · 发表于 2020-8-4 22:23:07

自贡黄明儒发表于 2020-7-30 17:04
还是调用系统的刷子，代码可以少很多。

这个怎么玩的，大神

honglang113 · 发表于 2020-8-7 23:11:29

自贡黄明儒发表于 2020-7-30 17:04
还是调用系统的刷子，代码可以少很多。

能否给个程序？

自贡黄明儒 · 发表于 2020-7-30 17:04:51

本帖最后由自贡黄明儒于 2020-7-30 17:08 编辑

还是调用系统的刷子，代码可以少很多。

paulpipi · 发表于 2020-7-30 17:16:38

高人，下来用一下

664571221 · 发表于 2020-7-30 17:21:46

大神牛逼class

陨落 · 发表于 2020-7-30 18:59:40

自贡黄明儒发表于 2020-7-30 17:04
还是调用系统的刷子，代码可以少很多。

不是lisp吧？

maiko · 发表于 2020-7-30 21:16:18

感谢楼主分享,收下了

pengfei2010 · 发表于 2020-7-31 12:15:44

感谢楼主的无私分享

longer1000 · 发表于 2020-8-6 11:08:28

牛逼大了。厉害

账号		自动登录	找回密码
密码			注册

[函数] 模拟ssget功能显示小刷子

本帖子中包含更多资源

评分

本帖子中包含更多资源