Đến nội dung


Hình ảnh

Xin lisp đưa dạng text (content) thành cao độ (dạng số)


  • Chủ đề bị khóa Chủ đề bị khóa
4 replies to this topic

#1 hongquan88

hongquan88

    biết zoom

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

Đã gửi 05 March 2013 - 10:48 AM

Chào cả nhà, mình có vấn đề sau về cao độ, mong được giúp đỡ.

Mình có bản vẽ cad về bình đồ, các cao độ trong cad (chẳng hạn 3.90) khi mình chọn và bấm Ctrl 1 thì ở content ghi là 3.90 nhưng ở cao độ (text alignment Z) thì vẫn là 0. Mình cần lisp để biến nó về đúng cao độ mình cần. Mong mọi người giúp đỡ. Cám ơn cả nhà.


  • 0

#2 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 05 March 2013 - 11:27 AM

Code nhanh cho bạn đây.

(defun C:HA( / ss elist ass)

 (if (setq ss (ssget '((0 . "*TEXT"))))
  (foreach ent (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
   (setq elist (entget ent) ass (assoc 10 elist))
   (entmod (subst (cons 10 (list (cadr ass) (caddr ass) (atof (cdr (assoc 1 elist))))) ass elist))))
 (princ))

  • 1

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#3 hongquan88

hongquan88

    biết zoom

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

Đã gửi 05 March 2013 - 11:34 AM

Uầy, đúng cái mình cần rồi, cám ơn bạn nhiều. Mới đầu nhìn ha cứ tưởng là cái lisp nối text ^^. Một lần nữa, cám ơn bạn.


  • 0

#4 Chiron

Chiron

    biết dimradius

  • Members
  • PipPipPipPipPip
  • 310 Bài viết
Điểm đánh giá: 90 (tàm tạm)

Đã gửi 05 March 2013 - 01:42 PM

Uầy, đúng cái mình cần rồi, cám ơn bạn nhiều. Mới đầu nhìn ha cứ tưởng là cái lisp nối text ^^. Một lần nữa, cám ơn bạn.

Cám ơn bằng cách nhấn vào biểu tượng mũi tên hướng lên màu xanh ở góc dưới bên phải mỗi bài viết đó bạn ^ ^


  • 0

#5 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5685 Bài viết
Điểm đánh giá: 2606 (tuyệt vời)

Đã gửi 05 March 2013 - 03:52 PM

Cái này có trên 4r r k biết bạn đã tìm kiếm chưa. Topic lập sai quy định, dù sao thì yêu cầu đã đc đáp ừng, cảm ơn bác H và chúc bạn thành công. closed topic
  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC