ใครมีปัญหาสำหรับการทำ Xref แล้วต้องแก้สีของ Dimstyle ให้เป็น Bylayer ลองใช้ Lisp ตัวนี้ดูครับ
(defun c:DIMBY (/ DimStyles@ StyleName$)
(princ "\nDimstyles color bylayer")
(setq StyleName$ (cdr (assoc 2 (tblnext "DIMSTYLE" t))))
(setq DimStyles@ (list StyleName$))
(while (setq StyleName$ (cdr (assoc 2 (tblnext "DIMSTYLE"))))
(setq DimStyles@ (append DimStyles@ (list StyleName$)))
);while
(foreach StyleName$ DimStyles@
(command "DIMSTYLE" "R" StyleName$)
(setvar "DIMCLRD" 256);Dimension line and leader color
(setvar "DIMCLRE" 256);Extension line color
(setvar "DIMCLRT" 256);Dimension text color
(command "DIMSTYLE" "S" StyleName$ "Y")
);foreach
(princ)
);defun
ไม่มีความคิดเห็น:
แสดงความคิดเห็น