Đến nội dung


Hình ảnh
* * * * - 4 Bình chọn

Học AutoLisp


  • Please log in to reply
182 replies to this topic

#181 lisp_basic

lisp_basic

    Chưa sử dụng CAD

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

Đã gửi 13 March 2016 - 10:07 PM

Mình thử viết một lisp dựng hệ lưới trục cho bản vẽ như sau, nhưng khi thực hiện thì bị lỗi “bad argument type: number: nil” và không vẽ ra được hệ trục, chỉ vẽ được các đường song song trục Ox, mong mọi người xem và chỉ giùm mình với:
 
 

(defun noiX(/ a b i j slx n)
  (setq slx (getreal "\n Nhap so luoi truc X:") i 1)
  (setq a (list 0) k 0 x 0)
  (while (<= i (- slx 1))
         (setq j (getreal "\n Nhap khoang cach:"))
         (setq n (+ x j))
         (setq x n)                ;;tinh tong khoang cach cac truc
         (setq b (cons (+ j 0) a)) ;;ghep khoang cach vao thanh 1 list
(setq a 
         (setq i (1+ i))
);;ket thuc while
  (setq xn (cdr (reverse a)))      ;;dao nguoc list va loai bo phan tu dau
  (princ)
  (princ xn)
  (princ x)
 
  )
;;------------------------------------------------------
(defun noiY(/ i sly a b j n)
  (setq sly (getreal "\n Nhap so luoi truc Y:") i 1)
  (setq a (list 0) k 0 y 0)
  (while (<= i (- sly 1))
         (setq j (getreal "\n Nhap khoang cach:"))
         (setq n (+ y j))
         (setq y n)
         (setq b (cons (+ j 0) a))
(setq a 
         (setq i (1+ i))
  )
  (setq yn (cdr (reverse a)))
  (princ)
  (princ yn)
  (princ y)
  )
;;-------------------------------------------------------
(defun chendiem()
  (setq pt (getpoint "\n Nhap toa do diem chen he truc:"))
  )
;;-------------------------------------------------------
(defun vtx(/ i j k)
  (command "line" pt (polar pt 0 x) "")
  (setq i 0 k 0)
  (while (<= i (length yn))
    (setq j (+ (nth i yn) k))
    (command "line" (polar pt (/ pi 2) j) (polar (polar pt (/ pi 2) j) 0 x) "")
    (setq k j)
    (setq i (1+ i))
    )
)
;;-------------------------------------------------------
(defun vty(/ i j k)
  (command "line" pt (polar pt (/ pi 2) y) "")
  (setq i 0 k 0)
  (while (<= i (length xn))
    (setq j (+ (nth i xn) k))
    (command "line" (polar pt 0 j) (polar (polar pt 0 j) (/ pi 2) y) "")
    (setq k j)
    (setq i (1+ i))
    )
)
 
;;-------------------------------------------------------
(defun bang()
  (noiX)
  (noiY)
  (chendiem)
  (vtx)
  (vty)
  (command)
)

  • 0

#182 dungndgeo

dungndgeo

    Chưa sử dụng CAD

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

Đã gửi 13 June 2016 - 09:24 AM

Lâu rồi không thấy bác Hoành viết tiếp nhỉ? Những bài viết cua bác (và của nhiều mem khác nữa) rất hữu ích cho những người mới học như tôi. Cảm ơn các bác nhiều nhé!


  • 0

#183 HUNG NET

HUNG NET

    biết zoom

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

Đã gửi 05 November 2016 - 09:40 PM

Công ty mình đang tuyển sinh viên mới ra trường biết vẽ jwcad lương 7.5tr bạn nhé. bạn nên học phần mềm jw cad vì ít người biết phần mềm này nên rất dễ xin việc bạn nhé. 

thông tin đến bạn.

 

Hiện nay công ty Nhật Bản sang Việt Nam Kinh Doanh rất nhiều về các mảng xây dựng, cơ khí,.. Nên phần mềm jw cad không thể thiếu đối với Công ty Nhật tại Việt Nam. Nhưng chắc có lẽ ít người biết đến phần mềm jw cad này nên Đó là cơ hội, bạn có công việc ổn định về mức lương cũng như chế độ tốt. Vì vậy hôm nay Mình xin giới thiệu đến các bạn các khóa học jw cad. bạn nào học thì liên hệ qua Trung Tâm 

sdt 0165 2049 853.
Xin chân thành cảm ơn


  • -2