[求助]：如何让图形在X与Y方向以不同比例显示？

oyxx_1023

就是有的图形X方向特别长，Y方向很短，有什么办法让CAD图在X和Y的方向以不同的比例显示（比如说1：10）？我看见有的外挂程序可以作到这一点，不知道具体怎么做？还有，如果用LISP又该怎么实现这个功能呢？

lhdlgmz

网上查找一下有个小工具“SCALEXY.LSP”有这个功能。不过它不是不同比例显示，而是不同比例缩放。

吴勇之名

其实在复制粘贴的过程中天正就有提示X方向和Y方向是否按比例缩放，

齐小社88

公路工程中纵断图要求比例（我这里）是H  1：2000 ， V 1：200，但是设计院的图使用专业软件做得。实际在没有专业软件的情况下，利用现有的ET。XD该如何完成设置？

oyxx_1023

没有办法吗?用VLISP呢,或者ARX呢?

七夕

最初由 oyxx_1023 发布
[B]就是有的图形X方向特别长，Y方向很短，有什么办法让CAD图在X和Y的方向以不同的比例显示（比如说1：10）？我看见有的外挂程序可以作到这一点，不知道具体怎么做？还有，如果用LISP又该怎么实现这个功能呢？ [/B]

搜不到啊，我也有这样的问题要解决

xyp1964

简单的办法：利用块插入，改变其X、Y的不同比例即可。
例子：双人床→单人床

xyp1964

利用lsp程序改变x、y、z方向的比例也可以实现。

oyxx_1023

具体怎么实现呢，能给个示例吗？

david96007

利用图纸空间就可以实现，何必那么麻烦呢？！
如图：在模型空间按实际尺寸画，然后进入图纸空间，在活动视口中调整ucs，图示将y方向缩短了10倍，就是将ucs 以x轴为轴旋转84.26082952度（arccos0.1），利用plan命令调整显示平面，用zoom 1xp命令调整显示比例，切换到图纸空间后，标注尺寸！

其实就是利用了透视关系！

至于尺寸标注，两个方向用不同的标注样式就行了！（我用的是同一种）

xyp1964

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;gbl.lsp 改比例
;;;* c:gbl
;;;2004.09.06
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(prompt "\n\r      加载改比例程序。")
;-------------------------------------------
;;;主程序

(defun c:gbl (/ en ed old41 old42 old43 new41 new42 new43)
  (cmdla0)
  (if (and
        (setq en (entsel "\n\t选择改比例之图块: "))
        (= (dxf 0 (setq ed (entget (car en)))) "INSERT")
        )
    (progn
      (setq old41 (dxf 41 ed)
            old42 (dxf 42 ed)
            old43 (dxf 43 ed)
            new41 (ureal 1 "" "X方向比例:" old41)
            new42 (ureal 1 "" "Y方向比例:" old42)
            new43 (ureal 1 "" "Z方向比例:" old43)
            ed (subst (cons 41 new41) (cons 41 old41) ed)
            ed (subst (cons 42 new42) (cons 42 old42) ed)
            ed (subst (cons 43 new43) (cons 43 old43) ed)
            )
      (entmod ed)
      )
    )
  (cmdla1)
  (pxyp"GBL      （改比例）")
  )
;;;


;;;-------------------------------------------
;;;子程序
;;;
(defun CMDLA0 ()
  (setq cmdech (GETVAR "CMDECHO"))
  (setq oom (getvar "orthomode"))
  (setq osm (getvar "osmode"))
  (SETQ LA (getvar "clayer"))
  (setvar "regenmode" 1)
  (SETVAR "CMDECHO" 0)
  )

;;;
(defun CMDLA1 ()
  (SETVAR "CMDECHO" cmdech)
  (setvar "orthomode" oom)
  (setvar "osmode" osm)
  (setvar "clayer" LA)
  (setvar "regenmode" 1)
  )

;;;
; ----------------------- DXF --------------------------
(defun dxf (code elist) (cdr (assoc code elist)))

;;;
(DEFUN PXYP (TXT1)
  (SETQ        TXT1 (STRCAT "\n\r      程序命令: "  TXT1 "))
  (PRINC TXT1)
  (Princ)
  );defun

;;;
(pxyp"GBL      （改比例）")
(princ)
;-------------------------------------------
;;;END