lisp fake dim

[saukhoai 15]

các bác cho e xin lisp fake dim vs ạ, e tìm trên diễn đàn mà toàn thấy báo lỗi :((((

[quansla 259]

Không thể hiểu điều bạn muốn nhé, nếu chỉ eddit giá trị DIM sao không dùng lệnh "ED" thẳng vào đối tượng DIM, nếu sửa hàng loạt, sao không sửa trong Dimmenstion manage (lệnh "D") nếu là ý kiến khác, bạn trình bày vậy mọi người hiểu làm sao đây?

[thanhdatx2bk 6]

Có phải ý chủ thớt là bản vẽ có nhiều DIM, trong đó có những DIM bị ED . Giờ chủ thời muốn xin lisp để kiểm tra xem những DIM bị ED đúng không ạ ! 

[troggarf 0]

;;; Find Dimension Overrides
;;; Lucas3
;;; http://www.cadtutor.net/forum/showthread.php?83532-How-to-filter-Edited-Dimensions
;;; Will turn dim overrides Red. If there are no overrides, an alert box will display saying that no overrides were found.
;;; I edited the alert text for grammar
(defun C:FakeDims(/ i ss)
  (vl-load-com)
  (setvar "cmdecho" 0)
  (if (setq ss (ssget "X" '((0 . "DIMENSION") (-3 ("ACAD")))))
    (repeat (setq i (sslength ss))
      (entmod (list (cons -1 (ssname ss (setq i (1- i)))) (list -3 (list "ACAD"))))
    )
    (if (setq ss (ssget "X" '((0 . "DIMENSION") (-4 . "<AND")(-4 . "<NOT")(1 . "")(-4 . "NOT>")(-4 . "<NOT")(1 . "*<>*")(-4 . "NOT>")(-4 . "AND>"))))
      (repeat (setq i (sslength ss))
          (vlax-put-property (vlax-ename->vla-object (ssname ss (setq i (1- i)))) "textcolor" 1) 
      )
      (alert "No Edited Dimensions Found!")
    )
  )
  (princ)
)