飞诗带关键字的SSGE用法

爱莫能助 · 发表于 2016-9-13 09:23:34

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

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

×

(vl-load-com)
(setq *acad* (vlax-get-acad-object))
(setq *doc* (vla-get-ActiveDocument *acad*))
;;带过滤器的entsel
(defun Fsxm-entsel (msg filter)
(setq enp (entsel msg))
(if (or (= (type enp) 'str)
(and enp (ssget (cadr enp) filter))
)
enp
)
)
;;;用分隔符解释字符串成表
(defun Fsxm-Split (string strkey / po strlst xlen)
(setq xlen (1+ (strlen strkey)))
(while (setq po (vl-string-search strkey string))
(setq strlst (cons (substr string 1 po) strlst))
(setq string (substr string (+ po xlen)))
)
(reverse (cons string strlst))
)
;;点化字串
(defun Pt2Str (pt)
(strcat (rtos (car pt) 2 20)
","
(rtos (cadr pt) 2 20)
","
(rtos (caddr pt) 2 20)
"\n"
)
)
;;带关键字的ssget
(defun Fsxm-ssget (Msg Kwd Fil / Kwd0 pt var)
(cond ((cadr (ssgetfirst)))
(t
(setq Kwd0 "W L C BOX ALL F WP CP G A R M P U AU SI")
(initget (strcat Kwd0 " " kwd))
(cond ((and (listp (setq var (fsxm-entsel Msg Fil)))
(/= 52 (getvar "errno"))
)
(vla-sendcommand *doc* (Pt2Str (cadr (grread t))))
(ssget Fil)
)
((member var (fsxm-split Kwd0 " "))
(vla-sendcommand *doc* (strcat var "\n"))
(ssget Fil)
)
(t var)
)
)
)
)

(vl-load-com) 
(setq *acad* (vlax-get-acad-object)) 
(setq *doc* (vla-get-ActiveDocument *acad*)) 
;;带过滤器的entsel 
(defun Fsxm-entsel (msg filter) 
  (setq enp (entsel msg)) 
  (if (or (= (type enp) 'str) 
          (and enp (ssget (cadr enp) filter)) 
      ) 
    enp 
  ) 
) 
;;;用分隔符解释字符串成表 
(defun Fsxm-Split (string strkey / po strlst xlen) 
  (setq xlen (1+ (strlen strkey))) 
  (while (setq po (vl-string-search strkey string)) 
    (setq strlst (cons (substr string 1 po) strlst)) 
    (setq string (substr string (+ po xlen))) 
  ) 
  (reverse (cons string strlst)) 
) 
;;点化字串 
(defun Pt2Str (pt) 
  (strcat (rtos (car pt) 2 20) 
          "," 
          (rtos (cadr pt) 2 20) 
          "," 
          (rtos (caddr pt) 2 20) 
          "\n" 
  ) 
) 
;;带关键字的ssget 
(defun Fsxm-ssget (Msg Kwd Fil / Kwd0 pt var) 
  (cond        ((cadr (ssgetfirst))) 
        (t 
         (setq Kwd0 "W L C BOX ALL F WP CP G A R M P U AU SI") 
         (initget (strcat Kwd0 " " kwd)) 
         (cond ((and (listp (setq var (fsxm-entsel Msg Fil))) 
                     (/= 52 (getvar "errno")) 
                ) 
                (vla-sendcommand *doc* (Pt2Str (cadr (grread t)))) 
                (ssget Fil) 
               ) 
               ((member var (fsxm-split Kwd0 " ")) 
                (vla-sendcommand *doc* (strcat var "\n")) 
                (ssget Fil) 
               ) 
               (t var) 
         ) 
        ) 
  ) 
)

这是飞诗老大的扩展SSGET带关键字的功能，，没有找到示例，不知道怎么用他的，
高手门，给些示例用法，谢谢wgk

Lisphk · 发表于 2016-9-13 09:37:10

(setq a (fsxm-ssget "\n选取多段线:" "" '((0 . "*POLYLINE")))) ;;不带关键字

(setq a (fsxm-ssget "\n选取多段线:" "Li xP" '((0 . "*POLYLINE")))) ;;带关键字 Li 和 xP
选取多段线:li
"Li"

爱莫能助 · 发表于 2016-9-13 09:55:30

Lisphk 发表于 2016-9-13 09:37

非常感谢，摆脱SSGET,不能提示的烦了

爱莫能助 · 发表于 2016-9-19 08:39:51

Lisphk 发表于 2016-9-13 09:37

大师，再求助下 SSGET ":S" 或 "X" "C" 等，这些要加在飞诗这个哪个地方。

ll_j · 发表于 2016-9-19 16:30:58

爱莫能助发表于 2016-9-19 08:39

飞诗ssget不支持这样做，除非你试着再改进一下。

yoyoho · 发表于 2016-9-20 08:04:36

非常感谢!!!!

Lisphk · 发表于 2016-9-20 09:38:12

爱莫能助发表于 2016-9-19 08:39

SSGET ":S" 选项是单选操作，为什么你要加到SSGET里面呢？

X,C本身SSGET选择对象时候就可以输入吧？

如果你程序要实现X和C就没必要用飞诗这个SSGET了，直接 (ssget "x" ....)不就好了。

爱莫能助 · 发表于 2016-9-20 18:05:15

我还没这个能力改哦

cable2004 · 发表于 2016-9-20 22:39:38

非常感谢

爱莫能助 · 发表于 2016-9-21 08:33:38

Lisphk 发表于 2016-9-20 09:38

CAD本身的SSGET不可以设关键字与提示。
飞诗的可以设关键字与提示，但不能用":S" "X"等,如2者结合就很完美啦

kqqt6236 · 发表于 2016-9-22 08:47:10

ssget也能有提示，牛啊。

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

[求助] 飞诗带关键字的SSGE用法

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