选择集增加条件

刘炎华

请教下大家:
将虚线线型比例改为1,如果长度小于5的对象"ltScale"改为0.3
(defun C:tt (/ ss)
  (setq ss (ssget "X" '((0 . "*")(-4 . "<or")(6 . "DASHED")(6 . "DASHED2")(6 . "DASHEDX2")
                                             (6 . "HIDDEN")(6 . "HIDDEN2")(6 . "HIDDENX2")
                                             (-4 . "or>"))))
           (cond((= nil ss))
                ((= ss ss)(command "change" ss "" "prop" "LT" "DASHED" "ltScale" "1" "")))

htlaser

1. (defun c:test4 (/ en i lenb ss)
   
2.   (setvar "cmdecho" 0)
   
3.   (setq ss (ssget "X" '((0 . "*")(-4 . "<or")
   
4.                          (6 . "DASHED")(6 . "DASHED2")(6 . "DASHEDX2")
   
5.                          (6 . "HIDDEN")(6 . "HIDDEN2")(6 . "HIDDENX2")
   
6.                          (-4 . "or>"))))
   
7.   (progn
   
8.     (setq i 0 )
   
9.     (repeat (sslength ss)
   
10.       (setq en (ssname ss i))  
    
11.       (setq lenb (lengthOfObject  en))
    
12.       (if (> lenb 5)
    
13.         (command "change" en "" "prop" "LT" "DASHED" "ltScale" "1" "")
    
14.         (command "change" en "" "prop" "LT" "DASHED" "ltScale" "0.3" "")
    
15.       )
    
16.       (setq i (1+ i))
    
17.     ))
    
18.   (princ))
    
19. 
    
20. (defun lengthOfObject (curve / len)
    
21.   (progn
    
22.     (if (vl-catch-all-error-p
    
23.           (setq len (vl-catch-all-apply
    
24.                       'vlax-curve-getDistAtParam
    
25.                       (list curve
    
26.                         (vl-catch-all-apply
    
27.                           'vlax-curve-getEndParam
    
28.                           (list curve)
    
29.                         ))))) nil  len)))

(defun c:test4 (/ en i lenb ss)<br />   (setvar "cmdecho" 0)<br />   (setq ss (ssget "X" '((0 . "*")(-4 . "<or")<br />                          (6 . "DASHED")(6 . "DASHED2")(6 . "DASHEDX2")<br />                          (6 . "HIDDEN")(6 . "HIDDEN2")(6 . "HIDDENX2")<br />                          (-4 . "or>"))))<br />   (progn<br />     (setq i 0 )<br />     (repeat (sslength ss)<br />       (setq en (ssname ss i))  <br />       (setq lenb (lengthOfObject  en))<br />       (if (> lenb 5) <br />         (command "change" en "" "prop" "LT" "DASHED" "ltScale" "1" "")<br />         (command "change" en "" "prop" "LT" "DASHED" "ltScale" "0.3" "")<br />       )<br />       (setq i (1+ i))<br />     ))<br />   (princ))<br /> <br /> (defun lengthOfObject (curve / len)<br />   (progn<br />     (if (vl-catch-all-error-p<br />           (setq len (vl-catch-all-apply<br />                       'vlax-curve-getDistAtParam<br />                       (list curve<br />                         (vl-catch-all-apply<br />                           'vlax-curve-getEndParam<br />                           (list curve)<br />                         ))))) nil  len)))