[讨论]ssget的问题！！

muhanleek

用SSGET函数"W"模式窗口选择或者仅用单点选取时，与图幅大小，当时图的缩放比例有关系吗？怎么我有时侯就选不上，有时候选的上！！

  (command "zoom" "e")
  (setq pt1 (list sz_etext_x (+ sz_etext_y 0.99)))
  (setq pt2 (list (+ sz_etext_x 6.0) (+ sz_etext_y 2.02)))
  (setq pt (ssget "_w" pt1 pt2 (LIST(CONS 8 lay))))

byghbcx

"W"模式窗口选择或者仅用单点选取时,与图幅大小，当时图的缩放比例是有关系的,不在当前屏幕上的实体是选不上的

muhanleek

这个我知道，在取得选择集之前我加了（"zoom" "e"）,但还是有时侯选不上啊！！

wwwliuyu

不知你的PT1 PT2 从何得来,会否是你忘了坐标转换问题.

muhanleek

没有 坐标转换啊，你帮我看看。。。

(defun c:yzx()
  (setvar "cmdecho" 0)
  (setq sz_exp  (ssget "x" (list(cons 0 "text")(cons 8 "*exptext"))))
  (command "zoom" "e")
  (setq n 0)
  (if sz_exp
  (repeat(sslength sz_exp)
  (setq sz1 (entget(ssname sz_exp n)))
  (setq text (cdr(assoc 1 sz1)))
  (setq sz_etext_x (cadr(assoc 10 sz1)))
  (setq sz_etext_y (caddr(assoc 10 sz1)))
 
  (setq pt1 (list sz_etext_x (+ sz_etext_y 0.99)))
  (setq pt2 (list (+ sz_etext_x 6.0) (+ sz_etext_y 2.02)))
  (setq lay (vl-string-subst "MAP" (SUBSTR (cdr(assoc 8 sz1)) 3 3) (cdr(assoc 8 sz1))))
  (setq pt (ssget "_w" pt1 pt2 (LIST(CONS 8 lay))))
 
 
  (if (= nil pt)(progn
  (textscr)
  (princ (strcat "\n========" text "problem！！！========" ))
  ))
  (setq n (+ n 1))
  )
  )
  (setvar "cmdecho" 1)
  (GC)
  (princ)
)

muhanleek

没有人说，自己顶！！

szmaicy

帮你加了转换坐标系功能。
不知你选择文字附近的什么东西。
(defun c:yzx ( /  sz_exp n sz1 text pt sz_etext_x sz_etext_y pt1 pt2 lay)
  (setvar "cmdecho" 0)
  (if (not (setq sz_exp  (ssget "x" '((0 . "text") (8 . "*exptext"))))) (exit))
  (command "zoom" "e")
  (setq n 0)
  (repeat (sslength sz_exp)
      (setq sz1 (entget (ssname sz_exp n))
            n (+ n 1)
            text (cdr (assoc 1 sz1))
            pt (trans (cdr (assoc 10 sz1)) 0 1)
            sz_etext_x (car pt)
            sz_etext_y (cadr pt)
            pt1 (list sz_etext_x (+ sz_etext_y 0.99))
            pt2 (list (+ sz_etext_x 6.0) (+ sz_etext_y 2.02))
            pt (cdr (assoc 8 sz1))
            lay (vl-string-subst "MAP" (substr pt 3 3) pt)
            pt (ssget "_w" pt1 pt2 (list (cons 8 lay)))
      )
      (if (not pt)
          (progn (textscr)
                 (princ (strcat "\n========" text "problem！！！========" ))
          )
      )
  )
  (setvar "cmdecho" 1)
  (gc)
  (princ)
)

oyxx1023

ssget有精度要求的.如果你ZOOME后范围很大,而你要选的只是很小的一部分时,就会出错.

DeLiN001

楼上大叔所言极是!

muhanleek

原来如此啊，谢谢八楼的兄弟。。

不过那要怎么解决这个问题呢。

另外，7楼的程序加了坐标转换后（我看了，转换前后坐标没有变）和我原来的程序执行情况一样，也有问题！