12 Lisp Tuyển Chọn

[THE HIEP 1406]

12 Lisp tuyển chọn dành cho Họa viên Kiến trúc

CD: Cắt chân dim.

CDV: Array nhanh.

COBLK (CB): Chuyên Layer của Block về Layer hiện hành.

DV: Chia 2 điểm thành các khoảng bằng nhau (như lệnh DIV nhưng hay hơn).

HC: Copy hatch như lệnh MA.

HN: Hatch nhanh gạch, kính, BTCT.

LTRUC: Bố trí cột, dầm vào lưới trục. Dùng khi vẽ mặt bằng và mặt cắt.

NN: Chuyển các đường (arc, line) rời rạc thành polyline.

RDT: Rải đối tượng theo đường dẫn.

SD: Sắp lại các đường dim theo một đường dim chuẩn.

TINHTHANG: Vẽ nét hoàn thiện mặt đứng cầu thang bất kỳ khi đã có mặt bằng. Dùng để vẽ thang cong thì tuyệt vời

VTB1: Vẽ vế thang thẳng (phần cắt hoặc phần thấy)

(Có Hướng dẫn sử dụng và bài tập)

Download

(Pass: daynghehoavien.com)

[anhtam_084 0]

 

Bạn ơi bạn xem giúp lệnh HC (copy hatch) không thể coy hatch gradient. Bạn có cách nào bổ sung thêm lựa chọn hatch Gradient ko? Nó báo lỗi như thế này

 

Command: hc
LUA CHON MAU HATCH DE SAO CHEP:
Cannot invoke (command) from *error* without prior call to (*push-error-using-command*).
Converting (command) calls to (command-s) is recommended.

 

Cám ơn bạn.

hc.lsp

[Tue_NV 3912]

@anhtam_084 : Hatch loại solid hay Gradient thì không có Scale và angle 

nên thay 2 dòng : 

(setvar "HPSCALE" (cdr (assoc 41 elist)))

(setvar "HPANG" (cdr (assoc 52 elist)))

 

thành:

(if (assoc 41 elist) (setvar "HPSCALE" (cdr (assoc 41 elist))))
(if (assoc 52 elist) (setvar "HPANG" (cdr (assoc 52 elist))))

[anhtam_084 0]

57 phút trước, Tue_NV đã nói:

@anhtam_084 : Hatch loại solid hay Gradient thì không có Scale và angle 

nên thay 2 dòng : 

(setvar "HPSCALE" (cdr (assoc 41 elist)))

(setvar "HPANG" (cdr (assoc 52 elist)))

 

thành:

(if (assoc 41 elist) (setvar "HPSCALE" (cdr (assoc 41 elist))))
(if (assoc 52 elist) (setvar "HPANG" (cdr (assoc 52 elist))))

Cám ơn bác Tue_NV nhiều.

[tuanciao 2]

lisp TINHTHANG dùng như thế nào vậy anh ơi