[Yêu cầu] Lisp chèn text vào Pl

[whatcholingon 45]

(defun c:rb(/ ST:Geom-Center ST:Ss->ListEnt)
(defun ST:Geom-Center (ent / p1 p2)
(vla-getboundingbox (vlax-ename->vla-object ent) 'p1 'p2)
(setq p1 (vlax-safearray->list p1)
p2 (vlax-safearray->list p2)
pt (mapcar '* (mapcar '+ p1 p2) '(0.5 0.5 0.5))
)
)
(defun ST:Ss->ListEnt (ss / n e l)
 (setq n (sslength ss))
 (while (setq e (ssname ss (setq n (1- n))))
(setq l (cons e l))
 )
)
(or ang (setq ang 180))
(setq ang (cond ((getreal (strcat "\nGoc quay < " (rtos ang 2 2) " >:")))(ang)))
(foreach e (ST:Ss->ListEnt (ssget))
(command ".rotate" e "" "_non" (ST:Geom-Center e) ang )
))

Thanks Mr ketxu nhiu nhé.

[traigtmientay 0]

(defun c:rb(/ ST:Geom-Center ST:Ss->ListEnt)
(defun ST:Geom-Center (ent / p1 p2)
(vla-getboundingbox (vlax-ename->vla-object ent) 'p1 'p2)
(setq p1 (vlax-safearray->list p1)
p2 (vlax-safearray->list p2)
pt (mapcar '* (mapcar '+ p1 p2) '(0.5 0.5 0.5))
)
)
(defun ST:Ss->ListEnt (ss / n e l)
 (setq n (sslength ss))
 (while (setq e (ssname ss (setq n (1- n))))
(setq l (cons e l))
 )
)
(or ang (setq ang 180))
(setq ang (cond ((getreal (strcat "\nGoc quay < " (rtos ang 2 2) " >:")))(ang)))
(foreach e (ST:Ss->ListEnt (ssget))
(command ".rotate" e "" "_non" (ST:Geom-Center e) ang )
))

không hiểu sao em dùng cái này của bác ketxu text nó bị văng rất xa . phải dùng Ctrl + A mò lại mới thấy vị trí mới của nó .

bác ketxu co thể chỉnh lại hộ e tí dc ko .

[ketxu 2.984]

Chắc chỉ xảy ra khi bạn không ở WCS thôi ^^

[traigtmientay 0]

Chắc chỉ xảy ra khi bạn không ở WCS thôi ^^

Chắc chỉ xảy ra khi bạn không ở WCS thôi ^^

chính xác như bác nói luôn . e dùng UCS rồi W phát nó dc ngay . nhưng bác có thể chỉnh cho em tí để ở mọi nơi có thể dùng dc ko bác .

[ketxu 2.984]

Bạn cứ gửi file CAD lên, rỗi lúc nào mình sửa sau