[编程申请]：随直线角度插块

baihc798

请帮忙！！
能不能插入块的时候按直线的角度自动旋转。
-insrt太麻烦了，每次都要多按三次回车，因为它有个比例输入，而平时一般不需要改比例的

AyungerStudio

当然不可以了，但是用Insert命令时对话框中有固定比例的复选框对象，打勾即可。

baihc798

insert也不好用，因为平时太多图块要插入了，所以想简化一下。

xyp1964

关键看你要如何插入，不如：图块名称、插入位置、数量、角度、比例等等……

baihc798

图块名称由自己输入，插入位置也由自己输入，这时点图中一条直线，以这条直线的角度为图块输入的角度，比例就不要再输入了，就按原比例就可以了（原因每次都要多按两次回车）。

xyp1964

2. [FONT=courier new](load "xyp_lib.vlx")                        ;版本 V.20060314
   
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
   
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
5. ★1·在acad.lsp中增加(load"xyp_lib.vlx")
   
6. ■2·在每个程序内增加(load"xyp_lib.vlx")
   
7. ■3·在command下，输入(load"xyp_lib.vlx")
   
8. ■4·在菜单.mnl中增加(load"xyp_lib.vlx")
   
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. ;;;随线角度插块
    
15. (defun c:test ()
    
16.   (CMDLA0)
    
17.   (setq        STR (USTR 1 "\n输入块名" STR NIL)
    
18.         pt  (getpoint "\n插入位置: ")
    
19.         bn  (findfile (strcat str ".dwg"))
    
20.   )
    
21.   (while (not (setq s1 (entsel "\n选择角度线: "))))
    
22.   (setq        ang (rad2ang
    
23.               (xyp-get-AngleAtPoint (car s1) (osnap (cadr s1) "nea"))
    
24.             )
    
25.   )
    
26.   (if (and str pt bn ang)
    
27.     (command "INSERT" bn pt "" "" ang)
    
28.   )
    
29.   (CMDLA1)
    
30. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")                        ;版本 V.20060314<br /> ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib.vlx")<br /> ■2·在每个程序内增加(load"xyp_lib.vlx")<br /> ■3·在command下，输入(load"xyp_lib.vlx")<br /> ■4·在菜单.mnl中增加(load"xyp_lib.vlx")<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 /> ;;;随线角度插块<br /> (defun c:test ()<br />   (CMDLA0)<br />   (setq        STR (USTR 1 "\n输入块名" STR NIL)<br />         pt  (getpoint "\n插入位置: ")<br />         bn  (findfile (strcat str ".dwg"))<br />   )<br />   (while (not (setq s1 (entsel "\n选择角度线: "))))<br />   (setq        ang (rad2ang<br />               (xyp-get-AngleAtPoint (car s1) (osnap (cadr s1) "nea"))<br />             )<br />   )<br />   (if (and str pt bn ang)<br />     (command "INSERT" bn pt "" "" ang)<br />   )<br />   (CMDLA1)<br /> )[/FONT]

baihc798

大哥是不是程序出了什么错呢。为什么块没有插进去呢？（xyp_lib.vlx已经调用了）

xyp1964

最初由 baihc798 发布
[B]大哥是不是程序出了什么错呢。为什么块没有插进去呢？（xyp_lib.vlx已经调用了） [/B]

把要插入的图块放到搜索路径下，或给出图块的完整路径！

baihc798

奇怪为什么还是插不进去呢？图块已经在搜索路径下我（我试了直接用insrrt能把图块插进去）。给出图块的完整路径也试过。到底问题出在那里呢？

xyp1964

2. [FONT=courier new];;;随线角度插块
   
3. (defun c:test ()
   
4.   (CMDLA0)
   
5.   (setq        STR (USTR 1 "\n输入块名" STR NIL)
   
6.         pt  (getpoint "\n插入位置: ")
   
7.         bn  str;(findfile (strcat str ".dwg"))
   
8.   )
   
9.   (while (not (setq s1 (entsel "\n选择角度线: "))))
   
10.   (setq        ang (rad2ang
    
11.               (xyp-get-AngleAtPoint (car s1) (osnap (cadr s1) "nea"))
    
12.             )
    
13.   )
    
14.   (if (and pt bn ang)
    
15.     (command "INSERT" bn pt "" "" ang)
    
16.   )
    
17.   (CMDLA1)
    
18. )[/FONT]

[FONT=courier new];;;随线角度插块<br /> (defun c:test ()<br />   (CMDLA0)<br />   (setq        STR (USTR 1 "\n输入块名" STR NIL)<br />         pt  (getpoint "\n插入位置: ")<br />         bn  str;(findfile (strcat str ".dwg"))<br />   )<br />   (while (not (setq s1 (entsel "\n选择角度线: "))))<br />   (setq        ang (rad2ang<br />               (xyp-get-AngleAtPoint (car s1) (osnap (cadr s1) "nea"))<br />             )<br />   )<br />   (if (and pt bn ang)<br />     (command "INSERT" bn pt "" "" ang)<br />   )<br />   (CMDLA1)<br /> )[/FONT]

baihc798

我知道问题出在那里了呢？我调了最新那个xyp_lib.VLX就不行，我用回486117_xyp_lib.vllx就可以了，是不是斑竹新的那个又改了命令名呢？请帮忙看一下。