Đến nội dung


Hình ảnh
- - - - -

[Giúp đơ] Giúp mình lisp mở file bất kỳ


  • Please log in to reply
6 replies to this topic

#1 trananh0702

trananh0702

    biết vẽ line

  • Members
  • PipPip
  • 25 Bài viết
Điểm đánh giá: 1 (bình thường)

Đã gửi 09 August 2011 - 04:18 PM

Mình đang dùng một đoạn lisp như thế này để mở một bản vẽ, nhưng nếu mình muốn mở một file doc thì có được không, và cách viết lisp như thế nào. Thank
(defun ST3:Dwg-Open (path / file)
(if (setq file (vla-open (vla-get-Documents (vlax-get-acad-object)) path :vlax-false))
(vla-activate file)
nil
))
(defun C:mcn nil (ST3:Dwg-Open "C:\\fhghghf.dwg"))
  • 0

#2 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 09 August 2011 - 04:27 PM

Mình đang dùng một đoạn lisp như thế này để mở một bản vẽ, nhưng nếu mình muốn mở một file doc thì có được không, và cách viết lisp như thế nào. Thank
(defun ST3:Dwg-Open (path / file)
(if (setq file (vla-open (vla-get-Documents (vlax-get-acad-object)) path :vlax-false))
(vla-activate file)
nil
))
(defun C:mcn nil (ST3:Dwg-Open "C:\\fhghghf.dwg"))

Bạn thử xem :
Cái này mở bất kì ứng dụng nào trên máy tính của bạn

(defun c:ofl()
(command "ai_editcustfile" (getfiled "Mo 1 file bat ki" "" "*" 0)))

  • 1

#3 trananh0702

trananh0702

    biết vẽ line

  • Members
  • PipPip
  • 25 Bài viết
Điểm đánh giá: 1 (bình thường)

Đã gửi 09 August 2011 - 04:46 PM

Bạn ơi, bạn viết rõ hơn đi, mình thử dùng đoạn lisp này vào và tháy nó mở ra một của sổ để lựa chọn file. nhưng ý mình là muốn nó mở luôn ra một file. Giúp mình với, thank
  • 0

#4 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 09 August 2011 - 04:55 PM

Bạn ơi, bạn viết rõ hơn đi, mình thử dùng đoạn lisp này vào và tháy nó mở ra một của sổ để lựa chọn file. nhưng ý mình là muốn nó mở luôn ra một file. Giúp mình với, thank

Lisp trên chọn 1 file bất kì rồi mở ra khi click Open

Bạn có 1 đường dẫn Path chứa file cần mở.
File Word: Hoso.doc ở trong ổ C
C:\Hoso.doc

(defun ofl(path)
(command "ai_editcustfile" path)
)


-> Apload Lisp này và thử:
(ofl "C:\\Hoso.doc")
Nó sẽ mở file Hoso.doc trong ổ C lên cho bạn
Bạn thử nhé
  • 1

#5 trananh0702

trananh0702

    biết vẽ line

  • Members
  • PipPip
  • 25 Bài viết
Điểm đánh giá: 1 (bình thường)

Đã gửi 09 August 2011 - 05:01 PM

Cảm ơn bạn nhé. Nhưng đây là khi mình load lisp xong là file doc mở luôn, ý mình là gán cho nó một lệnh rồi khi mình cần mở file thì chỉ cần gõ lệnh là nó mở file doc. giúp mình với. thank
  • 0

#6 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 09 August 2011 - 05:05 PM

Cảm ơn bạn nhé. Nhưng đây là khi mình load lisp xong là file doc mở luôn, ý mình là gán cho nó một lệnh rồi khi mình cần mở file thì chỉ cần gõ lệnh là nó mở file doc. giúp mình với. thank

Của bạn đây :
(defun c:ofl()
(command "ai_editcustfile" "C:\\Hoso.doc")
)


Gõ lệnh OFL là nó mở file C:\Hoso.doc lên cho bạn
  • 1

#7 trananh0702

trananh0702

    biết vẽ line

  • Members
  • PipPip
  • 25 Bài viết
Điểm đánh giá: 1 (bình thường)

Đã gửi 09 August 2011 - 05:09 PM

thank bạn rất nhiều
  • 0