kts_k80
-
Số lượng nội dung
13 -
Đã tham gia
-
Lần ghé thăm cuối
Bài đăng được đăng bởi kts_k80
-
-
Tạo Solid
trong Sử dụng AutoCAD
Tạo một solid được giới hạn bởi đường màu đen và đường màu đỏ.
Cảm ơn các bạn nhiều.
Mình làm giúp bạn đây, chỉ cần cad 20004, bạn extrude từng hình với chiều cao lớn hơn chiều cao solid thành phẩm mong muốn, sau đó move cho 2 solid đó trùng nhau, sau đó intersec chúng là được
-
1
-
-
Mình thích cad, bởi giao diện đơn giản nhất trong các phần mềm, kể cả 2d lẫn 3d. Cũng giống như Ghost, giao diện trên dos, đơn giản và hiệu quả vô cùng. Trên cad, 3d solid được vẽ chính xác, và xuất ngay thành 2d các mặt chiếu, thêm ghi chú và kích thước, thành chi tiết cho bản vẽ kiến trúc. Nếu thiết kế nội thất, dùng cách này khỏi vẽ lại các bức tường trang trí, là một công việc rất chán...vì mỗi phòng có đến 4 bức tường. còn vẽ mặt đứng thì công việc 2d mặt đứng nhanh ...cực.
Bởi thế, hầu như 3d mình toàn dựng trong cad. Không chỉ tường, cửa, vv, mà cả đồ đạc thiết bị nữa.
Mình viết một cái lip vẽ ghế salon, dùng trong cad. Ai thích thì dùng.
Đây là sản phẩm của nó.
(defun C:SALON () ;ghesalon
(smod)
(setvar "osmode" 0)
(if (= nil (tblsearch "layer" "L-WALL"))
(command "layer" "m" "L-WALL" "c" "t" "249,250,251" "" "")
)
(if (= nil (tblsearch "layer" "WINDOR"))
(command "layer" "m" "WINDOR" "c" "t" "77,47,40" "" "")
)
(setq p1a (getpoint "\nDAU GHE TAI CHO DUA :"))
(setq p2a (getpoint P1a"\nCUOI GHE TAI CHO DUA :"))
(setq ang1 (angle p1a p2a))
(setq p1 (polar p1a ang1 100))
(setq p2 (polar p2a (angle p2a p1a) 100))
(setq p12 (polar p1a ang1 (/ (distance p1a p2a) 2)))
(setq ang2 (getangle p12 ":\nHUONG RA BAN :"))
(setq p1b (polar p1 ang2 200))
(setq p1ab (polar p1a ang2 600))
(setq p1c (polar p1 ang2 700))
(setq p2b (polar p2 ang2 600))
(setq p1ab (polar p1a ang2 600))
(command "layer" "s" "L-WALL" "")
(srf p1c p2 275 60 75)
(srf p1b p2 250 30 350)
(command "layer" "s" "WINDOR" "")
(command "rectangle" (polar p1c (angle p1c p1b) 50) p2)
(command "extrude" "l" "" "75" "")
(command "rectangle" p1 (polar p2 (angle p1c p1b) 50))
(command "extrude" "l" "" "400" "")
(SRF P2b (polar p2a (angle p1c p1b) 50) 500 20 0)
(srf p1ab (polar p1 (angle p1c p1b) 50) 500 20 0)
(rmod)
)
;----------------------------------------------------------------------------------------------
(defun SRF (P1 P2 HRF FL MRF) ;solid rec fillet,...
(setvar "osmode" 0)
(setvar "filletrad" FL)
(setq p3 (list (car p1)(cadr p2)))
(setq p4 (list (car p2)(cadr p1)))
(setq p32 (polar p3 (angle p3 p2) HRF))
(setq p24 (polar p2 (angle p2 p4) HRF))
(setq pm13 (polar p1 (angle p1 p3) (/ (distance p1 p3) 2)))
(setq pm32 (polar p3 (angle p3 p2) (/ (distance p3 p2) 2)))
(command "line" pm13 (polar pm13 (angle p3 p2)(distance p3 p2)) "")
(setq e1 (entlast))
(command "line" pm32 (polar pm32 (angle p3 p1)(distance p3 p1)) "")
(setq e2 (entlast))
(command "rectangle" p1 p2 "fillet" "p" p1)
(command "extrude" "l" "" HRF "")
(setq e11 (entlast))
(command "rectangle" p1 p32 "fillet" "p" p1)
(setq e3 (entlast))
(command "rectangle" p3 p24 "fillet" "p" p3)
(setq e4 (entlast))
(cond
((and (< (car p1) (car p2))(< (cadr p1) (cadr p2)))
(progn
(command "rotate3d" e3 "" p3 p1 "90")
(command "extrude" e3 "" "p" e1)
(setq e3 (entlast))
(command "rotate3d" e4 "" p2 p3 "90")
(command "extrude" e4 "" "p" e2)
(setq e4 (entlast))
(command "intersect" e3 e4 e11 "" "move" "l" "" p1 (list (car p1)(cadr p1) MRF))
)
)
((and (< (car p1) (car p2))(> (cadr p1) (cadr p2)))
(progn
(command "rotate3d" e3 "" p3 p1 "-90")
(command "extrude" e3 "" "p" e1)(setq e3 (entlast))
(command "rotate3d" e4 "" p2 p3 "-90")
(command "extrude" e4 "" "p" e2)(setq e4 (entlast))
(command "intersect" e3 e4 e11 "" "move" "l" "" p1 (list (car p1)(cadr p1) MRF))
)
)
((and (> (car p1) (car p2))(> (cadr p1) (cadr p2)))
(progn
(command "rotate3d" e3 "" p3 p1 "90")
(command "extrude" e3 "" "p" e1)(setq e3 (entlast))
(command "rotate3d" e4 "" p2 p3 "90")
(command "extrude" e4 "" "p" e2)(setq e4 (entlast))
(command "intersect" e3 e4 e11 "" "move" "l" "" p1 (list (car p1)(cadr p1) MRF))
)
)
((and (> (car p1) (car p2))(< (cadr p1) (cadr p2)))
(progn
(command "rotate3d" e3 "" p3 p1 "-90")
(command "extrude" e3 "" "p" e1)(setq e3 (entlast))
(command "rotate3d" e4 "" p2 p3 "-90")
(command "extrude" e4 "" "p" e2)(setq e4 (entlast))
(command "intersect" e3 e4 e11 "" "move" "l" "" p1 (list (car p1)(cadr p1) MRF))
)
)
)
(command "erase" e1 e2 "")
(setvar "filletrad" 0)
)
;---------------------------------------------------------------------------------------------
(defun SMOD ()
(if (/= nil (tblsearch "block" "$HSW"))
(setq HS (cdr (assoc 39 (entget(cdr(assoc -2 (tblsearch "block" "$HSW")))))))
(setq HS 3600)
)
(setq ORT (getvar "orthomode"))
(command "undo" "m")
(setq LAC (getvar "clayer"))
(setq OSM (getvar "osmode"))
(setvar "osmode" 703)
(setq LINALA (list (cdr (assoc 2 (tblnext "layer" T)))))
(while
(setq e (tblnext "layer"))
(setq LINALA (append LINALA (list (cdr (assoc 2 e)))))
)
(setq LINAOBJLA (list (tblobjname "layer" (cdr (assoc 2 (tblnext "layer" T))))))
(while
(setq e (tblnext "layer"))
(setq LINAOBJLA (append LINAOBJLA (list (tblobjname "layer" (cdr (assoc 2 e))))))
)
(setq LILACO (list (assoc 62 (tblnext "layer" T))))
(while
(setq e (tblnext "layer"))
(setq LILACO (append LILACO (list (assoc 62 e))))
)
(setq LILALO (list (assoc 70 (tblnext "layer" T))))
(while
(setq e (tblnext "layer"))
(setq LILALO (append LILALO (list (assoc 70 e))))
)
;(setvar "EXPERT" 5)
)
(defun RMOD ()
(mapcar
'(lambda (x y z)
(entmod (subst x (assoc 62 (entget y)) (entget y)))
(entmod (subst z (assoc 70 (entget y)) (entget y)))
)
LILACO LINAOBJLA LILALO
)
(setvar "osmode" OSM)
(setvar "clayer" LAC)
(setvar "orthomode" ORT)
(princ "* OK NUMBER ONE ! *")(princ)
)
(setq *error* AA_ERR)
(defun AA_ERR (s)
(if (= s "Function cancelled")
(progn
(command "qsave" "undo" "b")
(exit)
)
)
)
;--------------------------
Hàm (smod) và hàm (rmod) là hai hàm lưu giữ trạng thái trước khi làm việc và trả lại trạng thái sau khi làm việc các biến thay đổi do quậy linh tinh khi xây dựng đối tượng.
-
Gõ OP vào bảng options trong thẻ Display nhấn Colors... ở mục 3D parallel projection, chọn lại màu cho nó là được.thank bạn nhiều, tiện đây, bạn có biết cách làm đèn neon, chiếu lên trần nhà ko ?, hình như cad ko có loại đèn này, mà mình lại ko thích làm trong max lắm.
-
Mình không biết làm sao cho nền của cad 2009 khi ở kiểu xem 3d và kiểu ấy không phải chế độ wireframe có màu đen được, ai biết làm chỉ giùm với
-
hình như không có mã dxf nào là 1000 cả trong bảng từ điển đối tượng cả. còn mã số (1. "abc...") quản lí nội dung text. thêm gì có khi là thêm ở đấyĐể quản lý bản vẽ tốt hơn mình muốn thêm vào một đối tượng một tên mà không trùng nhau với mỗi đối tượng trong bản vẽ và không đổi khi đóng mỡ bản vẽ (giống như HANDLE), mình nghe nói kiểu dữ liệu mở rộng trong cad có thể làm dc. Vậy bạn nào biết giúp mình với. (dùng lisp trong acad).Vd mình có list của một text như sau: ((-1 . ) (0 . "TEXT") (330 .
name: 7ef8fcf8>) (5 . "17302") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8
. "THUAPC") (6 . "Continuous") (100 . "AcDbText") (10 614121.0 1.19654e+006
0.0) (40 . 2.4) (1 . "89-53") (50 . 0.698132) (41 . 1.0) (51 . 0.0) (7 .
"Vavon") (71 . 0) (72 . 0) (11 0.0 0.0 0.0) (210 0.0 0.0 1.0) (100 .
"AcDbText") (73 . 0))
Mình muốn thêm chuỗi (1000 . "doituong 1") vao cuối chuỗi trên
Kết qủa mình mong muốn là: ((-1 . ) (0 . "TEXT") (330 .
name: 7ef8fcf8>) (5 . "17302") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8
. "THUAPC") (6 . "Continuous") (100 . "AcDbText") (10 614121.0 1.19654e+006
0.0) (40 . 2.4) (1 . "89-53") (50 . 0.698132) (41 . 1.0) (51 . 0.0) (7 .
"Vavon") (71 . 0) (72 . 0) (11 0.0 0.0 0.0) (210 0.0 0.0 1.0) (100 .
"AcDbText") (73 . 0) (1000 . "doituong 1") )
Cảm ơn các bạn nhe.
-
http://www.cadviet.com/upfiles/noithatacad_3.jpgCác bạn xem và góp ý nhé mình làm trên acad 2009 mình chưa biết cách đưa bài lên diễn đàng nên làm mãi mới được
Sao bạn không thả vật liệu vào, tôi thấy bạn có mổi màu nâu là chủ yếu, còn phối cảnh bạn phải chọn kiểu nhìn là ...có điểm tụ ấy. Hơn nữa, mình thấy bạn vẽ cad mà công cụ bày ra nhiều thế ! hì...Nếu thích, bạn nhìn xuống góc phải phía dưới màn hình, chọn cái....bánh xe răng cưa và chọn 3d modeling, họ trình bày sẵn để vẽ 3d đấy.
Mình vẫn chưa biết cách làm cho màn hình nền trong chế độ 3d có màu đen, bạn có biết không ?
-
Mình không biết làm sao cho màn hình nền cad 2009 khi ở 3d sang màu đen, ai biết chỉ với
-
Mọi người hãy chia sẻ kinh nghiệm chinh phục AutoCAD của bản thân nhé!Trên chặng đường chinh phục phần mềm ACAD, mỗi người trong chúng ta đều đi từ con số 0. Topic này là nơi mà những người đã thành thạo ACAD chia sẻ kinh nghiệm cùng những người mới bắt đầu.
Chào bác NguyenHoanh, khi vẽ 3d, vẽ trần hộp, tôi muốn đặt đèn neon hay đại loại như thế, để chiếu ngược lên phần trần ở trên, mà không biết cách làm nên ...bó tay và thất vọng về autocad lắm ! Tôi cũng ko muốn phải nhờ cậy đến Max, hay chương trìng khác...Chỉ Cad thôi, không lẽ ko làm dc, bác có thể giúp cho tôi với không ?
-
Lý do: Ssg luôn luôn ủng hộ cách vẽ theo kích thước thật của đối tượng. Khi cần thể hiện nhiều tỷ lệ trong 1 bản vẽ thì dùng layout. Các thao tác scale hình rồi sửa dim là việc làm không khuyến khích.Có lẽ mình quá cực đoan chăng?
;-----------
Tôi cũng thấy đồng ý với ý kiến của bạn ssg. Trong một trường hợp khác, ví dụ bản vẽ tl1/100, thấy giấy còn trống quá, muốn chèn chi tiết tỉ lệ 1/20, mà chi tiết ấy được tuân thủ vẽ theo tỉ lệ thực, nên nó bé tí ti, đành phải phóng to lên, gấp 5 lần.
Trường hợp thứ nhất, chưa ghi kích thước cho hình vẽ, Việc phóng to gấp 5 lần cái hình vẽ giá trị khi ghi kích thước sẽ to gấp 5 lần, còn hình dạng của chi tiết tạo nên kích thước không đổi. Như vậy, chỉ sửa một biến của dim thôi. (dimlfac)
Trường hợp thứ hai, hình vẽ tl 1/20 đã ghi kích thước với kiểu phù hợp, thì ngoài sửa biến trên, cần sửa thêm một biến nữa. (dimscale)
Việc dùng layout khi vẽ cad thì riêng tôi thấy ...không khoái lắm, nếu chỉ là bản vẽ 2d.
-
...trong bản vẽ mình hay dùng các tỷ lệ khác nhau (1/100, 1/50, 1/25...) nhưng mình chỉ dùng lisp này ở các mặt cắt có tỷ lệ trùng với của bản vẽ (giả sử là 1/100), ở các mặt cắt khác (giả như là 1/50, mình vẽ bằng cách scale 2) thì lisp này không dùng được nữa, các bạn có cách nào có câu hỏi xác định lỷ lệ trước được không?Mình viết thế này, bạn xem thử. Mình lấy tên là FRA (viết tắt của frame) tức là vẽ luôn một cái khung, tạo mõt kiểu text, một kiểu dim, thiết lập tỉ lệ cho net khuất.vvv, khi cần loại tỉ lệ nào, bạn phang tỉ lệ ấy. mình viết lâu rồi, và để dễ chỉnh sửa, mìng cứ để nguyên con theo hàng, không gộp lại, nên không ngắn và đẹp mắt lắm...nhưng kệ thôi, hì
;-----------
(defun c:FRA ()
(setvar "EXPERT" 5)
(if (= nil (tblsearch "layer" "defpoints"))
(command "layer" "n" "defpoints" "c" "251" "defpoints" "")
)
(if (= nil (tblsearch "layer" "center"))
(command "layer" "n" "CENTER" "C" "251" "CENTER" "L" "CENTER" "CENTER" "LW" "0.09" "CENTER" "")
)
(command "layer" "C" "252" "0" "LW" "0.18" "0" "")
(smod)
(if (= PLAL nil)(setq PLAL 3)(setq PLAL PLA))
(setq PLA (getint (strcat "\nPAGE A? <" (rtos PLAL 2 0) "> :")))
(if (= PLA nil)(setq PLA PLAL))
(cond
((= PLA 0)(setq XPT 1154.94 YPT 830.92))
((= PLA 1)(setq XPT 830.92 YPT 559.99))
((= PLA 2)(setq XPT 583.95 YPT 386.0))
((= PLA 3) (setq XPT (* 1.41 283.91) YPT (* 1.41 196.91)))
((= PLA 4) (setq XPT 283.91 YPT 196.91))
)
;-------------------------------------------------------------------------------
;TAO BLOCK $UDR THAM CHIEU DON VI VE
(setq e (tblsearch "block" "$UDR"))
(if (= nil e)
(progn
(if (= UDRL nil)(setq UDRL 1000)(setq UDRL UDR))
(setq UDR (getint (strcat "\nUNIT DRAW ? <" (rtos UDRL 2 0) "> :")))
(if (= UDR nil)(setq UDR UDRL))
(entmake '((0 . "block")(2 . "$UDR")(70 . 64)(10 0 0 0)))
(entmake (list '(0 . "LINE")(cons 39 UDR) '(10 0 0 0) '(11 1000 0 0)))
(entmake '((0 . "endblk")))
(setvar "ltscale" (* 0.22 UDR))
)
(progn
(setq e (tblsearch "block" "$UDR"))
(setq UDR (cdr (assoc 39 (entget(cdr(assoc -2 e))))))
(setvar "ltscale" (* 0.22 UDR))
; (setvar "celtscale" (* 0.004 (* 0.22 UDR (/ SCD 100))))
)
)
;-------------------------------------------------------------------------------
;TAO BLOCK $DFAL DIMFAL
(setq e (tblsearch "block" "$DFAL"))
(if (= nil e)
(progn
(setq DFAL (/ 1000.0 UDR))
(if (= 1 UDR)(setq DFAL 1.0 DDEC 1)(setq DDEC 0))
(entmake '((0 . "block")(2 . "$DFAL")(70 . 64)(10 0 0 0)))
(entmake (list '(0 . "LINE")(cons 39 DFAL) '(10 0 0 0) '(11 1000 0 0)))
(entmake '((0 . "endblk")))
)
(progn
(setq e (tblsearch "block" "$DFAL"))
(setq DFAL (cdr (assoc 39 (entget(cdr(assoc -2 e))))))
)
)
;-------------------------------------------------------------------------------
(if (= SCDL nil)(setq SCDL "100")(setq SCDL SCDT))
(setq SCDT (getstring (strcat "\nSCALE DRAW 100,200,500... <" SCDL "> :")))
(if (= SCDT "")(setq SCDT SCDL))
(setq SCD (atof SCDT))
;-------------------------------------------------------------------------------
;tao textstyle
(setq TST (rtos SCD 2 0))
(setq TS (* 0.22 UDR (/ SCD 100))) ;tao textsize
(setvar "textsize" TS)
(FR1)
(setq DSC (* TS 0.5))
(FR2)
(setq e (tblsearch "style" TST))
(if (/= nil e)
(progn
(setvar "textstyle" TST)
(command "dimstyle" "r" TST)
)
)
;-------------------------------------------------------------------------------
;TAO KHUNG BAN VE
(SETVAR "OSMODE" 0)
(setq XPT (* 0.001 SCD UDR XPT) YPT (* 0.001 SCD UDR YPT))
(setq P0 (getpoint "\nBASE FRAM OR ENTER :"))
(if (/= nil p0)
(progn
(setq PC (list (+ (car P0) XPT) (+ (cadr P0) YPT)))
(command "rectangle" P0 PC)
(setq e0 (entlast))
(command "chprop" e0 "" "la" "defpoints" "")
(command "text" "j" "TL" P0 "0" (strcat "IN A" (rtos PLA 2 0) " ,TL : 1/" SCDT))
(setq e0 (entlast))
(command "chprop" e0 "" "layer" "defpoints" "")
(command "rectangle"
(list (+ (* 5 TS) (car P0)) (+ (* 0.5 TS) (cadr P0)))
(list (- (car PC) (* 0.5 TS)) (- (cadr PC) (* 0.5 TS)))
)
(setq e0 (entlast))
(command "chprop" e0 "" "c" "1" "lw" "0.4" "")
(setq TS (* 0.22 UDR (/ SCD 100))) ;tao textsize
)
(progn
(setq P0 (list 0 0 0))
(if (> 500 (distance (getvar "vsmin")(getvar "vsmax")))
(progn
(setq PC (list (+ (car P0) XPT) (+ (cadr P0) YPT)))
(command "rectangle" P0 PC)
(setq e0 (entlast))
(command "chprop" e0 "" "la" "defpoints" "")
(command
"zoom" P0 (list (+ (car P0) XPT) (+ (cadr P0) YPT))
"zoom" "0.9x"
)
(command "text" "j" "TL" P0 "0" (strcat "IN A" (rtos PLA 2 0) " ,TL : 1/" SCDT))
(setq e0 (entlast))
(command "chprop" e0 "" "layer" "defpoints" "")
(command "rectangle"
(list (+ (* 5 TS) (car P0)) (+ (* 0.5 TS) (cadr P0)))
(list (- (car PC) (* 0.5 TS)) (- (cadr PC) (* 0.5 TS)))
)
(setq e0 (entlast))
(command "chprop" e0 "" "c" "1" "lw" "0.4" "")
(setq TS (* 0.22 UDR (/ SCD 100))) ;tao textsize
)
)
)
)
;-------------------------------------------------------------------------------
;TAO KIEU NET DUT VA NET GACH
(setvar "ltscale" (* 0.22 UDR))
(setvar "celtscale" (* 0.004 (* 0.22 UDR (/ SCD 100))))
(rmod)
(princ "\n")
(princ)
)
;---------------------------------------------------------------------
(defun FR1 ()
(setq e (entget(tblobjname "style" (getvar "textstyle"))))
(setq e (subst (cons 2 TST) (assoc 2 e) e))
(setq e (subst (cons 40 TS)(assoc 40 e) e))
(setq e (subst (cons 41 0.7)(assoc 41 e) e))
; (setq e (subst (cons 3 "VAVOB.TTF") (assoc 3 e) e))
(setq e (subst (cons 3 "VAVOB__0.TTF") (assoc 3 e) e))
; (setq e (subst (cons 3 "ARIAL.TTF") (assoc 3 e) e))
(entmake e)
(setvar "textstyle" TST)
)
(defun FR2 ()
(if (= nil (tblobjname "block" "dimled"))
(progn
(entmake '((0 . "block")(2 . "dimled")(70 . 64)(10 70 0 0)));diem chen 70
(entmake '((0 . "polyline")))
(entmake '((0 . "vertex")(40 . 0)(41 . 0)(10 120 0 0)));bat dau tu 120
(entmake '((0 . "vertex")(10 0 0 0))) ;ve 0
(entmake '((0 . "vertex")(40 . 300)(41 . 0)(10 0 0 0)));mo do rong 300 tu 0
(entmake '((0 . "vertex")(10 70 0 0))) ;dai mui ten den 70 do rong 0
(entmake '((0 . "seqend")))
(entmake '((0 . "endblk")))
)
)
(if (= nil (tblobjname "block" "dim"))
(progn
(entmake '((0 . "block")(2 . "dim")(70 . 64)(10 0 0 0)))
(entmake '((0 . "polyline")))
(entmake '((0 . "vertex")(40 . 70)(41 . 70)(10 -60 -60 0)))
(entmake '((0 . "vertex")(10 60 60 0)))
(entmake '((0 . "seqend")))
(entmake '((0 . "endblk")))
)
)
(command
"dim" "setvar"
"dimsah" 1
"dim" "setvar"
"dimsoxd" 0
"dim" "setvar"
"dimblk1" "dim"
"dim" "setvar"
"dimblk2" "dim"
"dim" "setvar"
"dimldrblk" "dimled"
"dim" "setvar"
"dimasz" 2
"dim" "setvar"
"dimdli" 5
"dim" "setvar"
"dimexe" 1.25
"dim" "setvar"
"dimexo" 0
"dim" "setvar"
"dimasz" 0.01
"dim" "setvar"
"dimcen" 2.5
"dim" "setvar"
"dimtad" 1
"dim" "setvar"
"dimjust" 0
"dim" "setvar"
"dimgap" 1
"dim" "setvar"
"dimtix" 1
"dim" "setvar"
"dimtxt" 0.18
"dim" "setvar"
"dimtmove" 2
"dim" "setvar"
"dimupt" 0
"dim" "setvar"
"dimtofl" 1
"dim" "setvar"
"dimtih" 0
"dim" "setvar"
"dimrnd" 0
"dim" "setvar"
"dimtxsty" TST
"dim" "setvar"
"dimscale" DSC
"dim" "setvar"
"dimdec" DDEC
"dim" "setvar"
"dimlfac" DFAL
"save" TST "e"
)
)
;----------
-
Mình cần viết một đoạn để người dùng nhập dữ liệu vào. nếu lười, thì enter chấp nhận giá trị mặc định. nếu nhập vào, giá trị ấy sẽ mặc định cho lần sau. Nhưng viết xong, đọc lại thấy lòng vòng như dở hơi. Bạn nào sửa hộ hoặc cho một đoạn khác với.
(if (= UDRL nil)(setq UDRL 1000)(setq UDRL UDR))
(setq UDR (getint (strcat "\nUNIT DRAW ? <" (rtos UDRL 2 0) "> :")))
(if (= UDR nil)(setq UDR UDRL))
-
mình gõ tiếng việt thì bình thường, nhưng khi dùng lệnh offset ,nhập giá trị bằng số, thì nó tưởng mình định gõ chữ gì đó chứ ko phải là số, nó vọt ra luôn và bảo mình ngu !, đếch kịp lưu gì cả, chả biết làm sao nữa đành gõ ko dấu...khỏi sợ vô tình với cái lệnh ấy mà hỏng việc lớn, nhưng thực lòng ấm ức lắm...
Mở file Cad báo lỗi: Fatal Error: Unhandled Access Violation Reading 0x0000 Exception at 761b9f58h
trong Sử dụng AutoCAD
Đã đăng · Trả lời báo cáo
Bạn thử cài chương trình Cad 2009 vào máy, mở ra có khi được được, tuy cũng bị rơi rớt đâu đó một ít, nếu là bản 3d, nhưng cũng còn hơn là không mở được.
Nếu vẫn chưa được, bạn dùng 3dma x imp vào thử