如何让这个程序 实现查找到的数值亮显！

spp_wall

(defun c:www( / ss1 sslst numlst num)
   (defun ss->EnLst (ss / retu)
       (setq retu (apply 'append (ssnamex ss)))
       (setq retu (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) retu))
   )
   (setq K (getint "\n 最小值<1>,最大值<2>"))

  (setq sslst (ss->EnLst (ssget (list (cons 0 "TEXT") (cons 1 "~*[~`--9]*")))))
  ;(setq ss1(ssget'((8 . "0")));如何实现只选择PJ图层文字查找
  (setq numlst (mapcar '(lambda(x) (atof (cdr (assoc 1 (entget x))))) sslst))
   (cond

      ((= K 1)(setq num (apply 'min numlst)))
      ((= K 2)(setq num (apply 'max numlst)))
      (T (setq num (apply 'min numlst)))
  )
  (princ num)
  (setq insPt0 (getpoint "\n请输入计算结果插入点: "));;;计算结果显示在图中位置
  (setq bb (strcat "计算结果="(rtos num )""))
  (command "_text" insPt0  "0"  bb 0)
  (princ)
)


如何让这个程序实现下面的功能：
1：查找到 最大和最小值 后再图形上亮显！
2：如何实现只选择PJ图层文字查找 这样应该会快点！

st788796

用手机码起来真不方便
(defun c:tt (/ ss lst)
    (if (setq ss. (ssget '((8 . "pj")(0 . "text"))))
       (progn
            (setq lst (mapcar '(lambda(x)
                              (list (distof (xdrx_getpropertyvalue x "textstring")) x)
           )
           (xdrx_pickset->ents ss)
           )
          lst (vl-sort lst '(lambda (a b) (> (car a) (car b))))
   )
   (xdrx_entity_highlight (caadar lst))
   (xdrx_entity_highlight (cadr (last lst)))))
   (princ)

)

Free-Lancer

1. (defun c:tt (/ lst)
   
2.   (fy:begin)
   
3.   (if (ssget '((0 . "text") (8 . "pj")))
   
4.     (progn
   
5.       (setq lst    (mapcar
   
6.           '(lambda (x)
   
7.              (list (distof (fy:vget x "textstring"))
   
8.                x
   
9.              )
   
10.            )
    
11.           (fy:cset->objs)
    
12.         )
    
13.         lst    (vl-sort lst '(lambda (a b) (> (car a) (car b))))
    
14.       )
    
15.       (vla-highlight (cadar lst) :vlax-true)
    
16.       (vla-highlight (cadr (last lst)) :vlax-true)
    
17.     )
    
18.   )
    
19.   (fy:end)
    
20.   (princ)
    
21. )

(defun c:tt (/ lst)<br />   (fy:begin)<br />   (if (ssget '((0 . "text") (8 . "pj")))<br />     (progn<br />       (setq lst    (mapcar<br />           '(lambda (x)<br />              (list (distof (fy:vget x "textstring"))<br />                x<br />              )<br />            )<br />           (fy:cset->objs)<br />         )<br />         lst    (vl-sort lst '(lambda (a b) (> (car a) (car b))))<br />       )<br />       (vla-highlight (cadar lst) :vlax-true)<br />       (vla-highlight (cadr (last lst)) :vlax-true)<br />     )<br />   )<br />   (fy:end)<br />   (princ)<br /> )

spp_wall

都需要加载晓东函数啊:L

spp_wall

st788796 发表于 2014-10-10 12:48
用手机码起来真不方便
(defun c:tt (/ ss lst)
    (if (setq ss. (ssget '((8 . "pj")(0 . "text"))))

辛苦了  我看看！！