Đến nội dung


Hình ảnh
- - - - -

cộng đều các góc quay của text


  • Please log in to reply
2 replies to this topic

#1 tuananhcd04

tuananhcd04

    biết pan

  • Members
  • Pip
  • 9 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 16 July 2010 - 11:51 AM

Trong bản vẽ em có các text với rotation tương ứng là: 30Độ, 50 độ , v.v... Có lệnh hay lisp nào khi sử dụng nó sẽ cộng đều các giá trị rotaion với 1 số không? Chẳng hạn em sẽ cộng các rotation cảu các text trên thêm 180 độ. kết quả sẽ là 210 độ, 230 độ.
Thanks các pác
  • 0

#2 VUVUZELA

VUVUZELA

    biết lệnh chamfer

  • Members
  • PipPipPipPip
  • 210 Bài viết
Điểm đánh giá: 97 (tàm tạm)

Đã gửi 18 July 2010 - 10:45 AM

Đây bạn ơi
Có gì pm mình
(Defun C:ct (/)
(setvar "cmdecho" 0)
(setq ange (getangle (strcat "\nNhap goc can chuyen : ")))
(setq a (ssget (list (cons 0 "TEXT"))))
(setq b (sslength a))
(setq x -1)
(repeat b
(setq x (+ x 1))
(setq ent (ssname a x))
(setq ents (entget ent))
(setq goc1 (cdr (assoc 50 ents)))
(setq goc (+ goc1 ange))
(setq ents (subst (cons 50 goc) (assoc 50 ents) ents))
(entmod ents)
)
(princ "\nChuong trinh duoc viet boi VUVUZELA")
)

  • 2

Hệ thống Liên Kết, Thiết Kế Tự Động

ttps://www.facebook...etThietKeTuDong


#3 tuananhcd04

tuananhcd04

    biết pan

  • Members
  • Pip
  • 9 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 06 August 2010 - 12:23 AM

thanks pác Vuvuzela nhìu nhìu. :(
  • 0