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.

Membuat Layout Pipa Dengan Mnggambar Garis

(defun c:xpipe(/ actDoc actLay actSp baseLine
baseSet cirEnt diCount divDid
exCir laySt objType oldDia
oldEcho startPt xOrd yOrd
zOrd *error*)

(vl-load-com)

(defun *error* (msg)
(vla-put-Lock actLay laySt)
(setvar "CMDECHO" oldEcho)
(vla-EndUndoMark actDoc)
(princ)
); end of *error*

(if(not pipe:exDia)(setq pipe:exDia 40.0))
(setq actDoc
(vla-get-ActiveDocument
(vlax-get-Acad-object))
actLay(vla-get-ActiveLayer actDoc)
oldDia pipe:exDia
oldEcho(getvar "CMDECHO")
); end setq
(vla-StartUndoMark actDoc)
(setvar "CMDECHO" 0)
(if(= 0(vla-get-ActiveSpace actDoc))
(setq actSp(vla-get-PaperSpace actDoc))
(setq actSp(vla-get-ModelSpace actDoc))
); end if
(setq laySt(vla-get-Lock actLay))
(vla-put-Lock actLay :vlax-false)
(setq pipe:exDia
(getreal
(strcat
"\nSpecify pipe diameter <"(rtos pipe:exDia)">: ")))
(if(null pipe:exDia)(setq pipe:exDia oldDia))
(princ "\n<<<>>>")
(if
(setq baseSet
(ssget '((-4 . "")
ename exCir))
(command "_.extrude" cirEnt "" "_p" pathEnt)
(command "_.erase" cirEnt "")
); end foreach
(initget "Yes No")
(setq delFlag
(getkword "\nDelete extrude path(s)? [Yes/No] : "))
(if(null delFlag)(setq delFlag "No"))
(if(= "Yes" delFlag)
(foreach pathEnt baseSet
(vla-delete(vlax-ename->vla-object pathEnt))
); end foreach
); end if
(vla-put-Lock actLay laySt)
(setvar "CMDECHO" oldEcho)
(vla-EndUndoMark actDoc)
); end progn
); end if
(princ)
); end of c:xpipe

(princ "\n*** Type XPIPE for extrude 3D-pipes *** ")

Mari Pilih Tokoh Muda Pada Pemilu 2009

Bosan dengan politisi yang itu2 saja???


Yakinlah...
Tokoh2 lama (tokoh2 tua) yang akan tampil lagi sangat fasih dan berpengalaman dalam hal2 berikut:
1. Menyingkirkan kepentingan rakyat dan negara
2. Mementingkan diri sendiri dan golongannya
3. Menyiasati peraturan demi kepentingan jangka pendek
4. Mengatasnamakan hati nurani dan rakyat demi kekuasaan
5. Membuat peraturan agar tetap duduk dalam sentrum politik
6. Menyiasati peraturan demi korupsi


Saat ini banyak partai akan menawarkan wajah2 baru ke dalam sentrum politik Indonesia. Dan akan banyak tokoh2 muda yang tersedia.

Jadi mari pilih tokoh2 muda.
Jangan pilih tokoh2 tua atau tokoh2 lama.

Sontoloyo

Kepala BIN Syamsir Siregar memberikan cap "sontoloyo" kepada seorang menteri. Kita tidak tahu siapa menteri yang sontoloyo itu. Tetapi ada. Menteri2 dalam kabinet SBY jelas tau siapa menteri itu.

Jadi...
Kehidupan ketata-negaraan Indonesia ini benar2 sudah gak bener lagi. Para pejabat pemerintah mempermalukan pemerintahannya sendiri. Syamsir Siregar benar2 sontoloyo ketika mengucapkan itu. Beginilah temperamen militer kalau dikasih "angin". Kalau memang Ketua BIN Syamsir Siregar ini becus, harusnya menembak saja menteri itu. Tetapi rupanya intelijen negara kita saat ini hanya bisa bicara saja. Tak bisa menembak lagi. Ga bisa lagi diandalin.
Harusnya ia cukup berbisik kepada Pak SBY bahwa ada anak-buahnya yang sontoloyo. Karena memang tugasnya adalah membisiki pemerintah dengan info intelijen yang bener.

Ompung Syamsir Siregar ini sebaiknya pulang kampung aja. Bikin kedei kopi, lalu membahas politik di kampungnya sana... Daripada bikin rusuh tatanan negara Indonesia. Baru kali ini dunia intelijen Indonesia kelihatan sontoloyo dan bego.

Dulu-dulu...
Dunia intel kita disegani-ditakuti...
Pada saat Ali Murtopo dan Benny Moerdani yang jadi bos intel, kesan yang ada adalah seram, ditakuti, taktis, dan disegani. Sulit dimintai keterangan.

Sekarang tampang Kepala BIN pun hampir sama terkenalnya dengan Tukul.

Ah...
Si Syamsir Siregar inilah yang sontoloyo.

POLRI dan Kejaksaan Jangan Takut Pada BIN

Penetapan Muchdi Pr yang mantan Danjen Kopassus sebagai tersangka pembunuhan Munir semoga membawa angin segar dalam bidang penegakan HAM di Indonesia. POLRI dan Kejaksaan tidak perlu takut pada BIN. Kalau memang terbukti ada oknum2 BIN bersalah dalam kasus pembunuhan Munir, maka rakya akan mendukung pekerjaan pengungkapan kasus tersebut.

Bongkar sampai akar2nya!!!!

Jangan Pilih Megawati Soekarnoputri, Jangan pilih Partai Demokrasi Indonesia Perjuangan

Ketua umum Partai Demokrasi Indonesia Perjuangan (PDIP) mengatakan bahwa warga negara Indonesia yang tidak memilih atau golongan putih (golput) seharusnya tidak bisa jadi warga Negara Indonesia.

Pada pemerintahan orde baru, Megawati Soekarnoputri menjadi ilham atau symbol perlawanan terhadap rejim orde baru. Itu dulu.

Kebusukan politik Indonesia dan mewahnya kekuasaan telah mengubahnya. Kesalahan pertama adalah ketika ia bersedia menjadi Wakil Presiden bagi Abdurrahman Wahid. Kesalahan kedua adalah bersedia pula “digunakan” oleh politisi-politisi di Senayan untuk menghabisi pemerintahan Abdurrahman Wahid.

Sejak itulah, rakyat mencabut simpati dan pilihannya kepada Megawati Soekarnoputri. Pada pemilu 2004 ia dikalahkan Presiden SBY. Dan PDIP dikalahkan oleh Partai Golkar.

Lalu sekarang ia mengucapkan teguran terhadap warga Negara yang kritis. Emang Megawati Soekarnoputri siapa????? Ia hanyalah warga Negara biasa yang menjadi ketua umum PDIP dan putri Presiden Pertama Indonesia Soekarno. Tidak lebih. Ia sama saja dengan saya, kamu, kita semua ,dan rakyat yang punya duit sampai yang tinggal di kolong jembatan.

Megawati Soekarnoputri dan PDIP adalah suatu keironisan sejarah. Dulu militer dan para anti-demokrasi menggilasnya, sekarang ia bekerja sama dengan militer (atau pensiunan militer).

Mungkin ini karena ulah orang-orang di sekelilingnya. Bisa iya-bisa tidak.

Jadi agar kita tidak lagi salah, mari jangan pilih PDIP dan Megawati Soekarnoputri, maupun antek-anteknya.

Hendarman Supanji Harus Diganti

Jika kita memperhatikan tampang Jaksa Agung Hendarman Supanji ketika menanggapi kasus korupsi di Kejaksaan Agung, maka jelaslah sang jaksa sangat bingung dengan apa yang terjadi. Ini diperkuat dengan tampangnya yang seperti orang blo’on. Ia nampaknya tidak menyadari “pergerakan tanpa bola” para bawahannya sampai sejauh itu.

Hendarman Supanji mungkin adalah orang jujur dan orang baik, tetapi untuk menjadi Jaksa Agung tidaklah cukup dengan hanya menjadi jujur dan baik. Ia juga harus “bandel”. Para jaksa yang mata duitan dan materialistis akan dengan mudah mengelabui Hendarman Supanji. Orang yang hanya jujur dan baik sangat mudah dibohongi. Dengan berpura-pura baik dan jujur saja, sudah cukup untuk terlihat benar di mata orang2 seperti Hendarman Supanji. Karena otak dan naluri orang2 seperti Hendarman Supanji tidak akan bergerilya mengamati para bawahannya.

Bukan berarti sebagai atasan harus mencurigai bawahan. Tetapi sebagai atasan harus mampu memahami lembaga yang dipimpinnya. Karena lembaga yang dipimpinnya sangat bersinggungan dengan kejahatan, maka sang bos juga harus paham bahwa para bawahan bisa tercemari kejahatan.

Setiap kali Hendarman Supanji terlihat di televisi memberikan keterangan di hadapan pers, nampak sekali semua gaya bicara tegasnya dibuat-buat. Bahkan ia terlihat menjadi seperti film kartun. Bak pantomim.

Jadi Hendarman Supanji harus diganti. Ia gagal menjadi Jaksa Agung. Cukuplah ia menjadi orang yang jujur dan baik.