本帖最后由 作者 于 2009-7-10 16:50:55 编辑
(setq s (ssget)) (setq i 0) (repeat (sslength s) (setq sn (ssname s i)) (setq en (entget sn)) (setq key (cdr (assoc 0 en))) (setq hig (cdr (assoc 40 en))) (if (= key "TEXT") (progn (command "ucs" "e" sn) (setq box (textbox en)) (setq p1 (car box)) (setq p3 (cadr box)) (setq p2 (list (car p3) (cadr p1))) (setq p4 (list (car p1) (cadr p3))) (SETQ PT1 (list (- (car p1) hig) (- (cadr p1) hig))) (SETQ PT2 (list (+ (car p2) hig) (- (cadr p2) hig))) (SETQ PT3 (list (+ (car p3) hig) (+ (cadr p3) hig))) (SETQ PT4 (list (- (car p4) hig) (+ (cadr p4) hig))) (command "pline" p1 p2 p3 p4 "c") (command "pline" pT1 pT2 pT3 pT4 "c") (setq pt1 (trans pt1 1 0)) (setq pt2 (trans pt2 1 0)) (setq pt3 (trans pt3 1 0)) (setq pt4 (trans pt4 1 0)) (command "ucs" "P") (setq pt1 (trans pt1 0 1)) (setq pt2 (trans pt2 0 1)) (setq pt3 (trans pt3 0 1)) (setq pt4 (trans pt4 0 1)) (setq n 0) (setq ss1 (ssget "cp" (list pT1 pT2 pT3 pT4) '((0 . "LEADER")))) (setq ssi (ssget "cp" (list pT1 pT2 pT3 pT4) '((0 . "INSERT")))) (command "ERASE" ss1 "") ;为何SS1和SSI这两个选集无效? |