试试这个,让我知道谁错了。
- (defun c:hideobjs (/ ss i sn)
- ;; Tharwat 30.July.2014 ;;
- ;; Hide objects temporary ;;
- (princ "\n Select objects to hide ")
- (if (setq i -1
- ss (ssget "_:L")
- )
- (while (setq sn (ssname ss (setq i (1+ i))))
- (entmod (append (entget sn) (list (cons 60 1))))
- )
- )
- (princ)
- )
- ;; ;;
- (defun c:showobjs (/ ss i sn)
- ;; Tharwat 30.July.2014 ;;
- ;; Show hidden objects ;;
- (if (setq i -1
- ss (ssget "_X" '((60 . 1)))
- )
- (while (setq sn (ssname ss (setq i (1+ i))))
- (entmod (append (entget sn) (list (cons 60 0))))
- )
- )
- (princ)
- )
|