输出块插入点坐标

iszc

能帮忙写个lsp，能输出同一名称块插入点坐标x，y（精度保留4位）至txt或excel，块能点选或默认块名称最好

vectra

1. (defun c:tt (/ ent f file i name pos ss str)
   
2.   (setq ent (entsel "\n选择图块的一个实例以指定名称: "))
   
3.   (if ent
   
4.     (progn
   
5.       (setq name (cdr (assoc 2 (entget (car ent)))))
   
6.       (princ
   
7.   (strcat "\n图块名称 \"" name "\"，选择要导出坐标的图块")
   
8.       )
   
9. 
   
10.       (setq ss   (ssget (list '(0 . "INSERT") (cons 2 name)))
    
11.       i   0
    
12.       file (vl-filename-mktemp "p.txt")
    
13.       f   (open file "W")
    
14.       )
    
15. 
    
16. 
    
17.       (repeat (sslength ss)
    
18.   (setq pos (cdr (assoc 10 (entget (ssname ss i))))
    
19.         str (strcat (rtos (car pos) 2 4) "\t" (rtos (cadr pos) 2 4))
    
20.   )
    
21.   (write-line str f)
    
22.   (setq i (1+ i))
    
23.       )
    
24. 
    
25.       (close f)
    
26.       (startapp "notepad" file)
    
27.     )
    
28.   )
    
29. )

(defun c:tt (/ ent f file i name pos ss str)<br />   (setq ent (entsel "\n选择图块的一个实例以指定名称: "))<br />   (if ent<br />     (progn<br />       (setq name (cdr (assoc 2 (entget (car ent)))))<br />       (princ<br />   (strcat "\n图块名称 \"" name "\"，选择要导出坐标的图块")<br />       )<br /> <br />       (setq ss   (ssget (list '(0 . "INSERT") (cons 2 name)))<br />       i   0<br />       file (vl-filename-mktemp "p.txt")<br />       f   (open file "W")<br />       )<br /> <br /> <br />       (repeat (sslength ss)<br />   (setq pos (cdr (assoc 10 (entget (ssname ss i))))<br />         str (strcat (rtos (car pos) 2 4) "\t" (rtos (cadr pos) 2 4))<br />   )<br />   (write-line str f)<br />   (setq i (1+ i))<br />       )<br /> <br />       (close f)<br />       (startapp "notepad" file)<br />     )<br />   )<br /> )

iszc

测试效果很好。
请问如果改成导出圆心坐标的话复杂吗（不需区分半径大小，只需要提取框选的圆心点坐标，就像块插入点坐标一样），能不能帮忙改改，谢谢

vectra

导出圆心的版本

1. (defun c:tt (/ )
   
2.   (if (setq ss (ssget '((0 . "CIRCLE"))))
   
3.     (progn
   
4.       (setq
   
5.         i    0
   
6.         file (vl-filename-mktemp "p.txt")
   
7.         f    (open file "W")
   
8.       )
   
9. 
   
10. 
    
11.       (repeat (sslength ss)
    
12.         (setq pos (cdr (assoc 10 (entget (ssname ss i))))
    
13.               str (strcat (rtos (car pos) 2 4) "\t" (rtos (cadr pos) 2 4))
    
14.         )
    
15.         (write-line str f)
    
16.         (setq i (1+ i))
    
17.       )
    
18. 
    
19.       (close f)
    
20.       (startapp "notepad" file)
    
21.     )
    
22.   )
    
23. )

(defun c:tt (/ )<br />   (if (setq ss (ssget '((0 . "CIRCLE"))))<br />     (progn<br />       (setq<br />         i    0<br />         file (vl-filename-mktemp "p.txt")<br />         f    (open file "W")<br />       )<br /> <br /> <br />       (repeat (sslength ss)<br />         (setq pos (cdr (assoc 10 (entget (ssname ss i))))<br />               str (strcat (rtos (car pos) 2 4) "\t" (rtos (cadr pos) 2 4))<br />         )<br />         (write-line str f)<br />         (setq i (1+ i))<br />       )<br /> <br />       (close f)<br />       (startapp "notepad" file)<br />     )<br />   )<br /> )

iszc

很实用，非常感谢！
请问如果零基础学写lsp，从哪里开始学起，能不能提供些建议