Mình viết thế này thì nó sẽ nhập cả scale dim (DIMSCALE) và chọn tỉ lệ dim đang vẽ (dimlfac)
Nhưng không hiểu sao nó lại hiển thị thêm 1 mục này nhỉ http://nh2.upanh.com/b5.s22.d3/29415cc35a47fbca0829bb99e7eb36a5_39737842.screenshot001.jpg

;;; DAT BIEN CHO DIM
(DEFUN C:VD ()
(setq OVSC (getreal "\nTy le dim la bnhieu %? ... "))
(setq MS (getreal "\nTy le dang ve la bnhieu?TL 1/25 nhap 0.25 "))

>>

Mình viết thế này thì nó sẽ nhập cả scale dim (DIMSCALE) và chọn tỉ lệ dim đang vẽ (dimlfac)
Nhưng không hiểu sao nó lại hiển thị thêm 1 mục này nhỉ http://nh2.upanh.com/b5.s22.d3/29415cc35a47fbca0829bb99e7eb36a5_39737842.screenshot001.jpg

;;; DAT BIEN CHO DIM
(DEFUN C:VD ()
(setq OVSC (getreal "\nTy le dim la bnhieu %? ... "))
(setq MS (getreal "\nTy le dang ve la bnhieu?TL 1/25 nhap 0.25 "))
(setq namedim (getstring "\nDat ten dim nhe "))
(COMMAND "INSERT" "DIM=dim" ^c)
(COMMAND "-LAYER" "SET" "K.DIM(5)" "")
(command "-style" "K.VNtime" "VNTime.shx,VNS.SHX" "0" "0.75" "0" "N" "N" "N")
(COMMAND "MIRRTEXT" "0") ;;;KHONG MIRROR TEXT
(COMMAND "DIMUNIT" "2") ;;;TEXT DANG DECIMAL
(COMMAND "DIMADEC" "0") ;;;DAT SO CHU THAP PHAN TEXTDIM
(COMMAND "DIMASZ" "1") ;;;KTHUOC ARROWHEADER
(COMMAND "DIMCLRT" "2") ;;;DAT MAU CHO TEXTDIM
(COMMAND "DIMDEC" "0") ;;;DAT KIEU THAP PHAN CHO DIMTEXT
(COMMAND "DIMALTU" "2") ;;;KIEUDONVI TEXTDIM
(COMMAND "DIMDLE" "1") ;;DATPHAN DIMLINE NHO KHOI DG EXTEND
(COMMAND "DIMDLI" "8") ;;;DAT KHOANG CACH GIUA CAC DUONG DIM
(COMMAND "DIMEXE" "2") ;;;DATPHAN DG EXTEND NHO KHOI DG DIMLINE
(COMMAND "DIMEXO" "0") ;;;DAT KHCACH CHAN DG GIONG VA VAT THE
(COMMAND "DIMFIT" "5") ;;;DATFIT
;;0 Text and Arrows
;;1 Text Only
;;2 Arrows Only
;;3 Best Fit
;;4 Leader
;;5 No Leader
(COMMAND "DIMTIH" "OFF") ;;;GIONG TEXT trong dg dim THEO DG DIMLINE
(COMMAND "DIMTOH" "OFF") ;;;GIONG TEXT trong dg dim THEO DG DIMLINE
(COMMAND "DIMTAD" "1") ;;;TEXTDIM PHIA TREN DIMLINE
(COMMAND "DIMTOFL" "ON") ;;;CO DIMLINE NGAY CA KHI TEXT OUTSIDE
(COMMAND "DIMTXSTY" "K.VNtime") ;;;style dimtext
(COMMAND "DIMTXT" "2.5") ;;;chieucao textdim
(COMMAND "DIMASZ" "1") ;;;scale for arrowhead
(COMMAND "DIMTVP" "1") ;;;khcach textdim phia tren hoac duoi dimline
(COMMAND "DIMGAP" "1") ;;;khcach dim phia tren hoac duoi dimline
(COMMAND "DIMSAH" "ON") ;;;dung blockarrow default hoac defined
(COMMAND "DIMBLK" "DIM") ;;;kieu arrow
(COMMAND "DIMBLK1" "DIM") ;;;kieu arrow dau
(COMMAND "DIMBLK2" "DIM") ;;;kieu arrow cuoi
(COMMAND "DIMSD1" "OFF") ;;;CO DIMLINEDAU
(COMMAND "DIMSE1" "OFF") ;;;CO EXTENDED LINE DAU
(COMMAND "DIMCLRD" "5") ;;;DATMAUDIMLINE
(COMMAND "DIMCLRE" "5") ;;;DATMAUEXTENDLINE
(COMMAND "DIMRND" "0") ;;;LAM TRON DIMTEXT
(COMMAND "DIMcen" "-3") ;;;ve center line for dimcen
(COMMAND "DIMSCALE" OVSC) ;;;OVERSCALE FOR DIM
(COMMAND "DIMSTYLE" "s" namedim) ;;SAVE TEN KIEU DIM
(setvar "dimlfac" MS) ;;measurement scale/scale factor trong Primary Units.
(PRINC)
)

Mình muốn tạo thêm đoạn lisp để nó nhập sẵn Always keep text between ext lines và tích chọn suppress arrows if they.... ( như hình vẽ ), thì làm thế nào . Mình thử thay số ở DIMFIT nhưng sao không được, các bạn giúp mình với nhé . thanks :X
http://nh1.upanh.com/b6.s15.d1/b47e962aaa4cf34f4780a5476c5fafd6_39739951.screenshot002.jpg


;;; DAT BIEN CHO DIM
(DEFUN C:VD ()
(setq OVSC (getreal "\nTy le dim...

Mình muốn tạo thêm đoạn lisp để nó nhập sẵn Always keep text between ext lines và tích chọn suppress arrows if they.... ( như hình vẽ ), thì làm thế nào . Mình thử thay số ở DIMFIT nhưng sao không được, các bạn giúp mình với nhé . thanks :X
http://nh1.upanh.com/b6.s15.d1/b47e962aaa4cf34f4780a5476c5fafd6_39739951.screenshot002.jpg


;;; DAT BIEN CHO DIM
(DEFUN C:VD ()
(setq OVSC (getreal "\nTy le dim la bnhieu %? ... "))
(setq MS (getreal "\nTy le dang ve la bnhieu?TL 1/25 nhap 0.25 "))
(setq namedim (getstring "\nDat ten dim nhe "))
(COMMAND "INSERT" "DIM=dim" ^c)
(COMMAND "-LAYER" "SET" "K.DIM(5)" "")
(command "-style" "K.VNtime" "VNTime.shx,VNS.SHX" "0" "0.75" "0" "N" "N" "N")
(COMMAND "MIRRTEXT" "0") ;;;KHONG MIRROR TEXT
(COMMAND "DIMUNIT" "2") ;;;TEXT DANG DECIMAL
(COMMAND "DIMADEC" "0") ;;;DAT SO CHU THAP PHAN TEXTDIM
(COMMAND "DIMASZ" "1") ;;;KTHUOC ARROWHEADER
(COMMAND "DIMCLRT" "2") ;;;DAT MAU CHO TEXTDIM
(COMMAND "DIMDEC" "0") ;;;DAT KIEU THAP PHAN CHO DIMTEXT
(COMMAND "DIMALTU" "2") ;;;KIEUDONVI TEXTDIM
(COMMAND "DIMDLE" "1") ;;DATPHAN DIMLINE NHO KHOI DG EXTEND
(COMMAND "DIMDLI" "8") ;;;DAT KHOANG CACH GIUA CAC DUONG DIM
(COMMAND "DIMEXE" "2") ;;;DATPHAN DG EXTEND NHO KHOI DG DIMLINE
(COMMAND "DIMEXO" "0") ;;;DAT KHCACH CHAN DG GIONG VA VAT THE
(COMMAND "DIMFIT" "5") ;;;DATFIT
;;0 Text and Arrows
;;1 Arrows Only
;;2 Text Only
;;3 Best Fit
;;4 Leader
;;5 No Leader

(COMMAND "DIMTIH" "OFF") ;;;GIONG TEXT trong dg dim THEO DG DIMLINE
(COMMAND "DIMTOH" "OFF") ;;;GIONG TEXT trong dg dim THEO DG DIMLINE
(COMMAND "DIMTAD" "1") ;;;TEXTDIM PHIA TREN DIMLINE
(COMMAND "DIMTOFL" "ON") ;;;CO DIMLINE NGAY CA KHI TEXT OUTSIDE
(COMMAND "DIMTXSTY" "K.VNtime") ;;;style dimtext
(COMMAND "DIMTXT" "2.5") ;;;chieucao textdim
(COMMAND "DIMASZ" "1") ;;;scale for arrowhead
(COMMAND "DIMTVP" "1") ;;;khcach textdim phia tren hoac duoi dimline
(COMMAND "DIMGAP" "1") ;;;khcach dim phia tren hoac duoi dimline
(COMMAND "DIMSAH" "ON") ;;;dung blockarrow default hoac defined
(COMMAND "DIMBLK" "DIM") ;;;kieu arrow
(COMMAND "DIMBLK1" "DIM") ;;;kieu arrow dau
(COMMAND "DIMBLK2" "DIM") ;;;kieu arrow cuoi
(COMMAND "DIMSD1" "OFF") ;;;CO DIMLINEDAU
(COMMAND "DIMSE1" "OFF") ;;;CO EXTENDED LINE DAU
(COMMAND "DIMCLRD" "5") ;;;DATMAUDIMLINE
(COMMAND "DIMCLRE" "5") ;;;DATMAUEXTENDLINE
(COMMAND "DIMRND" "0") ;;;LAM TRON DIMTEXT
(COMMAND "DIMcen" "-3") ;;;ve center line for dimcen
(COMMAND "DIMSCALE" OVSC) ;;;OVERSCALE FOR DIM
(COMMAND "DIMSTYLE" "s" namedim) ;;SAVE TEN KIEU DIM
(setvar "dimlfac" MS) ;;measurement scale/scale factor trong Primary Units.
(PRINC)
)

Sau đây toàn bộ đoạn lsp của mình:

Đây là đoạn code lsp viết riêng cho một lần thực hiện, khi mình đưa sang dialog và để hàm lặp lại câu lệnh khi ấn vào các nút, ấn lần đầu thì không sao, ấn lần thứ 2 thì mình phải chọn lại đối tượng mới thì mới được tức mình muốn truy xuất đối tượng mới mà không cần thao tác chọn đối tượng đấy lần thứ 2. Rất mong bạn...

Sau đây toàn bộ đoạn lsp của mình:

Đây là đoạn code lsp viết riêng cho một lần thực hiện, khi mình đưa sang dialog và để hàm lặp lại câu lệnh khi ấn vào các nút, ấn lần đầu thì không sao, ấn lần thứ 2 thì mình phải chọn lại đối tượng mới thì mới được tức mình muốn truy xuất đối tượng mới mà không cần thao tác chọn đối tượng đấy lần thứ 2. Rất mong bạn góp ý giúp mình.

Cái hàm (ssget) thiệt khó chơi. Nó lẫn lộn không theo trật tự nào cả.
Lisp mình viết cho bạn rồi nè. Và để Lisp chạy đúng bạn hãy đánh vào cột đường tròn trong file mà bạn gửi các kí hiệu A B C D E F. Khi chạy Lisp chọn các hình tròn theo thứ tự A B C D E F , Lisp sẽ tính tọa độ tâm hình tròn (X , Y) ; đường kính, chu vi, diện tích. mà bạn phải nói rõ là bạn tính theo đơn vị gì...

Cái hàm (ssget) thiệt khó chơi. Nó lẫn lộn không theo trật tự nào cả.
Lisp mình viết cho bạn rồi nè. Và để Lisp chạy đúng bạn hãy đánh vào cột đường tròn trong file mà bạn gửi các kí hiệu A B C D E F. Khi chạy Lisp chọn các hình tròn theo thứ tự A B C D E F , Lisp sẽ tính tọa độ tâm hình tròn (X , Y) ; đường kính, chu vi, diện tích. mà bạn phải nói rõ là bạn tính theo đơn vị gì chứ? Lisp tính toàn bộ theo đơn vị mm đấy.
Cột 1 : Tọa độ tâm X
Cột 2 : Tọa độ tâm Y
Cột 3 : Đường kính
Cột 4 : Chu vi
Cột 5 : Diện tích

Hy vọng Lisp chạy đúng ý bạn
Chúc thành công

Bạn tham khảo ở đây và thay thế lệnh in bằng lệnh ikn (in khung nghiêng).
http://www.cadviet.c...showtopic=42078
File Cad minh hoạ ở đây.
http://www.cadviet.c...65_file_mau.dwg
Cách dùng:
Trong layout bạn dùng lệnh ikn, kích chọn 2 điểm góc khung phía dưới cùng và kích chọn Pline.
P/s: Phải đọc kỹ phần tham khảo tôi gửi cho bạn.
Một thoáng nữa tôi sẽ up Video lên.

>>

Bạn tham khảo ở đây và thay thế lệnh in bằng lệnh ikn (in khung nghiêng).
http://www.cadviet.c...showtopic=42078
File Cad minh hoạ ở đây.
http://www.cadviet.c...65_file_mau.dwg
Cách dùng:
Trong layout bạn dùng lệnh ikn, kích chọn 2 điểm góc khung phía dưới cùng và kích chọn Pline.
P/s: Phải đọc kỹ phần tham khảo tôi gửi cho bạn.
Một thoáng nữa tôi sẽ up Video lên.

(defun c:ikn()
(vl-load-com)
(command "PSPACE")
(command "undo" "be")
(setq
D1 (getpoint "\nChon diem thu nhat: ")
D2 (getpoint "\nChon diem thu hai: ")
)
(command "MSPACE")
(setq en (entsel "\n Chon pline "))
(if en
(progn
(setq ob (vlax-ename->vla-object (car en))
n (vlax-curve-getEndParam ob)
i 0

)
(while (<= i n)
(setq p1 (vlax-curve-getPointAtParam ob i)
p2 (vlax-curve-getPointAtParam ob (+ i 1))
)
(command "PSPACE" )
(alignspace P1 P2 D1 D2 )
(command "_plot" "" "" "" "" "" "" "")
(setq i (+ i 2))
)
)
)
(command "undo" "e")
(command "PSPACE" )
(princ)
)

P/s: Video: http://www.cadviet.com/upfiles/3/36665_11.rar
Trong quá trình thực hiện mà vướng mắc. Bạn có thể liên hệ với mình với yahoo: thanhduan2407@yahoo.com

Đoạn mã để 2 đường thẳng đó giao nhau 1 điểm dưới đây. Lệnh là LFA1 là một cải tiến của lệnh LFA như trên.


Về việc 2 arc nối tiếp thành pline (có 3 đỉnh), bạn hãy upload 1 file ví dụ của bạn lên. Tôi hình dung được điều bạn mô tả nhưng không chắc đúng ý bạn về cách nối tiếp 2 arch thành 1 pline. Theo cách tôi nghĩ, việc convert pline này thành arc khá đơn giản,...

Đoạn mã để 2 đường thẳng đó giao nhau 1 điểm dưới đây. Lệnh là LFA1 là một cải tiến của lệnh LFA như trên.


Về việc 2 arc nối tiếp thành pline (có 3 đỉnh), bạn hãy upload 1 file ví dụ của bạn lên. Tôi hình dung được điều bạn mô tả nhưng không chắc đúng ý bạn về cách nối tiếp 2 arch thành 1 pline. Theo cách tôi nghĩ, việc convert pline này thành arc khá đơn giản, chỉ là vẽ 1 arc mới đi qua 3 đỉnh của pline và xóa pline cũ đi. Nếu đã quen VBA bạn cũng có thể tự thực hiện việc này.

Rất mong bạn sẽ chia sẻ VBA cùng mọi người.

tôi có 1 đoạn lisp này có thể bạn dùng được:

===================================
TAO CAC LOAI KHUNG MAU BAN VE CO SAN:
===================================
(defun C:KHUNG (/ )
(command "cmdecho" 0)
(command "osnap" "none")
(setq DIEMCHEN (getpoint "CHON GOC TRAI-DUOI BAN VE"))
(chenkhungCG DIEMCHEN) ;VE CAC KHUNG TY LE CHUAN DE DINH HUONG
(setq MSTL (getreal "\nCHON...

tôi có 1 đoạn lisp này có thể bạn dùng được:

===================================
TAO CAC LOAI KHUNG MAU BAN VE CO SAN:
===================================
(defun C:KHUNG (/ )
(command "cmdecho" 0)
(command "osnap" "none")
(setq DIEMCHEN (getpoint "CHON GOC TRAI-DUOI BAN VE"))
(chenkhungCG DIEMCHEN) ;VE CAC KHUNG TY LE CHUAN DE DINH HUONG
(setq MSTL (getreal "\nCHON TY LE BAN VE (BAM SO TUONG UNG T/LE:100;200;250;500;1000;2000): "))
;XOA CAC KHUNG DINH HUONG
(repeat 12 (command "_erase" (ssget "L") ""))
;CHEN MAU HO SO VAO
(setq DUONGDAN "c:\\program files\\AutoCAD 2004\\Khung\\")
(setq LOAIHS "Khung")
(setq TENFILE (strcat LOAIHS (rtos MSTL 2 0) ".dwg"))
(ChenBlock DUONGDAN TENFILE DIEMCHEN (/ MSTL 1000))
(prompt "\nDA TAO XONG KHUNG BAN VE!")(command "osnap" "End,Mid,Int,Perp")(Princ)
);END DEFUN KHUNG
===================================
;SCALE BAN VE LAM TANG CO CHU KICH THUOC THEO TY LE
;;;=================================
(defun SCDim( / e ob OName SF LSF)
(while (setq e (ssname ssd 0))
(setq
ob (vlax-ename->vla-object e)
OName (vla-get-ObjectName ob)
SF (vla-get-ScaleFactor ob))
(if (not (wcmatch OName "*AngularDimension"))
(progn
(setq LSF (vla-get-LinearScaleFactor ob))
(command "dimoverride" "dimlfac" (/ LSF k) "" e "")))
(if (/= opt "N") (command "dimoverride" "dimscale" (* SF k) "" e ""))
(ssdel e ssd)))
;==========
(defun C:SCC( / ss ssd p k opt)(prompt "\nGo lenh: SCC de phong to hoac thu nho ban ve va kich thuoc ")
(vl-load-com)
(setq
ss (ssget)
ssd (ssget "p" '((0 . "DIMENSION")))
p (getpoint "\nTAM DIEM KHI SCALE:")
k (getreal "\nSCALE LEN MAY LAN:")
;opt (strcase (getstring "\nDim scale overall? :"))
)
(if (= opt "") (setq opt "N"))
(if (> k 1)
(progn (command "scale" ss "" p k) (SCDim))
(progn (SCDim) (command "scale" ss "" p k))
)
(prompt "\nDA PHONG TO BAN VE VA KICH THUOC!")(Princ)
)

VÀ TẠO CÁC FILE MẪU TỈ LỆ: 1/100; 1/200; 1/250; 1/500; 1/1000; 1/2000.
LƯU Ý: TẠO 1 FILE MẪU TỈ LỆ 1/1000, SAU ĐÓ COPY THÀNH CÁC FILE NHƯNG VẪN DỮ NGUYÊN TỈ LỆ 1/1000 VÀ CHỈ SỬA CHỮ TỈ LỆ Ở PHẦN NHƯ HÌNH MINH HỌA KÈM THEO" TỶ LỆ: 1/1*** (Đơn vị cm)" BÊN TRONG BẢN VẼ VÀ XỬ DỤNG LỆNH SCC KÈM THEO ĐỂ SCALE DIM CHO ĐÚNG TỈ LỆ NGOÀI RA KHÔNG ĐƯỢC SCALE KHUNG RỒI LƯU FILE VẬY LÀ OK.
BẢN VẼ SẼ TỰ SCALE KHUNG KHI MÌNH GÕ LỆNH: KHUNG -> NHẬP SỐ TƯƠNG ỨNG VỚI TỈ LỆ 100 HOẶC 200 ...., VÀ NÓ SẼ HIỆN LÊN KHUNG NHƯ MÌNH ĐÃ MẶC ĐỊNH!
NHỚ COPY FILE KHUNG CỦA MÌNH THEO ĐÚNG ĐƯỜNG DẪN VÀO Ổ "c:\\program files\\AutoCAD 2004\\Khung\\"SAU ĐÓ SỬA VÀ LƯU FILE VÀO ĐÓ.
BẢN VẼ KÈM THEO ĐÃ CÓ KÍCH THƯỚC CHUẨN THEO TỪNG TỈ LỆ VÀ BẢN VẼ VẪN GIỮ NGUYÊN TỈ LỆ 1/1000:
http://www.cadviet.com/upfiles/3/62465_khung.rar