[求助]请教高手,帮我看看这段程序错在哪里？
本帖最后由 作者 于 2009-7-10 16:50:55 编辑 <br /><br /> <p>(setq s (ssget))<br/>(setq i 0)<br/>(repeat (sslength s)<br/>(setq sn (ssname s i))<br/>(setq en (entget sn))<br/>(setq key (cdr (assoc 0 en)))<br/>(setq hig (cdr (assoc 40 en)))<br/>(if (= key "TEXT")<br/>(progn<br/>(command "ucs" "e" sn)<br/>(setq box (textbox en))<br/>(setq p1 (car box))<br/>(setq p3 (cadr box))<br/>(setq p2 (list (car p3) (cadr p1)))<br/>(setq p4 (list (car p1) (cadr p3)))<br/>(SETQ PT1 (list (- (car p1) hig) (- (cadr p1) hig)))<br/>(SETQ PT2 (list (+ (car p2) hig) (- (cadr p2) hig)))<br/>(SETQ PT3 (list (+ (car p3) hig) (+ (cadr p3) hig)))<br/>(SETQ PT4 (list (- (car p4) hig) (+ (cadr p4) hig)))<br/>(command "pline" p1 p2 p3 p4 "c")<br/>(command "pline" pT1 pT2 pT3 pT4 "c")<br/>(setq pt1 (trans pt1 1 0))<br/>(setq pt2 (trans pt2 1 0))<br/>(setq pt3 (trans pt3 1 0))<br/>(setq pt4 (trans pt4 1 0))<br/>(command "ucs" "P")<br/>(setq pt1 (trans pt1 0 1))<br/>(setq pt2 (trans pt2 0 1))<br/>(setq pt3 (trans pt3 0 1))<br/>(setq pt4 (trans pt4 0 1))<br/>(setq n 0)<br/>(setq ss1 (ssget "cp" (list pT1 pT2 pT3 pT4) '((0 . "LEADER"))))<br/>(setq ssi (ssget "cp" (list pT1 pT2 pT3 pT4) '((0 . "INSERT"))))<br/>(command "ERASE" ss1 "")</p><p> ;为何SS1和SSI这两个选集无效？</p> 哪个高手帮忙看看，错在了哪里呢？ <p>加入了坐标转换后就这样：</p><p>选择对象:<br/>"参数值错误: AcDbCurve 1955041456"</p>
页:
[1]