在一个DWG文件中插入鼠标位置所在的图幅

qfkxc

求助编程：在一个DWG文件中插入鼠标位置所在的图幅（可以连续插入）
步骤：
1，打开一幅DWG文件，鼠标在图形周围点击一下，取得XY坐标值
2，根据XY坐标值计算鼠标位置所在图幅(图幅为50CM*50CM)，起名规则：A.B-C.D，A，C分别为X,Y坐标整公里数，B,D分别为X，Y坐标值的米数；
比例尺1:500 时B,D的取值：大于等于0小于250时为00，大于等于250小于500时为25，大于等于500小于750时为50，大于等于,750小于1000时为75.
比例尺1:1000时B,D的取值：大于等于0小于500时为00，大于等于500小于,1000时为50.
比例尺1:2000时B,D分别为00
如鼠标坐标值为X85230.233,Y66847.386，比例尺1:500 时图幅名为85.00-66.75，比例尺1:,1000 时图幅名为85.00-66.50，比例尺1:2000 时图幅名,85.00-66.00.
3，以块的形式插入图形，基点为0,0（图块为分解和不分解两种，默认插入所打开DWG文件夹下的的图块。）

Gu_xl

1. (DEFUN C:TT (/ PT FILENAME path scale)
   
2.   (defun getname (pt scale / X Y XKM A XM YKM YM dimzin)
   
3.     (setq dimzin (getvar 'dimzin))
   
4.     (setvar 'dimzin 0)
   
5.     (setq x (car pt)
   
6.           y (cadr pt)
   
7.           xkm (rtos (setq a (fix (* 0.001 y))) 2 0)
   
8.           xm (substr (rtos (* 0.001 (* (fix (/ (- y (* a 1000)) (* scale 0.5))) (* scale 0.5))) 2 2) 2)
   
9.           ykm (rtos (setq a (fix (* 0.001 x))) 2 0)
   
10.           ym (substr (rtos (* 0.001 (* (fix (/ (- x (* a 1000)) (* scale 0.5))) (* scale 0.5))) 2 2) 2)
    
11.           )
    
12.     (setvar 'dimzin dimzin)
    
13.     (strcat xkm  xm "-" ykm  ym)
    
14.     )
    
15.   (setq scale (getint "\n 图形比例尺<1:500>"))
    
16.   (if (null scale) (setq scale 500))
    
17.   (setq path (getvar 'DWGPREFIX))
    
18. (while
    
19.   (setq pt (getpoint "\n选取点位置:"))
    
20. ;;;得到文件名
    
21.   (setq filename (strcat (getname pt scale) ".dwg"))
    
22. 
    
23. ;;;插入块
    
24.   (if (setq filename (findfile (strcat path filename)))
    
25.     (command "insert" filename '(0 0 0) 1 1 0)
    
26.   )
    
27. )
    
28. )
    

(DEFUN C:TT (/ PT FILENAME path scale)<br />   (defun getname (pt scale / X Y XKM A XM YKM YM dimzin)<br />     (setq dimzin (getvar 'dimzin))<br />     (setvar 'dimzin 0)<br />     (setq x (car pt)<br />           y (cadr pt)<br />           xkm (rtos (setq a (fix (* 0.001 y))) 2 0)<br />           xm (substr (rtos (* 0.001 (* (fix (/ (- y (* a 1000)) (* scale 0.5))) (* scale 0.5))) 2 2) 2)<br />           ykm (rtos (setq a (fix (* 0.001 x))) 2 0)<br />           ym (substr (rtos (* 0.001 (* (fix (/ (- x (* a 1000)) (* scale 0.5))) (* scale 0.5))) 2 2) 2)<br />           )<br />     (setvar 'dimzin dimzin)<br />     (strcat xkm  xm "-" ykm  ym)<br />     )<br />   (setq scale (getint "\n 图形比例尺<1:500>"))<br />   (if (null scale) (setq scale 500))<br />   (setq path (getvar 'DWGPREFIX))<br /> (while<br />   (setq pt (getpoint "\n选取点位置:"))<br /> ;;;得到文件名<br />   (setq filename (strcat (getname pt scale) ".dwg"))<br /> <br /> ;;;插入块<br />   (if (setq filename (findfile (strcat path filename)))<br />     (command "insert" filename '(0 0 0) 1 1 0)<br />   )<br /> )<br /> )<br />

Andyhon

建议楼主改用图文解说
纯文字叙述不容易传达应有的图文讯息
贴出来是不就是要让见帖者容易转化理解?....

qfkxc

功能与帖子http://bbs.mjtd.com/thread-88608-1-5.html相同，只是图幅号取名规则不同。如图所示，打开62.75-80.75，鼠标在图的周围点一下，得到鼠标所在位置XY坐标，根据图幅取名规则计算出鼠标所在位置的图幅号为62.75-81.00，以插入块的方式插入文件名为62.75-81.00.dwg的文件，然后鼠标在其他位置点击下插入相应的图幅。(图中文件结合表是不存在的，只是为了说明加入的)。

qfkxc

多谢GU-XL版主，程序很好用