Duong Nhat Duy

Thành viên

Duong Nhat Duy có nội dung thích nhất!

Cộng đồng

112 (tàm tạm)

1.544 chế độ xem tiểu sử

cần giúp đỡ lisp cộng dim

Duong Nhat Duy đã trả lời saukhoai trong Chủ đề AutoLisp

Của bạn đây ! (defun C:cd ( / DT I OBJ SS STR X) (setq dt (getreal "Nhap so muon cong/tru: ")) (setq ss (ssget (list (cons 0 "*DIMENSION")))) (setq i 0) (repeat (sslength ss) (setq obj (vlax-ename->vla-object (ssname ss i))) (if (zerop (setq x (atof (vla-get-TextOverride obj)))) (setq x (vla-get-Measurement obj)) ) (setq str (strcat (vla-get-TextPrefix obj) (rtos (+ x dt) 2 0) (vla-get-TextSuffix obj))) (vla-put-TextOverride obj str) (setq i (1+ i)) ) (print) ) (vl-load-com)