Em có đaọn lisp sau dùng để đưa các đường kích thước về cùng một lớp "Dim" trong
bản vẽ Autocad. Nhưng không hiểu sao các đường kích thước được tạo ra không nằm ở
lớp Dim mà nằm ở lớp hiện hành. Các bác giúp em với.
;;; chuong trinh dua cac dimension ve lop "dim"
(defun C:dd ( )
(setq olderr *error*
*error* myerror)
(setq ocmd (getvar "cmdecho"))
(setq osme (getvar "osmode"))
(setvar "cmdecho" 0)
(setq olay (getvar "clayer"))
(command "clayer" "DIM")
(command "_dimlinear")
(setvar "clayer" olay)
(setvar "cmdecho" ocmd)
(setvar "osmode" osme)
(setq *error* olderr)
(princ)

;;;
;;; ====================== END OF FUNCTION "dimlinear"
Leave a comment: