Nhờ hỗ trợ sửa lisp

[hatrongquan88 4]

Mình có sưu tầm được Lisp để phục vụ công việc. Do nhu cầu của công việc và kiến thức có phần hạn chế nên mình xin phép được nhờ anh em trên diễn đàn hỗ trợ chỉnh sửa lại giúp mình lisp này.  Khi thao tác đến phần "Save coordinates to: thì bỏ hẳn lựa chọn Text file và No save (hoặc ưu tiên lựa chon mục có phần chấm đen là Excel). Chúc diễn đàn ngày càng phát triển, mình xin cảm ơn!

TT.LSP

[ketxu 2.984]

Chưa test nhưng chắc bạn chỉ cần đổi dòng này thôi :
 

(if (null sFlag)
      (setq sFlag "Text") 
    )

thành
 

(if (null sFlag)
      (setq sFlag "Excel")
    )

Lúc nó hỏi đoạn đó thì Enter thôi. Vẫn giữ lại đc các Option để nhỡ đâu có việc cần tới

[hatrongquan88 4]

3 giờ trước, ketxu đã nói:

Chưa test nhưng chắc bạn chỉ cần đổi dòng này thôi :
 

• cadvietlisp.lsp
  
• [✎]
   

(if (null sFlag)
      (setq sFlag "Text") 
    )

thành
 

• cadvietlisp.lsp
  
• [✎]
   

(if (null sFlag)
      (setq sFlag "Excel")
    )

Lúc nó hỏi đoạn đó thì Enter thôi. Vẫn giữ lại đc các Option để nhỡ đâu có việc cần tới

 

(if(null sFlag)(setq sFlag "Text"))

Mình đã thay đổi dòng này chữ Text thành Excel nhưng nó vẫn ưu tiên lựa chọn text file. 

[gia_bach 1.550]

Thay dòng :

(setq sFlag (getkword (if IsRus "\nNiodaieou eiidaeiaou a [Oaee/Excel/Ia niodaiyou] <Oaee> : "
"\nSave coordinates to [Text file/Excel/Not save] <Text> : ")))

thành:

(setq sFlag "Excel")

Trong lisp có 4 dòng như vậy.

[hatrongquan88 4]

12 giờ trước, gia_bach đã nói:

Thay dòng :

• cadvietlisp.lsp
  
• [✎]
   

(setq sFlag (getkword (if IsRus "\nNiodaieou eiidaeiaou a [Oaee/Excel/Ia niodaiyou] <Oaee> : "
"\nSave coordinates to [Text file/Excel/Not save] <Text> : ")))

thành:

• cadvietlisp.lsp
  
• [✎]
   

(setq sFlag "Excel"

Trong lisp có 4 dòng như vậy.

Cảm ơn bạn đã hỗ trợ, mình đã thử và thành công.

[hatrongquan88 4]

Vào lúc 18/4/2021 tại 18:28, gia_bach đã nói:

Thay dòng :

• cadvietlisp.lsp
  
• [✎]
   

(setq sFlag (getkword (if IsRus "\nNiodaieou eiidaeiaou a [Oaee/Excel/Ia niodaiyou] <Oaee> : "
"\nSave coordinates to [Text file/Excel/Not save] <Text> : ")))

thành:

• cadvietlisp.lsp
  
• [✎]
   

(setq sFlag "Excel"

Trong lisp có 4 dòng như vậy.

Bạn có thể giúp mình viết 1 lisp như thế này nữa đc k? Mình muốn chuyển gốc tọa độ X, Y (giống lệnh UCS) về vị trí khác. thao tác như thế này:

1. Gõ lệnh

2. Pick chon điểm Y1

3. Nhập khoảng cách từ Y1 về gốc tọa độ

Phương X vuông góc với phương Y. Ví dụ sau khi thao tác xong ta sẽ có tọa độ điểm pick Y1 là X=0.00 ; Y= 10.00; Z= 0.00