lisp获取图名？

jiangjun

如何利用lisp获取图中红色圆圈内参照图名．请下载附件．感谢！

jiangjun

搞定．tblenext

pizg

樓主的圖塊名稱是gc122,
請問這圖檔的路徑是哪裏?

cvbnm8888

用 (setq ss (ssget "x" (list(cons 0 "insert")))) 创建选择集，然后根据选择集中图块的名称去判断，GC开头的就是你需要

ZYX2129

搞定．tblenext

xyp1964

1. (defun c:tt ()
   
2.   (defun xyp-dxf (code e) (cdr (assoc code (entget e))))
   
3.   (setq        i   -1
   
4.         lst '()
   
5.   )
   
6.   (if (setq ss (ssget '((0 . "CIRCLE") (62 . 1))))
   
7.     (while (setq s1 (ssname ss (setq i (1+ i))))
   
8.       (setq pt (xyp-DXF 10 s1)
   
9.             r  (xyp-DXF 40 s1)
   
10.             p1 (mapcar '(lambda (x y) (- x y)) pt (list r r))
    
11.             p2 (mapcar '(lambda (x y) (+ x y)) pt (list r r))
    
12.       )
    
13.       (if (setq a (ssget "c" p1 p2 '((0 . "insert"))))
    
14.         (setq lst (cons (xyp-DXF 2 (ssname a 0)) lst))
    
15.       )
    
16.     )
    
17.   )
    
18.   (print (vl-sort lst '<))
    
19.   (princ)
    
20. )
    

(defun c:tt ()<br />   (defun xyp-dxf (code e) (cdr (assoc code (entget e))))<br />   (setq        i   -1<br />         lst '()<br />   )<br />   (if (setq ss (ssget '((0 . "CIRCLE") (62 . 1))))<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />       (setq pt (xyp-DXF 10 s1)<br />             r  (xyp-DXF 40 s1)<br />             p1 (mapcar '(lambda (x y) (- x y)) pt (list r r))<br />             p2 (mapcar '(lambda (x y) (+ x y)) pt (list r r))<br />       )<br />       (if (setq a (ssget "c" p1 p2 '((0 . "insert"))))<br />         (setq lst (cons (xyp-DXF 2 (ssname a 0)) lst))<br />       )<br />     )<br />   )<br />   (print (vl-sort lst '<))<br />   (princ)<br /> )<br />