Chào các bạn ! Mình xin nhờ các bạn viết lisp này.

[newcadvn 3]

Mình xin nhờ các bạn viết lisp hoặc bạn nào có thì cho mình xin.

Mình muốn lisp chia text chữ số cho 1000 . Vi dụ như : 12345678 thành 123456.678

xin cam ơn .

Minh tìm trên mạng lisp này . nhờ các bạn chỉnh giúp

 

(defun c:test ( / TEXT WORD NUMBER )
  (vl-load-com)
  (if (setq sset (ssget '((0 . "text"))))
    (repeat (setq cnt (sslength sset))
      (setq TEXT (ssname sset (setq cnt (1- cnt))))
      (setq OBJECT (vlax-ename->vla-object TEXT))
      (if
    (and
      (vlax-property-available-p OBJECT 'TextString)
      (setq NUMBER (read (vla-get-TextString OBJECT ))); atof
      (numberp NUMBER)
      )
    (vla-put-Textstring OBJECT (rtosta NUMBER 2 0))
    )(princ "\nNUMBER please!!")
      )
    )
  )
  (princ)

[ronaldo2002 7]

Dùng tool Cadman gì ấy trên trang của autodesk có cái này và nhiều chức năng lắm bạn tìm thử xem máy mình có nhưng mà 4MB k up đc

[ronaldo2002 7]

https://apps.autodesk.com/ACD/en/Detail/Index?id=5349251522304654929&appLang=en&os=Win32_64