Lisp chia hoặc nhân text

[ccc123 0]

Trên bản vẽ cad mình có n text dạng số. muốn chia n text đó cho 1 số bất kỳ. các bạn giúp mình đoạn lisp đó với

[Tue_NV 3.912]

Trên bản vẽ cad mình có n text dạng số. muốn chia n text đó cho 1 số bất kỳ. các bác giúp em đoạn lisp đó với

Bạn chịu khó tìm kiếm một chút đi. Trên diễn đàn đã bàn rồi đấy.

[ccc123 0]

Bạn chịu khó tìm kiếm một chút đi. Trên diễn đàn đã bàn rồi đấy.

Mình tìm mãi rồi nhưng ko thấy đâu cả. chi có lisp cộng text thôi. bạn post cho mình với nhé

[phamthanhbinh 3.146]

Trên bản vẽ cad mình có n text dạng số. muốn chia n text đó cho 1 số bất kỳ. các bạn giúp mình đoạn lisp đó với

Hãy post các dạng text mà bạn có trên bản vẽ, các dạng text mà bạn muốn chuyển đổi.

Trong lisp có các hàm (atoi) (atof) có thể chuyển một chuỗi thành một số, không biết có đúng ý bạn hay không???

[tuanduc 0]

Trên bản vẽ cad mình có n text dạng số. muốn chia n text đó cho 1 số bất kỳ. các bạn giúp mình đoạn lisp đó với

đây là lisp nhân n text cho 1 số bất kỳ. Ko biết có đúng ý bạn hay ko. Đây là mình cop trên mạng đó.

(defun c:nhan( / tmp)

(princ "\nNHAN © CADViet.com")

(while (not tmp)

(setq tmp heso

tmp (getreal (cond (tmp (strcat "\nHay nhap he so <" (rtos tmp 2 2)">: "))

(t "\nChua co he so, hay nhap he so: ")

)

)

)

(if tmp (setq heso tmp)

(if heso (setq tmp heso))

)

)

(entmod (subst (cons 1 (vl-string-trim "." (vl-string-trim "0" (rtos (* heso (atof (cdr (assoc 1 (entget (car (entsel "\nHay pick vao gia tri can nhan: "))))))))))) (assoc 1 (setq tt (entget (car (entsel "\nHay pick vao so can sua: "))))) tt))

(princ)

)

(princ "\nsu dung lenh NHAN de bat dau. Day la freelisp tu www.cadviet.com")

(princ)