l_shiqiang 发表于 2005-12-22 21:33:00

斑主帮忙写一个自动缩放的LISP程序，谢

<P>在指定大小的框内自动差入任何大小的图形，图形会根据框的大小进行自动的比例缩放，图形的大小可缩放到框内，但不可超出框的外围</P>
<P>向版主请教学习</P>

aliu22 发表于 2005-12-23 12:55:00

(DEFUN C:1 () (COMMAND "ZOOM" "0.9X") (PRINC)) <BR>(DEFUN C:2 () (COMMAND "ZOOM" "0.75X") (PRINC)) <BR>(DEFUN C:3 () (COMMAND "ZOOM" "0.50X") (PRINC)) <BR>(DEFUN C:4 () (COMMAND "ZOOM" "2X") (PRINC))<BR>(DEFUN C:5 () (COMMAND "ZOOM" "3X") (PRINC)) <BR>(DEFUN C:DC () (COMMAND "dimcontinue") (PRINC))<BR>(DEFUN C:EE () (COMMAND "LENGTHEN" "DY") (PRINC))<BR>(DEFUN C:CBB() (COMMAND "COPYBASE") (PRINC))<BR>(DEFUN C:za() (COMMAND "zoom" "a") (PRINC)) 就可以了,我是这样的,比较方便

l_shiqiang 发表于 2005-12-24 22:42:00

<P>不是这么一个意思</P>
<P>是画一个巨型框，插入任何大小的图形到巨型筐内，图形会根据框的大小自动进行比例缩放到巨型框内</P>
<P>_scale是这个比例缩放命令</P>
<P>新手上路多多帮助</P>
页: [1]
查看完整版本: 斑主帮忙写一个自动缩放的LISP程序，谢