Game Of The Century - Fischer (Black) beats Byrne (White)

Bobby Fischer - a 13-years old beats US Master Donald Byrne.
Rosenwald Memorial Tournament in New York City on October 17,1956.

Here is Descrption of The Warfare:


1. Nf3

A noncommittal move by Byrne. From here, the game can develop into a number of different openings.

1. ... Nf6 2. c4 g6 3. Nc3 Bg7

Fischer defends based on "hypermodern" principles, inviting Byrne to establish a classical pawn stronghold in the center, which Fischer intends to target and undermine with his fianchettoed bishop and other pieces.

4. d4 0-0

Fischer castles, bringing his king to safety. 4...d5 would have reached the Grünfeld Defence immediately. After Fischer's 4...0-0, Byrne could have played 5.e4, whereupon 5...d6 6.Be2 e5 reaches the main line of the King's Indian Defense.

5. Bf4 d5 (Grünfeld Defence, 5.Bf4, D92)

The game has now transposed to the Grünfeld Defence, usually initiated by 1.d4 Nf6 2.c4 g6 3.Nc3 d5.

6. Qb3

A form of the so-called Russian System (the usual move order is 1.d4 Nf6 2.c4 g6 3.Nc3 d5 4.Nf3 Bg7 5.Qb3), putting pressure on Fischer's central d5 pawn.

6. ... dxc4

Fischer relinquishes his center, but draws Byrne's queen to a square where it is a little exposed and can be attacked.

7. Qxc4 c6

Also possible is the more aggressive 7...Na6 (the Prins Variation), preparing ...c5 to challenge White's center.

8. e4 Nbd7

In later games, Black played the more active 8...b5 followed by 9...Qa5.[3][4] An example is Bisguier-Benko, U.S. Championship 1963-64.[5] Fischer's choice is a little slow, although one would not guess that from the subsequent play.

9. Rd1 Nb6 10. Qc5

An awkward square for the queen, which leaves it exposed to a possible ...Na4 or ...Ne4, as Fischer brilliantly demonstrates. Since both of those squares are protected by Byrne's knight on c3, he understandably did not appreciate the danger. 10.Qb3 would have left the queen better placed, although it would have invited further harassment with 10...Be6.

10. ... Bg4

Byrne's pawns control the center squares. However, Fischer is ahead in piece development and has castled, while Byrne's king is still in the center. These factors would not have been very significant had Byrne attended to his development on his next move.



11. Bg5?

Byrne errs, moving the bishop a second time instead of completing his development. Burgess, Nunn and Emms, as well as Wade and O'Connell, suggest 11. Be2, protecting the King and preparing kingside castling.[3][6] Flear-Morris, Dublin 1991, continued 11. Be2 Nfd7 12. Qa3 Bxf3 13. Bxf3 e5 14. dxe5 Qe8 15. Be2 Nxe5 16. O-O and White was slightly better.[3] Byrne doubtless thought that Black's slight lead in development would be transitory, not anticipating the maelstrom that his young opponent now initiates.

11. ... Na4!!

Fischer offers an ingenious knight sacrifice. If Byrne plays 12.Nxa4, Fischer will play Nxe4, leaving Byrne with some terrible choices:

13. Qxe7 Qa5+ 14. b4 Qxa4 15. Qxe4 Rfe8 16. Be7 Bxf3 17. gxf3 Bf8 produces a deadly pin.
13. Bxe7 Nxc5 14. Bxd8 Nxa4 15. Bg5 Bxf3 16. gxf3 Nxb2 gives Fischer an extra pawn and ruins Byrne's pawn structure.
13. Qc1 Qa5+ 14. Nc3 Bxf3 15.gxf3 Nxg5 regains the sacrificed piece with a better position.
13. Qb4 Nxg5 14.Nxg5 Bxd1 15.Kxd1 Bxd4 16.Qd2 Bxf2 with a winning material advantage (Fischer)

12. Qa3 Nxc3 13. bxc3 Nxe4!

Fischer again offers material in order to open the e-file and get at White's uncastled king.

14. Bxe7 Qb6 15. Bc4

Byrne wisely declines the offered material. If 15. Bxf8, Bxf8 16.Qb3, Fischer analyzes 16...Nxc3! 17.Qxb6 (17.Qxc3?? Bb4 wins the queen) axb6 18.Ra1 Re8+ 19.Kd2 Ne4+ 20.Kc2 Nxf2 21.Rg1 Bf5+, which he considers winning for Black. Also strong is 16...Re8 17.Qxb6 (17.Be2 Nxc3!) 17...axb6 18.Be2 Nxc3 19.Rd2 Bb4 20.Kf1 Ne4 21.Rb2 Bc3 22.Rc2 Nd2+! 23.Kg1 (23.Nxd2 Bxe2+ 24.Kg1 Bd3! 25.Rc1 Bxd2 leaves Black with a winning material advantage) Rxe2 24.Rxc3 Nxf3+ 25.gxf3 Bh3 26.Rc1 Rxa2 leaving White absolutely paralyzed.

15. ... Nxc3! Now if 16.Qxc3, Rfe8 pins the bishop to White's king, thus regaining the sacrificed piece with an extra pawn.

16. Bc5 Rfe8+ 17. Kf1

Byrne threatens Fischer's queen; Fischer brings his rook into play, misplacing Byrne's king. Now Fischer's pyrotechnics seem to be at an end. Surely he must save his queen, whereupon White can play 18.Qxc3, with a winning material advantage.

17. ... Be6!!

This stunning resource is the move that made this game famous. Instead of saving his queen, Fischer offers to sacrifice it. Fischer pointed out that 17...Nb5? loses to 18.Bxf7+ Kxf7 19.Qb3+ Be6 20.Ng5+ Kg8 21.Nxe6 Nxd4 22.Nxd4+ Qxb3 23.Nxb3.[7]

18. Bxb6?

Byrne takes the offered queen, hoping to outplay his 13-year-old opponent in the ensuing complications. However, Fischer gets far too much for his queen, leaving Byrne with a hopeless game. 18.Bxe6 would have been even worse, leading to a smothered mate with 18...Qb5+ 19.Kg1 Ne2+ 20.Kf1 Ng3+ 21.Kg1 Qf1+! 22.Rxf1 Ne2#. 18.Qxc3 would have been met by 18...Qxc5! and if 19.dxc5, Bxc3. White's best chance may have been 18.Bd3 Nb5!, which Kmoch wrote would also result in "a win for Black in the long run".[8]

18. ... Bxc4+

Fischer now begins a 'windmill' series of discovered checks, picking up material.

19. Kg1 Ne2+ 20. Kf1 Nxd4+ 21. Kg1 Ne2+ 22. Kf1 (21.Rd3? axb6 22.Qc3 Nxf3 23.Qxc4 Re1# Fischer) 22...Nc3+ 23. Kg1 axb6

Fischer captures a piece, simultaneously attacking Byrne's queen.

24. Qb4 Ra4!

Fischer's pieces cooperate nicely: the bishop on g7 protects the knight on c3, which protects the rook on a4, which in turn protects the bishop on c4 and forces Byrne's queen away. Perhaps Byrne overlooked this move when analyzing 18.Bb6, expecting instead 24...Nxd1? 25.Qxc4, which is much less clear. Otherwise, it is hard to explain why Byrne played 18.Bxb6, since Black now has a clearly winning position.

25. Qxb6

Unfortunately for Byrne, he has nothing better than this pawn-grab, since he has no queen move available that would protect his threatened rook on d1.

25. ... Nxd1

Fischer has gained a rook, two bishops, and a pawn for his sacrificed queen, leaving him ahead the equivalent, roughly, of one minor piece – an easily winning advantage in master play. White's queen is far outmatched by Black's pieces, which dominate the board and will soon overrun White's position. Moreover, Byrne's remaining rook is stuck on h1 and it will take precious time (and the loss of the pawn on f2) to free it. Byrne could resign here, but gamely plays on until checkmate.

One of Byrne's chess students later recounted Byrne's explanation (scroll down to No. 241 at the end) why he played on: "First of all, you have to remember that in 1956 no one knew that Bobby Fischer was going to become Bobby Fischer! He was just a very promising 13-year-old kid who played a great game against me. When it got to the position where I was lost, I asked some of the other competitors if it might be a nice thing to let the kid mate me, as a kind of tribute to the fine game he played. They said, 'Sure, why not?’ and so I did."


26. h3 Rxa2 27. Kh2 Nxf2 28. Re1 Rxe1 29. Qd8+ Bf8 30. Nxe1 Bd5 31. Nf3 Ne4 32. Qb8 b5

Note that every piece and pawn of Black is defended, leaving White's "extra" queen with nothing to do.

33. h4 h5 34. Ne5 Kg7

Fischer breaks the pin, allowing the bishop to attack as well.

35. Kg1 Bc5+

Now Fischer "peels away" the white king from his last defender, and uses his pieces in concert to force checkmate.

36. Kf1 Ng3+

37. Ke1 Bb4+

Kmoch notes that 37...Re2+ would have mated a move sooner.[9]

38. Kd1 Bb3+ 39. Kc1 Ne2+ 40. Kb1 Nc3+ 41. Kc1 Rc2# 0-1

Two Identic Goals of The Best and Greatest Players of All Time

Maradona Beats England -FIFA World Cup 1986





Lionel Messi Beats Getafe - Coppa Del Rey 2007

Obituari Bobby Fischer

Banyak orang datang untuk bertemu Bobby Fischer. Dan dia selalu siap menemui mereka. Dalam kopernya ia selalu menyimpan botol-botol berisi pil vitamin, obat herbal dan sebotol jus jeruk besar. Itu ia lakukan dalam upaya mengusir racun makanan yang biasa ia santap.

Benda-benda kenangan bersejarah miliknya –notasi pertandingan, album foto, surat dari Presiden Nixon—tersimpan aman di belakang laci penyimpanan yang memiliki dua kombinasi 10 angka di ruang khusus penyimpanan Pasadena, California.

Pada akhirnya, seperti yang ia ungkapkan saat menjadi host bincang-bincang radio di Hungaria dan Filipina, hal itu tak bisa menyelamatkan rahasianya dari Rusia, kaum Yahudi, atau “mata-mata CIA yang bekerja untuk Yahudi.” Namun, setidaknya, ia sudah mencoba.

Ia juga pernah mencoba berhenti main catur. Sebelum mendapat gelar juara dunia setelah menumbangkan Boris Spassky di Reykjavik tahun 1972, ia sempat menepis kamera TV dengan tangannya. Ia merasa sorot kamera itu terlalu terang, membuat pantulan cahaya di papan catur.

Fischer terus menolak dokumentasi TV sampai ia berhasil memenangkan pertandingan pertama dari tujuh kemenangan berturut-turutnya di hadapan penonton. Pada babak ketiga ia juga sempat mendesak menggunakan ruangan kecil, di mana ia bisa berpikir lebih tenang.

Ia memang selalu bermain bagus dalam suasana suram. Dalam pertandingan bersejarah itu, ia seperti mengalami kelahiran baru di alam semesta: ruang kaca Marshall Chess Club di New York City, ketika seorang bocah kabur dari sekolah untuk menghabiskan paginya membaca buku catur lama yang memuat pertandingan abad 19. Pada sebuah meja di Perpustakaan Umum New York, Fischer biasa tenggelam berjam-jam mendalami sejarah, pembukaan dan strategi catur.

Atau, saat ia berjalan-jalan ke rumah kerabat di kawasan Broklyn, tempat ibu dan saudara perempuannya tinggal, ia akan menyusun papan catur di samping kasur, hingga lupa matahari sudah lama tenggelam saat ia asyik melawan dirinya sendiri.

Jika anda bisa melihat ke dalam otaknya, seperti juga harapan lawan-lawan bermainnya, anda akan menemukan keutamaan penyerangan dan bertahan setiap saat ia melangkah. Mungkin, lewat sebuah gerakan langsung benteng atau manuver gajah/patih. Atau kombinasi keduanya seperti pembukaan favoritnya, pembukaan Ruy Lopez.

Atau melalui bayang-bayang ratu untuk melindungi setiap gerak pion dalam versi “beracun” Sisilia, atau ribuan varian lainnya. Di Reykjavik, saat Boris Spassky yang mendapat nasihat dari 35 grand master Rusia, Fischer hanya mengandalkan sebuah buku catatan dan tak memiliki penasehat ahli. Ia cuma bermodal tampang sedih serta kecerdasan pikiran. Dan, ia menang.

Kemenangan itu membuatnya menjadi pahlawan pada era perang dingin. Ia mewakili seorang pecatur individual kaya trik saat berhadapan dengan pecatur yang menjadi mesin kenegaraan. Dan Amerika berhasil mempermalukan Uni Sovyet dalam permainan favorit bangsa itu.

Permainan Fischer memang elegan dan kejeniusan sudah nampak pada masa mudanya: ia meraih gelar grand master pada usia 15 tahun dan 20 kali menang berturut-turut di tingkat kejuaraan dunia 1968-1971. Namun Fischer tetap saja seorang pecatur tampan yang antikemapanan.

Tujuan utamanya bermain catur, seperti sering Fischer ungkapkan, tidak hanya untuk memenangkan pertandingan. Tapi juga untuk menghancurkan pikiran lawan sebelum pikiran lawannya sempat menggeliat. Tujuan lainnya, dalam gaya hidup kapitalis, adalah untuk menjadi kaya raya.

Atas desakan Fischer pula, hadiah uang di kejuaraan dunia catur bertambah dari 1.400 $US menjadi 250.000 $US. Saat melakukan pertandingan ulang dengan Boris Spassky tahun 1992, yang juga ia menangkan, Fischer bisa mengantungi uang hingga 3,5 juta $US. Di beberapa turnamen catur sesudahnya, termasuk di Qatar atau Cesar Palace, ia juga menerima uang penampilan saat penonton melihat permainannya.

Mengikuti turnamen catur adalah cara Fischer. Apalagi setelah pada tahun 1975 ia menolak bertanding sehingga gelar juara dunia caturnya dicopot. Belakangan ia banyak membuat pernyataan kontroversial sehingga menambah deretan musuh baru baginya. Sampai-sampai menjelang akhir hidupnya, hanya pulau Islandia --yang terkenal dingin-- yang masih mau menerima kehadirannya.

Apa yang menjadi kesalahan utama Bobby Fischer sampai sekarang masih menjadi perdebatan. Kombinasi kecerdasan dan disfungsi sosial pada masa kanak-kanak sempat membuat ia diduga menderita autis. Namun ia tumbuh seperti anak normal lainnya: menikmati komik Superman dan sering menonton pertandingan hockey.

Ia tumbuh di era tahun 1960 saat Gereja Tuhan Sedunia berkembang. Dari sini pula barangkali ia belajar membenci dan menolak kaum Yahudi, meski ia sendiri keturunan Yahudi. Ibu kandungnya keturunan Yahudi totok. Ibunya sempat membawa dia ke psikolog karena dianggap memiliki kelainan akibat perhatiannya pada catur, sampai-sampai Fischer selalu membawa papan catur ukuran saku di kantungnya saat makan malam keluarga.

Kemungkinan lain –seperti pernah disampaikan beberapa orang— ia gusar saat melihat sambutan dingin pemerintah Amerka ketika ia mengalahkan Spassky kedua kalinya dalam sebuah pertandingan ulang tahun 1992. Padahal ia harus bermain diam-diam alias penuh kerahasiaan di bekas negara Yugoslavia.

Fisecher pernah menyatakan pemerintah Amerika ”bertanggungjawab” bila ia mati. Ia juga menyebut serangan teroris tahun 2001 ke World Trade Center sebagai ”kabar bagus.” Setelah semua jasa-jasanya di dunia catur, untuk pertama kalinya, air dingin, bak menyapu jejak-jejak kebaikannya yang tertera di atas pasir.

Barangkali, pada akhirnya, kesulitan-kesulitan itu muncul karena: catur itu --seperti sering ia ungkapkan-- adalah kehidupan. Tidak yang lain.

Fischer memang tidak terlalu bagus untuk hal lain. Tidak pada saat ia duduk di bangku sekolah, tidak juga saat ia mengerjakan profesi lain. Ia juga tak pernah menikah. Ia hanya menaruh perhatian serius setiap menit hidupnya pada keberadaan 32 buah bidak catur di 64 kotak hitam-putih. Ia bermimpi memiliki sebuah rumah di kawasan Beverly Hills yang dibangunnya dari hasil memindahkan sebuah benteng.

Tanpa manafikan latar belakang ini, ia tetap salah satu pecatur dunia paling kreatif. Tak seorang pun bakal melupakan permainan caturnya yang mengambarkan taktik jenialnya.

Kebanyakan kejuaraan dunia sekarang, klaim Fischer, merupakan hasil penataan baru, membuktikan bahwa ”catur tua” sudah mati. Semua permainan tingkat tinggi kini mengarah ke hakekat catur.

Ia memperkenalkan sebuah versi baru, Fischer Random, saat buah hitam memiliki kans menang walau tertinggal satu langkah dari putih. Ya, garis itu kembali dihidupkan Fischer sekaligus mengingatkan aturan klasik catur: menyerang, bertahan, memakan, dan melakukan pengorbanan.

Kemenangan catur pada akhirnya adalah akumulasi seluruh upaya yang telah dikeluarkan. Dari sisi ini, dan dari peperangan yang ia kobarkan, Fischer tak pernah berusaha lari.

PT A bergerak dalam bidang explorasi oil dan gas di Indonesia.PT A berafiliasi dgn PT AX yang berkantor pusat diWall Street. PT B bergerak dalam pertambangan batu-bara dan nikel di Indonesia. PT B berafiliasi dgnPT BX di Paris.PT C bergerak dalam tambang logam emas dan mineral lainnya, memiliki afiliasi dgn PT CX di Belanda.

Harga oil dan gas di pasar dunia adalah US$ PO&G.
Harga batu-bara dan nikel di pasar dunia adalah US$ PBN
Harga emas danmineral lainnya di pasar dunia adalah US$ PEM

Lalu PT A, PT B, dan PT C menjual produksi mereka ke perusahaan afiliasi mereka di luar negeri dengan harga 50% di bawah pasar dunia. Indonesia memungut pajak berdasarkan nilai jual yang sebesar 50% di bawah harga pasar dunia. Lalu perusahaan2 afiliasi tersebut menjualnya lagi, kali ini sesuai dengan harga pasar.

Inilah kenyataannya.

Sejujurnya Indonesia bisa menjadi negara super di benua ASIA. Dan tak akan ada krisis energi...

Jadi????

Pikir sendiri!!!!

Menyisipkan Koordinat XYZ Gambar Ke Tabel Pada ModelSpace

Kadang kita harus menyisipkan tabel koordinat XYZ gambar di dalam Model Space, menggambarnya secara manual dgn menggunakan lines atau polyline akan memakan waktu lama. Untuk menyingkat pekerjaan dapat dilakukan dengan menjalankan program di bawah ini (text berwarna biru):

;; coordstottable.lsp
;; helpers
;; collect segment numbers and values of polyline bulges

(defun get-bulge-list (pline_obj / idx bulge_list point_list)
(setq point_list (get-vexs pline_obj))
(setq idx 0)
(while (<>
(setq bulg (vla-getbulge pline_obj idx)
bulge_list (cons (cons idx bulg) bulge_list)
idx (1+ idx)
)
)
(vl-remove-if
(function (lambda (x) (zerop (cdr x))))
(reverse bulge_list)
)
)

;; group list by number of items in the sublist

(defun group-by-num (lst num / ls ret)
(if (= (rem (length lst) num ) 0)
(progn
(setq ls nil)
(repeat (/ (length lst) num)
(repeat num (setq ls
(cons (car lst) ls)
lst (cdr lst)))
(setq ret (append ret (list (reverse ls)))
ls nil)))
)
ret
)

;; get polyline vertices

(defun get-vexs (pline_obj / verts)
(setq verts (vlax-get pline_obj 'Coordinates)
verts
(cond
((wcmatch (vlax-get pline_obj 'Objectname )
"AcDb2dPolyline,AcDb3dPolyline")
(group-by-num verts 3)
)
((eq (vlax-get pline_obj 'Objectname )
"AcDbPolyline")
(group-by-num verts 2)
)
(T nil)
)
)
)

;; get bulge radius
;; math by Juergen Menzi
(defun get-radii (p1 p2 bulge)
(abs (/ (distance p1 p2) 2 (sin (/ (* 4 (atan (abs bulge))) 2)))));+

;;get segment arc center
;;math by John Uhden
(defun get-segm-center (pline p1 p2 bulge / cpt midc midp rad)
(setq rad (get-radii p1 p2 bulge)
midp (vlax-curve-getpointatparam pline
(+ (fix (vlax-curve-getparamatpoint pline p1)) 0.5))
midc (mapcar (function (lambda (x y)(/ (+ x y) 2))) p1 p2)
cpt (trans (polar midp (angle midp midc) rad) 0 1)
)
cpt
)
;; return position of vertex and bulge value
(defun bulge-info (pln / coors ept rad ret_list spt val_list)
(vl-load-com)

(setq val_list (get-bulge-list pln))
(if (eq (vla-get-closed pln) :vlax-false)
(setq coors (get-vexs pln))
(progn (setq coors (get-vexs pln))
(setq coors (append coors (list (car coors))))))
(repeat (length val_list)
(setq spt (nth (caar val_list) coors)
ept (nth (1+ (caar val_list)) coors))
(setq rad (get-radii spt ept (cdar val_list)))
(setq ret_list (cons (cons (caar val_list) rad) ret_list))
(setq val_list (cdr val_list)))
(reverse ret_list)
)
;; return coordinates, radiuses and center points of segments
(defun trace-pline (pline val_list /)
(setq coors (get-vexs pline))
(if (eq (vla-get-closed pline) :vlax-true)
(setq coors (append coors (list (car coors)))))
(foreach itm val_list
(setq pos (car itm)
p1 (nth pos coors)
p2 (nth (1+ pos) coors)
rad (get-radii p1 p2 (cdr itm))
cpt (get-segm-center pline p1 p2 (cdr itm))
cpt (list (car cpt)(cadr cpt))
tmp (append cpt (list rad))
coors (append_item coors pos tmp)
)
)
coors
)
;; append item in the particular position into list
(defun append_item (lst pos itm / hd)
(setq i 0)
(while (<= i pos)
(setq hd (cons (car lst) hd))
(setq i (1+ i))
(setq lst (cdr lst)))
(append (reverse hd)(append (list itm) lst))
)

(defun add-table-style (adoc / acmcol adoc clsname keyname newstyleobj tbldict tblstylename)

(setq tbldict
(vla-item
(vla-get-dictionaries
(vla-get-database adoc)
)
"Acad_TableStyle"
)
)
(setq keyname "NewStyle"
clsname "AcDbTableStyle"
tblstylename "Coordinates" ;change name
)
(setq newstyleobj
(vlax-invoke tbldict 'Addobject keyname clsname)
)
(vlax-put newstyleobj 'TitleSuppressed :vlax-false)
(vlax-put newstyleobj 'HeaderSuppressed :vlax-false)
(setq acmcol (vla-GetInterfaceObject
(vlax-get-acad-object)
(strcat "AutoCAD.AcCmColor." (itoa (atoi (getvar "acadver"))))
)
)
(vlax-put acmcol 'Colorindex 24)
(vlax-put newstyleobj 'Name TblStyleName)
(vlax-put newstyleobj 'Description "Coordinates Table")
(vlax-put newstyleobj 'BitFlags 1)
(vlax-put newstyleobj 'HorzCellMargin 0.06)
(vlax-put newstyleobj 'VertCellMargin 0.06)

(vlax-invoke newstyleobj 'SetColor acDataRow acmcol)
(vlax-invoke newstyleobj
'SetBackgroundColorNone
acDataRow
:vlax-false
)
(vlax-invoke newstyleobj 'SetTextStyle acDataRow "Standard")
;;; (vlax-invoke newstyleobj 'SetTextHeight acTitleRow 0.25)
(vlax-invoke newstyleobj 'SetTextHeight acHeaderRow 0.2)
(vlax-invoke newstyleobj 'SetTextHeight acDataRow 0.18)
(vlax-invoke newstyleobj 'SetGridVisibility acVertInside acDataRow
:vlax-true)
(vlax-invoke newstyleobj
'SetAlignment
acDataRow
acMiddleCenter
)
(vla-update newstyleobj)
(vlax-release-object acmcol)
;| ETC |;
(princ)
)

(vl-load-com)

;;================main part================;;

(defun C:CAP (/ acsp ac_table adoc bulge_list col col_names data_list dmz
ent i itm lpc lup max_wid pin pline_data pln row row_hgt stylelist
table_data tblstyledict tmp txt_hgt)

(or adoc
(setq adoc (vla-get-activedocument
(vlax-get-acad-object))))
(or acsp (setq acsp (if (= (getvar "CVPORT") 1)
(vla-get-paperspace
adoc)
(vla-get-modelspace
adoc)
)
)
)
(vla-endundomark
adoc)
(vla-startundomark
adoc)
(setq lup (getvar "lunits"))
(setvar "lunits" 2)
(setq lpc (getvar "luprec"))
(setvar "luprec" 3)
(setq dmz (getvar "dimzin"))
(setvar "dimzin" 8)


(setq tblstyledict
(vla-item
(vla-get-dictionaries adoc)
"ACAD_TABLESTYLE")
)
(vlax-for tblstyle tblstyledict
(setq stylelist (cons
(vla-get-name tblstyle)
stylelist)))

(if (not (member "Coordinates" stylelist))
(add-table-style adoc)
)
(setq table_data nil);debug only
(setq pln (vlax-ename->vla-object
(car (setq ent (entsel "\n\t>>>\tSelect polyline\t<<<\n")))))
(setq bulge_list (bulge-info pln))
(setq pline_data (trace-pline pln bulge_list))

(setq pin (vlax-3d-point
(getpoint "\nSpecify table insertion point : \n"))
row_hgt (getreal "\nSpecify row height : \n")
;;; header_txt_hgt (getreal "\nSpecify the header cell text height : \n")
txt_hgt (getreal "\nSpecify the data cell text height : \n"))
(setq col_names (list "Point" "X" "Y" "Radius"))
(setq
max_wid 9.5
data_list (mapcar (function (lambda(x)(mapcar 'rtos x))) pline_data))
(if (eq :vlax-true (vla-get-closed pln))
(setq data_list (reverse (cdr (reverse data_list)))))
(setq i 0)
(repeat (length data_list)
(setq tmp (car data_list))
(if (= 2 (length tmp))
(progn
(setq itm (append (list (chr (+ i 65))) tmp))
(setq i (1+ i)))
(setq itm (append (list "CENTER") tmp)))
(setq table_data (cons itm table_data))

(setq data_list (cdr data_list))
)
(setq table_data (reverse table_data))

;;; draw table

(setq ac_table (vla-addtable acsp pin
(+ (length table_data) 2)
(length col_names)
row_hgt
(* txt_hgt max_wid))
)
(vla-put-stylename ac_table "Coordinates")
(vla-put-regeneratetablesuppressed ac_table :vlax-true)
(vla-put-headersuppressed ac_table :vlax-false)
(vla-put-titlesuppressed ac_table :vlax-false)

;; popup table

(vla-settext ac_table 0 0 "Coordinates")
(vla-setcellalignment ac_table 0 0 acmiddlecenter)
(vla-setcelltextheight ac_table 0 0 (* txt_hgt 1.25))
(vla-setrowheight ac_table 0 (* txt_hgt 2))
(setq col 0)

(foreach item col_names
(vla-settext ac_table 1 col item)
(vla-setcellalignment ac_table 1 col acmiddlecenter)
(vla-setcelltextheight ac_table 1 col txt_hgt)
(setq col (1+ col)))

(setq row 2)
(foreach item table_data
(vla-setrowheight ac_table row (* txt_hgt 2))
(setq col 0)
(foreach a item
(vla-settext ac_table row col a)
(vla-setcellalignment ac_table row col acmiddlecenter)
(vla-setcelltextheight ac_table row col txt_hgt)
(setq col (1+ col)))
(setq row (1+ row)))
(vla-put-regeneratetablesuppressed ac_table :vlax-false)
(setvar "luprec" lpc)
(setvar "lunits" lup)
(setvar "dimzin" dmz)
(vla-endundomark
adoc)
(princ)
)
(prompt "\n\t\t***\tType CAP to execute\t***")
(princ)

Perhatikan setiap saran atau perintah yang diminta pada baris command.

Menyisipkan Koordinat XYZ Garis Line dan Polyline, serta Vertex Ke Tabel Pada ModelSpace

Menyisipkan secara singkat koordinat2 garis Lines dan Polyline, serta Vertex ke ModelSpace.
(Teks program berwarna biru)

(defun c:tabcord(/ aCen cAng cCen cPl cRad cReg
fDr it lCnt lLst mSp pCen pT1
pT2 ptLst R tHt tLst vlaPl vlaTab
vLst cTxt oldCol nPl clFlg actDoc
tPt1 tPt2 cAng tiPt oSnp *error*
mType mHt oZin cAcu dHead hStr
hHt w1 w2 w3 isPer isAre pMul aMul
lWrt aVal xVal yVal)


;;; ****************************************************************
;;; *************************** ADJUSTMENT *************************
;;; ****************************************************************

(setq mType nil) ; Markups mode. T - digits, NIL - letters

(setq tHt -1.0) ; Table text size. Positive - absolute,
; negative multiplayer to TEXTSIZE variable

(setq mHt -2.0) ; Markups text size. Positive - absolute,
; negative - multiplayer to TEXTSIZE variable

(setq cAcu 4) ; Precision of coordinates (from 0 to 8)

(setq dHead nil) ; If T delete table header, if NIL not delete

(setq hStr "Land # ") ; Standard header (if dHead not equal T)

(setq hHt -1.25) ; Header text size. Positive - absolute,
; negative - multiplayer to TEXTSIZE variable

(setq w1 -10.0) ; 'Point' column width. Positive - absolute,
; negative - multiplayer to TEXTSIZE variable

(setq w2 -20.0) ; 'X' and 'Y' colums width. Positive - absolute,
; negative - multiplayer to TEXTSIZE variable

(setq w3 -12.0) ; 'Radius' column width. Positive - absolute,
; negative - multiplayer to TEXTSIZE variable

(setq isPer T) ; if T adds perimeter row

(setq isAre T) ; if T adds area row

(setq isGCen T) ; if T adds center of gravity row

(setq pMul 0.001) ; perimeter multiplayer

(setq aMul 0.000001) ; area multiplayer

;;; ****************************************************************
;;; ************************* END ADJUSTMENT ***********************
;;; ****************************************************************

(if(minusp tHt)
(setq tHt(getvar "TEXTSIZE"))
); end if

(if(minusp mHt)
(setq mHt(*(abs mHt)(getvar "TEXTSIZE")))
); end if

(if(minusp hHt)
(setq hHt(*(abs hHt)(getvar "TEXTSIZE")))
); end if

(if(minusp w1)
(setq w1(*(abs w1)(getvar "TEXTSIZE")))
); end if

(if(minusp w2)
(setq w2(*(abs w2)(getvar "TEXTSIZE")))
); end if

(if(minusp w3)
(setq w3(*(abs w3)(getvar "TEXTSIZE")))
); end if

(vl-load-com)

(defun Get_Acad_Ver(Gen_Only)
(if Gen_Only
(substr(getvar "ACADVER") 1 2)
(substr(getvar "ACADVER") 1 4)
); end if
); and of Get_Acad_Ver

(defun Extract_DXF_Values(Ent Code)
(mapcar 'cdr
(vl-remove-if-not
'(lambda(a)(=(car a)Code))
(entget Ent)))
); end of


(defun *error*(msg)
(setvar "CMDECHO" 1)
(if oSnp(setvar "OSMODE" oSnp))
(if oZin(setvar "DIMZIN" oZin))
(if mSp(vla-EndUndoMark actDoc))
(princ)
); end of *error*

(defun Alph_Num(Counter / lLst cRes)
(setq lLst '("A" "B" "C" "D" "E" "F" "G" "H" "I" "J"
"K" "L" "M" "N" "O" "P" "Q" "R" "S" "T"
"U" "V" "W" "X" "Y" "Z"))
(if(<= 1.0(setq cRes(/ Counter 26.0)))
(strcat(itoa(fix cRes))
(nth(- Counter(* 26(fix cRes)))lLst))
(nth Counter lLst)
); end if
); end of Alph_Num


(if(<>
(progn
(if
(and
(setq cPl(entsel "\nSelect LwPoliline > "))
(= "LWPOLYLINE"(car(Extract_DXF_Values(car cPl)0)))
); end and
(progn
(princ "\nPlease Wait... \n")
(setq vlaPl(vlax-ename->vla-object(car cPl))
ptLst(mapcar 'append
(setq vLst(Extract_DXF_Values(car cPl)10))
(mapcar 'list(Extract_DXF_Values(car cPl)42)))
r 2 lCnt 0
tLst '((1 0 "Point")(1 1 "X")(1 2 "Y")(1 3 "Radius"))
actDoc(vla-get-ActiveDocument
(vlax-get-acad-object))
mSp(vla-get-ModelSpace actDoc)
); end setq
(setvar "CMDECHO" 0)
(setq oSnp(getvar "OSMODE"))
(setq oZin(getvar "DIMZIN"))
(setvar "DIMZIN" 0)
(vla-StartUndoMark actDoc)
(foreach vert ptLst
(setq vert(trans vert 0 1)
tLst(append tLst
(list(list r 0(if mType
(itoa(1+ lCnt))
(Alph_Num lCnt)))
(list r 1(rtos(car vert)2 cAcu))
(list r 2(rtos(cadr vert)2 cAcu))
(list r 3 ""))))
(if(and
(/= 0.0(last vert))
(setq pt1(vlax-curve-GetPointAtParam vlaPl lCnt))
(setq pt2(vlax-curve-GetPointAtParam vlaPl(1+ lCnt)))
); end and
(setq r(1+ r)
cRad(abs(/(distance pt1 pt2)
2(sin(/(* 4(atan(abs(last vert))))2))))
aCen(vlax-curve-GetPointAtParam vlaPl(+ 0.5 lCnt))
fDr(vlax-curve-getFirstDeriv vlaPl
(vlax-curve-getParamAtPoint vlaPl aCen))
pCen(trans
(polar aCen(-(if(minusp(last vert)) pi(* 2 pi))
(atan(/(car fDr)(cadr fDr))))cRad)0 1)
tLst(append tLst(list
(list r 0 "center")
(list r 1(rtos(car pCen)2 cAcu))
(list r 2(rtos(cadr pCen)2 cAcu))
(list r 3(rtos cRad 2 cAcu))))
); end setq
); end if
(setq r(1+ r) lCnt(1+ lCnt))
); end foreach
(setq vlaTab(vla-AddTable mSp (vlax-3D-point '(0 0 0))
(+ 1(/(length tLst)4)) 4 (* 3 tHt)w2))
(foreach i tLst
(vl-catch-all-apply 'vla-SetText(cons vlaTab i))
(vla-SetCellTextHeight vlaTab(car i)(cadr i)tHt)
(vla-SetCellAlignment vlaTab(car i)(cadr i)acMiddleCenter)
); end foreach
(if(or isPer isAre)
(progn
(vla-InsertRows vlaTab r(* 0.05 tHt)1)
(vla-SetCellTextHeight vlaTab r 0(* 0.05 tHt))
(setq r(1+ r))
); end progn
); end if
(if isPer
(progn
(if(= :vlax-true(vla-get-Closed vlaPl))
(setq lWrt "Perimeter")
(setq lWrt "Length")
); end if
(vla-InsertRows vlaTab r tHt 1)
(vla-SetText vlaTab r 0 lWrt)
(vla-SetText vlaTab r 1
(rtos(*(vla-get-Length vlaPl)pMul)2 cAcu))
(vla-SetCellTextHeight vlaTab r 0 tHt)
(vla-SetCellTextHeight vlaTab r 1 tHt)
(setq r(1+ r))
); end progn
); end if
(if isAre
(progn
(if(= :vlax-true(vla-get-Closed vlaPl))
(setq aVal (rtos(*(vla-get-Area vlaPl)aMul)2 cAcu))
(setq aVal "Not closed contour")
); end if
(vla-InsertRows vlaTab r tHt 1)
(vla-SetText vlaTab r 0 "Area")
(vla-SetText vlaTab r 1 aVal)
(vla-SetCellTextHeight vlaTab r 0 tHt)
(vla-SetCellTextHeight vlaTab r 1 tHt)
(setq r(1+ r))
); end progn
); end if
(if(= :vlax-true(vla-get-Closed vlaPl))
(progn
(setq nPl(vla-Copy vlaPl))
(command "_.region" (entlast) "")
(setq cCen(vlax-get(setq cReg
(vlax-ename->vla-object(entlast)))'Centroid))
(vla-Delete cReg)
(setq clFlg T)
); end progn
); end if
(if isAre
(progn
(if cCen
(setq xVal(rtos(car cCen)2 cAcu)
yVal (rtos(cadr cCen)2 cAcu))
(setq xVal "-"
yVal "-")
); end if
(vla-InsertRows vlaTab r tHt 1)
(vla-SetText vlaTab r 0 "Gravity Center")
(vla-SetText vlaTab r 1 xVal)
(vla-SetText vlaTab r 2 yVal)
(vla-SetCellTextHeight vlaTab r 0 tHt)
(vla-SetCellTextHeight vlaTab r 1 tHt)
(vla-SetCellTextHeight vlaTab r 2 tHt)
(setq r(1+ r))
); end progn
); end if
(vla-put-VertCellMargin vlaTab (* 0.75 tHt))
(vla-SetColumnWidth vlaTab 0 w1)
(vla-SetColumnWidth vlaTab 3 w3)
(if(vlax-property-available-p vlaTab 'RepeatTopLabels)
(vla-put-RepeatTopLabels vlaTab :vlax-true)
); end if
(if(vlax-property-available-p vlaTab 'BreakSpacing)
(vla-put-BreakSpacing vlaTab (* 3 tHt))
); end if
(if dHead
(vla-DeleteRows vlaTab 0 1)
(progn
(vla-SetText vlaTab 0 0 hStr)
(vla-SetCellTextHeight vlaTab 0 0 hHt)
); end progn
); end if
(vla-put-Height vlaTab(* 1.75(/(length tLst)4)))
(princ "\n<<<>>> ")
(command "_.copybase" (trans '(0 0 0)0 1)(entlast) "")
(command "_.erase" (entlast) "")
(command "_.pasteclip" pause)
(setq lCnt 0)
(foreach v vLst
(if clFlg
(setq cAng(angle cCen(trans v 0 1))
iPt(polar v cAng (* 2 mHt)))
(setq tPt1(vlax-curve-GetPointAtParam vlaPl
(- lCnt 0.0000001))
tPt2(vlax-curve-GetPointAtParam vlaPl
(+ lCnt 0.0000001))
iPt(polar v(+(* pi 0.5)(if(minusp
(setq cAng(angle tPt1(if tPt2 tPt2
(polar tPt1(* 0.5 pi)0.0000001)))))
cAng(- cAng)))(* 2 mHt))
); end setq
); end if
(setvar "OSMODE" 0)
(setq cTxt(vla-AddText mSp
(if mType(itoa(1+ lCnt))(Alph_Num lCnt))
(vlax-3d-point iPt) mHt)
tiPt(vla-get-InsertionPoint cTxt)
lCnt(1+ lCnt)
); end setq
(vla-put-Alignment cTxt 10)
(vla-put-TextAlignmentPoint cTxt tiPt)
(setq oldCol(getvar "CECOLOR"))
(setvar "CECOLOR" "1")
(command "_.circle"(trans v 0 1) (/ mHt 4))
(setvar "CECOLOR" oldCol)
); end foreach
(setvar "DIMZIN" oZin)
(setvar "OSMODE" oSnp)
(setvar "CMDECHO" 1)
(vla-EndUndoMark actDoc)
); end progn
(princ "\n It isn't LwPolyline! Quit. ")
); end if
(progn "\n This program works in AutoCAD 2005+ only! " )
); end progn
);end if
(gc)
(princ)
); end of c:tabcord


(princ "\n*** Type TABCORD to fill table of LwPolyline coordinates *** ")
Perhatikan saran atau perintah pada baris command.

Bawa Temuan2 Komisi Kebenaran dan Persahabatan ke Mahkamah Internasional

Memulai tugas sejak 11 Agustus 2005, KKP atau Komisi Kebenaran dan Persahabatan akhirnya menyerahkan laporan akhir kepada Presiden Republik Indonesia, Presiden Timor Leste, dan Perdana Menteri Timor Leste pada 15 Juli 2008.

Seperti namanya yang aneh, rekomendasi yang terdapat dalam laporan akhir komisi ini benar2 aneh. Iya, aneh, karena tidak ada rekomendasi untuk membentuk pengadilan atas kejahatan berat terhadap hak-hak asasi manusia yang ditemukan komisi. Seperti diberitakan dalam Kompas edisi 16 Juli 2008, KKP menyimpulkan bahwa milisi pro-otonomi merupakan pelaku langsung utama dan kerap melibatkan anggota TNI, Polri, dan pejabat sipil. Juga disimpulkan bahwa TNI, Polri, dan pemerintah sipil memikul tanggung jawab kelembagaan atas kejahatan yang terjadi.

Mahkamah Internasional maupun para pembela hak-hak asasi manusia (HAM) harus bergerak cepat. Karena rekomendasi yang dihasilkan benar2 tidak memberikan apresiasi terhadap nilai-nilai kemanusiaan, dan militer serta institusi lain yang terlibat akan merasa tindakan yang mereka lakukan selama ini adalah benar.

Kesegeraan dalam menindak lanjuti temuan2 KKP ini sangat perlu karena adanya kecenderungan “penyelesaian yang bersahabat”. Kejahatan terhadap nilai2 kemanusiaan tidaklah bisa diselesaikan dengan kompromi atau “secara bersahabat”, karena hal seperti ini membuka kemungkinan terjadinya hal yang sama di masa2 datang. Kita tidak tahu era apa yang akan terjadi di masa2 mendatang, yang bisa jadi akan mengundang militerisme masuk ke dalam pusat kehidupan bernegara.

Persahabatan antara kedua Negara tidak akan tulus tanpa menyeret orang2 maupun lembaga2 yang terlibat di kedua Negara dalam kejahatan kemanusiaan di Timor Leste ke muka pengadilan.

Jika pemerintah Indonesia maupun Timor Leste sekarang tidak menginginkan masalah ini berlarut-larut sampai ke pengadilan maka aktivis2 HAM harus membawa masalah ini ke Mahkamah Internasional ataupun Perserikatan Bangsa-bangsa.

Oknum-oknum yang terlibat dalam masalah ini harus didudukkan dengan status yang sama dengan penjahat atas HAM yang terjadi di bekas Yugoslavia.