[LISP程序]：怎样自动生成网格？

redapple

现有一矩形，怎样在其中自动划分很多一定大小的网格（网格大小相等）？

snsj

ai_mesh

redapple

3X，好想法！这样非交互式能够实现吗？
如果用绘图的方法能不能够自动生成？

snsj

你的意思是画个矩形自动生成网格？

mmmm

USE HATCH (SELF DEFINE, DOUBLE)

redapple

hatch应该能够实现，可是后面我还需要和其中某个网格相交的实体，这可能就要所画的网格是
一个一个的实体，那样该怎样画呢？

mmmm

HATCH & EXPLODE

hope333

可以见常用lisp程序100例一书

redapple

请问哪里有100例？谢谢！

yudong716

给你一个填充程序，我也是下载的，借花献佛。

2. 
   
3. ;;grids.lsp
   
4. (defun C:grids (/ col row box pt1 pt2 pt3 pt4 ent ent1 dist dist1 rspace cspace)
   
5.   (defun box ()
   
6.     (setq pt1 (getpoint " 输入左上角： "))
   
7.     (setq pt3 (getcorner pt1 "输入右下角：  "))
   
8.     (setq pt2 (list (car pt1) (cadr pt3)))
   
9.     (setq pt4 (list (car pt3) (cadr pt1)))
   
10.     (command "line" pt1 pt2 "")
    
11.     (setq ent (entlast))
    
12.     (command "line" pt2 pt3 "")
    
13.     (setq ent1 (entlast))
    
14.     (command "line" pt3 pt4 pt1 "")
    
15.   )
    
16.   (setvar "cmdecho" 0)
    
17.   (setq col (getint "多少列： "))
    
18.   (setq row (getint "多少行： "))
    
19.   (box)
    
20.   (setq dist (distance pt1 pt2))
    
21.   (setq dist1 (distance pt1 pt4))
    
22.   (setq rspace (/ dist row))
    
23.   (setq cspace (/ dist1 col))
    
24.   (command "array" ent "" "" 1 col cspace)
    
25.   (command "array" ent1 "" "" row 1 rspace)
    
26.   (setvar "cmdecho" 1)
    
27.   (princ)
    
28. )

<br /> ;;grids.lsp<br /> (defun C:grids (/ col row box pt1 pt2 pt3 pt4 ent ent1 dist dist1 rspace cspace)<br />   (defun box ()<br />     (setq pt1 (getpoint " 输入左上角： "))<br />     (setq pt3 (getcorner pt1 "输入右下角：  "))<br />     (setq pt2 (list (car pt1) (cadr pt3)))<br />     (setq pt4 (list (car pt3) (cadr pt1)))<br />     (command "line" pt1 pt2 "")<br />     (setq ent (entlast))<br />     (command "line" pt2 pt3 "")<br />     (setq ent1 (entlast))<br />     (command "line" pt3 pt4 pt1 "")<br />   )<br />   (setvar "cmdecho" 0)<br />   (setq col (getint "多少列： "))<br />   (setq row (getint "多少行： "))<br />   (box)<br />   (setq dist (distance pt1 pt2))<br />   (setq dist1 (distance pt1 pt4))<br />   (setq rspace (/ dist row))<br />   (setq cspace (/ dist1 col))<br />   (command "array" ent "" "" 1 col cspace)<br />   (command "array" ent1 "" "" row 1 rspace)<br />   (setvar "cmdecho" 1)<br />   (princ)<br /> )