按块选择功能

winerfjy · 发表于 2015-11-4 14:00:06

本帖最后由 winerfjy 于 2015-11-4 14:51 编辑

(defun c:ak(/ a ss b c d)；按块选择功能
(setvar "cmdecho" 0)
(princ "\n选择要选的块样")
(setq a(cdr (assoc 2 (entget (car (entsel))))))
(setq d(substr a 1 1));到得第一个数
(if (= "*" d)
(setq c(strcat "`" a))(setq c a))
(setq b (uINT 1 "" "1.手选范围，2.全图选中" 1))
(if (= 1 b)
(prompt "\n选择一个区域:"))
(if (= 1 b)
(SETQ ss (ssget (list '(0 . "INSERT")(cons 2 c)))))
(if (= 2 b)
(SETQ ss(ssget "x"(list '(0 . "INSERT")(cons 2 c)))))
(sssetfirst nil ss)
(princ (STRCAT "共有图块" (ITOA(SSLENGTH ss))"个"))
(prin1)
(princ))
(defun uint (bit kwd msg def / inp)
(if def
(setq msg (strcat "\n" msg "<" (itoa def) ">:") ;Test for a default
bit (- bit (boole 1 bit 1)) ; A default and no null bit code
) ;setq
(if (= "" (substr msg (strlen msg) 1))
(setq msg (strcat "\n" (substr msg 1 (1- (strlen msg))) ":"))
;Then strip space
;else msg is OK
(setq msg (strcat "\n" msg ":"))
)
) ;if,if
(initget bit kwd)
(setq inp (getint msg))
(if inp
inp
def
)
)

(defun c:ak(/ a ss b c d)；按块选择功能 
(setvar "cmdecho" 0) 
(princ "\n选择要选的块样") 
(setq a(cdr (assoc 2 (entget (car (entsel)))))) 
(setq d(substr a 1 1));到得第一个数 
  (if (= "*" d) 
  (setq c(strcat "`" a))(setq c a)) 
(setq b (uINT 1 "" "1.手选范围，2.全图选中" 1)) 
  (if (= 1 b) 
    (prompt "\n选择一个区域:")) 
  (if (= 1 b) 
  (SETQ ss (ssget (list '(0 . "INSERT")(cons 2 c))))) 
  (if (= 2 b) 
(SETQ ss(ssget "x"(list '(0 . "INSERT")(cons 2 c))))) 
(sssetfirst nil ss) 
(princ  (STRCAT "共有图块" (ITOA(SSLENGTH ss))"个")) 
(prin1) 
(princ)) 
(defun uint (bit kwd msg def / inp) 
  (if def 
    (setq msg (strcat "\n" msg "<" (itoa def) ">:") ;Test for a default 
    bit (- bit (boole 1 bit 1))  ; A default and no null bit code 
    )          ;setq 
    (if  (= "" (substr msg (strlen msg) 1)) 
      (setq msg (strcat "\n" (substr msg 1 (1- (strlen msg))) ":")) 
          ;Then strip space 
          ;else msg is OK 
      (setq msg (strcat "\n" msg ":")) 
    ) 
  )          ;if,if 
  (initget bit kwd) 
  (setq inp (getint msg)) 
  (if inp 
    inp 
    def 
  ) 
)

113486295 · 发表于 2018-3-10 23:08:45

高手啊

能不能修改成选择特定的匿名块

bluefcc1 · 发表于 2018-3-20 13:20:04

下載學習..

113486295 · 发表于 2018-3-26 00:02:41

能不能修改成选择特定的匿名块

疯球 · 发表于 2018-5-14 16:30:53

真心感觉高手的分享

winerfjy · 发表于 2018-7-14 23:29:55

疯球发表于 2018-5-14 16:30
真心感觉高手的分享

很久没有上论坛了都是刚学lisp的时候拿得出手的东西

alexmai · 发表于 2019-3-6 17:10:05

可否改进一下，对动态块也适用

资料参考：
http://bbs.mjtd.com/forum.php?mo ... ht=ssget&page=2

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

[源码] 按块选择功能