Nhờ AC sửa Lisp

[PhamYen 2]

Chào các anh chị em trong diễn đàn . em là thành viên mới mong đc mọi người chỉ bảo , giúp đỡ ạ

Chả là em có 1 lisp phun đường tròn đc mọi người cho . giờ em muốn chỉnh sửa thành phun hình chữ nhật . anh chị nào rãnh giúp em với

Yêu cầu : tên lệnh FHCN

Nhập chiều dài theo trục X :

Nhập chiều dài theo trục Y :

Em Muốn tọa độ là tâm của hai đường chéo hình chữ nhật ạ

Em cam ơn ạ !

Dưới là lisp FDT.LSP và file text mẫu ạ test.txt

[alisp 73]

Bạn kiếm cái hàm tên replace_str gửi lên mới đủ.

[alisp 73]

Nếu bạn không kiếm ra cái hàm đó hoặc không muốn đưa lên cái hàm đó thì sửa dùm bạn như này. Tên lệnh FCN. 

FDT.LSP

[PhamYen 2]

1 giờ} trướ}c, alisp đã nói:

Nếu bạn không kiếm ra cái hàm đó hoặc không muốn đưa lên cái hàm đó thì sửa dùm bạn như này. Tên lệnh FCN. 

FDT.LSP

Anh Alisp nói quá rồi . em không biết hàm với thuật toán nào cả lên mới nhờ mọi người biết sửa giùm mà . còn lsp anh sửa em thấy vẫn chưa sử dụng đc có phải vẫn thiếu  gì ko ạ

[alisp 73]

Thì là thiếu cái hàm tôi nói ở trên, lisp fun circle cũng dùng hàm đó chạy được thì  để lisp này chung với lisp circle sẽ chạy được.

[PhamYen 2]

30 phút trước, alisp đã nói:

Thì là thiếu cái hàm tôi nói ở trên, lisp fun circle cũng dùng hàm đó chạy được thì  để lisp này chung với lisp circle sẽ chạy được.

liệu có phải đây ko ạ

(defun replace_str (str)
  (setq    rs (acet-str-replace "," " " str)
    rs (acet-str-replace "    " " " rs)
  )
  (split_space rs)
)
(defun split_space (str)
  (vl-remove-if
    '(lambda (x) (= x ""))
    (acet-str-to-list " " str)
  )
)

[alisp 73]

Đúng rồi.

FDT.LSP

[PhamYen 2]

Nhưng tâm vẫn chưa đúng 2 đường chéo bạn à

[alisp 73]

Cái này chắc được.

FDT.LSP

[PhamYen 2]

31 phút trước, alisp đã nói:

Cái này chắc được.

FDT.LSP

Quá hay . cảm ơn bạn rất nhiều