[LISP函数]：希望能单独修改HATCH的X,Y轴的比例或间距!(内有填充自定X,Y尺寸的LSP)

jeepsheep

应该把原来晓东工具里修改HATCH的比例或间距的命令改为能单独修改HATCH的X,Y轴的比例或间距!
我这有一个能修改原有HATCH文件(grid.pat),而直接填充自定X,Y尺寸(但是好象只能输入300,600,900,1200的建筑基数)的LSP,可以作为参考,加以完善命令!

2. 
   
3. ;[XG.LSP]BY jeep 08Jan04
   
4. ;TO DRAW CEILING GRID
   
5. (defun c:xg (/ a -a b c)
   
6. (getnewline)
   
7. (setvar "cmdecho" 0)
   
8. (setq snap (getvar "osmode"))
   
9. (setq OLDERR *ERROR*
   
10.        *ERROR* MYERROR
    
11.        pt1 (getpoint "\nSetting up point:")
    
12.        distY (getstring "\nLength of grid :")
    
13.        distX (getstring "\nHeight of grid :")
    
14.        pt2 (getpoint pt1  "\nAngle of grid :")
    
15. )
    
16. (setq angleX (angle pt1 pt2))
    
17. (setq angleY (+ angleX (/ 3.14159265358979323846264338327950288419716939937510 2)))
    
18. 
    
19. (setq angleX (* angleX 57.2957795130823208767981548141326))
    
20. (setq angleY (* angleY 57.2957795130823208767981548141326))
    
21. 
    
22. (setq Line1 (strcat (rtos angleX 2 5) ",0,0,0," distX))
    
23. (setq Line2 (strcat (rtos angleY 2 5) ",0,0,0," distY))
    
24. 
    
25. (setq FILENAME "GRID.PAT")
    
26. (setq OPENFILE (open FILENAME "w"))
    
27. (write-line "*GRID, XGrid" OPENFILE)
    
28. 
    
29. (write-line Line1 OPENFILE)
    
30. (write-line Line2 OPENFILE)
    
31. 
    
32. (write-line "" OPENFILE)
    
33. (close OPENFILE)
    
34. 
    
35. (princ "\nSelect Polyline to fill:")
    
36. (setq select (ssget))
    
37. 
    
38. (command "snapbase" pt1)
    
39. (command "-bhatch" "P" "GRID" "" "" "S" select "" "")
    
40. (command "snapbase" 0,0)
    
41. (setq *ERROR* OLDERR)
    
42. 
    
43. (princ)
    
44. );END OF XG.LSP
    

<br /> ;[XG.LSP]BY jeep 08Jan04<br /> ;TO DRAW CEILING GRID<br /> (defun c:xg (/ a -a b c)<br /> (getnewline)<br /> (setvar "cmdecho" 0)<br /> (setq snap (getvar "osmode"))<br /> (setq OLDERR *ERROR*<br />        *ERROR* MYERROR <br />        pt1 (getpoint "\nSetting up point:")<br />        distY (getstring "\nLength of grid :")<br />        distX (getstring "\nHeight of grid :")<br />        pt2 (getpoint pt1  "\nAngle of grid :")<br /> )<br /> (setq angleX (angle pt1 pt2))<br /> (setq angleY (+ angleX (/ 3.14159265358979323846264338327950288419716939937510 2)))<br /> <br /> (setq angleX (* angleX 57.2957795130823208767981548141326))<br /> (setq angleY (* angleY 57.2957795130823208767981548141326))<br /> <br /> (setq Line1 (strcat (rtos angleX 2 5) ",0,0,0," distX))<br /> (setq Line2 (strcat (rtos angleY 2 5) ",0,0,0," distY))<br /> <br /> (setq FILENAME "GRID.PAT")<br /> (setq OPENFILE (open FILENAME "w"))<br /> (write-line "*GRID, XGrid" OPENFILE)<br /> <br /> (write-line Line1 OPENFILE)<br /> (write-line Line2 OPENFILE)<br /> <br /> (write-line "" OPENFILE)<br /> (close OPENFILE)<br /> <br /> (princ "\nSelect Polyline to fill:")<br /> (setq select (ssget))<br /> <br /> (command "snapbase" pt1)<br /> (command "-bhatch" "P" "GRID" "" "" "S" select "" "")<br /> (command "snapbase" 0,0)<br /> (setq *ERROR* OLDERR) <br /> <br /> (princ)<br /> );END OF XG.LSP<br />

这是那个填充文件GRID.PAT

*GRID, XGrid
90, 0,0, 0,1000
90, 100,0, 0,1000
0, 0,0, 0,450, -100,900

jeepsheep

不是为了挣爱心币,只是怕版主十一放假没看到我在十一写的帖子.希望版主能解决问题!

zk_hisen

这么长的程序啊，有点晕了。我还是菜鸟的说。

啵浪鼓

好是好,只是下不了

f5612140

3.14159265358979323846264338327950288419716939937510...
不就是pi

li809

问题解决了吗

zh_6531394

这么用?
"xg"   命令不认

NET-JOB

用不了
xg命令没用

userzhluserzhl

楼主，怎么会出错的？
命令: xg ; 错误: no function definition: GETNEWLINE
我已经把这个PAT放到支持路径下了呀。

liuyumian

试试还真不错

jeepsheep

回九楼：
把第四行的(getnewline)删了就行了。

jx2008

有什么用处？能先介绍一下吗？

qin99gp

不明白

zqw_zhang

谢谢12楼楼主，这样做了以后就可以了。