vba&gridline1 ( for maps )

หน้า 1 จาก 2 1, 2  Next

อ่านหัวข้อก่อนหน้า อ่านหัวข้อถัดไป Go down

vba&gridline1 ( for maps )

ตั้งหัวข้อ by lersak on Mon Nov 06, 2006 6:48 pm

lisp յҧ grid Ѻ Ẻ ¤ array Ѻ

lersak

จำนวนข้อความ : 327
Registration date : 01/11/2006

ดูข้อมูลส่วนตัว

ขึ้นไปข้างบน Go down

´

ตั้งหัวข้อ by lersak on Mon Nov 06, 2006 6:56 pm

down load ѹ key ѹյǹ defun c:

lersak

จำนวนข้อความ : 327
Registration date : 01/11/2006

ดูข้อมูลส่วนตัว

ขึ้นไปข้างบน Go down

Re: vba&gridline1 ( for maps )

ตั้งหัวข้อ by lersak on Mon Nov 06, 2006 6:57 pm

down load ѹ key ѹյǹ defun c:

;;; -*- Mode: Lisp; Syntax: Common-Lisp; -*- Author: Peter Norvig
;;;; Algorithms for manipulating objects in a grid
(defun grid-contents (env loc)
"Return a list of objects in this location, optionally including
objects that are contained within containers here."
(aref (grid-environment-grid env) (xy-x loc) (xy-y loc)))
(defsetf grid-contents (env loc) (val)
`(setf (aref (grid-environment-grid ,env) (xy-x ,loc) (xy-y ,loc))
,val))
(defun move-object-to (object loc env)
"Move an object to an absolute location and return that location. However,
attempting to move into a location with an obstacle fails (returns nil)
and the object receives a bump."
(cond ((find-object-if #'obstacle-p loc env)
(setf (object-bump object) 'bump)
nil)
(t (remove-object object env)
(place-object object loc env)
loc)))
(defun place-object (object loc env &optional (initial? t))
"Put the object in its initial position or a new position in environment."
;; Coerce agents into agent-bodies
(when (agent-p object)
(pushnew object (environment-agents env))
(setf object (agent-body object)))
;; Place the object
(setf (object-loc object) loc)
(pushnew object (grid-contents env loc))
(when initial?
(push object (grid-environment-objects env)))
object)
(defun place-in-container (object container env)
"Put the object inside the container, if there is room."
;; First, check to see if there is space
(when (< (+ (object-size object)
(sum (object-contents container) #'object-size))
(object-max-contents object))
;; If there is, remove it from where it was.
(remove-object object env)
;; Now place it in its new container
(setf (object-container object) container)
(setf (object-loc object) (object-loc container))
(pushnew object (object-contents container))
object))

(defun remove-object (object env)
"Remove the object from its current location."
(let ((loc (object-loc object))
(old-container (object-container object)))
(deletef object (grid-contents env loc))
(when old-container
(deletef object (object-contents old-container))
(setf (object-container object) nil))))
(defun find-object-if (predicate loc env)
"Return an object in this location that satisfies this predicate."
(find-if predicate (grid-contents env loc)))
(defun find-neighbor-if (predicate loc env)
"Return an object in a neighboring square that satisfies the predicate."
(let ((x (xy-x loc))
(y (xy-y loc)))
;; Look in the four neighboring squares
(or (find-object-if predicate (@ x (+ y 1)) env)
(find-object-if predicate (@ x (- y 1)) env)
(find-object-if predicate (@ (+ x 1) y) env)
(find-object-if predicate (@ (- x 1) y) env))))
(defun find-object-or-neighbor-if (predicate loc env)
"Return an object either in loc or a neighboring square that satisfies
the predicate."
(or (find-object-if predicate loc env)
(find-neighbor-if predicate loc env)))
(defun near? (loc1 loc2 &optional (tolerance 1))
"Are the two locations nearby each other?"
(and (<= (abs (- (xy-x loc1) (xy-x loc2))) tolerance)
(<= (abs (- (xy-y loc1) (xy-y loc2))) tolerance)))
;;;; Maintaining and manipulating orientation
(defun add-locs (&rest locations)
"Coordinate-wise addition of locations: (add-locs '(1 2) '(10 20)) = (11 22)"
(apply #'mapcar #'+ locations))
(defun subtract-locs (&rest locations)
"Coordinate-wise subtraction of locations."
(apply #'mapcar #'- locations))
(defun heading->string (heading)
"Convert a heading like (0 1) to a depictive string like ^."
(cond ((equal heading '(1 0)) ">")
((equal heading '(0 1)) "^")
((equal heading '(-1 0)) "<")
((equal heading '(0 -1)) "V")
(t "?")))
(defun absolute-loc (agent-body offset)
"Return an absolute location given an offset from an agent, taking the
agent's orientation into account. An offset of (1 2) means 1 square to
the right and two ahead of the agent, given its present orientation."
(let ((x (xy-x offset))
(y (xy-y offset))
(heading (agent-body-heading agent-body)))
(add-locs (object-loc agent-body)
(cond ((equal heading '(1 0)) (@ y (- x)))
((equal heading '(0 1)) offset)
((equal heading '(-1 0)) (@ (- y) x))
((equal heading '(0 -1)) (@ (- x) (- y)))
(t "?")))))
(defun offset-loc (agent-body loc)
"Return an offset from an agent that corresponds to the absolute loc."
(let ((x (- (xy-x loc) (xy-x (object-loc agent-body))))
(y (- (xy-y loc) (xy-y (object-loc agent-body))))
(heading (agent-body-heading agent-body)))
(cond ((equal heading '(1 0)) (@ (- y) (+ x)))
((equal heading '(0 1)) (@ x y))
((equal heading '(-1 0)) (@ (+ y) (- x)))
((equal heading '(0 -1)) (@ (- x) (- y)))
(t "?"))))

lersak

จำนวนข้อความ : 327
Registration date : 01/11/2006

ดูข้อมูลส่วนตัว

ขึ้นไปข้างบน Go down

Re: vba&gridline1 ( for maps )

ตั้งหัวข้อ by thaitopo on Mon Nov 06, 2006 11:40 pm

lisp ФѺ?
aecplus յvesion áӡԴѧҤäѺ lisp ١ protex
¤ԴдѴŧ㹧ҹ survey ¤Ѻѡ..ФѺ...лѨغѹԴռŵ͡¹Ẻµçͧ...ѧС¹«...ԧҾ͹ҹ..ҹ...Ҷҧԧ¤ԤѲ..شѹա...ҹԸ仡͹Ҩдա....ФѺ
.......мԸ ͧԴͧ١ 㹡䢴Ѵŧ lisp ͹ѹ...жҨЪ...ͧաչФѺ
...ҷ...稡͹ 駤˹Ҵ..ФѺ...ջªѺ͹ѹ
(㹺cadplus...դͧẺ....仴ٹФѺ) Mad

thaitopo
Admin

จำนวนข้อความ : 1570
: 23
Localisation : chiengmai
Registration date : 24/10/2006

ดูข้อมูลส่วนตัว http://thaitopo.PAGE.TL

ขึ้นไปข้างบน Go down

Grid

ตั้งหัวข้อ by Halo Bungies on Mon Nov 20, 2006 12:15 pm

grid Ẻ˹Ѻ
ʴ繨ش ͹cad

Halo Bungies

จำนวนข้อความ : 67
Registration date : 20/11/2006

ดูข้อมูลส่วนตัว

ขึ้นไปข้างบน Go down

ẺҤѺ

ตั้งหัวข้อ by Halo Bungies on Mon Nov 20, 2006 12:55 pm

Free Image Hosting at www.ImageShack.us

Halo Bungies

จำนวนข้อความ : 67
Registration date : 20/11/2006

ดูข้อมูลส่วนตัว

ขึ้นไปข้างบน Go down

աҾ

ตั้งหัวข้อ by Halo Bungies on Mon Nov 20, 2006 12:57 pm

Free Image Hosting at www.ImageShack.us

Halo Bungies

จำนวนข้อความ : 67
Registration date : 20/11/2006

ดูข้อมูลส่วนตัว

ขึ้นไปข้างบน Go down

Ҿش

ตั้งหัวข้อ by Halo Bungies on Mon Nov 20, 2006 12:59 pm

Free Image Hosting at www.ImageShack.us


Ѻ ʹ㨷 VBA Macro ФѺ
Bye lol!

Halo Bungies

จำนวนข้อความ : 67
Registration date : 20/11/2006

ดูข้อมูลส่วนตัว

ขึ้นไปข้างบน Go down

Re: vba&gridline1 ( for maps )

ตั้งหัวข้อ by thaitopo on Mon Nov 20, 2006 2:05 pm

Ҩ gridline ʴ СͺἹ ẺǡѺõռѧҤ..ФѺ
Թյ͹Ѻ...س"Halo Bungies"ҪԡͧҴ¤Ѻ...ǡѺҹҹ...ʶҹ¹ФѺ...ͧ趹Ѵҹ VBAҫ¤Ѻ..ͺپѲҡâͧҹҹ..͹ѹ...¢vbaͧسµ ǹʹѧ͡ȷͧ¤Ѻ...
椹....¨դҹѹѡ 駢鹵͹Ըա͹Ѻ͹ ǹ֡....͹ʹѺǹ˭ ФѺ
ҧ..觵㨧 ǡѺԸաâ鹵͹ vba Ѻ cad 餹ѧͧ Ըաù ẺФѺ ....Դforum ФѺ



แก้ไขล่าสุดโดย เมื่อ Mon Nov 20, 2006 3:16 pm, ทั้งหมด 1 ครั้ง

thaitopo
Admin

จำนวนข้อความ : 1570
: 23
Localisation : chiengmai
Registration date : 24/10/2006

ดูข้อมูลส่วนตัว http://thaitopo.PAGE.TL

ขึ้นไปข้างบน Go down

ตั้งหัวข้อ by Halo Bungies on Mon Nov 20, 2006 2:41 pm

......
ͧӴ٤Ѻ

Halo Bungies

จำนวนข้อความ : 67
Registration date : 20/11/2006

ดูข้อมูลส่วนตัว

ขึ้นไปข้างบน Go down

ตั้งหัวข้อ by Halo Bungies on Mon Nov 20, 2006 2:58 pm

Ƿ Array ФѺ
֧ lisp/macro ͧШӹǹ͹
ä觷ͧ ᵡҧҡ觻áФѺ

Halo Bungies

จำนวนข้อความ : 67
Registration date : 20/11/2006

ดูข้อมูลส่วนตัว

ขึ้นไปข้างบน Go down

Customized array

ตั้งหัวข้อ by Halo Bungies on Mon Nov 20, 2006 4:11 pm

ͧǢ Customized Array ФѺ

Halo Bungies

จำนวนข้อความ : 67
Registration date : 20/11/2006

ดูข้อมูลส่วนตัว

ขึ้นไปข้างบน Go down

ler

ตั้งหัวข้อ by lersak on Tue Nov 21, 2006 12:27 pm

ᵡҧ ѹеͧդҾԡѴ ӡѺ ԴѺ
չ vba ö 鹡Դ С ͡ҾԡѴ
ӡѺ 鹡Դ ҨǴդѺ ͧҹԡѴ

lersak

จำนวนข้อความ : 327
Registration date : 01/11/2006

ดูข้อมูลส่วนตัว

ขึ้นไปข้างบน Go down

Re: vba&gridline1 ( for maps )

ตั้งหัวข้อ by Halo Bungies on Tue Nov 21, 2006 3:49 pm

͡Ẻ 1 ФѺ


Halo Bungies

จำนวนข้อความ : 67
Registration date : 20/11/2006

ดูข้อมูลส่วนตัว

ขึ้นไปข้างบน Go down

Ẻ͹ФѺ

ตั้งหัวข้อ by Halo Bungies on Tue Nov 21, 2006 10:58 pm

ٻ 1 ٻҧ˹ҵҷ

Free Image Hosting at www.ImageShack.us

Halo Bungies

จำนวนข้อความ : 67
Registration date : 20/11/2006

ดูข้อมูลส่วนตัว

ขึ้นไปข้างบน Go down

Re: vba&gridline1 ( for maps )

ตั้งหัวข้อ by Halo Bungies on Tue Nov 21, 2006 11:01 pm



Free Image Hosting at www.ImageShack.us

Halo Bungies

จำนวนข้อความ : 67
Registration date : 20/11/2006

ดูข้อมูลส่วนตัว

ขึ้นไปข้างบน Go down

Re: vba&gridline1 ( for maps )

ตั้งหัวข้อ by Halo Bungies on Tue Nov 21, 2006 11:04 pm

ٻ 2

Free Image Hosting at www.ImageShack.us

Halo Bungies

จำนวนข้อความ : 67
Registration date : 20/11/2006

ดูข้อมูลส่วนตัว

ขึ้นไปข้างบน Go down

Re: vba&gridline1 ( for maps )

ตั้งหัวข้อ by Halo Bungies on Tue Nov 21, 2006 11:08 pm

ش....... Ẻ͹ФѺ ʹѭҨѴѡêԴѧ
ǨադѺ

ǹԸաҧ macro зӽҡҷҧ Admin աչФѺ

Free Image Hosting at www.ImageShack.us

Halo Bungies

จำนวนข้อความ : 67
Registration date : 20/11/2006

ดูข้อมูลส่วนตัว

ขึ้นไปข้างบน Go down

Դ

ตั้งหัวข้อ by lersak on Wed Nov 22, 2006 7:43 am

Ѻö text copy ҡҫҡ
ԧҨ dialog box ͡ ҾԡѴá
ǹ蹡͡Ẻͧ ҡҧͧԡѴ͡

lersak

จำนวนข้อความ : 327
Registration date : 01/11/2006

ดูข้อมูลส่วนตัว

ขึ้นไปข้างบน Go down

Yes......

ตั้งหัวข้อ by Halo Bungies on Wed Nov 22, 2006 9:41 am



ǹٻẺͧ Array ʹ Code աչФѺ
ԧǾѴٻẺ͹ default array ͧ cad 駤źкǡ ź¶֧ȷҧͧ array ŧ
ǡ¶֧ȷҧͧ array

ѧ䧷աФѺ ʹҧͧ¤Ѻ

Halo Bungies

จำนวนข้อความ : 67
Registration date : 20/11/2006

ดูข้อมูลส่วนตัว

ขึ้นไปข้างบน Go down

Re: vba&gridline1 ( for maps )

ตั้งหัวข้อ by lersak on Wed Nov 22, 2006 6:00 pm

lersak_m@hotmail.com
...ǡҨ ok ФѺ
...Ẻҵ͹ѧҡúҹس..halo bungies ѺҨҡ˹
Ҩª ҡ

lersak

จำนวนข้อความ : 327
Registration date : 01/11/2006

ดูข้อมูลส่วนตัว

ขึ้นไปข้างบน Go down

Re: vba&gridline1 ( for maps )

ตั้งหัวข้อ by thaitopo on Thu Nov 23, 2006 3:00 am

sunny شʹ...¤Ѻ
ͧԴ ŧҹ...鹵仡ѹաҹ....Ҿ͹ФѺ bounce
file 鷴ͧ¹ФѺ...thaitopo@yahoo.com

thaitopo
Admin

จำนวนข้อความ : 1570
: 23
Localisation : chiengmai
Registration date : 24/10/2006

ดูข้อมูลส่วนตัว http://thaitopo.PAGE.TL

ขึ้นไปข้างบน Go down

ตั้งหัวข้อ by Halo Bungies on Thu Nov 23, 2006 7:49 am

Admin ˹ҤѺ ҫ

Halo Bungies

จำนวนข้อความ : 67
Registration date : 20/11/2006

ดูข้อมูลส่วนตัว

ขึ้นไปข้างบน Go down

Re: vba&gridline1 ( for maps )

ตั้งหัวข้อ by thaitopo on Thu Nov 23, 2006 3:20 pm

׹ԧ˹͡....ͧѹǹӧҹѺ...µͧ͡ѹ˹ Ѻ
..Ҽҹաѹ..... Sleep Sleep

thaitopo
Admin

จำนวนข้อความ : 1570
: 23
Localisation : chiengmai
Registration date : 24/10/2006

ดูข้อมูลส่วนตัว http://thaitopo.PAGE.TL

ขึ้นไปข้างบน Go down

Re: vba&gridline1 ( for maps )

ตั้งหัวข้อ by thaitopo on Thu Nov 23, 2006 6:41 pm

ͧҹԧѹ¤Ѻ

1 2

3 4

5 6

[color:64c0=red:64c0] þŢҾԡѴE,N command line ѧҡ ͡ҧҧ鹧ҹ ᷹pick point Ţͧ˹觨ԧǡѹѺ....觨ԧѧҡ˹ ԡѴҧ·繤Ҩԧ...繵ͧҧ˹ǤѺ... ѺŢԴ ѡʹѺѡҹѹ comma 蹨дٴաҹФѺ....layer ok Ѻ
linetype gridж֧˹ ¹scale ѹ....ok¤Ѻ ҹҤṹ 98/100 ͹ФѺ

thaitopo
Admin

จำนวนข้อความ : 1570
: 23
Localisation : chiengmai
Registration date : 24/10/2006

ดูข้อมูลส่วนตัว http://thaitopo.PAGE.TL

ขึ้นไปข้างบน Go down

หน้า 1 จาก 2 1, 2  Next

อ่านหัวข้อก่อนหน้า อ่านหัวข้อถัดไป ขึ้นไปข้างบน


 
Permissions in this forum:
คุณไม่สามารถพิมพ์ตอบ