急！！！！！！！！！！

风在飞

可是怎么标呢？
轴测图上的圆是椭圆画出来的，所以标注时怎么才能标出他的半径以及直径呢？
还望告知

陈伯雄

龙龙仔

;;;-------------------------------------------------------------------------------------------------
;;;请是一个查询等角圆<轴侧圆>的程序
;;;BY 龙龙仔(LUCAS)
;;;注意:AUTOCAD是如何画等角圆
;;;指令: SETVAR 输入变量名称或 [列示(?)] <SNAPSTYL>: SNAPSTYL
;;;输入 SNAPSTYL 的新值<1>: 1
;;;指令: ELLIPSE
;;;指定椭圆的轴端点或 [弧(A)/中心点(C)/等角圆(I)]: I
;;;指定等角圆的中心点:
;;;指定等角圆的半径或 [直径(D)]:
;;;需要数值距离, 第二点, 或选项关键词.
;;;从3D转出的等角图要*1.224744871392倍
;;;-------------------------------------------------------------------------------------------------
(defun C:DXF2 (/ HOLDECHO HOLDBLIP QQ40 RATEE RATEEE AAA QQ1 RADDD RADD AAA1)
  (setq HOLDECHO (getvar "cmdecho"))
  (setq HOLDBLIP (getvar "blipmode"))
  (setvar "cmdecho" 0)
  (setvar "blipmode" 0)
  (defun DXF22 ()
    (setq QQ40 (abs (- (cdr (assoc 40 AAA)) 0.57735)))
    (if        (< QQ40 2.7E-4)
      (progn
        (setq RATEE (abs (cadr (assoc 11 AAA))))
        (setq RATEEE (abs (caddr (assoc 11 AAA))))
        (cond
          ((< RATEEE 1E-13)
           (setq RADD (* (/ RATEE 1.224744871392) 2))
          )
          (t
           (setq RADD (* (/ RATEE 1.224744871392) 4))
          )
        )
        (if (= (length AAA1) 4)
          (progn
            (setq AAA210
                   (abs        (cadr (assoc 210 (entget (last (last AAA1)))))
                   )
            )
            (if        (= AAA210 0)
              (setq AAA210 1)
            )
            (setq RADD (/ (* RADD AAAF) AAA210))
          )
        )
        (setq RADDD (/ RADD 2.0))
        (prompt        (strcat        "\n半径= "
                        (rtos RADDD 2 8)
                        " , 直径= "
                        (rtos RADD 2 8)
                )
        )
      )
    )
  )
  (while (/= QQ1 "ELLIPSE")
    (while (null AAA1)
      (setq AAA1 (nentsel "\n请选择等角隋圆"))
    )
    (if        (> (length AAA1) 2)
      (setq AAAF (cdr (assoc 41 (entget (last (last AAA1))))))
      (setq AAAF (cdr (assoc 41 (entget (car AAA1)))))
    )
    (setq AAA (entget (car AAA1)))
    (setq QQ1 (cdr (assoc 0 AAA)))
    (if        (= QQ1 "ELLIPSE")
      (DXF22)
    )
    (setq AAA1 NIL)
  )
  (setvar "blipmode" HOLDBLIP)
  (setvar "cmdecho" HOLDECHO)
  (princ)
)

huangzq

风在飞

谢谢你的指点呀！！！！！

风在飞

你的这幅图的标注是不是用标注里的引线标的。
现在想想用，用引线也可以标注轴测图的。

东哥

而用对齐标注可以实现。不过标注文字得自己改，或许标注样式也根据需要新建一个专用于轴测图上圆的标注样式。在AutoCAD中凑和着对付用嘞！如果常做这样的活，或许该想别的法子了。

loopking

liumingcz

画轴测图应该用等轴测捕捉或极轴捕捉，这枰的捕捉状态标出的就是实际尺寸乘伸缩系数。

belldraft

如果是用ELLIPSE的I选项绘出来的椭圆,长轴除以1.2245,短轴X1.4144可得到圆的直径.