求助怎样让下面的程序S1的选择集，选择了图元后高亮显示？谢谢。

andyhua

(defun XENTSELX (msg / a)
  (while
    (if    (not (setq a (entsel msg)))  ;新建点选选集时,左键没有选择到物体和空格,回车,右键退出的效果一样返回nil
      (/= 52 (getvar "errno"))          ;点右键退出还是点左键空选退出, 查看错误码errno.
    )                                   ;如果为7 则是左键空选退出, 如果为52, 则是右键退出.
  )
  (car a)
)
     ;利用格式刷来刷填充图案，让其比例和图案一致，并且过滤选择出其中的hatch填充图案
(defun c:cah (/ cm s1 s2 cd_err0)
  (princ "\n* 格式刷特性匹配Hatch填充图案→|HATCH| *")
  (setvar "cmdecho" 1)
  (if (setq s1 (XENTSELX "\n拾取源|HATCH|对象 <退出>:"))
    (progn
                 (princ "\n选择目标|HATCH|对象 <退出>:")
                 (if (setq s2 (ssget '((0 . "hatch"))))
                     (progn
      (command ".painter" s1 s2 "")
                     )
                 )
    )
  )
  (princ)
)

yamjqq

学习一下，看图纸比较方便

【KAIXIN】

给你参考：
;;亮显指定颜色的实体
(defun c:KK (/ coa co ssco i one )
  (setq coa (getvar "CECOLOR"))
  (initdia)
  (command ".color")(setvar "cmdecho" 0)
  (setq co (getvar "CECOLOR"))
  (SETQ SSCO(SSGET "X" (LIST (CONS 62 (atoi co)))))
  (setvar "CECOLOR" coa)
  (setq i 0)
  (repeat (sslength ssco)
    (setq one (ssname ssco i))
    (redraw one 3)
    (setq i (1+ i)))
  (setvar "cmdecho" 1) (princ))

andyhua

参数类型错误呀，谢谢！

【KAIXIN】

andyhua 发表于 2012-4-18 09:46
参数类型错误呀，谢谢！

不好意思，前面程序没调试，其实只要这个函数就行，redraw

(setq sst (ssget));取得选择集
(setq i -1)
(repeat (sslength sst)
(redraw (ssname sst (setq i (1+ i))) 3);显示
)

Andyhon

check acet-ss-redraw (ET)

andyhua

【KAIXIN】 发表于 2012-4-18 09:57
不好意思，前面程序没调试，其实只要这个函数就行，redraw

(setq sst (ssget));取得选择集

版主大哥，不会呀。其实我对LISP一窍不通。根本就不知道怎么加了，加在哪里呀？55555555555555555555555

【KAIXIN】

andyhua 发表于 2012-4-18 10:25
版主大哥，不会呀。其实我对LISP一窍不通。根本就不知道怎么加了，加在哪里呀？55555555555555555555555

(defun XENTSELX (msg / a)
  (while
    (if    (not (setq a (entsel msg)))  ;新建点选选集时,左键没有选择到物体和空格,回车,右键退出的效果一样返回nil
      (/= 52 (getvar "errno"))          ;点右键退出还是点左键空选退出, 查看错误码errno.
    )                                   ;如果为7 则是左键空选退出, 如果为52, 则是右键退出.
  )
  (car a)
)
     ;利用格式刷来刷填充图案，让其比例和图案一致，并且过滤选择出其中的hatch填充图案
(defun c:KK (/ cm s1 s2 cd_err0)
  (princ "\n* 格式刷特性匹配Hatch填充图案→|HATCH| *")
  (setvar "cmdecho" 1)
  (setq s1 (XENTSELX "\n拾取源|HATCH|对象 <退出>:"));   
     (redraw s1 3);显示
      (princ "\n选择目标|HATCH|对象 <退出>:")
          (if (setq s2 (ssget '((0 . "hatch"))))
                  (progn
      (command ".painter" s1 s2 "")
                     )
                 )
  (princ)
)

andyhua

谢谢斑竹老大，非常的感谢。

vlisp2012

顶开心。开开心心！！！

zwz2111

学习学习，高手还挺多！