Đến nội dung


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

Viết lisp theo yêu cầu [phần 2]


  • Chủ đề bị khóa Chủ đề bị khóa
3783 replies to this topic

#1961 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5682 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 25 September 2010 - 01:40 PM

E tưởng lúc publish nó có cả lựa chọn gắn thêm thiết lập layout,paper size các kiểu cơ? Do chưa dùng nên cũng không rõ lắm,bác nghiên cứu thử xem sao ^^
  • 1

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#1962 dkkx3a

dkkx3a

    biết lệnh trim

  • Members
  • PipPipPip
  • 190 Bài viết
Điểm đánh giá: 57 (tàm tạm)

Đã gửi 25 September 2010 - 03:14 PM

E tưởng lúc publish nó có cả lựa chọn gắn thêm thiết lập layout,paper size các kiểu cơ? Do chưa dùng nên cũng không rõ lắm,bác nghiên cứu thử xem sao ^^

Cảm ơn bác đã nhắc nhở, em làm được rồi, không cần dùng LSP mà làm thủ công, nhưng chắc có LSP cũng không nhanh hơn được, em làm theo hướng dẫn của bác tuongtrang ngày xưa http://www.cadviet.c...o...ost&p=72167
...........cảm ơn.
  • 0
TỰ SỰ
Biển vào chiều buồn giữa cô liêu
Sóng vỗ bờ bạc đầu con nước
Khi biển động như lòng ta chợt động
Biển ồn ào nhưng thực rất dịu êm.......

#1963 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6009 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 25 September 2010 - 04:38 PM

Chào anh Phamthanhbinh!

Phải nói anh tuyệt thật, em cám ơn anh nha, anh ở Sài Gòn hay ở đâu vậy?

Lisp đúng ý em rùi, em cám ơn anh nhiều lắm.

Hề hề hề,
Chào bạn tamkt. mình ở cái đất mà khỉ chẳng ho, cò chẳng thấy bạn ạ. Nó vốn là khu vực cận R ngày xưa. Bình dương đất Thủ ít ra cũng có thời vang bóng đó bác. Nhưng mà mình chỉ là dân ngụ cư thôi, ăn đậu ở nhờ, khi vui thì bậu mà khi buồn lại bay ấy mà..... Hề hề hề....
Ta đây con cháu vua Hùng, tuy điên thì chả phải nhưng khùng thì cũng hơi hơi bác à......
Hề hề hề....
  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#1964 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 25 September 2010 - 06:26 PM

Hề hề..Bác Binh ơi,code có kiểm tra vnsimple.shx tồn tại hay không thì sao ạ ^^.Gán thế rồi mà nó k có thì sao ạ ^^

Hề hề hề,
cái font này có nhẽ khó mà thiếu được, nếu không có thì phải thay nó bằng font khác thui. Còn gán vậy nó mà không có thì lisp chả chạy nữa, nằm nghỉ mệt. Mình phải lôi ra mà sửa vậy.
Tại vì lisp này mình cũng mót trên diễn đàn về xài nên cũng chửa biết kiểm tra nó ra sao, cứ chép nguyên vậy dùng đã. Khi cần thì lôi ra chỉnh sửa cho hợp ý mình thui chứ không dám bày vẽ gì thêm.
Hề hề hề......
Tỷ như bạn muốn thay font gì thì thay vào cái chỗ vnsimple.shx đó. Chả nhẽ trên máy lại chả có cái font nào hay sao??? còn cái việc tạo font thì ối cha mẹ ơi mình chửa biết làm. Có ai biết chỉ giùm. Hề hề hề.
Túm lại là có gì xơi nấy chả kén cá chọn canh được bác ạ.....
Hề hề hề.....

Ý của bạn ketxu muốn kiểm tra vnsimple.shx tồn tại hay không chớ hổng phải nói về cách tạo Font. Ket xu còn thực hiện mấy công việc đằng sau việc kiểm tra Font này. Nếu mà hông có việc kiểm tra này thì mấy công việc đằng sau thế là hỏng hết. Có khi chạy tầm bậy nữa
Bác Bình và ketxu thử sử dụng code này nhá :
(defun c:kt(/ font)
(setq font "tue.shx")
(command "-style" "KCVN-COM" font)
(if (= (getvar "cmdactive") 1)
(progn (command 0 1 0 "" "" "")
(alert (strcat "May cua ban co Font" font))
)
(alert (strcat "\n Khong co Font " font))
)
)
@ketxu : Thử thay dòng này
(setq font "tue.shx")
bằng dòng (setq font "vnsimple.shx")
thử xem

Còn gán vậy nó mà không có thì lisp chả chạy nữa, nằm nghỉ mệt.

@Bác Bình :
Lisp nó dai sức lắm bác ạ. Nó vẫn chạy tiếp tục và chạy tầm bậy. Đôi lúc chạy sai, có khi nó thiết lập không đúng ý của mình nữa
Nên ta mới đi kiểm tra, làm tường rào, chặn Lisp lại, không cho nó chạy nữa, hề hề...
  • 2

#1965 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5682 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 25 September 2010 - 09:19 PM

Ý em là tạo hàm con để nó sử dụng ngay trong code ý ạ ^^
  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#1966 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 26 September 2010 - 04:11 AM

Ý em là tạo hàm con để nó sử dụng ngay trong code ý ạ ^^

Trong code mà Tue_NV viết ở trên
bạn thay dòng :
(defun c:kt(/ font)
thành dòng
(defun kt(font) : là ra hàm con liền à
Hoặc là sử dụng code này :

(defun kt(font / OK)
;copyright by Tue_NV
;(setq font "tue.shx")
(setvar "cmdecho" 0)
(command "undo" "m")
  (command "-style" "" font)
  (if (= (getvar "cmdactive") 1)
(if (= (strcase (substr font (- (strlen font) 3) 4)) ".SHX")
        (progn (command "" "" "" "" "" "") (setq OK T))
      (if (= (strcase (substr font (- (strlen font) 3) 4)) ".TTF")
        (progn (command "" "" "" "" "") (setq OK T))
)
)
(setq OK nil)
  )
(command "undo" "b")
OK
)

(kt "vnsimple.shx") -> Return : T nếu máy bạn có cài "vnsimple.shx". Return nil nếu ếu máy bạn không cài "vnsimple.shx".
Bạn thử các font còn lại trên máy bạn và không có trên máy bạn xem kết quả nhé.
Thú vị đấy chứ.
  • 1

#1967 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6009 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 26 September 2010 - 09:57 AM

Ý em là tạo hàm con để nó sử dụng ngay trong code ý ạ ^^

Để biến cái lisp trên thành hàm con được sử dụng luôn trong hàm chính tạo đmstyle, bạn phải thay (defun c:kt (....) .............) thành (defun kt (...).......)
đồng thời bạn phải gán giá trị cho các trường hợp có và không có cái font cần kiểm bằng cách thay các hàm (alert .....) bằng các hàm (setq q .....)
Sau đó trong hàm chính bạn có thể gọi các biến này ra mà xử.
Tất nhiên như vậy thì các biến sẽ dùng trong hàm chính phải là biến toàn cục bạn nhé và khi gọi hàm kt này bạn phải gọi đủ các biến toàn cục này...
Chúc bạn vui.
@ Bác Tue_NV: hề hề hề.... Cám ơn bác đã hướng dẫn tận tình. Mình còn nhiều cái chưa hiểu hết khi dùng lisp lắm bác à. Mong được bác hỗ trợ dài dài.....
  • 1
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#1968 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5682 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 26 September 2010 - 01:29 PM

Thank bác ThanhBinh nhiều code đã chạy ngon rồi.
Mọi người có thể download code này về dùng xem nếu lỗi thì báo lại cho mình.
Hình đã gửi


;; free lisp from cadviet.com

(defun c:vetuong ()
(command "trim" "" "e" "e" "p" "n" "")
(command "undo" "be")
(setvar "cmdecho" 0)
(setq old_layer (getvar "clayer"))
(setq snap (getvar "osmode"))
(setq hl (getvar "highlight"))
(setq tbl (tblsearch "layer" "tuong"))
(if (= tbl nil) (command "-layer" "n" "tuong" "c" "4" "tuong" ""))
(setq tbl (tblsearch "layer" "_tim"))
(if (= tbl nil) (command "-layer" "n" "_tim" "c" "8" "_tim" "l" "center" "_tim" ""))
(setq tbl (tblsearch "layer" "template"))
(if (= tbl nil) (command "-layer" "n" "template" "c" "0" "template" ""))
(setvar "clayer" "template")
(setvar "osmode" 0)
(setq ss (ssget '((0 . "line"))))
(command "change" ss "" "p" "la" "_tim" "")
(setq day (getint "\nnhap chieu day tuong:"))
(setq day1 (/ (* day 7) 15))
(setq i 0)
(setq lp nil)
(setq ssml nil)
(setq ssml (ssadd))
(while (< i (sslength ss))
(setq name (ssname ss i)
ent (entget name)
p1 (cdr (assoc 10 ent))
p2 (cdr (assoc 11 ent))
lp (append (list (append (list p1) (list p2))) lp)
)
(command "mline" "j" "z" "s" day p1 p2 "")
(command "explode" "l")
(setq ssline (ssget "p"))
(setq line1 (ssname ssline 0))
(setq line2 (ssname ssline 1))
(setq ssml (ssadd line1 (ssadd line2 ssml)))
(setq i (1+ i))
)
(command "-layer" "off" "_tim" "")
(setq j 0)
(setvar "highlight" 0)
(while (< j (length lp))
(setq ssml (ssget "x" '((0 . "line") (8 . "template"))))
(setq nhom (nth j lp)
pt1 (car nhom)
pt2 (last nhom)
angf (+ (angle pt1 pt2) (/ pi 2))
t1 (polar pt1 angf day1)
t2 (polar pt1 (+ angf pi) day1)
t3 (polar pt2 (+ angf pi) day1)
t4 (polar pt2 angf day1)
)
(command "trim" ssml "" "f" t1 t2 t3 t4 t1 "" "")
(setq j (1+ j))
)
(setq q 0)
(while (< q (sslength ssml))
(setq l1 (ssname ssml q)
pf1 (cdr (assoc 10 (entget l1)))
pf2 (cdr (assoc 11 (entget l1)))
)
(setq k 0)
(while (< k (sslength ssml))
(setq l2 (ssname ssml k)
pf3 (cdr (assoc 10 (entget l2)))
pf4 (cdr (assoc 11 (entget l2)))
d1 (distance pf1 pf3)
d2 (distance pf1 pf4)
d3 (distance pf2 pf3)
d4 (distance pf2 pf4)
)
(if (or (and (< (fix d1) (* day1 2)) (> d1 0)) (and (< (fix d2) (* day1 2)) (> d2 0))
(and (< (fix d3) (* day1 2)) (> d3 0)) (and (< (fix d4) (* day1 2)) (> d4 0)))
(command "fillet" l1 l2)
)
(setq k (1+ k))
)
(setq q (1+ q))
)
(command "change" ssml "" "p" "la" "tuong" "")
(setvar "clayer" old_layer)
(command "-layer" "on" "_tim" "")
(setvar "osmode" snap)
(setvar "highlight" hl)
(setvar "cmdecho" 1)
(command "undo" "e")
(command "trim" "" "e" "n" "")
)

Hôm trước test code đã chuẩn rồi,mà hnay e test kiểu j cũng hok được.Nó chẳng fill tẹo nào bên ngoài,mà có những đường temp cũng k chuyển về hết.K hiểu là máy lỗi haylại xung đột j chăng.Bác test lại hộ e với nhé.Mà,lần đầu chạy lsp lúc nào cũng hiện ra command new layer,phải esc đi chạy lại thì mới hết :(
  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#1969 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6009 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 26 September 2010 - 02:59 PM

Hôm trước test code đã chuẩn rồi,mà hnay e test kiểu j cũng hok được.Nó chẳng fill tẹo nào bên ngoài,mà có những đường temp cũng k chuyển về hết.K hiểu là máy lỗi haylại xung đột j chăng.Bác test lại hộ e với nhé.Mà,lần đầu chạy lsp lúc nào cũng hiện ra command new layer,phải esc đi chạy lại thì mới hết :(

Hề hề hề,
Mình test thấy vẫn còn có chỗ nó bị lộn tiệm, trim thì sót, fillet thì nhầm. Tuy nhiên chưa biết cách chữa bác ạ, Mong bác cứ từ từ mà dùng bác ạ....
  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#1970 phamngoctukts

phamngoctukts

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1107 Bài viết
Điểm đánh giá: 696 (tốt)

Đã gửi 26 September 2010 - 03:36 PM

Hề hề hề,
Mình test thấy vẫn còn có chỗ nó bị lộn tiệm, trim thì sót, fillet thì nhầm. Tuy nhiên chưa biết cách chữa bác ạ, Mong bác cứ từ từ mà dùng bác ạ....

Chết thật hôm up lộn code rồi xin lỗi các bạn. Các bác test lại xem.

;; free lisp from cadviet.com
(defun c:vetuong ()
(command "trim" "" "e" "e" "p" "n" "")
(command "undo" "be")
(setvar "cmdecho" 0)
(setq old_layer (getvar "clayer"))
(setq snap (getvar "osmode"))
(setq hl (getvar "highlight"))
(setq tbl (tblsearch "layer" "tuong"))
(if (= tbl nil) (command "-layer" "n" "tuong" "c" "4" "tuong" ""))
(setq tbl (tblsearch "layer" "_tim"))
(if (= tbl nil) (command "-layer" "n" "_tim" "c" "8" "_tim" "l" "center" "_tim" ""))
(setq tbl (tblsearch "layer" "template"))
(if (= tbl nil) (command "-layer" "n" "template" ""))
(setvar "clayer" "template")
(setvar "osmode" 0)
(setq ss (ssget '((0 . "line"))))
(setq day (cond (day) (220)))
(setq oldday day)
(setq day (getint (strcat "\nnhap chieu day tuong <"(rtos oldday 2 1)"> : ")))
(if (null day)
(setq day oldday)
)
(setq day1 (/ (* day 7) 15))
(command "change" ss "" "p" "la" "_tim" "")
(setq i 0)
(setq lp nil)
(setq ssml nil)
(setq ssml (ssadd))
(while (< i (sslength ss))
(setq name (ssname ss i)
ent (entget name)
p1 (cdr (assoc 10 ent))
p2 (cdr (assoc 11 ent))
lp (append (list (append (list p1) (list p2))) lp)
)
(command "mline" "j" "z" "s" day p1 p2 "")
(command "explode" "l")
(setq ssline (ssget "p"))
(setq line1 (ssname ssline 0))
(setq line2 (ssname ssline 1))
(setq ssml (ssadd line1 (ssadd line2 ssml)))
(setq i (1+ i))
)
(command "-layer" "off" "_tim" "")
(setq j 0)
(setvar "highlight" 0)
(while (< j (length lp))
(setq nhom (nth j lp)
pt1 (car nhom)
pt2 (last nhom)
angf (+ (angle pt1 pt2) (/ pi 2))
t1 (polar pt1 angf day1)
t2 (polar pt1 (+ angf pi) day1)
t3 (polar pt2 (+ angf pi) day1)
t4 (polar pt2 angf day1)
)
(command "trim" ssml "" "f" t1 t2 t3 t4 t1 "" "")
(setq j (1+ j))
)
(setq q 0)
(setq ssml (ssget "x" '((0 . "line") (8 . "template"))))
(while (< q (sslength ssml))
(setq l1 (ssname ssml q)
pf1 (cdr (assoc 10 (entget l1)))
pf2 (cdr (assoc 11 (entget l1)))
)
(setq k 0)
(while (< k (sslength ssml))
(setq l2 (ssname ssml k)
pf3 (cdr (assoc 10 (entget l2)))
pf4 (cdr (assoc 11 (entget l2)))
d1 (distance pf1 pf3)
d2 (distance pf1 pf4)
d3 (distance pf2 pf3)
d4 (distance pf2 pf4)
)
(if (or (and (< (fix d1) (* day1 2)) (> d1 0)) (and (< (fix d2) (* day1 2)) (> d2 0)) (and (< (fix d3) (* day1 2)) (> d3 0))

(and (< (fix d4) (* day1 2)) (> d4 0)))
(command "fillet" l1 l2)
)
(setq k (1+ k))
)
(setq q (1+ q))
)
(command "change" ssml "" "p" "la" "tuong" "")
(dimtuong)
(setvar "clayer" old_layer)
(command "-layer" "on" "_tim" "")
(setvar "osmode" snap)
(setvar "highlight" hl)
(setvar "cmdecho" 1)
(command "undo" "e")
(command "trim" "" "e" "n" "")
)
;******************************************
(defun c:vt ()
(command "trim" "" "e" "e" "p" "n" "")
(command "undo" "be")
(setvar "cmdecho" 0)
(setq old_layer (getvar "clayer"))
(setq snap (getvar "osmode"))
(setvar "clayer" "tuong")
(setq dt (cond (dt) (220)))
(setq olddt dt)
(setq dt (getint (strcat "\nrong tuong <"(rtos olddt 2 1)"> : ")))
(if (null dt)
(setq dt olddt)
)
(setq pt1 (getpoint "\ndiem thu nhat:")
pt2 (getpoint "\ndiem thu hai:" pt1)
)
(setvar "osmode" 0)
(command "-layer" "off" "_tim" "")
(command "mline" "j" "z" "s" dt pt1 pt2 "")
(setq mll (entlast))
(command "trim" mll "" "f" pt1 pt2 "" "")
(command "explode" mll)
(setvar "osmode" snap)
(setvar "clayer" old_layer)
(command "-layer" "on" "_tim" "")
(setvar "cmdecho" 1)
(command "trim" "" "e" "n" "")
)
;*****************************************
(defun c:vc ()
(setvar "cmdecho" 0)
(setq old_layer (getvar "clayer"))
(setq snap (getvar "osmode"))
(setvar "clayer" "tuong")
(setq cua (cond (cua) (900)))
(setq oldcua cua)
(setq cua (getint (strcat "\nrong cua <"(rtos oldcua 2 1)"> : ")))
(if (null cua)
(setq cua oldcua)
)
(setq pc1 (getpoint "\ndiem thu nhat:")
pc2 (getpoint "\ndiem thu hai:" pc1)
ang (+ (angle pc1 pc2) (/ (* 90 pi) 180))
pc3 (polar pc1 ang (+ 110 (/ cua 2)))
pc4 (polar pc2 ang (+ 110 (/ cua 2)))
)
(setvar "osmode" 0)
(command "-layer" "off" "_tim" "")
(command "mline" "j" "z" "s" cua pc3 pc4 "")
(setq mll (entlast))
(command "trim" mll "" "f" pc3 pc4 "" "")
(command "explode" mll)
(setvar "osmode" snap)
(setvar "clayer" old_layer)
(command "-layer" "on" "_tim" "")
(setvar "cmdecho" 1)
)
;*****************************************
(defun dimtuong ()
(setq tbl (tblsearch "layer" "_dim"))
(if (= tbl nil) (command "-layer" "n" "_dim" "c" "8" "_dim" ""))
(setvar "clayer" "_dim")
(setq a 0)
(setq lpx nil)
(setq lpy nil)
(while (< a (length lp))
(setq px1 (car (car (nth a lp)))
py1 (cadr (car (nth a lp)))
px2 (car (cadr (nth a lp)))
py2 (cadr (cadr (nth a lp)))
)
(if (/= py1 py2)
(setq lpx (append (list px1) lpx))
)
(if (= py1 py2)
(setq lpy (append (list py1) lpy))
)
(setq a (1+ a))
)
(setq lpx (vl-sort lpx '<))
(setq lpy (vl-sort lpy '<))
(setq dc (- (last lpx) (car lpx)))
(setq pdi (list (car lpx) (- (car lpy) (/ dc 30)) 0))
(setq pdim (polar pdi pi (/ day 2)))
(setq pdim1 (polar pdi (/ (* pi 3) 2) (/ dc 15)))
(command "_dimlinear" pdi pdim pdim1)
(setq c 0)
(while (< (1+ c) (length lpx))
(setq y (cadr pdim)
x1 (nth c lpx)
x2 (nth (1+ c) lpx)
dd1 (list x1 y 0)
dd2 (list x2 y 0)
)
(command "_dimlinear" dd1 dd2 pdim1)
(setq c (1+ c))
)
(setq pcc (polar dd2 0 (/ day 2)))
(command "_dimlinear" dd2 pcc pdim1)
(command "_dimlinear" pdim pcc (polar pdim1 (/ (* pi 3) 2) (/ dc 40)))
)

Bạn cho mình hỏi code này sai ở chỗ nào mà nó báo lỗi (setq tldim (last (assoc 40 (tblsearch "dimstyle" "1")))). Mình có dim tên là 1 và muốn lấy overall scale của nó. mình dùng mã 140 lấy cao chũ cũng không được.
  • 2
Tất cả vì sự phát triển của diễn đàn ...
Cám ơn đừng nói lời suông mà hãy nhấn Hình đã gửi!

#1971 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6009 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 26 September 2010 - 04:26 PM

Chết thật hôm up lộn code rồi xin lỗi các bạn. Các bác test lại xem.


;; free lisp from cadviet.com
(defun c:vetuong ()
(command "trim" "" "e" "e" "p" "n" "")
(command "undo" "be")
(setvar "cmdecho" 0)
(setq old_layer (getvar "clayer"))
(setq snap (getvar "osmode"))
(setq hl (getvar "highlight"))
(setq tbl (tblsearch "layer" "tuong"))
(if (= tbl nil) (command "-layer" "n" "tuong" "c" "4" "tuong" ""))
(setq tbl (tblsearch "layer" "_tim"))
(if (= tbl nil) (command "-layer" "n" "_tim" "c" "8" "_tim" "l" "center" "_tim" ""))
(setq tbl (tblsearch "layer" "template"))
(if (= tbl nil) (command "-layer" "n" "template" ""))
(setvar "clayer" "template")
(setvar "osmode" 0)
(setq ss (ssget '((0 . "line"))))
(setq day (cond (day) (220)))
(setq oldday day)
(setq day (getint (strcat "\nnhap chieu day tuong <"(rtos oldday 2 1)"> : ")))
(if (null day)
(setq day oldday)
)
(setq day1 (/ (* day 7) 15))
(command "change" ss "" "p" "la" "_tim" "")
(setq i 0)
(setq lp nil)
(setq ssml nil)
(setq ssml (ssadd))
(while (< i (sslength ss))
(setq name (ssname ss i)
ent (entget name)
p1 (cdr (assoc 10 ent))
p2 (cdr (assoc 11 ent))
lp (append (list (append (list p1) (list p2))) lp)
)
(command "mline" "j" "z" "s" day p1 p2 "")
(command "explode" "l")
(setq ssline (ssget "p"))
(setq line1 (ssname ssline 0))
(setq line2 (ssname ssline 1))
(setq ssml (ssadd line1 (ssadd line2 ssml)))
(setq i (1+ i))
)
(command "-layer" "off" "_tim" "")
(setq j 0)
(setvar "highlight" 0)
(while (< j (length lp))
(setq nhom (nth j lp)
pt1 (car nhom)
pt2 (last nhom)
angf (+ (angle pt1 pt2) (/ pi 2))
t1 (polar pt1 angf day1)
t2 (polar pt1 (+ angf pi) day1)
t3 (polar pt2 (+ angf pi) day1)
t4 (polar pt2 angf day1)
)
(command "trim" ssml "" "f" t1 t2 t3 t4 t1 "" "")
(setq j (1+ j))
)
(setq q 0)
(setq ssml (ssget "x" '((0 . "line") (8 . "template"))))
(while (< q (sslength ssml))
(setq l1 (ssname ssml q)
pf1 (cdr (assoc 10 (entget l1)))
pf2 (cdr (assoc 11 (entget l1)))
)
(setq k 0)
(while (< k (sslength ssml))
(setq l2 (ssname ssml k)
pf3 (cdr (assoc 10 (entget l2)))
pf4 (cdr (assoc 11 (entget l2)))
d1 (distance pf1 pf3)
d2 (distance pf1 pf4)
d3 (distance pf2 pf3)
d4 (distance pf2 pf4)
)
(if (or (and (< (fix d1) (* day1 2)) (> d1 0)) (and (< (fix d2) (* day1 2)) (> d2 0))
(and (< (fix d3) (* day1 2)) (> d3 0)) (and (< (fix d4) (* day1 2)) (> d4 0)))
(command "fillet" l1 l2)
)
(setq k (1+ k))
)
(setq q (1+ q))
)
(command "change" ssml "" "p" "la" "tuong" "")
(dimtuong)
(setvar "clayer" old_layer)
(command "-layer" "on" "_tim" "")
(setvar "osmode" snap)
(setvar "highlight" hl)
(setvar "cmdecho" 1)
(command "undo" "e")
(command "trim" "" "e" "n" "")
)
;******************************************
(defun c:vt ()
(command "trim" "" "e" "e" "p" "n" "")
(command "undo" "be")
(setvar "cmdecho" 0)
(setq old_layer (getvar "clayer"))
(setq snap (getvar "osmode"))
(setvar "clayer" "tuong")
(setq dt (cond (dt) (220)))
(setq olddt dt)
(setq dt (getint (strcat "\nrong tuong <"(rtos olddt 2 1)"> : ")))
(if (null dt)
(setq dt olddt)
)
(setq pt1 (getpoint "\ndiem thu nhat:")
pt2 (getpoint "\ndiem thu hai:" pt1)
)
(setvar "osmode" 0)
(command "-layer" "off" "_tim" "")
(command "mline" "j" "z" "s" dt pt1 pt2 "")
(setq mll (entlast))
(command "trim" mll "" "f" pt1 pt2 "" "")
(command "explode" mll)
(setvar "osmode" snap)
(setvar "clayer" old_layer)
(command "-layer" "on" "_tim" "")
(setvar "cmdecho" 1)
(command "trim" "" "e" "n" "")
)
;*****************************************
(defun c:vc ()
(setvar "cmdecho" 0)
(setq old_layer (getvar "clayer"))
(setq snap (getvar "osmode"))
(setvar "clayer" "tuong")
(setq cua (cond (cua) (900)))
(setq oldcua cua)
(setq cua (getint (strcat "\nrong cua <"(rtos oldcua 2 1)"> : ")))
(if (null cua)
(setq cua oldcua)
)
(setq pc1 (getpoint "\ndiem thu nhat:")
pc2 (getpoint "\ndiem thu hai:" pc1)
ang (+ (angle pc1 pc2) (/ (* 90 pi) 180))
pc3 (polar pc1 ang (+ 110 (/ cua 2)))
pc4 (polar pc2 ang (+ 110 (/ cua 2)))
)
(setvar "osmode" 0)
(command "-layer" "off" "_tim" "")
(command "mline" "j" "z" "s" cua pc3 pc4 "")
(setq mll (entlast))
(command "trim" mll "" "f" pc3 pc4 "" "")
(command "explode" mll)
(setvar "osmode" snap)
(setvar "clayer" old_layer)
(command "-layer" "on" "_tim" "")
(setvar "cmdecho" 1)
)
;*****************************************
(defun dimtuong ()
(setq tbl (tblsearch "layer" "_dim"))
(if (= tbl nil) (command "-layer" "n" "_dim" "c" "8" "_dim" ""))
(setvar "clayer" "_dim")
(setq a 0)
(setq lpx nil)
(setq lpy nil)
(while (< a (length lp))
(setq px1 (car (car (nth a lp)))
py1 (cadr (car (nth a lp)))
px2 (car (cadr (nth a lp)))
py2 (cadr (cadr (nth a lp)))
)
(if (/= py1 py2)
(setq lpx (append (list px1) lpx))
)
(if (= py1 py2)
(setq lpy (append (list py1) lpy))
)
(setq a (1+ a))
)
(setq lpx (vl-sort lpx '<))
(setq lpy (vl-sort lpy '<))
(setq dc (- (last lpx) (car lpx)))
(setq pdi (list (car lpx) (- (car lpy) (/ dc 30)) 0))
(setq pdim (polar pdi pi (/ day 2)))
(setq pdim1 (polar pdi (/ (* pi 3) 2) (/ dc 15)))
(command "_dimlinear" pdi pdim pdim1)
(setq c 0)
(while (< (1+ c) (length lpx))
(setq y (cadr pdim)
x1 (nth c lpx)
x2 (nth (1+ c) lpx)
dd1 (list x1 y 0)
dd2 (list x2 y 0)
)
(command "_dimlinear" dd1 dd2 pdim1)
(setq c (1+ c))
)
(setq pcc (polar dd2 0 (/ day 2)))
(command "_dimlinear" dd2 pcc pdim1)
(command "_dimlinear" pdim pcc (polar pdim1 (/ (* pi 3) 2) (/ dc 40)))
)

Bạn cho mình hỏi code này sai ở chỗ nào mà nó báo lỗi (setq tldim (last (assoc 40 (tblsearch "dimstyle" "1")))). Mình có dim tên là 1 và muốn lấy overall scale của nó. mình dùng mã 140 lấy cao chũ cũng không được.

Hề hề hề,
Chào bác Phamngoctukts,
Hàm (last list) trả về phần tử cuối cùng của một danh sách, nhưng cái danh sách ấy không phải là một asociation list bác ạ.
Khi bác gọi (assoc 40 (tblsearch "dímtyle" "1")) Thì nó trả về một association list là (40 . 1.5) chẳng hạn. Vì thế hàm last nó sẽ trả lời là: ; error : bad lisst 1.5 . Cũng tương tự khi bác lấy chiếu cao text ở mã 140.
Theo mình bác co thể thay hàm last bằng hàm (cdr (assoc 40 (tblsearch ........))) bác ạ. Với các asociation list thì thường sử dụng hàm cdr để lấy giá trị của phần tử tuong tác thứ hai bác ạ. Trong association list thì chỉ có hai phần tử và được tương tác với nhau qua dấu chấm và còn gọi là dot pair list bác à.
Hề hề hề, chúc bác vui.
  • 1
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#1972 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6009 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 26 September 2010 - 09:46 PM

Lisp này khi mình chọn chiều tăng của text là phải thì nó đánh từ trên xuống dưới,bạn có thể sửa lại khi chọn chiều tăng là phải thì nó cũng đánh từ dưới lên trên giống như chiều tăng trái được không .Chân thành cảm ơn trước.

Chào 790312,
Lisp này sở dĩ phải chọn chiếu là do yêu cầu của người dùng. Nếu bạn không muốn việc chọn chiều này thì chỉ đơn giản là bạn hãy bỏ đoạn code chọn chiều đi mà thôi.
Bạn cũng là một thành viên khá có thâm niên rồi, Hy vọng bạn sẽ tự sửa được. Nếu có khó khăn hãy post lên bạn nhé.
  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#1973 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5682 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 26 September 2010 - 11:41 PM

Chết thật hôm up lộn code rồi xin lỗi các bạn. Các bác test lại xem.


;; free lisp from cadviet.com
(defun c:vetuong ()
(command "trim" "" "e" "e" "p" "n" "")
(command "undo" "be")
(setvar "cmdecho" 0)
(setq old_layer (getvar "clayer"))
(setq snap (getvar "osmode"))
(setq hl (getvar "highlight"))
(setq tbl (tblsearch "layer" "tuong"))
(if (= tbl nil) (command "-layer" "n" "tuong" "c" "4" "tuong" ""))
(setq tbl (tblsearch "layer" "_tim"))
(if (= tbl nil) (command "-layer" "n" "_tim" "c" "8" "_tim" "l" "center" "_tim" ""))
(setq tbl (tblsearch "layer" "template"))
(if (= tbl nil) (command "-layer" "n" "template" ""))
(setvar "clayer" "template")
(setvar "osmode" 0)
(setq ss (ssget '((0 . "line"))))
(setq day (cond (day) (220)))
(setq oldday day)
(setq day (getint (strcat "\nnhap chieu day tuong <"(rtos oldday 2 1)"> : ")))
(if (null day)
(setq day oldday)
)
(setq day1 (/ (* day 7) 15))
(command "change" ss "" "p" "la" "_tim" "")
(setq i 0)
(setq lp nil)
(setq ssml nil)
(setq ssml (ssadd))
(while (< i (sslength ss))
(setq name (ssname ss i)
ent (entget name)
p1 (cdr (assoc 10 ent))
p2 (cdr (assoc 11 ent))
lp (append (list (append (list p1) (list p2))) lp)
)
(command "mline" "j" "z" "s" day p1 p2 "")
(command "explode" "l")
(setq ssline (ssget "p"))
(setq line1 (ssname ssline 0))
(setq line2 (ssname ssline 1))
(setq ssml (ssadd line1 (ssadd line2 ssml)))
(setq i (1+ i))
)
(command "-layer" "off" "_tim" "")
(setq j 0)
(setvar "highlight" 0)
(while (< j (length lp))
(setq nhom (nth j lp)
pt1 (car nhom)
pt2 (last nhom)
angf (+ (angle pt1 pt2) (/ pi 2))
t1 (polar pt1 angf day1)
t2 (polar pt1 (+ angf pi) day1)
t3 (polar pt2 (+ angf pi) day1)
t4 (polar pt2 angf day1)
)
(command "trim" ssml "" "f" t1 t2 t3 t4 t1 "" "")
(setq j (1+ j))
)
(setq q 0)
(setq ssml (ssget "x" '((0 . "line") (8 . "template"))))
(while (< q (sslength ssml))
(setq l1 (ssname ssml q)
pf1 (cdr (assoc 10 (entget l1)))
pf2 (cdr (assoc 11 (entget l1)))
)
(setq k 0)
(while (< k (sslength ssml))
(setq l2 (ssname ssml k)
pf3 (cdr (assoc 10 (entget l2)))
pf4 (cdr (assoc 11 (entget l2)))
d1 (distance pf1 pf3)
d2 (distance pf1 pf4)
d3 (distance pf2 pf3)
d4 (distance pf2 pf4)
)
(if (or (and (< (fix d1) (* day1 2)) (> d1 0)) (and (< (fix d2) (* day1 2)) (> d2 0))
(and (< (fix d3) (* day1 2)) (> d3 0)) (and (< (fix d4) (* day1 2)) (> d4 0)))
(command "fillet" l1 l2)
)
(setq k (1+ k))
)
(setq q (1+ q))
)
(command "change" ssml "" "p" "la" "tuong" "")
(dimtuong)
(setvar "clayer" old_layer)
(command "-layer" "on" "_tim" "")
(setvar "osmode" snap)
(setvar "highlight" hl)
(setvar "cmdecho" 1)
(command "undo" "e")
(command "trim" "" "e" "n" "")
)
;******************************************
(defun c:vt ()
(command "trim" "" "e" "e" "p" "n" "")
(command "undo" "be")
(setvar "cmdecho" 0)
(setq old_layer (getvar "clayer"))
(setq snap (getvar "osmode"))
(setvar "clayer" "tuong")
(setq dt (cond (dt) (220)))
(setq olddt dt)
(setq dt (getint (strcat "\nrong tuong <"(rtos olddt 2 1)"> : ")))
(if (null dt)
(setq dt olddt)
)
(setq pt1 (getpoint "\ndiem thu nhat:")
pt2 (getpoint "\ndiem thu hai:" pt1)
)
(setvar "osmode" 0)
(command "-layer" "off" "_tim" "")
(command "mline" "j" "z" "s" dt pt1 pt2 "")
(setq mll (entlast))
(command "trim" mll "" "f" pt1 pt2 "" "")
(command "explode" mll)
(setvar "osmode" snap)
(setvar "clayer" old_layer)
(command "-layer" "on" "_tim" "")
(setvar "cmdecho" 1)
(command "trim" "" "e" "n" "")
)
;*****************************************
(defun c:vc ()
(setvar "cmdecho" 0)
(setq old_layer (getvar "clayer"))
(setq snap (getvar "osmode"))
(setvar "clayer" "tuong")
(setq cua (cond (cua) (900)))
(setq oldcua cua)
(setq cua (getint (strcat "\nrong cua <"(rtos oldcua 2 1)"> : ")))
(if (null cua)
(setq cua oldcua)
)
(setq pc1 (getpoint "\ndiem thu nhat:")
pc2 (getpoint "\ndiem thu hai:" pc1)
ang (+ (angle pc1 pc2) (/ (* 90 pi) 180))
pc3 (polar pc1 ang (+ 110 (/ cua 2)))
pc4 (polar pc2 ang (+ 110 (/ cua 2)))
)
(setvar "osmode" 0)
(command "-layer" "off" "_tim" "")
(command "mline" "j" "z" "s" cua pc3 pc4 "")
(setq mll (entlast))
(command "trim" mll "" "f" pc3 pc4 "" "")
(command "explode" mll)
(setvar "osmode" snap)
(setvar "clayer" old_layer)
(command "-layer" "on" "_tim" "")
(setvar "cmdecho" 1)
)
;*****************************************
(defun dimtuong ()
(setq tbl (tblsearch "layer" "_dim"))
(if (= tbl nil) (command "-layer" "n" "_dim" "c" "8" "_dim" ""))
(setvar "clayer" "_dim")
(setq a 0)
(setq lpx nil)
(setq lpy nil)
(while (< a (length lp))
(setq px1 (car (car (nth a lp)))
py1 (cadr (car (nth a lp)))
px2 (car (cadr (nth a lp)))
py2 (cadr (cadr (nth a lp)))
)
(if (/= py1 py2)
(setq lpx (append (list px1) lpx))
)
(if (= py1 py2)
(setq lpy (append (list py1) lpy))
)
(setq a (1+ a))
)
(setq lpx (vl-sort lpx '<))
(setq lpy (vl-sort lpy '<))
(setq dc (- (last lpx) (car lpx)))
(setq pdi (list (car lpx) (- (car lpy) (/ dc 30)) 0))
(setq pdim (polar pdi pi (/ day 2)))
(setq pdim1 (polar pdi (/ (* pi 3) 2) (/ dc 15)))
(command "_dimlinear" pdi pdim pdim1)
(setq c 0)
(while (< (1+ c) (length lpx))
(setq y (cadr pdim)
x1 (nth c lpx)
x2 (nth (1+ c) lpx)
dd1 (list x1 y 0)
dd2 (list x2 y 0)
)
(command "_dimlinear" dd1 dd2 pdim1)
(setq c (1+ c))
)
(setq pcc (polar dd2 0 (/ day 2)))
(command "_dimlinear" dd2 pcc pdim1)
(command "_dimlinear" pdim pcc (polar pdim1 (/ (* pi 3) 2) (/ dc 40)))
)

Bạn cho mình hỏi code này sai ở chỗ nào mà nó báo lỗi (setq tldim (last (assoc 40 (tblsearch "dimstyle" "1")))). Mình có dim tên là 1 và muốn lấy overall scale của nó. mình dùng mã 140 lấy cao chũ cũng không được.

E lại test tiếp code của bác đây.Tình hình gặp phải là thế này ^^:
- Bác vẫn để getint,không có hỗ trợ set tỉ lệ bản vẽ vào,nên có lẽ dân kết cấu bọn e chỉ ứng dụng được khi dùng layout
- Cũng vì k tính đến tỉ lệ,nên xảy ra trường hợp là khi bề rộng tường quá nhỏ (khi vẽ với tỉ lệ khác,chẳng hạn 1:100 chẳng hạn,rồi bề rộng tường lấy à 300,thì khi nhập vào bề rộng tường là 3(nhỏ hơn 5)) thì lisp chạy sai.Hoặc là k trim,hoặc là không fillet
- Khi không có cạnh nào của trục song song với Ox thì dim bị vô hiệu
- Hàm thực hiện xong không trả osnap lại :(
- Với lại e chưa biết sự lợi hại của hàm vt và vc,vì lúc nào ecũng thấy nó vẽ ra 2 đường song song ^^
  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#1974 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5682 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 27 September 2010 - 11:53 AM

Các bác cho e hỏi cách lấy cross selection từ trái qua của 2 tọa độ góc.E định lấy tập hợp tất cả đối tượng trong 1 hình CN ấy mà.Chắc cái này chỉ cần quét 1 phát là được.Còn tương lai là e muốn chọn tất cả các tập hợp đối tượng trong 1 hình pl khép kín,hoặc tròn chẳng hạn.Dùng selection theo wpolygon được không ạ (các đối tượng này đã bị tách rời với bên ngoài bởi lệnh extrim).Với hình góc cạnh thì còn lấy được các điểm mút,chứ hình tròn thì :(..
Nếu được 1lsp mẫu thì tốt quá :">
PS : Tiện cho e hỏi ngoài lề 1 chút,là e nghịch ngợm option thế nào mà giờ chọn đối tượng nó không bị mờ mờ như nét đứt nữa nhỉ :|
  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#1975 phamngoctukts

phamngoctukts

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1107 Bài viết
Điểm đánh giá: 696 (tốt)

Đã gửi 27 September 2010 - 12:27 PM

PS : Tiện cho e hỏi ngoài lề 1 chút,là e nghịch ngợm option thế nào mà giờ chọn đối tượng nó không bị mờ mờ như nét đứt nữa nhỉ :|

Đó là do dùng code vẽ tường của mình. Vì mình chưa hoàn thiện nên chưa đặt hàm bẫy lỗi vào.
bạn dùng cái này thì nó sẽ như cũ (setvar "highlight" 1). Thế là biết thêm một biến hệ thống mới rồi nhé.
bs: để chọn các đối tượng trong một đa giác có các đỉnh p1 p2 p3 p4 ... pn. dùng (ssget "wp" p1 p2 p3 p4 ... pn) chuc bạn vui.
  • 2
Tất cả vì sự phát triển của diễn đàn ...
Cám ơn đừng nói lời suông mà hãy nhấn Hình đã gửi!

#1976 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5682 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 27 September 2010 - 12:39 PM

Á,thì ra là do biến này.E cứ tưởng là nó để hiện lên cái grid gờ rủng cơ ^^.Tks bác...E vẫn đang chờ ngày test tiếp bản mới code vẽ tường đấy ^^..
Select kia e sẽ tiến hành ngay đây.^^
  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#1977 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 27 September 2010 - 12:47 PM

Đó là do dùng code vẽ tường của mình. Vì mình chưa hoàn thiện nên chưa đặt hàm bẫy lỗi vào.
bạn dùng cái này thì nó sẽ như cũ (setvar "highlight" 1). Thế là biết thêm một biến hệ thống mới rồi nhé.
bs: để chọn các đối tượng trong một đa giác có các đỉnh p1 p2 p3 p4 ... pn. dùng (ssget "wp" p1 p2 p3 p4 ... pn) chuc bạn vui.

Viết như thế này là không đúng (ssget "wp" p1 p2 p3 p4)
Phải viết như thế này (ssget "wp" (list (p1 p2 p3 p4))
Với p1, p2, p3,p4 là đỉnh của đa giác chọn
  • 1

#1978 truongthanh

truongthanh

    biết lệnh text

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

Đã gửi 27 September 2010 - 02:14 PM

Chào các bạn!Nhờ các bạn viết dùm mình lisp có nội dung như sau với!
Chẳng là mình làm cấp thoát nước trong đó mình có thống kê đường kính bao nhiêu thì có tổng chiều dài là bao nhiêu!Giờ mình nhờ các bạn viết dùm mình với!Chi tiết các bạn xem trong bản vẽ dùm mình với!
Trình tự lisp như sau:
Gọi lệnh:
Lisp sẽ hỏi thống kê cấp nước hay thoát nước?
Giả sử mình chọn Cấp nước thì Lisp yêu cầu nhập loại đường kính cần thống kê
sau khi nhập xong lisp yêu cầu select object:
Quét chọn hết tất cả các Text trên màn hình thì sẽ ra kết quả tổng tổng chiều dài của đường kính mà mình mới nhập.
kết thúc lệnh chèn text kết quả ra màn hình (ví dụ:D300=100m)
Tương tự như vậy cho thoát nước
Trên đây chỉ là ý tưởng của em thôi, nếu các anh chị có thể cải tiến được là mình chỉ cần quét chọn hết tất cả các text trên màn hình sau đó pick ra màn hình thì nó sẽ hiện ra cái bảng với thông số từng loại D300=????, D400=????,...... thì quá tốt
Thật ra các text của cấp nước và thoát nước chỉ khác nhau ở chỗ là thoát nước có thêm độ dốc phía sau thôi!Còn mình quan tâm là quan tâm chiều dài.
Thanks các bạn nhiều!
http://www.cadviet.c...3/thongke_1.dwg
  • 0

#1979 tuananhlt02

tuananhlt02

    Chưa sử dụng CAD

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

Đã gửi 27 September 2010 - 02:59 PM

Chào anh Tú kts. Mấy hôm vừa rồi em phải lên Sơn La, ko vào theo dõi được. Giờ em đã đọc hết comment của mọi người.
Em phải công nhận một điều: anh rất giỏi, tuy vậy giờ em mới biết viết được 1 lisp khó khăn và phức tạp như thế nào. Nghe mọi người nói mà em chả hiểu mô tê gì cả, đối với em lisp là 1 kiến thức quá cao siêu. Cám ơn các anh đã nhiệt tình, ko ngại khó khăn mà viết lisp cho em và mọi người. Chúc diễn đàn mình luôn thành công và mạnh khỏe.
Cadviet là number one. Cám ơn tinh thần chia sẻ và nhiệt tình của cadviet. Em thấy cadviet là diễn đàn mở nhất hiện nay tại VN, và sau cadviet thì em thấy ketcau.com là trang hào phóng thứ 2. Hi hi.
PS : anh Tú bao nhiu tuổi rùi, anh có vợ chưa nhỉ. Chúc anh thành đạt nha. :(
  • 0

#1980 phamngoctukts

phamngoctukts

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1107 Bài viết
Điểm đánh giá: 696 (tốt)

Đã gửi 27 September 2010 - 03:57 PM

Chào anh Tú kts. Mấy hôm vừa rồi em phải lên Sơn La, ko vào theo dõi được. Giờ em đã đọc hết comment của mọi người.
Em phải công nhận một điều: anh rất giỏi, tuy vậy giờ em mới biết viết được 1 lisp khó khăn và phức tạp như thế nào. Nghe mọi người nói mà em chả hiểu mô tê gì cả, đối với em lisp là 1 kiến thức quá cao siêu. Cám ơn các anh đã nhiệt tình, ko ngại khó khăn mà viết lisp cho em và mọi người. Chúc diễn đàn mình luôn thành công và mạnh khỏe.
Cadviet là number one. Cám ơn tinh thần chia sẻ và nhiệt tình của cadviet. Em thấy cadviet là diễn đàn mở nhất hiện nay tại VN, và sau cadviet thì em thấy ketcau.com là trang hào phóng thứ 2. Hi hi.
PS : anh Tú bao nhiu tuổi rùi, anh có vợ chưa nhỉ. Chúc anh thành đạt nha. :(

Chào bạn tuananhlt02 trên diễn đàn còn rất nhiều người giỏi mình tự cảm thấy mình còn thua kém rất nhiều người bạn nói thế làm mình ngại quá. Lisp không khó như bạn tưởng đâu chỉ cần bạn có đam mê một chút thì học sẽ rất nhanh. Bạn cũng nên biết một chút về lisp để sử dụng các lisp trên diễn đàn được hiệu quả và phục vụ công việc được tốt hơn. Do mình là người giúp bạn viết code từ đầu nên các anh em khác không xen vào nhưng mình nghĩ nếu người khác viết sẽ còn nhanh hơn mình nhiều. Hiện nay mình vẫn đang phát triển code vetuong đó lên cao hơn (tự động dim các trục, tự động chèn kí hiệu trục). Nếu bạn có hứng thú thì tiếp tục theo dõi.
  • 0
Tất cả vì sự phát triển của diễn đàn ...
Cám ơn đừng nói lời suông mà hãy nhấn Hình đã gửi!