如何选择并亮显线性比例不为1的标注，使用1040组码不全面

革天明

希望得到的如图1所示


但现在选择的是这样的，但其余的线性比例是1

双击左键，可以看到其线性比例为1，

但实际上这个图元的组码为
((-1 . <图元名: 7ec15a40>) (0 . "DIMENSION") (330 . <图元名:
7ef7ccf8>) (5 . "580") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 .
"轮廓线") (62 . 7) (100 . "AcDbDimension") (2 . "*D40") (10 2117.65 591.909
0.0) (11 2126.0 592.424 0.0) (12 0.0 0.0 0.0) (70 . 32) (1 . "") (71 . 5) (72 .
1) (41 . 1.0) (42 . 16.7) (52 . 0.0) (53 . 0.0) (54 . 0.0) (51 . 0.0) (210 0.0
0.0 1.0) (3 . "AM_GB$0") (100 . "AcDbAlignedDimension") (13 2134.35 613.604
0.0) (14 2117.65 606.655 0.0) (15 0.0 0.0 0.0) (16 0.0 0.0 0.0) (40 . 0.0) (50
. 0.0) (100 . "AcDbRotatedDimension") (-3 ("ACAD" (1000 . "DSTYLE") (1002 .
"{") (1070 . 41) (1040 . 0.6) (1070 . 42) (1040 . 0.5) (1070 . 43) (1040 . 1.5)
(1070 . 44) (1040 . 0.5) (1070 . 47) (1040 . 0.05) (1070 . 48) (1040 . 0.05)
(1070 . 140) (1040 . 0.63) (1070 . 271) (1070 . 2) (1070 . 272) (1070 . 2)
(1002 . "}"))))
有7个1040组码

下面是我和程序，请教一下是什么原因造成这样，
;;;图元表转为选择集  http://bbs.mjtd.com/forum.php?mod=viewthread&tid=84780  作者 redcat
;;;格式：(ents->ss ents ss)
;;;如果选择集ss/=nil将ents表中的图元加入到ss中,并返回ss
;;;如果 ss=nil,新建一个选择集并返回．
;;;(ents->ss (sset->list (ssget) nil) nil)
(defun ents->ss (ents ss / ename)
  (if (= ss nil)
    (setq ss (ssadd))
  )
  (mapcar '(lambda (ename)
      (setq ss (ssadd ename ss))
    )
   ents
  )
  ss
)
(DEFUN C:ER (/ I N SS ENDATA KZSX XXBL NUM ss1 n endenlst)
  (setvar "cmdecho" 0)
  (SETQ SS (SSGET "X" '((0 . "DIMENSION")))
i  0
n  0
  )
  (repeat (sslength ss)
    (setq en (ssname ss i))
    (setq endata (entget en '("*")))
    (if (assoc -3 endata)
      (progn
(setq kzsx (cdr (nth 0 (cdr (assoc -3 endata)))))
(repeat (length kzsx)
   (setq num (nth n kzsx)
  n   (1+ n)
   )
   (if (= (car num) 1040)
     (setq xxbl (cdr num))
   )
)
(IF (or (/= XXBL nil) (/= XXBL 1))
   (setq endenlst (cons en endenlst))
)
      )
      (setq n 0)
    )
    (setq i (1+ i))
  )
  (sssetfirst (ents->ss endenlst ss1) (ents->ss endenlst ss1))
)

namezg

你原代码太麻烦，我写了一个完整的。

2. 
   
3. ;获得标注图元的线性比例
   
4. ;ename -- 标注图元名
   
5. ;(zg-get-dimlfac (setq ename (car (entsel "\n选择标注对象: "))))
   
6. ;方法一
   
7. (defun zg-get-dimlfac (ename / dxf dat lst dimlfac DimstyleName)
   
8. (if (and ename
   
9.    (setq dxf (entget ename '("*")))
   
10.    (= (cdr (assoc 0 dxf)) "DIMENSION")
    
11.   )
    
12.   (if (and (setq dat (assoc -3 dxf))
    
13.     (setq lst (cadr dat))
    
14.     (setq lst (member (cons 1070 144) lst))
    
15.    )
    
16.    (setq dimlfac (cdadr lst))
    
17.    (progn
    
18.     (setq DimstyleName (cdr (assoc 3 dxf)))
    
19.     (setq lst (tblsearch "dimstyle" DimstyleName))
    
20.     (setq dimlfac (cdr (assoc 144 lst)))
    
21.    )
    
22.   )
    
23. )
    
24. )
    
25. ;|
    
26. ;获得标注图元的线性比例
    
27. ;ename -- 标注图元名
    
28. ;(zg-get-dimlfac (setq ename (car (entsel "\n选择标注对象: "))))
    
29. ;方法二：
    
30. (defun zg-get-dimlfac (ename / dxf obj dimlfac)
    
31. (if (and ename
    
32.    (setq dxf (entget ename '("*")))
    
33.    (= (cdr (assoc 0 dxf)) "DIMENSION")
    
34.   )
    
35.   (setq dimlfac (vla-get-LinearScaleFactor (vlax-ename->vla-object ename)))
    
36. )
    
37. )
    
38. |;
    
39. ;选取并亮显线性比例不为1的标注对象
    
40. (defun c:er (/ ss i en ss1)
    
41. (setq ss (ssget "x" '((0 . "dimension"))))
    
42. (setq i 0)
    
43. (setq ss1 (ssadd))
    
44. (repeat (sslength ss)
    
45.   (setq en (ssname ss i))
    
46.   (if (/= (zg-get-dimlfac en) 1.0)
    
47.    (ssadd en ss1)
    
48.   )
    
49.   (setq i (1+ i))
    
50. )
    
51. (sssetfirst nil ss1)
    
52. )

<br /> ;获得标注图元的线性比例<br /> ;ename -- 标注图元名<br /> ;(zg-get-dimlfac (setq ename (car (entsel "\n选择标注对象: "))))<br /> ;方法一<br /> (defun zg-get-dimlfac (ename / dxf dat lst dimlfac DimstyleName)<br /> (if (and ename<br />    (setq dxf (entget ename '("*")))<br />    (= (cdr (assoc 0 dxf)) "DIMENSION")<br />   )<br />   (if (and (setq dat (assoc -3 dxf))<br />     (setq lst (cadr dat))<br />     (setq lst (member (cons 1070 144) lst))<br />    )<br />    (setq dimlfac (cdadr lst))<br />    (progn<br />     (setq DimstyleName (cdr (assoc 3 dxf)))<br />     (setq lst (tblsearch "dimstyle" DimstyleName))<br />     (setq dimlfac (cdr (assoc 144 lst)))<br />    )<br />   )<br /> )<br /> )<br /> ;|<br /> ;获得标注图元的线性比例<br /> ;ename -- 标注图元名<br /> ;(zg-get-dimlfac (setq ename (car (entsel "\n选择标注对象: "))))<br /> ;方法二：<br /> (defun zg-get-dimlfac (ename / dxf obj dimlfac)<br /> (if (and ename<br />    (setq dxf (entget ename '("*")))<br />    (= (cdr (assoc 0 dxf)) "DIMENSION")<br />   )<br />   (setq dimlfac (vla-get-LinearScaleFactor (vlax-ename->vla-object ename))) <br /> )<br /> )<br /> |;<br /> ;选取并亮显线性比例不为1的标注对象<br /> (defun c:er (/ ss i en ss1)<br /> (setq ss (ssget "x" '((0 . "dimension"))))<br /> (setq i 0)<br /> (setq ss1 (ssadd))<br /> (repeat (sslength ss)<br />   (setq en (ssname ss i))<br />   (if (/= (zg-get-dimlfac en) 1.0)<br />    (ssadd en ss1)<br />   )<br />   (setq i (1+ i))<br /> )<br /> (sssetfirst nil ss1)<br /> )

革天明

上传测试图

namezg

vla-get-LinearScaleFactor最简单

namezg

2. ;获得标注图元的线性比例
   
3. ;ename -- 标注图元名
   
4. ;(zg-get-dimlfac (setq ename (car (entsel "\n选择标注对象: "))))
   
5. ;方法一：
   
6. (defun zg-get-dimlfac (ename / dxf dat lst dimlfac DimstyleName)
   
7.         (if (and ename
   
8.                         (setq dxf (entget ename '("*")))
   
9.                         (= (cdr (assoc 0 dxf)) "DIMENSION")
   
10.                 )
    
11.                 (if (and (setq dat (assoc -3 dxf))
    
12.                                 (setq lst (cadr dat))
    
13.                                 (setq lst (member (cons 1070 144) lst))
    
14.                         )
    
15.                         (setq dimlfac (cdadr lst))
    
16.                         (progn
    
17.                                 (setq DimstyleName (cdr (assoc 3 dxf)))
    
18.                                 (setq lst (tblsearch "dimstyle" DimstyleName))
    
19.                                 (setq dimlfac (cdr (assoc 144 lst)))
    
20.                         )
    
21.                 )
    
22.         )
    
23. )

;获得标注图元的线性比例<br /> ;ename -- 标注图元名<br /> ;(zg-get-dimlfac (setq ename (car (entsel "\n选择标注对象: "))))<br /> ;方法一：<br /> (defun zg-get-dimlfac (ename / dxf dat lst dimlfac DimstyleName)<br />         (if (and ename<br />                         (setq dxf (entget ename '("*")))<br />                         (= (cdr (assoc 0 dxf)) "DIMENSION")<br />                 )<br />                 (if (and (setq dat (assoc -3 dxf))<br />                                 (setq lst (cadr dat))<br />                                 (setq lst (member (cons 1070 144) lst))<br />                         )<br />                         (setq dimlfac (cdadr lst))<br />                         (progn<br />                                 (setq DimstyleName (cdr (assoc 3 dxf)))<br />                                 (setq lst (tblsearch "dimstyle" DimstyleName))<br />                                 (setq dimlfac (cdr (assoc 144 lst)))<br />                         )<br />                 )<br />         )<br /> )

namezg

2. ;获得标注图元的线性比例
   
3. ;ename -- 标注图元名
   
4. ;(zg-get-dimlfac (setq ename (car (entsel "\n选择标注对象: "))))
   
5. ;方法二：
   
6. (defun zg-get-dimlfac (ename / dxf obj dimlfac)
   
7.         (if (and ename
   
8.                         (setq dxf (entget ename '("*")))
   
9.                         (= (cdr (assoc 0 dxf)) "DIMENSION")
   
10.                 )
    
11.                 (setq dimlfac (vla-get-LinearScaleFactor (vlax-ename->vla-object ename)))
    
12.         )
    
13. )

;获得标注图元的线性比例<br /> ;ename -- 标注图元名<br /> ;(zg-get-dimlfac (setq ename (car (entsel "\n选择标注对象: "))))<br /> ;方法二：<br /> (defun zg-get-dimlfac (ename / dxf obj dimlfac)<br />         (if (and ename<br />                         (setq dxf (entget ename '("*")))<br />                         (= (cdr (assoc 0 dxf)) "DIMENSION")<br />                 )<br />                 (setq dimlfac (vla-get-LinearScaleFactor (vlax-ename->vla-object ename))) <br />         )<br /> )

清风明月名字

谢谢众位坛友代码分享！

巨蟹小开封

namezg 发表于 2013-6-17 19:25

       受教了！！！

tanle2020

怎样获取线图元的线性比例呢