更改坐标原点的LISP

燃烧

我写的坐标原点重新关联的LISP，如下：有一个问题请教高手，怎么只选到坐标尺寸，而过滤掉线性，直径，半径，角度等其它尺寸呢？
(defun c:uu (/ v1 nori ss i nori1 s1 en_data oori oori1 en_data);坐标原点重新关联
  (setq v1 (getvar "ucsname"))
  (command "ucs" "w")
  (setq nori (getpoint "\n=>选择新原点!"))
  (prompt "\n=>请框选需要关联新原点的坐标尺寸")
  (setq ss (ssget '((0 . "DIMENSION")
     )
    )
i  -1
  )
  (setq nori1 (cons 10 nori))
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (setq en_data (entget s1))
    (setq oori (assoc 10 en_data))
    (setq oori1 (cdr oori))
    (setq en_data (subst nori1 oori en_data))
    (entmod en_data)
  )
  (command "ucs" "r" v1)
  (princ)
)

caoyin

(ssget '((0 . "DIMENSION") (70 . 38)))

【KAIXIN】

caoyin 发表于 2011-12-16 13:14
(ssget '((0 . "DIMENSION") (70 . 38)))

这个好像不对，只能选到X方向的标注

caoyin

【KAIXIN】 发表于 2011-12-16 13:24
这个好像不对，只能选到X方向的标注

是的哦
(ssget '((0 . "DIMENSION")
         (-4 . "<OR")
         (70 . 38)
         (70 . 102)
         (-4 . "OR>")
))

vormittag

caoyin 发表于 2011-12-16 14:11
是的哦
(ssget '((0 . "DIMENSION")
         (-4 . "")

还应该补充(70 . 230)，标注文字可能被移动位置。
128 = 这是一个添加到其他组 70 值的位值（位 8）（如果标注文字已放置到用户定义的位置，而不是放置到默认位置）

【KAIXIN】

caoyin 发表于 2011-12-16 14:11
是的哦
(ssget '((0 . "DIMENSION")
         (-4 . "")

版主，可以适当的解释下不？

燃烧

谢谢！很好用！

逍遥无声