如何提取块的属性

蹄胖掇掇

请教高手：

设块"BB"的插入点为（0.0，0.0），插入块"BB"后移到（10.0，10.0）

(tblsearch "block" "BB"))

返回：((0 . "BLOCK") (2 . "BB") (70 . 0) (4 . "") (10 0.0 0.0 0.0) (-2 <图元名: 7ef58440>)).

得到的坐标是块"BB"原设置的插入点坐标，请问：如何取得移动后（10.0，10.0）的坐标？

谢谢各位大侠了！

lazybug

你是在找“insert”图元的插入点？
不需要tblsearch的

(cdr (assoc 10 (entget (car (entsel)))))

sailorcwx

区分"块"和"块参照"你就知道你错在哪里了

蹄胖掇掇

我是新手，刚开始用Lisp。重新叙述一下我的目的：

设块"BB"的插入点为（0.0，0.0），在新图中（10.0，10.0）点插入块"BB"，或者说"BB"在新图中插入点坐标是（10.0，10.0）。

我想要得到的是新图中"BB"块的当前坐标（10.0，10.0），并在工作区X,Y位置显示该坐标。。。。

有劳各位大侠指教了

ZZXXQQ

(defun c:tt ()
 (if (and
      (setq s1 (entsel "\n选择图块:"))
      (= (cdr(assoc 0 (entget(car s1)))) "INSERT")
     )
  (setq inspt (cdr(assoc 10 (entget(car s1)))))
 )
 inspt
)

蹄胖掇掇

非常感谢！非常感谢ZZXXQQ先生！

可否帮我解决下一步问题：

当图中插入有已知的"AA"块和"BB"块,希望分别得到它们的当前坐标。

再次感谢ZZXXQQ先生

ZZXXQQ

(defun c:tt ()
 (if (setq ss (ssget "X" '((0 . "INSERT") (2 . "AA,BB")))) (progn
  (setq i 0)
  (repeat (sslength ss)
   (setq ent (entget(ssname ss i))
         i (1+ i))
   (princ "\n")
   (princ (cdr(assoc 2 ent)))
   (princ " : ")
   (princ (cdr(assoc 10 ent)))
  )
 ))
 (princ)
)

蹄胖掇掇

从别人处找了本98年出版的AutoLISP教程，临时磨刀上阵，无法对其函数精髓的领会，惭愧。

多亏有了如ZZXXQQ先生这样的热心人，再次谢谢啦！

搬用上面的代码，折腾了几个小时，终于按自己需要凑合可用了。虽然上不了台面，毕竟是我的处女作也。

(defun c:tt ()
 (command "osnap" "none")
 (command "zoom" "e")

 (if (setq ss (ssget "X" '((0 . "INSERT") (2 . "AA")))) (progn
  (setq i 0)
  (repeat (sslength ss)
   (setq ent (entget(ssname ss i))
         i (1+ i))
    (setq J1 (/ (- (caddr(assoc 10 ent)) 15) 5))
    (setq J1 (rtos J1 2 2))
    (command "change" "w" "18.5,10" "26.5,12" "" "" "" "" "" "0" J1)
  )
 ))
 (princ)

 (if (setq ss (ssget "X" '((0 . "INSERT") (2 . "BB")))) (progn
  (setq i 0)
  (repeat (sslength ss)
   (setq ent (entget(ssname ss i))
         i (1+ i))
    (setq J2 (/ (- (caddr(assoc 10 ent)) 15) 5))
    (setq J2 (rtos J2 2 2))
    (command "change" "w" "18.5,8" "26.5,10" "" "" "" "" "" "0" J2)
  )
 ))
 (princ)

 
 (command "osnap" "int")

)

蹄胖掇掇

附上test.dwg文件

蹄胖掇掇