Đến nội dung


Hình ảnh
- - - - -

Em nhờ các anh chị em viết giúp lisp scan block thuộc tính !


  • Please log in to reply
2 replies to this topic

#1 ginger

ginger

    biết lệnh move

  • Advance Member
  • PipPipPip
  • 121 Bài viết
Điểm đánh giá: 10 (tàm tạm)

Đã gửi 17 November 2014 - 04:48 PM

Như tiêu để em muốn nhờ các bác viết giúp em lisp scan block thuộc tính mà vẫn giữ nguyên vị trí của nó . ! 

em xin cảm ơn !


  • -1

#2 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 17 November 2014 - 05:09 PM

Nhớ là cái này đã có nhiều rồi mà.

; Chuc nang: Scale Blocks at Center.
(defun C:HA (/ ss ent obj i)
 (vl-load-com)
 (if (not *tl*) (setq *tl* 1.0))
 (initget 6)
 (setq tl (getreal (strcat "\nHe so Scale <" (rtos *tl* 2) ">: ")))
 (if (not tl) (setq tl *tl*) (setq *tl* tl))
 (princ "\nChon cac Block can Scale...")
 (setq ss (ssget '((0 . "INSERT"))) i -1)
 (while (< (setq i (1+ i)) (sslength ss))
  (setq ent (ssname ss i))
  (command "scale" ent "" "non" (cdr (assoc 10 (entget ent))) tl)))
 

  • 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 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

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

Đã gửi 18 November 2014 - 10:17 AM

Như tiêu để em muốn nhờ các bác viết giúp em lisp scan block thuộc tính mà vẫn giữ nguyên vị trí của nó . ! 

em xin cảm ơn !

Hề hề hề,

Không hiểu ý bạn, scan hay scale????


  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.