[日积月累]：给CAD初学者

qingying

何谓块？块的特点及类型？

块是一组实体被“焊接”成一个实体。它可以大大提高绘图效率。
块的三要素：块名、钩点、对应的一组实体。
块的特点：
①用户可将块插入图中任意位置
②可以指定不同的比例、旋转角
③当作一个实体处理而不考虑内部结构
④块还可以被“爆炸”成原来的一组实体
块的类型：① 本图块block ②文件块wblock
--------------------------------------------------------------------------------------------------------------------
  
如何定义本图块？

定义本图块有两种方法
①Command：－b ? （block）
Enter block name or [?]： 块名?
Specify insertion base point：钩点
Select objects： 选实体
Select objects：? （块实体消失，对了！）
② b ?，出现对话框，选择各种参数，比较复杂，请同学们自己看。
--------------------------------------------------------------------------------------------------------------------
  
如何插入块？

插入块有两种方法
①Command：－i ? (insert)
块名?，插入点，Ｘ方向比例?，Ｙ方向比例?，旋转角?
② i ? ，对话框，通过它选择各种参数，插入块。请同学们自己看。
--------------------------------------------------------------------------------------------------------------------
  
如何定义文件块？

Command: －w ? (wblock)
对话框，块文件名，保存，块名? ，（钩点，选实体?）。
--------------------------------------------------------------------------------------------------------------------
  
块的优点

①、可以用来建立图形库
②、节省存储空间
③、便于修改图形
--------------------------------------------------------------------------------------------------------------------
  
圆形、矩形阵列

①圆形阵列
Command：ar ? (array)
选实体?，Ｐ?，中心点，阵列个数?，阵列角度（±）?，旋转Ｙ? 。
②矩形阵列
Command：ar ?
选实体?，R?，行数?，列数?，行间距?，列间距?。
注意行列间距的正负及特殊输入方法。

--------------------------------------------------------------------------------------------------------------------
  
如何打剖面线

一、启动命令
Command：bh? (bhatch)
对话框
二、选剖面线图案
１、左键Swatch图标，
左键ANSI选项卡，
左键选择合适图案，
左键ＯＫ钮，
２、选图案名称下拉框，选ANSI31
三、选剖面线区域
１、内点方式
左键Pick points钮，
左键图形的内点，可以有多个，右键返回。
２、选实体方式
左键Select objects钮，选实体?
四、预示与修改、完成
左键Prewiew钮，观察预示情况，右键退回。

不合适可改角度Angle，比例Scale选项反复直至合适。
左键ＯＫ钮。完成！！
注意：
＊ 剖面线区域必须封闭
＊ 由多个实体组成的封闭区域有时可能出问题，致使剖面线打不上，此时需要用pline线将区域描写一遍。
--------------------------------------------------------------------------------------------------------------------
  
如何连接或拟合多义线？

① 拟合
Command：pe? (pedit)
选择一条多义线，f ?， ?。
② 连接
Command：pe?
选择一条多义线，j?，选需连接的多义线……?， ?。
--------------------------------------------------------------------------------------------------------------------
  
学习一个任意角度十字线程序

(defun c:szx2 ()
(setq p0 (getpoint "十字线第一点:"))
(setq p1 (getpoint p0 "\n十字线第二点:"))
(setq ld (* 0.5 (distance p0 p1)))
(setq ang (angle p0 p1))
(setq p2 (polar p0 (+ pi ang) ld))
(setq p3 (polar p0 ang ld))
(setq p4 (polar p0 (+ (* -0.5 pi) ang) ld))
(setq p5 (polar p0 (+ (* 0.5 pi) ang) ld))
(command "line" p2 p3 "" "line" p4 p5 "")
(princ)
)
--------------------------------------------------------------------------------------------------------------------
  
学习两个重要的lisp函数

1、条件函数if
(if e e1 e2)
如果条件e成立，执行e1，否则执行e2。可以没有e2条件，即(if e e1)。
2、条件循环函数
(while e e1 e2 e3 e4 e5 …. en)
当条件e成立时，执行e1…..en，直至条件e不能成立为止。
--------------------------------------------------------------------------------------------------------------------
  
学习一个多点十字线程序

(defun c:szx3 ()
(setq p0 (getpoint "十字线交点:"))
(setq ld (getdist "\n十字线长度:"))
(setq ld (* 0.5 ld))
(setq p1 (polar p0 pi ld))
(setq p2 (polar p0 0 ld))
(setq p3 (polar p0 (* 0.5 pi) ld))
(setq p4 (polar p0 (* -0.5 pi) ld))
(command "line" p1 p2 "" "line" p3 p4 "")
(setq dd t)
(while dd
(setq pp (getpoint "Another a point:"))
(command "copy" p1 p3 "" p0 pp)
(if (= pp nil) (setq dd nil) (setq dd t))
)
(princ)
)

正经鱼

给初学者是否深了点呢？

hgosi

为你的奉献精神而顶。希望有时间多发些这样的东东，以个人之见，最好是中文版的。