223937995我这个是物体放大缩小后改,试试看效果如何
这个估计得G版来解决，呵呵
不着急没多大用处
本帖最后由 1993063 于 2012-6-27 09:10 编辑
1993063 发表于 2012-6-27 00:54 http://bbs.mjtd.com/static/image/common/back.gif
我这个是物体放大缩小后改,试试看效果如何
把(errormy)(zdh:2012)替换为(MYERROR)就得了,这个不是主程序;是错误处理代码,我的通用错误处理码
(defun MYERROR( / msg)
(defun *error* (msg)
(SETVAR "CMDECHO"CMDECH)
(SETVAR "BLIPMODE" BLIPMOD)
(SETVAR "CECOLOR"CECOLO)
(SETVAR "OSMODE"OSMOD)
(SETVAR "MODEMACRO" MODEMACR)
(SETVAR "CELTYPE"CELTYP)
(SETVAR "CLAYER"CLAYE)
(SETVAR "TEXTSTYLE" TEXTSTYL)
(SETVAR "EXPERT"EXPER)
(SETVAR "PICKSTYLE" PICKSTYL)
(SETVAR "ORTHOMODE" ORTHOMOD)
(SETVAR "PLINEWID" PLINEWI)
(SETVAR "FILEDIA"FILEDI)
(if (not (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*"))
(if Msg (princ Msg))
(princ)
)
(princ)
)
(setqCMDECH(getvar "CMDECHO"))
(setqBLIPMOD (getvar "BLIPMODE"))
(setqCECOLO(getvar "CECOLOR"))
(setqOSMOD(getvar "OSMODE"))
(setqMODEMACR (getvar "MODEMACRO"))
(setqCELTYP(getvar "CELTYPE"))
(setqCLAYE(getvar "CLAYER"))
(setqTEXTSTYL(getvar "TEXTSTYLE"))
(setqEXPER (getvar "EXPERT"))
(setqPICKSTYL (getvar "PICKSTYLE"))
(setqORTHOMOD(getvar "ORTHOMODE"))
(setqPLINEWI (getvar "PLINEWID"))
(setqFILEDI(getvar "FILEDIA"))
)
本帖最后由 flytoday 于 2012-6-28 07:27 编辑
用不了缩放不了啊~~~~~~~~~~~`
只能改标注值~
顶起来……………期待高手…………
给楼主提供个思路：
1、选择结构柱（封闭多边开）及轴线，注意，轴线及结构柱必须能区分，最好是单独的图层；
2、从选择集中取出轴线，并计算轴线的所有交点坐标；
3、根据轴线的交点坐标是否包含在结构柱内部来确定要缩放的结构柱；
4、以该交点为基点进行缩放。
flytoday ,感觉你没说清问题.你的缩放位置不变,是以红线交点为基准而言的.这点根本没说清.是我猜的.
而且你要缩放的只是白线画的和标注,红线不缩放.
沉底了………顶起
學習中，感謝