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

namgiangduy89

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

  • Số lượng nội dung

    57

  • Đã tham gia

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

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

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

    Xem qua code thì thấy quá dài, muốn kiểm tra thì quá oải . Bài ở mục   #9

    không biết bạn đã down về chưa mà cứ đòi Help hoài :) . Ở bài trướ đó thì

    (initget "Cad Excel cadAndexcel")

    (setq key (NGT key "Cad" getkword "Enter an option [Cad/Excel/cad_And_excel]"))

    nên không nhận ra cadAndexcel thì đúng rồi. Nhưng bài ở mục 9 thì đã sửa :

    (initget "Cad Excel cadAndexcel")

    (setq key (NGT key "Cad" getkword "Enter an option [Cad/Excel/cadAndexcel]"))

    Chắc down nhiều quá nên lẫn lộn chăng :D

    ok, thanks bạn nhé

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

    Hi vọng bạn đã hài lòng với code này.

    - Cho phép lựa chọn ghi tên điểm tọa độ tự động (giống lisp trước) hay thủ công (Pick chuột vào text có sẵn - tên cọc trên tuyến chẳng hạn)

    - Cho phép ghi text tọa độ theo một góc xiên bất kỳ

    - Cho phép lựa chọn có xuất bảng tọa độ hay không.

     

    (prompt"\n[cmd : TDN] - THONG KE TOA DO by Thaistreetz - huuthais@yahoo.com\n")
----------------------------------------------
(defun C:tdn ()
(setvar "cmdecho" 0 )
(command "Undo" "Begin")
(setq om (getvar "osmode"))
(if (not h) (setq h 1))
(setq caot1 (getreal (strcat "\nCao text < " (rtos h 2 2) " >:")))
(if caot1 (setq h caot1))
(setq tapx '() tapy '() stt '())

(setq bit1 (cond (bit1) ("Yes")))
(initget "Yes No")
(setq Tmp1 (strcat "\nTu dong ghi ten nut? [Yes/No] <" bit1 ">: ")
bit1 (cond ((getkword Tmp1)) (bit1)))
(if (eq bit1 "Yes")
(progn
(setq ten (getstring "\nTen Nut:"))
(if (not i) (setq i 1))
(setq i1 (getreal (strcat"\nSTT cua nut bat dau < " (rtos i 2 0) " >: ")))
(if i1 (setq i i1))

(setvar "osmode" 125)
(setq lacol (getvar "CEColor") k (- i 1))
(While
(setq D1 (getpoint (strcat"\nPick diem thu "(rtos (+ k 1) 2 0)"")))
(Progn
(setvar "osmode" 0)
(setq DX (getpoint (strcat"\nDiem dat text thu "(rtos (+ k 1) 2 0)"") D1)
DY (getpoint (strcat"\nHuong goc nghieng cua text "(rtos (+ k 1) 2 0)"") Dx)
angr (angle Dx Dy)
angd (/ (* 180 angr) pi)
x (rtos (car D1) 2 4)
y (rtos (cadr D1) 2 4)
TX (strcat "X:"(rtos (Car D1) 2 4))
TY (strcat "Y:"(rtos (Cadr D1) 2 4))
tapx (append tapx (list x))
tapy (append tapy (list y))
k (+ 1 k)
N (strcat ten (rtos k 2 0))
stt (append stt (list N))
);setq
(if (>= (car DY) (car DX))
(progn
(setq D2 (polar Dx angr (* 0.7 h)))
(command "text" "BL" D2 h angd tX)
(setq TB (textbox (entget(entlast)))
LC (car TB)
RC (cadr TB)
di (distance LC RC)
PT3 (polar D2 angr (+ di (* 0.4 h)))
pt4 (polar D2 (- angr (* pi 0.5)) (* 1.35 h))
pt5 (polar pt4 angr di)
C (polar PT3 0 (* 1.5 h))
);setq
(command "text" "F" PT4 PT5 h ty
"pline" D1 DX PT3 ""
"circle" (polar PT3 angr (* 1.5 h)) (* 1.5 h)
"text" "m" (polar PT3 angr (* 1.5 h)) h angd N
"CECOLOR" 8
"circle" (polar PT3 angr (* 1.5 h)) (* 1.35 h)
);command
(setvar "CECOLOR" lacol)
);progn
);if
(if (< (car DY) (car DX))
(progn
(setq D2 (polar Dx angr (* 0.7 h)))
(command "text" "BR" D2 h (+ angd 180) tx)
(setq TB (textbox (entget(entlast)))
LC (car TB)
RC (cadr TB)
di (distance LC RC)
PT3 (polar D2 angr (+ di (* 0.4 h)))
pt4 (polar D2 (+ angr (* pi 0.5)) (* 1.35 h))
pt5 (polar pt4 angr di)
C (polar PT3 0 (* 1.5 h))
);setq
(command "text" "F" PT5 PT4 h TY
"pline" D1 DX PT3 ""
"circle" (polar PT3 angr (* 1.5 h)) (* 1.5 h)
"text" "m" (polar PT3 angr (* 1.5 h)) h (+ angd 180) N
"CECOLOR" 8
"circle" (polar PT3 angr (* 1.5 h)) (* 1.35 h)
);command
(setvar "CECOLOR" lacol)
);progn
);if
);progn
(setvar "osmode" 125)
);while
(setq i (+ k 1))
);progn
);if
(if (eq bit1 "No")
(progn
(setvar "osmode" 125)
(setq lacol (getvar "CEColor") i 1 k (- i 1))
(While
(setq D1 (getpoint (strcat"\nPick diem thu "(rtos (+ k 1) 2 0)"")))
(Progn
(setvar "osmode" om)
(progn
(setq LOOP T)
(while (= LOOP T)
(while (null (setq ten (nentsel "\nChon mot text lam ten nut: ")))
(princ "\nChua tim thay doi tuong la text, chon lai !"));while
(setq Source_text (entget (car ten)))
(if (or (= (cdr (assoc '0 Source_text)) "TEXT")
(= (cdr (assoc '0 Source_text)) "MTEXT")
(= (cdr (assoc '0 Source_text)) "ATTRIB"));or
(progn
(setq N (cdr (assoc 1 Source_text)))
(setq LOOP nil));progn
(progn
(princ "Phai chon mot text lam ten nut !")
(setq LOOP T));progn
)if
);while
);progn
(setvar "osmode" 0)
(setq DX (getpoint (strcat"\nDiem dat text cua nut "N"") D1)
DY (getpoint (strcat"\nHuong goc nghieng cua text") Dx)
angr (angle Dx Dy))
(setq angd (/ (* 180 angr) pi)
x (rtos (car D1) 2 4)
y (rtos (cadr D1) 2 4)
TX (strcat "X:"(rtos (Car D1) 2 4))
TY (strcat "Y:"(rtos (Cadr D1) 2 4))
tapx (append tapx (list x))
tapy (append tapy (list y))
k (+ 1 k)
stt (append stt (list N))
);setq
(if (>= (car DY) (car DX))
(progn
(setq D2 (polar Dx angr (* 0.7 h)))
(command "text" "BL" D2 h angd tX)
(setq TB (textbox (entget(entlast)))
LC (car TB)
RC (cadr TB)
di (distance LC RC)
PT3 (polar D2 angr (+ di (* 0.4 h)))
pt4 (polar D2 (- angr (* pi 0.5)) (* 1.35 h))
pt5 (polar pt4 angr di)
C (polar PT3 0 (* 1.5 h))
);setq
(command "text" "F" PT4 PT5 h ty
"pline" D1 DX PT3 ""
"circle" (polar PT3 angr (* 1.5 h)) (* 1.5 h)
"text" "m" (polar PT3 angr (* 1.5 h)) h angd N
"CECOLOR" 8
"circle" (polar PT3 angr (* 1.5 h)) (* 1.35 h)
);command
(setvar "CECOLOR" lacol)
);progn
);if
(if (< (car DY) (car DX))
(progn
(setq D2 (polar Dx angr (* 0.7 h)))
(command "text" "BR" D2 h (+ angd 180) tx)
(setq TB (textbox (entget(entlast)))
LC (car TB)
RC (cadr TB)
di (distance LC RC)
PT3 (polar D2 angr (+ di (* 0.4 h)))
pt4 (polar D2 (+ angr (* pi 0.5)) (* 1.35 h))
pt5 (polar pt4 angr di)
C (polar PT3 0 (* 1.5 h))
);setq
(command "text" "F" PT5 PT4 h TY
"pline" D1 DX PT3 ""
"circle" (polar PT3 angr (* 1.5 h)) (* 1.5 h)
"text" "m" (polar PT3 angr (* 1.5 h)) h (+ angd 180) N
"CECOLOR" 8
"circle" (polar PT3 angr (* 1.5 h)) (* 1.35 h)
);command
(setvar "CECOLOR" lacol)
);progn
);if
);progn
(setvar "osmode" 125)
);while
(setq i (+ k 1))
);progn
);if
(setq bit (cond (bit) ("Yes")))
(initget "Yes No")
(setq Tmp (strcat "\nXuât Bang Toa Ðô? [Yes/No] <" bit ">: ")
bit (cond ((getkword Tmp)) (bit)))
(if (eq bit "Yes")
(progn
(setq di (- di (* 0.4 h))
kc (* 2 di)
PT (getpoint"\nVi tri dat bang")
PTC (list (+ (* 2 kc) (- di h h h h) (car PT)) (cadr PT))
p1 (list (car PT) (+ (cadr PT)(* 2 h)))
p2 (list (car PTC) (+ (cadr PTC)(* 2 h)))
p3 (list (car p1) (+ (cadr p1)(* 2 h)))
p4 (list (car p2) (+ (cadr p2)(* 2 h)))
PTD (list (+ (/ di 2) (car PT)) (+ h (cadr PT)))
PTX (list (+ di (/ di 2) (- 0 h) (car PTD)) (cadr PTD))
PTY (list (+ kc (- h h h h) (car PTX)) (cadr PTX))
p11 (list (+ (/ di 2) (car p1)) (+ (* 1.1 h) (cadr p1)))
p22 (list (+ di (/ di 2) (- 0 h) (car p11)) (- (cadr p11) (* 0.1 h)))
p33 (list (+ kc (- h h h h) (car p22)) (cadr p22))
L1 (list (+ di (car p3))(cadr p3))
L2 (list (+ kc (- 0 h h)(car L1))(cadr L1))
PTB (list (+ (- (* 2 h)) (* 0.5 (+ (* 2 kc) di)) (car PT)) (+ (cadr P3) (* 1.8 h)))
n (length tapx)
k 0
);setq
(setvar "osmode" 0)
(command "CECOLOR" 3 "line" p1 p2 "" "line" p3 p4 "" "CECOLOR" 2
"text" "m" p11 h 0 "Tªn Nót"
"text" "m" p22 h 0 "Täa ®é X"
"text" "m" p33 h 0 "Täa ®é Y"
"text" "m" pTB (* 1.3 h) 0 "%¶ng thèng kª täa ®é nót")
(while (< k n)
(setq xx (nth k tapx) yy (nth k tapy) tstt(nth k stt))
(command "CECOLOR" 2
"text" "m" PTD h 0 tstt
"text" "m" PTX h 0 xx
"text" "m" PTY h 0 yy
"CECOLOR" 3
"line" PT PTC "")
(setq PT (list (car PT) (- (cadr PT)(* 2 h)))
PTC (list (+ (* 2 kc) (- di h h h h) (car PT)) (cadr PT))
PTD (list (+ (/ di 2) (car PT)) (+ h (cadr PT)))
PTX (list (+ di (/ di 2) (- 0 h) (car PTD)) (cadr PTD))
PTY (list (+ kc (- h h h h) (car PTX)) (cadr PTX))
k (+ 1 k));setq
);while
(if (= k n)
(setq PT (list (car PT) (+ (cadr PT)(* 2 h)))
PTC (list (+ (* 2 kc) (- di h h h h) (car PT)) (cadr PT))
L11 (list (+ di (car PT))(cadr PT))
L22 (list (+ kc (- 0 h h) (car L11))(cadr L11))
);setq
);if
(command "CECOLOR" 3
"line" p3 PT ""
"line" p4 PTC ""
"line" L1 L11 ""
"line" L2 L22 "")
);progn
);if
(setvar "CECOLOR" lacol)
(setvar "osmode" om)
(prompt"\n[TDN - THONG KE TOA DO] by Thaistreetz - huuthais@yahoo.com\n")
(command "Undo" "End")
(setvar "cmdecho" 1)
(princ)
);DONG toa do

     

    Anh bổ sung dùm em vòng tròn hiện ra khi pick điểm với.thanks

    • Vote giảm 2

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

    em có lisp này của anh duy cung khá hay, mà lại thao tác it hơn, anh chỉnh lại dùm em vơi. cho y nằm dưới đường line và thêm cái vong tron cho em với, cái lisp anh cho phía sau không co số thập phân.

    (Defun c:xtd ( )
    (setq lc (strcase (getstring "\nBan co muon chon diem toa do gia dinh khong: Co/Khong: ")))

    (if (= lc "C")
    (progn
    (setq a (getpoint "\nChon diem gia dinh: "))
    (setq ax (dnint "\nToa do X gia dinh "ax1))
    (setq ax1 ax)
    (setq ay (dnint "\nToa do Y gia dinh "ay1))
    (setq ay1 ay)

    (princ "\nPHAM QUOC DUY Binh Son - Quang ngai")
    (command "-style" "thep" "VNI-HELVE" "0" "1" "0" "n" "n")
    (if (null met)(setq met 1))
    (Setq temp T)
    (While temp
    (setq b (strcat "\nTi le /: "))
    (Initget "t T")
    (setq str (getpoint b))
    (Cond
    ((= str "t") (setq met (dnint "\nMot met ban ve la bao nhieu "momet)))
    ((= str "T") (setq met (dnint "\nMot met ban ve la bao nhieu "momet)))
    (Progn
    (Setq b str)
    (setq momet met)
    (setq temp nil)
    )
    )
    )
    (setq c (getpoint b"\nChon diem viet ket qua: "))
    (setq luubatdiem (getvar "osmode")) (setq luulop (getvar "clayer"))
    (setvar "osmode" 0)
    (setq x (/ (car b) met))
    (setq y (/ (cadr b) met))

    (setq xg (/ (car a) met))
    (setq yg (/ (cadr a) met))
    (setq kx (- x xg))
    (setq ky (- y yg))
    (setq xm (+ kx ax))
    (setq ym (+ ky ay))

    (setq toadox (rtos xm 2 3))
    (setq toadoy (rtos ym 2 3))
    (setq noidungviet (strcat toadox "\\P" toadoy))
    (command ".LEADER" b c "" noidungviet "")


    (setvar "osmode" luubatdiem) (setvar "clayer" luulop)
    (setvar "MODEMACRO" "**TAILIEUKYTHUAT.COM**")
    (while
    (setq b (getpoint "\nChon diem muon xem toa do : "))

    (setq c (getpoint b"\nChon diem viet ket qua: "))
    (setq luubatdiem (getvar "osmode")) (setq luulop (getvar "clayer"))
    (setvar "osmode" 0)
    (setq x (/ (car b) met))
    (setq y (/ (cadr b) met))
    (setq xg (/ (car a) met))
    (setq yg (/ (cadr a) met))
    (setq kx (- x xg))
    (setq ky (- y yg))
    (setq xm (+ kx ax))
    (setq ym (+ ky ay))

    (setq toadox (rtos xm 2 3))
    (setq toadoy (rtos ym 2 3))
    (setq noidungviet (strcat toadox "\\P" toadoy))
    (command ".LEADER" b c "" noidungviet "")


    (setvar "osmode" luubatdiem) (setvar "clayer" luulop)


    )


    )
    )


    (if (= lc "K")
    (progn
    (princ "\nPHAM QUOC DUY Binh Son - Quang ngai")
    (command "-style" "thep" "VNI-HELVE" "0" "1" "0" "n" "n")
    (if (null met)(setq met 1))
    (Setq temp T)
    (While temp
    (setq b (strcat "\nTi le /: "))
    (Initget "t T")
    (setq str (getpoint b))
    (Cond
    ((= str "t") (setq met (dnint "\nMot met ban ve la bao nhieu "momet)))
    ((= str "T") (setq met (dnint "\nMot met ban ve la bao nhieu "momet)))
    (Progn
    (Setq b str)
    (setq momet met)
    (setq temp nil)
    )
    )
    )
    (setq c (getpoint b"\nChon diem viet ket qua: "))
    (setq luubatdiem (getvar "osmode")) (setq luulop (getvar "clayer"))
    (setvar "osmode" 0)
    (setq x (/ (car b) met))
    (setq y (/ (cadr b) met))

    (setq toadox (rtos x 2 3))
    (setq toadoy (rtos y 2 3))
    (setq noidungviet (strcat toadox "\\P" toadoy))
    (command ".LEADER" b c "" noidungviet "")

    (setvar "osmode" luubatdiem) (setvar "clayer" luulop)


    (setvar "MODEMACRO" "**TAILIEUKYTHUAT.COM**")
    (while
    (setq b (getpoint "\nChon diem muon xem toa do : "))
    (setq x (/ (car b) met))
    (setq y (/ (cadr b) met))
    (setq c (getpoint b"\nChon diem viet ket qua: "))
    (setq luubatdiem (getvar "osmode")) (setq luulop (getvar "clayer"))
    (setvar "osmode" 0)
    (setq toadox (rtos x 2 3))
    (setq toadoy (rtos y 2 3))
    (setq noidungviet (strcat toadox "\\P" toadoy))
    (command ".LEADER" b c "" noidungviet "")

    (setvar "osmode" luubatdiem) (setvar "clayer" luulop)


    )


    )
    )





    (setvar "MODEMACRO" "**TAILIEUKYTHUAT.COM**")
    (Princ)
    )


    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

    (Defun c:lkd ( )
    (setq lc (strcase (getstring "\nBan co muon chon diem toa do gia dinh khong: Co/Khong: ")))

    (if (= lc "C")
    (progn
    (setq a (getpoint "\nChon diem gia dinh: "))
    (setq ax (dnint "\nToa do X gia dinh "ax1))
    (setq ax1 ax)
    (setq ay (dnint "\nToa do Y gia dinh "ay1))
    (setq ay1 ay)

    (princ "\nPHAM QUOC DUY Binh Son - Quang ngai")
    (command "-style" "thep" "VNI-HELVE" "0" "1" "0" "n" "n")
    (if (null met)(setq met 1))
    (Setq temp T)
    (While temp
    (setq b (strcat "\nTi le /: "))
    (Initget "t T")
    (setq str (getpoint b))
    (Cond
    ((= str "t") (setq met (dnint "\nMot met ban ve la bao nhieu "momet)))
    ((= str "T") (setq met (dnint "\nMot met ban ve la bao nhieu "momet)))
    (Progn
    (Setq b str)
    (setq momet met)
    (setq temp nil)
    )
    )
    )
    (setq luubatdiem (getvar "osmode")) (setq luulop (getvar "clayer"))
    (setvar "osmode" 0)
    (setq x (/ (car b) met))
    (setq y (/ (cadr b) met))

    (setq xg (/ (car a) met))
    (setq yg (/ (cadr a) met))
    (setq kx (- x xg))
    (setq ky (- y yg))
    (setq xm (+ kx ax))
    (setq ym (+ ky ay))


    (command "INSERT" (strcat odiachay "\\tienich\\dwg\\nhap") (list (car b)(cadr b)) 1 1 0)
    (setq xht (getreal "\nSo thu tu cua nut : "))
    (setq xh (- xht 1))
    (setq nx (* 8 xh))
    (setq sb (/ xh 10))
    (setq sbn (* 100 (fix sb)))
    (setq snl (- xh (fix sb)))
    (setq nl (- nx (* 80 (fix sb))))

    (setq CHIAM (/ XHT 10))
    (setq LAMCHAN (fix CHIAM))
    (setq NHANM (* LAMCHAN 10))
    (setq tenkc (- XHT NHANM))
    (setq tenkcn (* TENKC 100))
    (setq TENKCM (fix TENKCN))

    (Cond
    ((= TENKCM 100) (command "INSERT" (strcat odiachay "\\tienich\\dwg\\tdbdiem") (list (- sbn 14) (- 6 nl)) 1 1 0)
    )
    ((/= TENKCM 100)
    )
    )

    (command "TEXT" (list (+ 0 sbn) (- 0 nl)) 4 0 (rtos xm 2 4))
    (command "TEXT" (list (+ 42 sbn) (- 0 nl)) 4 0 (rtos ym 2 4))
    (command "TEXT" (list (- sbn 10) (- 0 nl)) 4 0 (fix xht))
    (command "LINE" (list (- sbn 14) (- (- 6 nl) 8))(list (+ sbn 80) (- (- 6 nl) 8)) "")
    (command "LINE" (list (- sbn 14) (- 6 nl))(list (- sbn 14)(- (- 6 nl) 8)) "")
    (command "LINE" (list (+ (- sbn 14) 12) (- 6 nl))(list (+ (- sbn 14) 12)(- (- 6 nl) 8)) "")
    (command "LINE" (list (+ (- sbn 14) 53) (- 6 nl))(list (+ (- sbn 14) 53)(- (- 6 nl) 8)) "")
    (command "LINE" (list (+ (- sbn 14) 94) (- 6 nl))(list (+ (- sbn 14) 94)(- (- 6 nl) 8)) "")
    (setvar "osmode" luubatdiem) (setvar "clayer" luulop)


    (setvar "MODEMACRO" "**TAILIEUKYTHUAT.COM**")
    (while
    (setq b (getpoint "\nChon diem muon xem toa do : "))

    (setq x (/ (car b) met))
    (setq y (/ (cadr b) met))
    (setq xg (/ (car a) met))
    (setq yg (/ (cadr a) met))
    (setq kx (- x xg))
    (setq ky (- y yg))
    (setq xm (+ kx ax))
    (setq ym (+ ky ay))

    (setq luubatdiem (getvar "osmode")) (setq luulop (getvar "clayer"))
    (setvar "MODEMACRO" "LIET KE TOA DO TAI DIEM 0-0")
    (setvar "osmode" 0)
    (command "INSERT" (strcat odiachay "\\tienich\\dwg\\nhap") (list (car b)(cadr b)) 1 1 0)
    (setq xht (getreal "\nSo thu tu cua nut : "))
    (setq xh (- xht 1))
    (setq nx (* 8 xh))
    (setq sb (/ xh 10))
    (setq sbn (* 100 (fix sb)))
    (setq snl (- xh (fix sb)))
    (setq nl (- nx (* 80 (fix sb))))

    (setq CHIAM (/ XHT 10))
    (setq LAMCHAN (fix CHIAM))
    (setq NHANM (* LAMCHAN 10))
    (setq tenkc (- XHT NHANM))
    (setq tenkcn (* TENKC 100))
    (setq TENKCM (fix TENKCN))

    (Cond
    ((= TENKCM 100) (command "INSERT" (strcat odiachay "\\tienich\\dwg\\tdbdiem") (list (- sbn 14) (- 6 nl)) 1 1 0)
    )
    ((/= TENKCM 100)
    )
    )

    (command "TEXT" (list (+ 0 sbn) (- 0 nl)) 4 0 (rtos xm 2 4))
    (command "TEXT" (list (+ 42 sbn) (- 0 nl)) 4 0 (rtos ym 2 4))
    (command "TEXT" (list (- sbn 10) (- 0 nl)) 4 0 (fix xht))
    (command "LINE" (list (- sbn 14) (- (- 6 nl) 8))(list (+ sbn 80) (- (- 6 nl) 8)) "")
    (command "LINE" (list (- sbn 14) (- 6 nl))(list (- sbn 14)(- (- 6 nl) 8)) "")
    (command "LINE" (list (+ (- sbn 14) 12) (- 6 nl))(list (+ (- sbn 14) 12)(- (- 6 nl) 8)) "")
    (command "LINE" (list (+ (- sbn 14) 53) (- 6 nl))(list (+ (- sbn 14) 53)(- (- 6 nl) 8)) "")
    (command "LINE" (list (+ (- sbn 14) 94) (- 6 nl))(list (+ (- sbn 14) 94)(- (- 6 nl) 8)) "")
    (setvar "osmode" luubatdiem) (setvar "clayer" luulop)


    )


    )
    )


    (if (= lc "K")
    (progn
    (princ "\nPHAM QUOC DUY Binh Son - Quang ngai")
    (command "-style" "thep" "VNI-HELVE" "0" "1" "0" "n" "n")
    (if (null met)(setq met 1))
    (Setq temp T)
    (While temp
    (setq b (strcat "\nTi le /: "))
    (Initget "t T")
    (setq str (getpoint b))
    (Cond
    ((= str "t") (setq met (dnint "\nMot met ban ve la bao nhieu "momet)))
    ((= str "T") (setq met (dnint "\nMot met ban ve la bao nhieu "momet)))
    (Progn
    (Setq b str)
    (setq momet met)
    (setq temp nil)
    )
    )
    )
    (setq luubatdiem (getvar "osmode")) (setq luulop (getvar "clayer"))
    (setvar "osmode" 0)
    (setq x (/ (car b) met))
    (setq y (/ (cadr b) met))
    (command "INSERT" "C:\\tailieukythuat\\dwg\\nhap" (list (car b)(cadr b)) 1 1 0)
    (setq xht (getreal "\nSo thu tu cua nut : "))
    (setq xh (- xht 1))
    (setq nx (* 8 xh))
    (setq sb (/ xh 10))
    (setq sbn (* 100 (fix sb)))
    (setq snl (- xh (fix sb)))
    (setq nl (- nx (* 80 (fix sb))))

    (setq CHIAM (/ XHT 10))
    (setq LAMCHAN (fix CHIAM))
    (setq NHANM (* LAMCHAN 10))
    (setq tenkc (- XHT NHANM))
    (setq tenkcn (* TENKC 100))
    (setq TENKCM (fix TENKCN))

    (Cond
    ((= TENKCM 100) (command "INSERT" "C:\\tailieukythuat\\dwg\\tdbdiem" (list (- sbn 14) (- 6 nl)) 1 1 0)
    )
    ((/= TENKCM 100)
    )
    )

    (command "TEXT" (list (+ 0 sbn) (- 0 nl)) 4 0 (rtos x 2 4))
    (command "TEXT" (list (+ 42 sbn) (- 0 nl)) 4 0 (rtos y 2 4))
    (command "TEXT" (list (- sbn 10) (- 0 nl)) 4 0 (fix xht))
    (command "LINE" (list (- sbn 14) (- (- 6 nl) 8))(list (+ sbn 80) (- (- 6 nl) 8)) "")
    (command "LINE" (list (- sbn 14) (- 6 nl))(list (- sbn 14)(- (- 6 nl) 8)) "")
    (command "LINE" (list (+ (- sbn 14) 12) (- 6 nl))(list (+ (- sbn 14) 12)(- (- 6 nl) 8)) "")
    (command "LINE" (list (+ (- sbn 14) 53) (- 6 nl))(list (+ (- sbn 14) 53)(- (- 6 nl) 8)) "")
    (command "LINE" (list (+ (- sbn 14) 94) (- 6 nl))(list (+ (- sbn 14) 94)(- (- 6 nl) 8)) "")
    (setvar "osmode" luubatdiem) (setvar "clayer" luulop)


    (setvar "MODEMACRO" "**TAILIEUKYTHUAT.COM**")
    (while
    (setq b (getpoint "\nChon diem muon xem toa do : "))
    (setq x (/ (car b) met))
    (setq y (/ (cadr b) met))
    (setq luubatdiem (getvar "osmode")) (setq luulop (getvar "clayer"))
    (setvar "MODEMACRO" "LIET KE TOA DO TAI DIEM 0-0")
    (setvar "osmode" 0)
    (command "INSERT" "C:\\tailieukythuat\\dwg\\nhap" (list (car b)(cadr b)) 1 1 0)
    (setq xht (getreal "\nSo thu tu cua nut : "))
    (setq xh (- xht 1))
    (setq nx (* 8 xh))
    (setq sb (/ xh 10))
    (setq sbn (* 100 (fix sb)))
    (setq snl (- xh (fix sb)))
    (setq nl (- nx (* 80 (fix sb))))

    (setq CHIAM (/ XHT 10))
    (setq LAMCHAN (fix CHIAM))
    (setq NHANM (* LAMCHAN 10))
    (setq tenkc (- XHT NHANM))
    (setq tenkcn (* TENKC 100))
    (setq TENKCM (fix TENKCN))

    (Cond
    ((= TENKCM 100) (command "INSERT" "C:\\tailieukythuat\\dwg\\tdbdiem" (list (- sbn 14) (- 6 nl)) 1 1 0)
    )
    ((/= TENKCM 100)
    )
    )

    (command "TEXT" (list (+ 0 sbn) (- 0 nl)) 4 0 (rtos x 2 4))
    (command "TEXT" (list (+ 42 sbn) (- 0 nl)) 4 0 (rtos y 2 4))
    (command "TEXT" (list (- sbn 10) (- 0 nl)) 4 0 (fix xht))
    (command "LINE" (list (- sbn 14) (- (- 6 nl) 8))(list (+ sbn 80) (- (- 6 nl) 8)) "")
    (command "LINE" (list (- sbn 14) (- 6 nl))(list (- sbn 14)(- (- 6 nl) 8)) "")
    (command "LINE" (list (+ (- sbn 14) 12) (- 6 nl))(list (+ (- sbn 14) 12)(- (- 6 nl) 8)) "")
    (command "LINE" (list (+ (- sbn 14) 53) (- 6 nl))(list (+ (- sbn 14) 53)(- (- 6 nl) 8)) "")
    (command "LINE" (list (+ (- sbn 14) 94) (- 6 nl))(list (+ (- sbn 14) 94)(- (- 6 nl) 8)) "")
    (setvar "osmode" luubatdiem) (setvar "clayer" luulop)


    )


    )
    )





    (setvar "MODEMACRO" "**TAILIEUKYTHUAT.COM**")
    (Princ)
    )

    ;---------------------------------------
    (defun nstr (stri def)
    (princ stri)
    (princ "<")
    (princ " ")
    (princ def)
    (princ ">")
    (princ ":")
    (princ " ")
    );defun nstr
    ;--------------------
    (defun nstr1 (stri)
    (princ stri)
    (princ "<")
    (princ "Nhap vao")
    (princ ">")
    (princ ":")
    (princ " ")
    );defun nstr1
    ;---------------------
    (defun nint (prompt def / temp)
    (if def
    (setq temp (getint (nstr prompt def)))
    (setq def (getint (nstr1 prompt)))
    );if def
    (if temp
    (setq def temp)
    def
    );if temp
    );defun nint
    ;---------------------
    (defun dnint (prompt def / temp)
    (if def
    (setq temp (getreal (nstr prompt def)))
    (setq def (getreal (nstr1 prompt)))
    );if def
    (if temp
    (setq def temp)
    def
    );if temp
    );defun nint
    ;--------------------
    (defun ndist (po prompt def / temp) ;nhan kh/cach va luu gia tri mac dinh
    (if def
    (setq temp (getdist po (nstr prompt def)))
    (setq def (getdist po (nstr1 prompt)))
    )if def
    (if temp
    (setq def temp)
    def
    );if temp
    );defun ndist
    • Vote giảm 1
×