选择格式刷后，可以输入S进行设置，也可直接选取要被格式化的对象

/db_自贡黄明儒_ · 发表于 2013-10-12 08:59:38

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

Select destination object(s) or [Settings]
选择格式刷后，可以输入S进行设置，也可直接选取要被格式化的对象
假如用lisp写一段同等功能的代码，怎么写呢？
比如下面的代码，不输入S，但要回车才能选择对象，可格式刷不用回车，这就是奇妙之处了。
(initget "S ")
(setq cc (getkword "\n [设置(S)/选择对象]"))

ll_j · 发表于 2013-10-12 09:05:29

http://bbs.mjtd.com/thread-71545-1-1.html
这个帖子你应该看过，我认为这是目前最好的带关键字的ssget，美中不足的是使用时会在命令行显示一长串数字，不过不影响使用。

/db_自贡黄明儒_ · 发表于 2013-10-12 09:23:23

ll_j 发表于 2013-10-12 09:05
http://bbs.mjtd.com/thread-71545-1-1.html
这个帖子你应该看过，我认为这是目前最好的带关键字的ssget， ...

谢谢长老，我是想知道ssget选择对象时，可以输入S去办其它事情。
就象entsel一样
(initget " ")
(setq TXTEN (entsel "\n选择单行文字: "))
可以直接选择对象，也可输入S

st788796 · 发表于 2013-10-12 09:32:19

这个可以啊，用while 设关键字 S 128 接受任意输入，如果返回表就是entsel，如果等于 "S"，做你想做的

Lisphk · 发表于 2013-10-12 09:32:34

/db_自贡黄明儒_ 发表于 2013-10-12 09:23
谢谢长老，我是想知道ssget选择对象时，可以输入S去办其它事情。
就象entsel一样
(initget " ")

按你说的代码，我输入S怎么没用啊。

命令: (initget "")
nil

命令: (entsel "\nfaf")

fafs

*无效选择*
需要点或上一个(L)

faf
nil

st788796 · 发表于 2013-10-12 09:33:13

(initget 128 "S")

ysq101 · 发表于 2013-10-12 09:46:32

Lisphk 发表于 2013-10-12 09:32
按你说的代码，我输入S怎么没用啊。

命令: (initget "")

人家是举个例子啊，，，还没写完整呢

ysq101 · 发表于 2013-10-12 09:47:04

st788796 发表于 2013-10-12 09:33
(initget 128 "S")

原来还可以这样啊~~~~

/db_自贡黄明儒_ · 发表于 2013-10-12 09:59:52

st788796 发表于 2013-10-12 09:33
(initget 128 "S")

下面的与格式刷还是有区别的
(defun C:w1 ()
  (setq p T)
  (while p
(initget "S ")
(setq p (entsel))
(cond ((= p "S") (princ p));do something
((not p) p)
(T (setq ss (ssget "C" (cadr p) (cadr p))))
)
  )
)

ll_j · 发表于 2013-10-12 10:09:00

/db_自贡黄明儒_ 发表于 2013-10-12 09:23
谢谢长老，我是想知道ssget选择对象时，可以输入S去办其它事情。
就象entsel一样
(initget " ")

飞诗的代码是这样用的：
(setq a_ 2 se1 (Fsxm-ssget "\n拾取钢筋直径或 [设置(S)/求和(T)]: " "S T" '((0 . "TEXT"))))
这个例子，S和T是关键字，前面是提示，后面是ssget的过滤表。

st788796 · 发表于 2013-10-12 10:12:35

/db_自贡黄明儒_ 发表于 2013-10-12 09:59
下面的与格式刷还是有区别的
(defun C:w1 ()
(setq p T)

(listp p)表就是点选了

/db_自贡黄明儒_ · 发表于 2013-10-12 10:19:44

ll_j 发表于 2013-10-12 10:09
飞诗的代码是这样用的：
(setq a_ 2 se1 (Fsxm-ssget "\n拾取钢筋直径或 [设置(S)/求和(T)]: " "S T" '( ...

;;我是想改造相同刷，比如选择到文本，我可以输入S去读取属性设置，然后再去改变文本;也可直接选择广本，修改默认的属性

;;**********************************************************************相同刷
(DEFUN C:XX (/ E ENTLIS NAME SHORTC UU)
;;1 错误处理
(defun *error* (s)
(if (= 8 (logand (getvar "undoctl") 8))
(command "_.undo" "_e")
)
(setvar "SHORTCUTMENU" SHORTC)
(setvar "nomutt" 0)
)
;;2 处理文字
(defun XX:Text (UU / ENT N SS X)
(WHILE (not (member (car (grread T 5 2)) '(11 12 25)))
(princ "\n 目标:文字刷为相同内容")
(setvar "nomutt" 1)
(SETQ
SS (vl-catch-all-apply
'(LAMBDA NIL
(SSGET ":S:L"
'((0 . "*TEXT"))
)
)
)
)
(setvar "nomutt" 0)
(IF (VL-CATCH-ALL-ERROR-P SS)
nil
(if ss
(REPEAT (SETQ N (SSLENGTH SS))
(SETQ X (SSNAME SS (SETQ N (1- N))))
(setq ent (entget x))
(entmod (subst UU (assoc 1 ent) ent))
)
)
)
)
)
;;3 块
(defun XX:Insert (UU / ENT N SS X)
(WHILE (not (member (car (grread T 5 2)) '(11 12 25)))
(princ "\n 目标:块相同")
(setvar "nomutt" 1)
(SETQ
SS (vl-catch-all-apply
'(LAMBDA NIL
(SSGET ":S:L"
'((0 . "INSERT"))
)
)
)
)
(setvar "nomutt" 0)
(IF (VL-CATCH-ALL-ERROR-P SS)
NIL
(IF SS
(REPEAT (SETQ N (SSLENGTH SS))
(SETQ X (SSNAME SS (SETQ N (1- N))))
(setq ent (entget x))
(entmod (subst UU (assoc 2 ent) ent))
)
)
)
)
)
;;4 处理圆
(defun XX:CIR (UU / ENT N SS X)
(WHILE (not (member (car (grread T 5 2)) '(11 12 25)))
(princ "\n 目标：相同圆")
(setvar "nomutt" 1)
(SETQ
SS (vl-catch-all-apply
'(LAMBDA NIL
(SSGET ":S:L"
'((0 . "CIRCLE"))
)
)
)
)
(setvar "nomutt" 0)
(IF (VL-CATCH-ALL-ERROR-P SS)
nil
(if ss
(REPEAT (SETQ N (SSLENGTH SS))
(SETQ X (SSNAME SS (SETQ N (1- N))))
(setq ent (entget x))
(entmod (subst UU (assoc 40 ent) ent))
)
)
)
)
)
;;5 属性
(defun XX:att (UU / ENT N SS X)
(WHILE (not (member (car (grread T 5 2)) '(11 12 25)))
(princ "\n 目标:属性相同")
(setvar "nomutt" 1)
(SETQ
SS (vl-catch-all-apply
'(LAMBDA NIL
(SSGET ":S:L"
'((0 . "ATTDEF"))
)
)
)
)
(setvar "nomutt" 0)
(IF (VL-CATCH-ALL-ERROR-P SS)
NIL
(IF SS
(REPEAT (SETQ N (SSLENGTH SS))
(SETQ X (SSNAME SS (SETQ N (1- N))))
(setq ent (entget x))
(entmod (subst UU (assoc 2 ent) ent))
)
)
)
)
)
;;6 主
(setq SHORTC (getvar "SHORTCUTMENU"))
(setvar "SHORTCUTMENU" 0)
(setvar "nomutt" 1)
(while (not E)
(princ "\n 选择源:文字、块、圆")
(setq e (SSGET ":S:E"
'((0 . "*TEXT,INSERT,CIRCLE,ATTDEF"))
)
)
)
(setvar "nomutt" 0)
(setq entlis (ENTGET (SETQ E (SSNAME E 0))))
(setq name (cdr (assoc 0 entlis)))
(cond ((member name (list "TEXT" "MTEXT"))
(setq UU (ASSOC 1 entlis))
)
((equal name "INSERT") (setq UU (ASSOC 2 entlis)))
((equal name "ATTDEF") (setq UU (ASSOC 2 entlis)))
(T (setq UU (ASSOC 40 entlis)))
)
(COMMAND "MATCHPROP" E)
(cond ((equal name "INSERT") (XX:Insert UU))
((equal name "ATTDEF") (XX:att UU))
((equal name "CIRCLE") (XX:CIR UU))
(t (XX:Text UU))
)
;;(if (/= (getvar "cmdactive") 0)(COMMAND ""))
(while (not (equal (getvar "cmdnames") "")) (command nil))
(setvar "SHORTCUTMENU" SHORTC)
(PRINC)
)
;;**********************************************************************相同刷

;;**********************************************************************相同刷 
(DEFUN C:XX (/ E ENTLIS NAME SHORTC UU) 
  ;;1 错误处理 
  (defun *error* (s) 
    (if (= 8 (logand (getvar "undoctl") 8)) 
      (command "_.undo" "_e") 
    ) 
    (setvar "SHORTCUTMENU" SHORTC) 
    (setvar "nomutt" 0) 
  ) 
  ;;2 处理文字 
  (defun XX:Text (UU / ENT N SS X) 
    (WHILE (not (member (car (grread T 5 2)) '(11 12 25))) 
      (princ "\n 目标:文字刷为相同内容") 
      (setvar "nomutt" 1) 
      (SETQ 
SS (vl-catch-all-apply 
      '(LAMBDA NIL 
  (SSGET ":S:L" 
         '((0 . "*TEXT")) 
  ) 
       ) 
    ) 
      ) 
      (setvar "nomutt" 0) 
      (IF (VL-CATCH-ALL-ERROR-P SS) 
nil 
(if ss 
   (REPEAT (SETQ N (SSLENGTH SS)) 
     (SETQ X (SSNAME SS (SETQ N (1- N)))) 
     (setq ent (entget x)) 
     (entmod (subst UU (assoc 1 ent) ent)) 
   ) 
) 
      ) 
    ) 
  ) 
  ;;3 块 
  (defun XX:Insert (UU / ENT N SS X) 
    (WHILE (not (member (car (grread T 5 2)) '(11 12 25))) 
      (princ "\n 目标:块相同") 
      (setvar "nomutt" 1) 
      (SETQ 
SS (vl-catch-all-apply 
      '(LAMBDA NIL 
  (SSGET ":S:L" 
         '((0 . "INSERT")) 
  ) 
       ) 
    ) 
      ) 
      (setvar "nomutt" 0) 
      (IF (VL-CATCH-ALL-ERROR-P SS) 
NIL 
(IF SS 
   (REPEAT (SETQ N (SSLENGTH SS)) 
     (SETQ X (SSNAME SS (SETQ N (1- N)))) 
     (setq ent (entget x)) 
     (entmod (subst UU (assoc 2 ent) ent)) 
   ) 
) 
      ) 
    ) 
  ) 
  ;;4 处理圆 
  (defun XX:CIR (UU / ENT N SS X) 
    (WHILE (not (member (car (grread T 5 2)) '(11 12 25))) 
      (princ "\n 目标：相同圆") 
      (setvar "nomutt" 1) 
      (SETQ 
SS (vl-catch-all-apply 
      '(LAMBDA NIL 
  (SSGET ":S:L" 
         '((0 . "CIRCLE")) 
  ) 
       ) 
    ) 
      ) 
      (setvar "nomutt" 0) 
      (IF (VL-CATCH-ALL-ERROR-P SS) 
nil 
(if ss 
   (REPEAT (SETQ N (SSLENGTH SS)) 
     (SETQ X (SSNAME SS (SETQ N (1- N)))) 
     (setq ent (entget x)) 
     (entmod (subst UU (assoc 40 ent) ent)) 
   ) 
) 
      ) 
    ) 
  ) 
  ;;5 属性 
  (defun XX:att (UU / ENT N SS X) 
    (WHILE (not (member (car (grread T 5 2)) '(11 12 25))) 
      (princ "\n 目标:属性相同") 
      (setvar "nomutt" 1) 
      (SETQ 
SS (vl-catch-all-apply 
      '(LAMBDA NIL 
  (SSGET ":S:L" 
         '((0 . "ATTDEF")) 
  ) 
       ) 
    ) 
      ) 
      (setvar "nomutt" 0) 
      (IF (VL-CATCH-ALL-ERROR-P SS) 
NIL 
(IF SS 
   (REPEAT (SETQ N (SSLENGTH SS)) 
     (SETQ X (SSNAME SS (SETQ N (1- N)))) 
     (setq ent (entget x)) 
     (entmod (subst UU (assoc 2 ent) ent)) 
   ) 
) 
      ) 
    ) 
  ) 
  ;;6 主 
  (setq SHORTC (getvar "SHORTCUTMENU")) 
  (setvar "SHORTCUTMENU" 0) 
  (setvar "nomutt" 1) 
  (while (not E) 
    (princ "\n 选择源:文字、块、圆") 
    (setq e (SSGET ":S:E" 
     '((0 . "*TEXT,INSERT,CIRCLE,ATTDEF")) 
     ) 
    ) 
  ) 
  (setvar "nomutt" 0) 
  (setq entlis (ENTGET (SETQ E (SSNAME E 0)))) 
  (setq name (cdr (assoc 0 entlis))) 
  (cond ((member name (list "TEXT" "MTEXT")) 
  (setq UU (ASSOC 1 entlis)) 
) 
((equal name "INSERT") (setq UU (ASSOC 2 entlis))) 
((equal name "ATTDEF") (setq UU (ASSOC 2 entlis))) 
(T (setq UU (ASSOC 40 entlis))) 
  ) 
  (COMMAND "MATCHPROP" E) 
  (cond ((equal name "INSERT") (XX:Insert UU)) 
((equal name "ATTDEF") (XX:att UU)) 
((equal name "CIRCLE") (XX:CIR UU)) 
(t (XX:Text UU)) 
  ) 
  ;;(if (/= (getvar "cmdactive") 0)(COMMAND "")) 
  (while (not (equal (getvar "cmdnames") "")) (command nil)) 
  (setvar "SHORTCUTMENU" SHORTC) 
  (PRINC) 
) 
;;**********************************************************************相同刷

ngc · 发表于 2013-10-12 10:44:13

学习一下，没有遇到这样的

/db_自贡黄明儒_ · 发表于 2013-10-12 10:47:18

12的程序太多，简化一下，我是想改造下面的程序

(defun C:w1 (/ E P SS)
(defun my (e)
(setq p T)
(while p
(initget "S ")
(setq p (entsel))
(cond ((= p "S") (princ p)) ;do something
((not p) p)
(T (setq ss (ssget "C" (cadr p) (cadr p))))
)
)
)
(setq e (car (entsel)))
(COMMAND "MATCHPROP" E)
(my e)
(while (not (equal (getvar "cmdnames") "")) (command nil))
)

st788796 · 发表于 2013-10-12 10:54:09

/db_自贡黄明儒_ 发表于 2013-10-12 10:47
12的程序太多，简化一下，我是想改造下面的程序

看看eachy版主那个超级刷子，就是这个用法，s 设置

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

[求助] 选择格式刷后，可以输入S进行设置，也可直接选取要被格式化的对象

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评

点评

点评

点评

点评

点评