[Nhờ viết lisp] vẽ, chỉnh sửa đường 3D Polyline theo độ dốc

[[Nhờ viết lisp] vẽ, chỉnh sửa đường 3D Polyline theo độ dốc]

Vào lúc 17/3/2015 tại 18:16, ndtnv đã nói:

Trong hàm CDD thêm

(setvar "osmode" 0)

vào trước dòng

(command "3dpoly")

nếu muốn nhập 2% thay cho 0.02 thì sửa thành

(setq h (+ h (* (/ d 100.) l)))

Công thức tính chiều dài p1p2 trong hàm vpdd phải sửa giống như trong hàm CDD

Cho mình hỏi lisp mình sửa lại như thế này nhưng phần CDD không chạy được.

Với khi vẽ set độ cao h bằng cách chọn điểm thay vì nhập độ cao không nhỉ.

Vì thường độ cao theo bảng vẽ của khách hàng, nhưng đôi lúc không chẳn mình phải đo và nhập lại....

 

Cảm ơn ạ

3D - POLINE.lsp

[[Nhờ viết lisp] vẽ, chỉnh sửa đường 3D Polyline theo độ dốc]

Vào lúc 21/6/2015 tại 10:18, Doan Van Ha đã nói:

Thích sang chảnh thì thế này:

 

(defun C:PL1()
 (initdia)
 (command "layer")
 (command "pline"))

Xin lối anh nhưng lisp này sao không chạy được ạ.

Anh xem lại giúp em với.

Cảm ơn anh nhiều.