Nhờ chỉnh sửa lisp tính đai vào dim

[nguoitinhcodoc 2]

Em có sưu tầm được lisp tính số lượng và ghi đai ở dưới dim. Nhờ các bác sửa giúp e thêm: Nhập số hiệu, nhập đường kính đai, nhập khoảng rải. Và các bác có thể viết giúp e lisp để tính số lượng các đai đã ghi vào dim được không ạ? Em rất cảm ơn.

Lisp e sưu tầm: 

 

(defun C:gt(/ ctc ss)
  (or *ctc* (setq *ctc* 200))
  (initget 6)
  (setq ctc (getint (strcat"\nNh\U+1EADp b\U+01B0\U+1EDBc th\U+00E9p < " (itoa *ctc*) ">:")) )
  (if ctc (setq *ctc* ctc))
  (if (setq ss (ssget"_:L" (list (cons 0 "DIMENSION")) ))
    (progn
      (command "_.undo" "_begin")    
      (foreach ent (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
(vla-put-TextOverride (vlax-ename->vla-object ent)
   (strcat "<>\\X" (itoa (+ (fix(/ (cdr (assoc 42 (entget ent))) *ctc*)) 1))
    "x%%c6a" (itoa *ctc*)))    )
      (command "_.undo" "_end") (princ)  )))
(defun C:cl(/ num ss)
  (if (setq ss (ssget"_:L"))
    (progn
      (command "_.undo" "_begin")
      (or *num* (setq *num* 15))
      (initget 4)
      (setq num (getint (strcat"\nNhap color <" (itoa *num*) ">:")) )
      (while (not (if num (<= num 256)T) )
(princ "\nGia tri <=256.")
(setq num (getint (strcat"\nNhap color <" (itoa *num*) ">:")) ))
      (if num (setq *num* num))
      (foreach ent (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
(vla-put-Color (vlax-ename->vla-object ent)*num* )    )
      (command "_.undo" "_end") (princ)  )))
 

[limfx 21]

Ý bạn muốn như thế nào diễn giải theo yêu cầu trên bản vẽ cad ?

[Nguyễn Hà Huy 31]

Cần gì lisp, trong dim có sãn cái đó rồi mà, chỉnh như ảnh nó tự +1 thanh thép 

[nguoitinhcodoc 2]

Lisp e hoàn thiện rồi ạ. Cảm ơn mn.