[求助]用LISP怎么批量插入图块？

thinking_me

命令: (command "insert" "F" pt xscale yscale Rotate)
块 F 参照本身
*无效*
; 错误: 函数被取消

Andyhon

...块 F 参照本身...

这个 错误 得手动排除
本例 F.Dwg 内有 F 块

thinking_me

菜菜鸟

xyp1964

2. ;; 伪源码需要e派工具箱(XCAD)的支持
   
3. (defun c:tt ()
   
4.   (CMDLA0)
   
5.   (setq        fn  (getfiled "选择数据文件" "" "xls" 16)
   
6.         lst (xyp-xls2list fn)
   
7.         lst (cdr lst)
   
8.         lst (mapcar '(lambda (x) (list (car x) (cadr x) (caddr x))) lst)
   
9.   )
   
10.   (foreach a lst
    
11.     (setq t1 (car a)
    
12.           x  (cadr a)
    
13.           y  (caddr a)
    
14.     )
    
15.     (if        (and (/= t1 "") (/= x "") (/= y ""))
    
16.       (progn
    
17.         (setq p1 (list (distof x) (distof y))
    
18.               p2 (xyp-get-Pt2Y p1 -300)
    
19.         )
    
20.         (xyp-InsertBlock p1 "ABC" 1 1 1 0)
    
21.         (xyp-Text 5 p2 (strcat "NO." t1))
    
22.       )
    
23.     )
    
24.   )
    
25.   (CMDLA1)
    
26. )

;; 伪源码需要e派工具箱(XCAD)的支持<br /> (defun c:tt ()<br />   (CMDLA0)<br />   (setq        fn  (getfiled "选择数据文件" "" "xls" 16)<br />         lst (xyp-xls2list fn)<br />         lst (cdr lst)<br />         lst (mapcar '(lambda (x) (list (car x) (cadr x) (caddr x))) lst)<br />   )<br />   (foreach a lst<br />     (setq t1 (car a)<br />           x  (cadr a)<br />           y  (caddr a)<br />     )<br />     (if        (and (/= t1 "") (/= x "") (/= y ""))<br />       (progn<br />         (setq p1 (list (distof x) (distof y))<br />               p2 (xyp-get-Pt2Y p1 -300)<br />         )<br />         (xyp-InsertBlock p1 "ABC" 1 1 1 0)<br />         (xyp-Text 5 p2 (strcat "NO." t1))<br />       )<br />     )<br />   )<br />   (CMDLA1)<br /> )

thinking_me

zyhandw 发表于 2012-7-6 11:22
这个就看你自己的需要，自己解决了

终于找的需要的了按Excel表坐标点插入图块程序

gzbccy

thinking_me 发表于 2012-7-9 10:24
终于找的需要的了按Excel表坐标点插入图块程序

我看了半天，不知道你怎么解决了。共享下如何？