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

whatcholingon

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

  • Số lượng nội dung

    222

  • Đã tham gia

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

  • Ngày trúng

    6

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

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

    Các bác giúp e với, e xem video hướng dẫn làm y hệt như hướng dẫn, nhưng đường đồng mức của e ở phần rìa lại dày như thế này ạ

    3241.jpg

    8952.jpg

    Còn hình trong hướng dẫn được như thế này ạ

    1643.png

    PS: E làm trên Cad 2005 và Nova TDN R16 ạ. Còn trong clip hướng dẫn thì là Cad 2002, liệu có phải do bản cad không ạ?

     

    Các bác giúp e với, e xem video hướng dẫn làm y hệt như hướng dẫn, nhưng đường đồng mức của e ở phần rìa lại dày như thế này ạ

    3241.jpg

    8952.jpg

    Còn hình trong hướng dẫn được như thế này ạ

    1643.png

    PS: E làm trên Cad 2005 và Nova TDN R16 ạ. Còn trong clip hướng dẫn thì là Cad 2002, liệu có phải do bản cad không ạ?

    Cái này chắc do bạn để cao độ MIN=0 nên nó dày vậy.

    • Vote tăng 1

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

    Hôm nay đang làm cad thì vô tình biết được mẹo này (mà mình cũng không biết có phải là mẹo ko nữa) và cũng ko biết được nói trên diễn đàn chưa:

    mẹo như sau:

    Khi đang vẽ thực hiện 1 số lệnh như L,Pl Copy, Move ... mình muốn bặt tắt chế độ "Ortho" thay vì nhấn (F8) thì mình nhấn " Shift"

    Từ cad 2007 trở đi mới có chức năng này.

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

    Tên lệnh: THS.

    (defun c:ths (/ Ename Elist Msg Oldtext Oldlist Newtext Newlist)
(command "undo" "be")
(setq donvi (/ (getvar "viewsize") 40))
(setq ddd (entsel "\nChon text bi tru"))
(while
(or
  (null ddd)
  (/= "TEXT" (cdr (assoc 0 (entget (car ddd)))))
)
(princ "\nDoi tuong khong phai la text! Chon lai")
(setq ddd (entsel "\nChon text bi tru"))
)

 (setq DTDTT (car ddd))
 (setq DTTT (entget DTDTT))
 (setq NDTTT (cdr (assoc 1 DTTT)))
 (setq NDTTT (atof NDTTT))
 (setq DIEMVIETTEXT (cdr (assoc 10 DTTT)))
(setq diemvt1 (polar DIEMVIETTEXT pi donvi))
(setq diemvt2 (polar DIEMVIETTEXT (* 2 pi) donvi))
(setq diemvt3 (polar DIEMVIETTEXT (/ pi 2) donvi))
(setq diemvt4 (polar DIEMVIETTEXT (- 0 (/ pi 2)) donvi))
       	(grdraw diemvt1 diemvt2 3)
       	(grdraw diemvt3 diemvt4 3)
(if (= droffln nil)
(setq droffln1 2.00)
(setq droffln1 droffln)
)
(setq
droffln (GETREAL (strcat "\nNhap hang so tru: <" (rtos droffln1 2 2) ">"))
)
(if (= droffln nil)
(setq droffln droffln1)
)

(setq ketquaxuat (- NDTTT droffln))
(setq ketquaxuat (rtos ketquaxuat 2 2))
(setq dddsn (entsel "\nChon text xuat ket qua"))
(while
(or
  (null dddsn)
  (/= "TEXT" (cdr (assoc 0 (entget (car dddsn)))))
)
(princ "\nDoi tuong khong phai la text! Chon lai")
(setq dddsn (entsel "\nChon text tru"))
)

  		(setq DTDTTsn (car dddsn))
  		(setq DTMs (entget DTDTTsn))
  		(setq DTMs (subst (cons 1 ketquaxuat) (assoc 1 DTMs) DTMs))
  		(entmod DTMs)

(command "undo" "end")
 	(Princ))

    Nhờ mọi người sửa giúp mình bổ sung cho Lisp trên thêm cộng, nhân, chia, với. (hiện tại chỉ có trừ thôi).

    Thanks!

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

    Mình hiện tại đang dùng phần mềm nova va topo .

    mình chỉ biết chạy tuyến trên 2 phần mêm này thui.còn những cái khác mình chưa biết

    Mình vào Google tìm thì thấy nhiều phần mềm tính san nền. nên chẳng biết thằng nào thông dụng và dễ học cả..

    bạn thấy phần mềm nào hay sài và đưa ra số liệu đúng quy trình thì bạn chỉ mình:

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

    Còn mình thì tìm được cái lsp này khi nào mà ghi chú nhiều thì cứ gõ lệnh là nó đẻ ra:

    (defun C:lua()
	(setvar "osmode" 0)
(setvar "cmdecho" 0)
	(if (null (tblsearch "layer" "B-ghichu"))
       	(command "_layer" "n" "B-ghichu" ""))
      	(command "_layer" "c" "7" "B-ghichu" "")
      	(command "_layer" "s" "B-ghichu" "" "")
	(if (null (tblsearch "style" "Vavon"))
     	(command "_style" "Vavon" "vavon.ttf" "" "" "" "" ""))
 ;  (setq pt (getpoint "\nPick: "))
(While
 (setq pt (getpoint "\nPick next: "))
                   	(command "Text" "S" "Vavon" "M" pt "0.9" 0 "Ruoäng luùa" "")
)
)

    • Vote tăng 1

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

    Các bạn cho mình hỏi :

    Bây giờ minh mốn trích tọa độ một điểm bất kỳ trong cad ra màn hinh của nó thì làm thế nào?

    có dùng lisp gì không hay chỉ dùng lệnh trong

    == làm cách nào để đo được tọa độ x/y của một đường thẳng. minh muốn xuất các tọa độ để lập trình lệnh CNCcho các bước chạy dao

    Để ghi tọa độ ra màn hình bạn dùng LSP này (Hình như của Mr Thai)

    ;; free lisp from cadviet.com
;;; this lisp was downloaded from http://www.cadviet.com/forum/index.php?showtopic=12225
;GHI TOA DO CAC DIEM VA THONG KE THANH BANG
----------------------------------------------
(defun C:td1 (/ diem PT1 PT2 PT3 tapx tapy
	x y xx yy h n di kc
	C PT PTX PTY PTD PTC N
	p1 p2 p3 p4 p11 p22 p33 L1 L2 L11 L22)
(setvar "cmdecho" 0 )
(command "Undo" "Begin") 
 (setq om (getvar "osmode"))
 (setq tapx '()
tapy '()
stt '()
k 0
h (getreal "\nnhap chieu cao chu:"))

(while
 (setq diem (getpoint "\nchon cac vi tri co toa do can ghi:"))
 (progn
(setq   PT1 (list(+ (* 3 h) (car diem))(+ (* 3 h) (cadr diem)))
 PT2 (list (car PT1) (- (cadr PT1)(+ 1 h) ) )
  x (rtos(car diem) 2 4)
y (rtos (cadr diem) 2 4)
tapx (append tapx (list x))
tapy (append tapy (list y))
 ;;;;;; k (+ 1 k)
  ;;;;;N (strcat "N" (rtos k 2 0))
 ;;;; stt (append stt (list N))
  );setq
 (setvar "osmode" 0)
 (command "text" "j" "BL" PT1 h 0 x)
 (setq TB (textbox (entget(entlast)))
LC (car TB)
RC (cadr TB)
di (distance LC RC)
PT3 (polar PT1 0 (+ di h))
;;;;;;C  (polar PT3 0 (* 1.5 h))
  );setq
(command "text" PT2 h 0 y
  "pline" diem PT1 PT3 ""
  ;;;;;"circle" (polar PT3 0 (* 1.5 h)) (* 1.5 h)
  ;;;;;"text" "m" (polar PT3 0 (* 1.5 h)) h 0 N
)

(setvar "osmode" om)
);progn  
 );dong while

;tao bang thong ke
 (setq kc (* 2 di)
 PT (getpoint"\nvi tri dat bang :")
PTC (list (+ (* 2 kc) di (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) (car PTD)) (cadr PTD))
PTY (list (+ kc (car PTX)) (cadr PTX))
  p11 (list (+ (/ di 2) (car p1))  (+ h (cadr p1)))
  p22 (list (+ di (/ di 2) (car p11)) (cadr p11))
  p33 (list (+ kc (car p22)) (cadr p22))
  L1 (list (+ di (car p3))(cadr p3))
  L2 (list (+ kc (car L1))(cadr L1))
 n (length tapx)
 k 0
);setq
(setvar "osmode" 0)
 (command "line" p1 p2 ""
"text" "j" "m" p11 h 0 "STT"
"text" "j" "m" p22 h 0 "Täa ®é X"
"text" "j" "m" p33 h 0 "Täa ®é Y"
"line" p3 p4 "")
 (while (< k n)
(setq xx (nth k tapx)
  yy (nth k tapy)
 tstt(nth k stt))
(command "text" "j" "m" PTD h 0 tstt
"text" "j" "m" PTX h 0 xx
  "text" "j" "m" PTY h 0 yy
  "line" PT PTC "")
(setq PT (list (car PT) (- (cadr PT)(* 2 h)))
  PTC (list (+ (* 2 kc) di (car PT)) (cadr PT))
 PTD (list (+ (/ di 2) (car PT))  (+ h (cadr PT)))
 PTX (list (+ di (/ di 2) (car PTD)) (cadr PTD))
 PTY (list (+ kc (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 (car PT)) (cadr PT))
  L11 (list (+ di (car PT))(cadr PT))
  L22 (list (+ kc (car L11))(cadr L11))
  );setq
);if
(command "line" p3 PT ""
"line" p4 PTC ""
  "line" L1 L11 ""
  "line" L2 L22 "")
(setvar "osmode" om )
(setvar "cmdecho" 1)
(prompt"\nxong\n")
 (command "Undo" "End")
 (princ)
);DONG toado

    làm cách nào để đo được tọa độ x/y của một đường thẳng. minh muốn xuất các tọa độ để lập trình lệnh CNCcho các bước chạy dao

    Chưa hiểu ý của bạn.

    - Nếu đo kích thước chiều dài đoạn thẳng thì được. (?)

    - Lấy tọa độ các điểm đầu cuối của đoạn thẳng cũng được (?)

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

    Em mới ra trường và đi đo đạc thực tế, em thấy diễn đàn này đang hỏi về vấn đề phun điểm mia từ file TXT sang Cad đúng nội dung em cần. nhưng em doawload lisp RFT của anh giabach dùng thì không được, mong các anh đi trước giúp đỡ em với. đây là file đo em trút ở máy đo ra:

    GTS-700 v3.0
STN 	A,1.504,
BS  	1,1.452,
SD  	312.48090,89.08430,105.3860
SS  	2,1.452,
SD  	312.18530,89.09120,103.0360
SS  	3,1.452,
SD  	312.49590,89.09130,103.1100
SS  	4,1.452,
SD  	315.37510,88.57210,101.8200
SS  	5,1.452,
SD  	317.48130,88.54080,99.0760
SS  	6,1.452,
SD  	316.02070,89.01060,89.0080
SS  	7,1.452,
SD  	312.48360,89.14320,88.8900
SS  	8,1.452,
SD  	316.52430,89.28580,51.2840
SS  	9,1.452,
SD  	311.13400,89.46350,51.1810
SS  	10,1.452,
SD  	316.39140,90.14410,30.9280
SS  	11,1.452,
SD  	307.29110,90.29230,31.7380
SS  	12,1.452,
SD  	262.05460,99.08020,7.5080
SS  	13,1.452,
SD  	299.30130,103.16390,3.8540
SS  	14,1.452,
SD  	153.33410,99.03530,7.5100
SS  	15,1.452,
SD  	139.13350,97.50090,7.9290
SS  	16,1.452,
SD  	182.11460,98.31400,10.4470
SS  	17,1.452,
SD  	160.22040,94.40400,24.3870
SS  	18,1.452,
SD  	147.12060,93.29400,23.8550
SS  	19,1.452,
SD  	148.03120,93.14280,37.4270
SS  	20,1.452,
SD  	156.23450,93.38300,37.7430
SS  	21,1.452,
SD  	144.03170,92.03590,41.3930
SS  	22,1.452,
SD  	150.15300,92.48270,62.0220
SS  	23,1.452,
SD  	154.58080,93.01160,61.7540
SS  	24,1.452,
SD  	155.49590,93.00150,61.7960
SS  	25,1.452,
SD  	155.49330,92.54080,65.1380
SS  	26,1.452,
SD  	154.54500,92.59550,65.0950
SS  	27,1.452,
SD  	154.59460,92.49570,73.8690
SS  	28,1.452,
SD  	150.56360,92.44220,74.4020
SS  	29,1.452,
SD  	147.13140,92.11110,69.2890
SS  	C,1.452,
SD  	150.20270,92.48040,62.8900
SS  	30,1.452,
SD  	263.42400,92.56050,12.8600
SS  	31,1.452,
SD  	160.19320,90.06550,55.8820
SS  	32,1.452,
SD  	164.28290,89.42590,36.6100
SS  	33,1.452,
SD  	269.24130,92.55390,12.8100
SS  	D,1.452,
SD  	283.34070,89.32180,39.8420
SS  	34,1.452,
SD  	297.14170,88.30150,110.8520
SS  	35,1.452,
SD  	272.57380,89.38150,81.4150
SS  	E,1.452,
SD  	275.47030,89.56010,82.1040
STN 	E,1.504,
BS  	A,1.452,
SD  	359.59590,90.09280,82.1240
SS  	36,1.452,
SD  	76.42050,89.25510,3.9460
SS  	37,1.452,
SD  	100.57370,115.22090,11.1330
SS  	38,1.452,
SD  	145.57550,111.42120,8.7550
SS  	39,1.452,
SD  	193.39410,98.28200,13.0000
SS  	40,1.452,
SD  	195.55500,101.43560,11.9460
SS  	41,1.452,
SD  	214.40320,94.45220,19.5200
SS  	42,1.452,
SD  	225.12160,91.49040,26.2310
SS  	43,1.452,
SD  	235.34500,90.35190,44.8750
SS  	44,1.452,
SD  	22.59280,88.58040,10.7960
SS  	45,1.452,
SD  	17.08250,89.38130,39.7840
SS  	46,1.452,
SD  	20.02450,89.40440,54.2700
SS  	47,1.452,
SD  	8.10120,90.26260,62.2420
SS  	48,1.452,
SD  	28.02350,89.31160,69.2520
SS  	49,1.452,
SD  	37.24100,89.12430,93.9070
SS  	50,1.452,
SD  	41.35550,89.17330,89.0060
SS  	51,1.452,
SD  	34.12340,89.21270,108.3400
STN 	C,1.504,
BS  	A,1.452,
SD  	0.00000,87.29430,62.8770
SS  	52,1.452,
SD  	268.04430,86.54310,28.3850
SS  	53,1.452,
SD  	274.12320,86.57090,28.7240
SS  	54,1.452,
SD  	268.45440,89.11430,43.8380
SS  	55,1.452,
SD  	273.08180,88.16350,50.5920
SS  	56,1.452,
SD  	270.09060,88.27220,51.5020

     

    Đây là số liệu thô, trút ra từ máy toàn đạc điện tử Topcon.

    File này chỉ có góc cạnh,

    Bạn phải sử lý để tính ra tọa độ xyz sau đó dùng LSP mới đưa vào CAD được.

    • Vote tăng 1

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

    minh co ve 1 ban ve nhung khi ra in thi lai bi mat mot so phan trong ban ve,minh da kiem tra va sua lại cac loi nhung ra in van bi mat.cac bac tien boi oi giup minh voi.vi ly do nao lai bi mat nhu vay

    Ban xem cac doi tuong do co thuoc layer Defpoints khong.

    Neu no thuoc layer do thi chuyen qua layer khac.

    (Bạn viết sao mình trả lời vậy.

    Cái này giành riêng cho bạn qtuan88:

    Bạn thử đọc đoạn sau đây:

    Đọc không dấu và đọc có dấu ý nghĩa của nó có khác nhau không nhé:

    Co (^) mang ('), em so qua, khong muon hoc nua

    Anh bi cam(?) roi a)

×