关于实体间的数据传输？

spshchen

如果2个块之间有一根线连接，如何从这条线上知道同他连接的块的名称？


不知道这个功能能不能实现？

meflying

(defun c:test(/ ent ents pts pte ss i)
(setq ent (car (entsel "选择直线...")))
(setq ents (entget ent))
(setq pts (cdr (assoc 10 ents)))
(setq pte (cdr (assoc 11 ents)))
(setq ss (ssget "f" (list pts pte) '((0 . "INSERT"))))
(setq i 0)
(repeat (sslength ss)
(princ "\n")
(princ (cdr (assoc 2 (entget (ssname ss i)))))
(setq i (1+ i))
)
(textscr)
(princ)
)