求大侠看看这个插入块的lisp到底哪里错了，谢谢

zyhandw

改为:(Command "insert" "D:\\My Documents\\xk03.dwg"  ipt  hgt hgt  "角度")

richine001

恩，学习下，呵呵

hao3ren

，insert

52幕墙设计

(Command "insert" "xk03.dwg"  ipt  hgt hgt  "角度")
dwg放在cad搜索目录

chlh_jd

1. (vl-catch-all-apply
   
2.   (function
   
3.     (lambda (dir hgt ipt)
   
4.       (vla-InsertBlock
   
5.         (vla-get-modelspace
   
6.           (vla-get-activedocument
   
7.             (vlax-get-acad-object)
   
8.           )
   
9.         )
   
10.         (vlax-3d-point
    
11.           (list        (car ipt)
    
12.                 (cadr ipt)
    
13.                 0.0
    
14.           )
    
15.         )
    
16.         dir
    
17.         hgt
    
18.         hgt
    
19.         hgt
    
20.         0.0
    
21.       )
    
22.     )
    
23.   )
    
24.   (list        "D:\\My Documents\\xk03.dwg"
    
25.         1.
    
26.         (getpoint "\nPick point:")
    
27.   )
    
28. )

复制代码

zhangcan0515

chlh_jd 发表于 2012-7-8 03:19

谢谢老师分享代码让我学习了！！！