[求助]拜托了！

zxyzch

我是AutoCAD的初学者，想请教各位老师：在使用AUTOCAD2000画建筑图时，怎样画“折断线”和箭头？由于我这边没有懂，而且我又要教给参赛学生，所以请大家帮忙！
另外：怎样把已画好的大幅图放到小图框中去，并保持图框尺寸不变？谢谢各位老师了。

zxyzch

画箭头时有没有什么符号可以替代?一定要使用PLINE命令吗?画出来不是很美观呢.

陈伯雄

陈伯雄

河伯

;;;============================================================;
;;;折断线                                                      ;
;;;============================================================;
(defun c:zdx (/ pts pte pt1 pt2 pt3 pt4 ang1 ang2 d oldplinewid)
  (initget 1)
  (setq pts (getpoint "\n第一点: "))
  (initget 1)
  (setq pte (getpoint pts "\n第二点: "))
  (setq        ang1 (angle pts pte)
        ang2 (angle pte pts)
        pts  (polar pts ang2 (+ 0 5.0))
        pte  (polar pte ang1 (+ 0 5.0))
        d    (/ (distance pts pte) 2.0)
        pt1  (polar pts ang1 (- d (+ 0 1.5)))
        pt4  (polar pte ang2 (- d (+ 0 1.5)))
        pt2  (polar pt1
                    (- ang1 1.309)
                    (+ 0 3.0)
             )
        pt3  (polar pt4
                    (- ang2 1.309)
                    (+ 0 3.0)
             )
  )
  (setq oldplinewid (getvar "plinewid"))
  (setvar "plinewid" (+ 0 0))
  (command "_.pline" pts pt1 pt2 pt3 pt4 pte "")
  (setvar "plinewid" oldplinewid)
  (princ)
)

[此贴子已经被作者于2002-5-9 0:31:56编辑过]

wxj351

e2002

折断线和箭头用PLine画不就得了...
也有很多这样的程序的,ExpressTools也提供了一个画折断线的.

你的关于图框的问题不太明白你的意思.

zxyzch

对不起,我只是一个初学者,能否请您将用线里夹形和线里夹字的具体方法详细说明一下?如果有时间,请给我回音,谢谢.

zh3

第二个问题好办！
一、设计好一个图框，比如A3的图框，设计好之后用“W”命令保存为一个块
二、画图，画好之后缩放为一个能容纳在A3的图纸上的适当的比例。
三、插入图框，就可以了。
另：无论你怎么画、画多大，最后总要缩小到能打印到一个图纸上吧？那么被保存为块的图框的尺寸始终不会变的，都是一样的。只要吧图一缩小，插入图框，一切高定！！

盎司地方

我试了楼上的程序，好像不好用，自己编了一个试试：
;;;划折断线：
(defun c:zdx (/ mode1 mode2 scale l1 l2 l3 m1 m2 m3 p1 p2 cros1 cros2
             cros3)
  (SETVAR "GRIDMODE" 0)
  (SETVAR "CMDECHO" 0)
  (setq mode1 (getvar "osmode"))
  (setq mode2 (getvar "orthomode"))
  (setq color (getvar "cecolor"))       ;获取当前层的颜色号
  (princ "\n请输入距离或两点<")
  (if sc
    (princ sc)
    (progn
      (setq sc (* 3 (getvar "dimtxt")))
      (princ sc)
    ) ;_ End of: progn
  ) ;_ End of: if
  (setq sc_ent (getdist ">:"))
  (if sc_ent
    (setq sc sc_ent)
  ) ;_ End of: if
  (initget 1)
  (setq p1 (getpoint "\n请输入第一点: "))
  (initget 1)
  (setq p2 (getpoint p1 "\n请输入第二点: "))
  (setq l1 (* 0.5 (abs sc))
        l2 (* 1.0 (abs sc))
        l3 (* 2.0 (abs sc))
  ) ;_ end of setq
  (setq m1 (rtos l1)
        m2 (rtos l2)
        m3 (rtos l3)
  ) ;_ end of setq
  (setvar "osmode" 0)
  (command ".line" p1 p2 "")
  (setq px (rtos (distance p1 p2))
        py (rtos 0)
  ) ;_ end of setq
  (setvar "ucsicon" 0)
  (command ".ucs" "e" "l" ^c)
  (command ".erase" "l" "")
  (setq cros0 (strcat "@" px "," py))
  (setq cros1 (strcat "@" m1 "," m2))
  (setq cros2 (strcat "@" "0" ",-" m3))
  (setq cros3 (strcat "@" m1 "," m2))
  (setvar "orthomode" 1)
  (command ".color" "green")             ;改变颜色号
  (command ".pline" "0,0" "w" "0" "0" cros0 cros1 cros2 cros3 cros0 "") ;_ End of: command
  (setvar "cecolor" color)              ;恢复其颜色号
  (command ".ucs" "")
  (command ".snapang" 0)
  (setvar "osmode" mode1)
  (setvar "orthomode" mode2)
  (setvar "ucsicon" 1)
  (SETVAR "CMDECHO" 1)
  (Princ)
) ;_ end of defun