[求助]哪位高手帮忙看看这个程序错在了哪里？

userzhl

而且，此程序如果标高值是“%%P0.000”的话，会选不中的，不知什么原因。

userzhl

;; ▓ (ltax:ss->axss ss)
;; [功能] 将 ALISP 选择集转换为 VLA 选择集
;; [参数] ss---选择集
(defun ltax:ss->axss (ss / ssp axss)
  (setq ssp (ssget "_p"))
  (sssetfirst nil ss)
  (ssget "_I")
  (setq axss (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))))
  (if (cadr (sssetfirst nil ssp)) (ssget "_I"))
  (sssetfirst)
  axss
)

(Defun c:tt ( / blk bnn bnx data ii scl sn ss ssi str)
(princ "\n 请选择图块 <退出>:")
(setq ss (ssget '((0 . "INSERT,TEXT"))))
    (vlax-for BLK (ltax:ss->axss ss)
     (vlax-for X BLK
       (if (and (= (vla-get-objectname X) "AcDbAttributeDefinition")
         (wcmatch (setq str (vla-get-promptstring X))
    "标高*"
         )
    )
  (setq data (cons (cons (vla-get-name BLK)
           (read (vl-string-subst
            ""
            "标高_1:"
            str
          )
           )
     )
     data
      )
  )
       )
     )
   )
   (foreach blk data
     (setq bnn (car blk)
    bnn (if (= (substr bnn 1 1) "*")
   (strcat "`" bnn)
   bnn
        )
     )
     (if (null bnx)
       (setq bnx bnn)
       (setq bnx (strcat bnx "," bnn))
     )
   )
   (if (and (/= nil bnn) (setq ii -1))
(progn
(vl-cmdf "select" ss "")
(setq ssi (ssget "p" (list (cons 0 "INSERT") (cons 2 bnn))))
     (repeat (sslength ssi)
       (setq sn (ssname ssi (setq ii (1+ ii)))
      scl (cdr (assoc (cdr (assoc 2 (entget sn))) data))
       )
       (command "_.Scale"
         sn
         ""
         (cdr (assoc 10 (entget sn)))
         (/ 50.0 scl)
       )
     )
)
   )
   (princ)
)

这样也不行？

userzhl

我是这么想的：选择一些物体，对这些物体进行过滤，找出符合条件的，获取这些符合条件的“标高_1:”后面的值，最后进行缩放。

mmmmmm

你图里用了大量无名块，所以全部检索肯定是会浪费时间的。
我修改了程序，只检索选到的图块，可能会快一些，但是如果有大量不符合要求的其他图块，速度一样无法真正提高。唯一的办法就只有优化原有的数据或者接受“稍慢”一点的速度。

3. (Defun c:tt (/ get-scale II OS SCL SN SS *DATA*)
4.   (Defun get-scale (bname / SCALE STR X)
5.     (if (null (setq scale (cdr (assoc bname *data*))))
6.       (vlax-for X
7.     (vla-item
8.       (vla-get-blocks
9.         (vla-get-activedocument (vlax-get-acad-object))
10.       )
11.       bname
12.     )
13. (if (and (null scale)
14.    (= (vla-get-objectname X) "AcDbAttributeDefinition")
15.    (wcmatch (setq str (vla-get-promptstring X))
16.      "标高_1:*"
17.    )
18.      )
19.    (setq scale  (read (vl-string-subst
20.           ""
21.           "标高_1:"
22.           str
23.         )
24.          )
25.   *data* (cons (cons bname scale) *data*)
26.    )
27. )
28.       )
29.     )
30.     scale
31.   )
32.   (setq os (getvar "osmode"))
33.   (if (and (setq ii -1)
34.     (setvar "osmode" 0)
35.     (princ "\n 请选择图块 <退出>:")
36.     (setq ss (ssget (list (cons 0 "insert") (cons 66 1))))
37.       )
38.     (repeat (sslength ss)
39.       (if (and (setq sn (ssname ss (setq ii (1+ ii))))
40.         (setq scl (get-scale (cdr (assoc 2 (entget sn)))))
41.    )
42. (command "_.Scale"
43.    sn
44.    ""
45.    (cdr (assoc 10 (entget sn)))
46.    (/ 50.0 scl)
47. )
48.       )
49.     )
50.   )
51.   (setvar "osmode" os)
52.   (princ)
53. )

(Defun c:tt (/ get-scale II OS SCL SN SS *DATA*)   (Defun get-scale (bname / SCALE STR X)     (if (null (setq scale (cdr (assoc bname *data*))))       (vlax-for X     (vla-item       (vla-get-blocks         (vla-get-activedocument (vlax-get-acad-object))       )       bname     ) (if (and (null scale)    (= (vla-get-objectname X) "AcDbAttributeDefinition")    (wcmatch (setq str (vla-get-promptstring X))      "标高_1:*"    )      )    (setq scale  (read (vl-string-subst           ""           "标高_1:"           str         )          )   *data* (cons (cons bname scale) *data*)    ) )       )     )     scale   )   (setq os (getvar "osmode"))   (if (and (setq ii -1)     (setvar "osmode" 0)     (princ "\n 请选择图块 <退出>:")     (setq ss (ssget (list (cons 0 "insert") (cons 66 1))))       )     (repeat (sslength ss)       (if (and (setq sn (ssname ss (setq ii (1+ ii))))         (setq scl (get-scale (cdr (assoc 2 (entget sn)))))    ) (command "_.Scale"    sn    ""    (cdr (assoc 10 (entget sn)))    (/ 50.0 scl) )       )     )   )   (setvar "osmode" os)   (princ) )

我没有具体测试，所以可能会有点小问题。

userzhl

谢谢mmmmmm