Nhờ sửa lisp Chèn Block được chọn vào các Point

[united 8]

Em có cop nhặt và chỉnh sửa được lisp này, nhưng lúc hoạt động lúc không. Lúc ngon lành, lúc báo lỗi tùm lum (mỗi lúc lỗi một kiểu luôn).

Nhờ các anh xem và chỉnh sửa giúp ạ. Em cảm ơn nhiều ạ!

Quote

(defun C:BP (/ ss n)
  (setvar "CMDECHO" 0)
  (setq BLOCKNAME (entsel "\nSelect Block:"))
  (if (setq ss (ssget '((0 . "POINT"))))
    (repeat (setq n (sslength ss))
      (command        "_.INSERT" BLOCKNAME
        "_none" (cdr (assoc 10 (entget (ssname ss (setq n (1- n))))))        "" "" ""      )
    )
    (prompt "\nNo Point(s) selected.")
  )
  (princ)
)

 

[ndtnv 481]

BLOCKNAME phải là string thì mới dùng (command        "_.INSERT" BLOCKNAME ..)

(setq BLOCKNAME (cdr (assoc 2 (entget(car(entsel "\nSelect Block:"))))))

[VoHoan 6]

Tiện đây cho mình hỏi code trong lisp để mặc định khi chạy lisp thì trả về đơn vị hệ "metters" với!

[Danh Cong 422]

9 giờ trước, VoHoan đã nói:

Tiện đây cho mình hỏi code trong lisp để mặc định khi chạy lisp thì trả về đơn vị hệ "metters" với!

Bạn viết lisp với biến hệ thống trong Cad:    (setvar "INSUNITS" 6)

 

Specifies a drawing-units value for automatic scaling of blocks, images, or xrefs inserted or attached to a drawing.

Note: The INSUNITS setting is ignored when inserting annotative blocks into a drawing.

0    Unspecified (No units)
1    Inches
2    Feet
3    Miles
4    Millimeters
5    Centimeters
6    Meters
7    Kilometers
8    Microinches
9    Mils
10    Yards
11    Angstroms
12    Nanometers
13    Microns
14    Decimeters
15    Decameters
16    Hectometers
17    Gigameters
18    Astronomical Units
19    Light Years
20    Parsecs