[求助]：求助LISP编程：已知范围线，怎样打开相应图形

温柔女神

我的F盘下有一文件夹：资料，资料文件夹里有很1：500的图，也就是边长250 X 250 的。图纸名称类似西南角坐标，如一图纸西南角坐标为X:90250,Y:71750,那么图纸名称就是90257175.dwg

现在我在CAD里面画一红线，能不能实现：我红线所涉及的1：500图自动调出来呢？(我经常先画红线，然后再查坐标调图，这样好烦啊大哥)
请各位帮忙，我将感激不尽！

补充：
不好意思没有讲清楚，那我再说说：
我有一红线，现在想把红线范围内的1：500的地形图加进来。

zml84

需求不清楚！

zfylxy

需求不清楚阿，每有办法下手

animal212

我知道他的意思。需求也很简单。编程也完全能达到。只是没有时间，思路讲一下，知道的人帮忙编下了。
1。确定红线图所占的坐标范围，可提取左上角和右下角的坐标。便可知道4个角的坐标
2。通过左上角纵坐标除以250取整再乘以250，便可求得左上角图幅的X坐标。同样可求得Y坐标。
3。通过右下角纵坐标除以250取整再乘以250，便可求得右下角图幅的X坐标。同样可求得Y坐标。
4。通过求出左上角和右下角两幅图的坐标范围后便可通过每幅图250*250尺寸大小求出红线图所占的图幅了。

温柔女神

补充：
不好意思没有讲清楚，那我再说说：
我有一红线，现在想把红线范围内的1：500的地形图加进来。

cy956

根据范围求文件名表，可以做到。不过不是规划专业，不知道规律——告诉eachy，这里有个温柔mm在等他——编程，也许他就来：）））

雨箭风刀

"——编程" 纯属多余，应去掉！

温柔女神

最初由 cy956 发布
[B]根据范围求文件名表，可以做到。不过不是规划专业，不知道规律——告诉eachy，这里有个温柔mm在等他——编程，也许他就来：））） [/B]

大哥，那就麻烦你做个简单的程序让我学学呢？
比如鼠标一点击某位置，计算此位置是哪幅1：500图的范围，就把那幅图插入进来？

gysjy

最初由 温柔女神 发布
[B]

比如鼠标一点击某位置，计算此位置是哪幅1：500图的范围，就把那幅图插入进来？[/B]

有点明白你的意思了，我可以试试，请稍等时日。

cy956

1。用(vla-getboundingbox求红线矩形范围。如果要求红线通过范围，可能要逐块验证。
2。用下面的函数求第一个地块名称，分xy求，然后除以10再strcat。
3。逐个地块调入。

2. 
   
3. 
   
4. (defun cy_jw2(sz jd / sz1);;;sz对jd退位，jd>0    如1.2->1,-0.9->-1
   
5.   (if (equal jd 0)
   
6.     (setq sz1 sz)(progn
   
7.     (setq n(/ sz jd 1.0))       
   
8.     (if  (equal (fix n) n)
   
9.       (setq sz1 sz)
   
10.       (if (> n 0)
    
11.         (setq sz1 (* jd (fix n)))
    
12.         (setq sz1 (* jd (fix (1- n))))
    
13.       )
    
14.     )
    
15.   ) )sz1
    
16. )
    
17. 
    
18. (cy_jw2 90230 250)
    
19. 
    
20. (cy_jw2 -90230 250)
    
21. (cy_jw2 0 250)
    
22. 
    
23. 
    
24. _$
    
25. 90000
    
26. _$
    
27. -90250
    
28. _$
    
29. 0
    
30. _$
    
31. 
    

<br /> <br /> (defun cy_jw2(sz jd / sz1);;;sz对jd退位，jd>0    如1.2->1,-0.9->-1<br />   (if (equal jd 0)<br />     (setq sz1 sz)(progn<br />     (setq n(/ sz jd 1.0))        <br />     (if  (equal (fix n) n)<br />       (setq sz1 sz)<br />       (if (> n 0)<br />         (setq sz1 (* jd (fix n)))<br />         (setq sz1 (* jd (fix (1- n))))<br />       )<br />     )<br />   ) )sz1<br /> )<br /> <br /> (cy_jw2 90230 250)<br /> <br /> (cy_jw2 -90230 250)<br /> (cy_jw2 0 250)<br /> <br /> <br /> _$ <br /> 90000<br /> _$ <br /> -90250<br /> _$ <br /> 0 <br /> _$ <br /> <br />

gysjy

最初由 温柔女神 发布
[B]

比如鼠标一点击某位置，计算此位置是哪幅1：500图的范围，就把那幅图插入进来？[/B]

下面的程序试试看，如果比例不符，可调整insert命令后面的比例因子：

2. 
   
3.   [FONT=courier new]
   
4. (defun c:nn( / dx dy p0 p1 str strx stry x x0 y y0)
   
5.   (setvar "osmode" 0)
   
6.   (while (setq p1 (getpoint "\n依次点取范围点:"))
   
7.     (setq x (car p1) y (cadr p1) dx (rem x 250) dy (rem y 250)
   
8.           x0 (- x dx) y0 (- y dy)
   
9.           p0 (list x0 y0)
   
10.           x0 (fix (/ x0 10)) y0 (fix (/ y0 10))
    
11.           strx (itoa x0) stry (itoa y0) str (strcat strx stry)
    
12.     )
    
13.     (command "insert" str p0 "1" "" "0")
    
14.   )
    
15.   (princ)
    
16. )
    
17.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:nn( / dx dy p0 p1 str strx stry x x0 y y0)<br />   (setvar "osmode" 0)<br />   (while (setq p1 (getpoint "\n依次点取范围点:"))<br />     (setq x (car p1) y (cadr p1) dx (rem x 250) dy (rem y 250)<br />           x0 (- x dx) y0 (- y dy)<br />           p0 (list x0 y0) <br />           x0 (fix (/ x0 10)) y0 (fix (/ y0 10))<br />           strx (itoa x0) stry (itoa y0) str (strcat strx stry)<br />     )<br />     (command "insert" str p0 "1" "" "0")<br />   )<br />   (princ)<br /> )<br />   [/FONT]<br />

温柔女神

楼主好程序，我在学习中。
"insert" str p0 "1" "" "0")
后面的"1" "" "0")是X,Y比例和角度的
P0应该是坐标，坐标有点不对，总是放大2倍呢
在学习中——

gysjy

最初由 温柔女神 发布
[B]坐标有点不对，总是放大2倍呢
[/B]

能不能再说得具体一点，或举一实例说明应用中出现的问题。
或者将250X250的地形图及红线图各传一个上来。

温柔女神

我不在办公室，没有500的图，我有一张1：2000的，传给你测试。
因为是1：2000的，边长是1000米，
把你的程序改：dx (rem x 1000) dy (rem y 1000)
是不是图纸的原因呢，一样的有这个问题：
比如点击62123，49123，那么插入图纸应该是62004900，
程序选图名是对的，是插入62004900.dwg，但是位置不对，坐标变为两倍，
西南角坐标应该是62000，49000，插入位置是：124000，98000了
最近整理图纸，没有时间深入研究，看你的程序又是对的，我纳闷呢

gysjy

在我的电脑上试过了，没有出现坐标变为两倍的问题啊。
将P0的坐标除以2试试看：

2. 
   
3.   [FONT=courier new]
   
4. (defun c:nn( / dx dy p0 p1 str strx stry x x0 y y0)
   
5.   (setvar "osmode" 0)
   
6.   (while (setq p1 (getpoint "\n依次点取范围点:"))
   
7.     (setq x (car p1) y (cadr p1) dx (rem x 1000) dy (rem y 1000)
   
8.           x0 (- x dx) y0 (- y dy)
   
9.           p0 (list (/ x0 2) (/ y0 2))
   
10.           x0 (fix (/ x0 10)) y0 (fix (/ y0 10))
    
11.           strx (itoa x0) stry (itoa y0) str (strcat strx stry)
    
12.     )
    
13.     (command "insert" str p0 "1" "" "0")
    
14.   )
    
15.   (princ)
    
16. )
    
17.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:nn( / dx dy p0 p1 str strx stry x x0 y y0)<br />   (setvar "osmode" 0)<br />   (while (setq p1 (getpoint "\n依次点取范围点:"))<br />     (setq x (car p1) y (cadr p1) dx (rem x 1000) dy (rem y 1000)<br />           x0 (- x dx) y0 (- y dy) <br />           p0 (list (/ x0 2) (/ y0 2)) <br />           x0 (fix (/ x0 10)) y0 (fix (/ y0 10))<br />           strx (itoa x0) stry (itoa y0) str (strcat strx stry)<br />     )<br />     (command "insert" str p0 "1" "" "0")<br />   )<br />   (princ)<br /> )<br />   [/FONT]<br />