[编程申请]：两点中点偏移200mm插入块

baihc798

请帮忙高手编写一下，
在A点和B点之间中间向上偏移200，插入一个叫“JT”的块。
如图

baihc798

附一个相似的LSP，不过这个是写文字的。
那位高手能帮忙改一下吗。

xyp1964

2. [FONT=courier new](load "xyp_lib.vlx")                        ;版本 V.20051230
   
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
   
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
5. ★1·在acad.lsp中增加(load"xyp_lib")
   
6. ■2·在每个程序内增加(load"xyp_lib")
   
7. ■3·在command下，输入(load"xyp_lib")
   
8. ■4·在菜单.mnl中增加(load"xyp_lib")
   
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
   
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
11. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
12. |;
    
13. 
    
14. (defun test (pta ptb)
    
15.   (CMDLA0)
    
16.   (setq        pt (xyp-get-MidPointUP pta ptb 200))
    
17.   (command"insert""JT" pt """""")
    
18.   (CMDLA1)
    
19. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")                        ;版本 V.20051230<br /> ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib")<br /> ■2·在每个程序内增加(load"xyp_lib")<br /> ■3·在command下，输入(load"xyp_lib")<br /> ■4·在菜单.mnl中增加(load"xyp_lib")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> |;<br /> <br /> (defun test (pta ptb)<br />   (CMDLA0)<br />   (setq        pt (xyp-get-MidPointUP pta ptb 200))<br />   (command"insert""JT" pt """""")<br />   (CMDLA1)<br /> )[/FONT]

块随A、B两点的角度旋转

2. [FONT=courier new](defun test (pta ptb)
   
3.   (CMDLA0)
   
4.   (setq        pt (xyp-get-MidPointUP pta ptb 200))
   
5.   (command"insert""JT" pt """"(rad2ang(angle pta ptb)))
   
6.   (CMDLA1)
   
7. )[/FONT]

[FONT=courier new](defun test (pta ptb)<br />   (CMDLA0)<br />   (setq        pt (xyp-get-MidPointUP pta ptb 200))<br />   (command"insert""JT" pt """"(rad2ang(angle pta ptb)))<br />   (CMDLA1)<br /> )[/FONT]

baihc798

真的不好意思，为什么两个运行的时候都说“错误: 参数太少”

xyp1964

最初由 baihc798 发布
[B]真的不好意思，为什么两个运行的时候都说“错误: 参数太少” [/B]

如果 A、B两点(pta、ptb)已知，运行方式:
(test pta ptb)

如果 A、B两点(pta、ptb)需输入，命令为“test1”：

2. [FONT=courier new](defun c:test1 (/ pta ptb)
   
3.   (CMDLA0)
   
4.   (if (and
   
5.         (setq pta (getpoint "\n起点: "))
   
6.         (setq ptb (getpoint pta "\n终点: "))
   
7.       )
   
8.     (progn
   
9.       (setq pt (xyp-get-MidPointUP pta ptb 200))
   
10.       (command"insert""JT" pt """"(rad2ang(angle pta ptb)))
    
11.     )
    
12.   )
    
13.   (CMDLA1)
    
14. )[/FONT]

[FONT=courier new](defun c:test1 (/ pta ptb)<br />   (CMDLA0)<br />   (if (and<br />         (setq pta (getpoint "\n起点: "))<br />         (setq ptb (getpoint pta "\n终点: "))<br />       )<br />     (progn<br />       (setq pt (xyp-get-MidPointUP pta ptb 200))<br />       (command"insert""JT" pt """"(rad2ang(angle pta ptb)))<br />     )<br />   )<br />   (CMDLA1)<br /> )[/FONT]

baihc798

大哥，还是不行呀，运行命令后，什么都没有
我单独运行(command"insert""JT" pt """"(rad2ang(angle pta ptb)))
出现以下问题
错误: 参数类型错误: 二维/三维点: nil

xyp1964

单独运行(command"insert""JT" pt """"(rad2ang(angle pta ptb)))怎么能行？！

要保证JT.dwg文件在搜索路径下！
试试用insert命令，插入JT.dwg是否可行？

baihc798

我终于知道为什么了呢？原来我那个xyp_lib.vlx是旧版的。太感谢了。