好久了没发求助贴了,图形缩放位置不变，标注改寸不变,烦劳各位大师了,谢谢

1993063

[qq]223937995[/qq]我这个是物体放大缩小后改,试试看效果如何

lpl

这个估计得G版来解决，呵呵

flytoday

不着急没多大用处

1993063

1993063 发表于 2012-6-27 00:54
我这个是物体放大缩小后改,试试看效果如何

把(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 "ICKSTYLE" PICKSTYL)   
  (SETVAR "ORTHOMODE" ORTHOMOD)  
  (SETVAR "LINEWID" PLINEWI)  
  (SETVAR "FILEDIA"  FILEDI)
  (if (not (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*"))
    (if Msg (princ Msg))
      (princ)
)
  (princ)
)
  (setq  CMDECH  (getvar "CMDECHO"))  
  (setq  BLIPMOD (getvar "BLIPMODE"))
  (setq  CECOLO  (getvar "CECOLOR"))  
  (setq  OSMOD  (getvar "OSMODE"))  
  (setq  MODEMACR (getvar "MODEMACRO"))
  (setq  CELTYP  (getvar "CELTYPE"))
  (setq  CLAYE  (getvar "CLAYER"))
  (setq  TEXTSTYL  (getvar "TEXTSTYLE"))
  (setq  EXPER   (getvar "EXPERT"))  
  (setq  PICKSTYL (getvar "ICKSTYLE"))
  (setq  ORTHOMOD  (getvar "ORTHOMODE"))
  (setq  PLINEWI (getvar "LINEWID"))
  (setq  FILEDI  (getvar "FILEDIA"))
)

flytoday

用不了缩放不了啊~~~~~~~~~~~`
只能改标注值~

flytoday

顶起来……………期待高手…………

Saging

给楼主提供个思路：
1、选择结构柱（封闭多边开）及轴线，注意，轴线及结构柱必须能区分，最好是单独的图层；
2、从选择集中取出轴线，并计算轴线的所有交点坐标；
3、根据轴线的交点坐标是否包含在结构柱内部来确定要缩放的结构柱；
4、以该交点为基点进行缩放。

VBALISPER

flytoday ,感觉你没说清问题.你的缩放位置不变,是以红线交点为基准而言的.这点根本没说清.是我猜的.
而且你要缩放的只是白线画的和标注,红线不缩放.

flytoday

沉底了………顶起

2564277832

學習中，感謝