tmelancon 发表于 2022-7-5 18:32:36

可用的新套索命令

有没有什么东西可以像新的ACAD2015一样为AutoCAD 2014用户提供漂亮的套索选择？我渴望它，它是合法的！

Lt Dan's l 发表于 2022-7-5 19:02:16

又快又丑
 
 
 

(defun lasso ( / *error* lst n gr ss )
(defun *error* ( m )
   (or (wcmatch (strcase m) "*BREAK,*CANCEL*,*EXIT*")
      (princ (strcat "\n** Error: " m" **"))
   ) (redraw) (princ)
)
(while (or (eq 5 (car (setq gr (grread t 5)))) (eq 3 (car gr)))
   (and (eq 3 (car gr))(setq lst (cons (cadr gr) lst)))
   (redraw)
   (and (< 1 (setq n (length lst)))
   (repeat n
       (grdraw (nth (setq n (1- n)) lst)
         (nth (if (minusp (1- n)) (1- (length lst)) (1- n)) lst)
         2
       )
   )
   )
) (redraw)(sssetfirst nil (setq ss (ssget "CP" lst))) ss
)



 
 
注意：您必须单击（而不是拖动）

Tharwat 发表于 2022-7-5 19:28:06

 
如果你感兴趣，可以缩短速度。
 

      (setq q (car lst))
      (mapcar '(lambda (p) (grdraw q p 2) (setq q p)) (cdr lst))

Lee Mac 发表于 2022-7-5 19:44:28

套索选择模拟
页: [1]
查看完整版本: 可用的新套索命令