Chuyển đến nội dung
Diễn đàn CADViet

dvdcad

Thành viên
 Xem Hồ Sơ  Xem hoạt động của họ

  • Số lượng nội dung

    44

  • Đã tham gia

  • Lần ghé thăm cuối

Bài đăng được đăng bởi dvdcad

  7. Đã đăng · Trả lời báo cáo

    Để bảo mật phải không? Cái này sẽ giúp bạn lấy serial của ổ cứng

    ;;;;;----------------------------------------------------------
;;; LAY SERIAL CUA O CUNG
(defun GET_DRIVE_SERIAL (Path / fsObj hSn abPth cDrv)
 (vl-load-com)
 (if
(and
  (setq fsObj (vlax-create-object "Scripting.FileSystemObject"))
  (not
	(vl-catch-all-error-p
	  (setq	abPth (vl-catch-all-apply
					'vlax-invoke-method
					(list fsObj 'GetAbsolutePathName Path)
				  )
	  )
	)
  )
)
 (progn
   (setq cDrv (vlax-invoke-method
				fsObj
				'GetDrive
				(vlax-invoke-method
				  fsObj
				  'GetDriveName
				  abPth
				)
			  )
   )
   (if
	 (vl-catch-all-error-p
	   (setq hSn (vl-catch-all-apply
				   'vlax-get-property
				   (list cDrv 'SerialNumber)
				 )
	   )
	 )
	  (progn
		(vlax-release-object cDrv)
		(setq hSn nil)
	  )
   )
   (vlax-release-object fsObj)
 )
 )
 hSn
)

    Path là tên ổ cứng. Ví dụ muốn lấy Serial của ổ C: (GET_DRIVE_Serial "C:")

  14. Đã đăng · Trả lời báo cáo

    Xin đính chính lại:

     

    bác viết dùm lisp có nội dung sau:

    1. nhập vào một ký hiệu (VD ký hiệu lúa)

    2. lựa chọn trải hay cây ký hiệu

    3 nếu lựa chọn trải ký hiệu thì nhập khoảng cách gữa các cell

    4. chọn vùng để trải hoặc cấy ký hiệu

  15. Đã đăng · Trả lời báo cáo

    tôi thấy trên diễn đàn có cái trải ký hiệu hay quá.

    Bác hoanh rành về lisp viết dùm để hanh em học với.

    bác viết dùm lisp có nội dung sau:

    1. nhập vào một ký hiệu (VD ký hiệu lúa)

    2. lựa chọn trải hay cây ký hiệu

    3. chọn vùng để trải hoặc cấy ký hiệu

     

    hình minh họa

     

    raikhzn2.jpg

     

     

    không ai giúp lisp này rồi.........!

  18. Đã đăng · Trả lời báo cáo

    tôi thấy trên diễn đàn có cái trải ký hiệu hay quá.

    Bác hoanh rành về lisp viết dùm để hanh em học với.

    bác viết dùm lisp có nội dung sau:

    1. nhập vào một ký hiệu (VD ký hiệu lúa)

    2. lựa chọn trải hay cây ký hiệu

    3. chọn vùng để trải hoặc cấy ký hiệu

     

    hình minh họa

     

    raikhzn2.jpg

  23. Đã đăng · Trả lời báo cáo

    chào các bạn mình thấy một số phần mềm viết bằng lisp muốn chạy được thì phải cung cấp cho họ một số seri của ổ cứng sau đó người ta cấp cho mình một file LISP(ví dụ File KHOA.lsp) thì phần mềm mới chạy được. bạn nào biết nguyên lý của lisp đó (KHOA.lsp) hướng dẫn mình với hay có lsp nào post lên cho mình xem với.

×