2009年7月3日 星期五

autolisp 等分物件(measure)

(print "等分物件: dd")
(defun c:dd(/ mc ss1)
(setq mc (getreal "請輸入節點長度:"))
(princ "\n 請選取要列示路線: ") (setq ss1 (entsel))
(if (= ss1 nil)(progn
(print "沒有選取物件!!"))
(progn (command "_.measure" ss1 mc)(print "完成繪製!"))
)

(princ)
)

2009年7月2日 星期四

vb.net 最上層顯示

'程式如下,即在Form1_Load加上 Me.TopMost = True

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.TopMost = True '最上層顯示
End Sub

vb.net 使Form不可以調整大小

'使不可以調整大小(size),成為固定大小的寬與高.
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D


原來的FormBorderStyle屬性值為 Sizable

Search Google

Google

熱門文章