- Vẽ 1 pline nối các điểm góc của các
bản vẽ lại với nhau (để defpoints layer).
- Tạo 1 layout mới. Vẽ 1 khung rectang
bằng với khung bản vẽ trong model.
- Tạo 1 mview, zoom khung bản vẽ đầu
tiên đúng với khung trong layout.
- Setup page cho bản vẽ
- Load lisp bản vẽ bằng lênh ap. (Link
download lisp tại đây: http://www.mediafire.com/download/6tic88pdx2e99ip/INM.lsp)
Video hướng dẫn
--------------------------------------------------------------------------------------------------
(defun c:INM()
(vl-load-com)
(command "MSPACE"
"")
(setq en (entsel "\n ThS.Doan Ngoc
Tu- Ban can chon pline"))
(if en
(progn
(setq ob (vlax-ename->vla-object (car en))
n (vlax-curve-getEndParam
ob)
i 0
)
(while (<= i n)
(progn
(setq
p (vlax-curve-getPointAtParam ob i)
p0
(vlax-curve-getPointAtParam ob (- i 1))
)
(command
"PSPACE" "")
(command
"MSPACE" "")
(command
"pan" p p0 )
(command
"_plot" "" "" "" ""
"" "" "")
(command
"PSPACE" "")
(command
"MSPACE" "")
(setq i (1+
i))
)
)
(command "PSPACE" "")
)
)
(princ)
)
--------------------------------------------------------------------------------------------------
Đoàn Ngọc Tứ
List có tham khảo và chỉnh sửa cho phù
hợp từ cadviet.com
Blogger Comment
Facebook Comment