Hỏi về hàm lisp

[vanhuyou 25]

Các bác cho em hỏi là với code như vậy (command "TEXT" "j" "MC" Point "" "" (rtos NewLV 2 3) "") thì khi em muốn chỉnh chiều cao text ví dụ là 100 thì sửa như thế nào vậy, em mới bắt đầu tìm hiểu về lisp, cám ơn các bác

[Doan Van Ha 3.180]

Code này lấy height là height của style current

[phucquangcda 0]

(command "TEXT" "j" "MC" Point 100 "" (rtos NewLV 2 3) "")

[vanhuyou 25]

16 giờ trước, phucquangcda đã nói:

(command "TEXT" "j" "MC" Point 100 "" (rtos NewLV 2 3) "")

Không được bác nó, lệnh trở thành xuất ra text với chiều cao 100, nội dung mình nhập vào

[phucquangcda 0]

bạn thêm hàm này vào

(defun wtxt(txt p cao)
 (entmake (list (cons 0 "TEXT")
     (cons 10 p)
     (cons 11 p)
     (cons 1 txt)
     (cons 40 cao)
     (cons 72 1)
     (cons 73 2)))
)

Rồi thay dòng đó bằng dòng này coi: (wtxt (rtos LV 2 3) point 100)

ps: Không nhầm thì bác đang sửa lisp chèn cao độ vào đỉnh pline khi đã biết cao độ điểm đầu và độ dốc pllev trên diễn đàn.

[vanhuyou 25]

Vào lúc 12/7/2021 tại 10:21, phucquangcda đã nói:

bạn thêm hàm này vào

(defun wtxt(txt p cao)
 (entmake (list (cons 0 "TEXT")
     (cons 10 p)
     (cons 11 p)
     (cons 1 txt)
     (cons 40 cao)
     (cons 72 1)
     (cons 73 2)))
)

Rồi thay dòng đó bằng dòng này coi: (wtxt (rtos LV 2 3) point 100)

ps: Không nhầm thì bác đang sửa lisp chèn cao độ vào đỉnh pline khi đã biết cao độ điểm đầu và độ dốc pllev trên diễn đàn.

Đúng là chèn cao độ bác, đoạn thêm vào đó đưa vào cuối của lệnh đúng ko bác

 

[thanhduan2407 272]

Bạn thử cái này!

(command "Text" "J" "MC" (getpoint) (getdist) 0 "Chu gi do" "")