Đến nội dung


Hình ảnh
- - - - -

cad2007 báo lỗi "no function definition: DDCONV" khi chạy lisp


  • Please log in to reply
5 replies to this topic

#1 Xuoi2013

Xuoi2013

    biết zoom

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

Đã gửi 11 May 2013 - 10:05 AM

Tôi có đoạn lisp đã chạy được trong cad14 nhưng khi chạy trong cad 2007 báo lỗi:

; error: no function definition: DDCONV

đoạn lisp như sau:

(defun C:tidt()  ; tinh dien tich da giac
  (setq tyle(getvar "dimcen"))(ddconv)
  (command "osnap" "none")
  (setq lop "0")
  (setq p(list 10 10))
  (while (/= p nil)
     (setq p(getpoint "\nBam diem : "))
     (if(/= p nil)
     (progn
        (setq xt(nth 0 p) yt(nth 1 p))
        (command "bpoly"  (list xt yt) "")
        (setq epl(entlast))
        (tinhdtpl xt yt lop epl)  ;Tinh dien tich    
        (command "erase" epl "")
     ))
   )

)

 

đó là lỗi gì vậy, sửa như thế nào để chạy được ở cad2007 các bác giúp với nhé


  • 0

#2 Song Nhi

Song Nhi

    biết vẽ rectang

  • Members
  • PipPip
  • 83 Bài viết
Điểm đánh giá: 52 (tàm tạm)

Đã gửi 11 May 2013 - 11:15 PM

Bạn chưa load hàm (ddconv)


  • 1

#3 Xuoi2013

Xuoi2013

    biết zoom

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

Đã gửi 12 May 2013 - 09:27 AM

Bạn chưa load hàm (ddconv)

 

 Cách load hàm đó như thế nào vậy bạn? mình chưa biết gì về lisp. xin bạn chỉ cho


  • 0

#4 Xuoi2013

Xuoi2013

    biết zoom

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

Đã gửi 12 May 2013 - 09:38 AM

Bạn chưa load hàm (ddconv)

 

Hàm này là hàm có sẵn của cad hay hàm tự tạo vậy bạn? cách laod nó như thế nào . Mình chưa biết gì về lisp, bạn giúp mình nhé


  • 0

#5 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5447 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 12 May 2013 - 09:49 AM

Lisp của bạn chép thiếu hàm tự tạo ddconv. Tìm và chép cho đủ vào lisp.


  • 1

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#6 Xuoi2013

Xuoi2013

    biết zoom

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

Đã gửi 12 May 2013 - 04:24 PM

Lisp của bạn chép thiếu hàm tự tạo ddconv. Tìm và chép cho đủ vào lisp.

 

Mình có tìm thấy hàm ddconv này nhưng vẫn không chạy được.

 

(defun ddconv ( / in1 in2 ifp1 ifp2 )
  (setq in1 "c:\\nc\\dosconv.sys")
  (setq in2 "c:\\windows\\dosconv.sys")
  (setq ifp1 (open in1 "r"))
  (setq ifp2 (open in2 "r"))
  (if(and(= ifp1 nil)(= ifp2 nil))
     (progn
         (alert(strcat "PhÇn MÒm BÞ Kho¸ ! "))            ; if nil print error message
         (command "quit")
     )
     (princ)
  )
  (if(/= ifp1 nil)(close ifp1))
  (if(/= ifp2 nil)(close ifp2))
)    


  • 0