[Yêu Cầu]Chèn Block theo trên 1 đường Pline, Polyline

[pdhuyxn2 8]

Nhờ các Bác viết cho 1 lisp  với nội dung công việc như sau: Sau khi quét toàn bộ các block phía trên, chọn đường polyline hoặc đường line thì sẽ chèn Block mẫu  trên đường line hoặc Polyline như VD  BV cag như sau kèm theo.

Xin cám ơn Các Bác.

Chen Block.dwg

[tannguyen291 129]

nếu đường thẳng của bạn chỉ nằm ngang thì dùng lisp này của mình nhé. 

quét chọn nhiều đối tượng trước rồi chọn mẫu sau.

(defun c:test (/ ss ent block scl drpt)
  (setq 
    ss (mapcar 
         '(lambda (x) (cadr (assoc 10 (entget x))))
         (acet-ss-to-list (ssget '((0 . "INSERT"))))
       )
    ent (entget (car (entsel "\nSelect model:")))
    block (cdr (assoc 2 ent))
    drpt (cddr (assoc 10 ent))
    scl (abs (cdr (assoc 41 ent)))
  )
  (foreach item ss
    (entmake (list
	    (cons 0 "INSERT")
	    (cons 100 "AcDbEntity")
	    (cons 100 "AcDbBlockReference")
	    (cons 2 block)
	    (append (list 10 item) drpt)
	    (cons 41 scl)
	    (cons 42 scl)
	    (cons 43 scl)
	  ))
  )
  (princ)
)

 

[Duong Nhat Duy 302]

Của bạn đây !

GB.lsp

[pdhuyxn2 8]

Cám Ơn bác Ạ. Bác Có thể Chỉnh Giúp E 1 chút đượng không Ạ.

Sau Khi Quét Các Block Bên trên sau đó Chọn đường Polyline rồi Pick và Block mẫu và ra được KQ 

 

[pdhuyxn2 8]

Cám Ơn bác Nhất Duy Lisp Ngon rồi Ạ.