求帮忙偏移在2007正常使用到2010偏移的线有时不见了
(DEFUN C:Y (/ DD DISP PT SS)(SETVAR "CMDECHO" 0)
(SETQ DISP (IF (< (GETVAR "OFFSETDIST") 0)
"通过"
(RTOS (GETVAR "OFFSETDIST") 2 3)
)
)
(INITGET "Through")
(SETQ DD (GETDIST (STRCAT "\n指定偏移距离或[通过(T)]<" DISP ">")))
(SETVAR "OFFSETDIST"
(IF (= DD "Through")
-1
(IF DD
DD
(GETVAR "OFFSETDIST")
)
)
)
(while (SETQ SS (ENTSEL "\n选择要偏移的对象或 <退出>:"))
(PROGN
(SETQ PT (GETPOINT (IF (< (GETVAR "OFFSETDIST") 0)
"\n指定通过点:"
"\n指定偏移方向:"
)
)
)
(COMMAND "OFFSET" "" (CADR SS) PT "" "ERASE" (CAR SS) "")
)
)
(PRINC)
)
自己先顶一下 求高手出招了
页:
[1]