(setq h (getint " 序列号的个数:")

　　在计较机技能飞速成长的本日，AutoCAD已成为天下上最乐成的计较机帮助计划系列软件平台之一，该软件获得了极为普及的应用。这不只是由于它成果强、支持的平台多、外设广，更首要的缘故起因是它具有开放的系统布局，AutoCAD应承用户和开拓者在险些全部方面临其举办扩充与修改(即举办定制与二次开拓)，能最大限度地满意用户的非凡要求。

　　)

　　(setvar "ORTHOMODE" 1)

　　(while (<= k h)

　　(2) Text Style配置笔墨的字形

　　(if (< (car p2) (car p1))

　　(setq pp1 (getpoint " 请在实体上选一点:"))

　　(setq p4 (trans p1 0 1)

　　(setq pp2 (getpoint pp1 " 请确定引出线位置:")

　　(setvar "osmode" 0)

　　Block Name：回车

　　(setvar "osmode" 0)

　　)

　　在呼吁行下输入ddatte(回车)

　　(1) Tag配置属性标签的名称

　　(defun c:bscale(/ hk) “界说图幅比例

　　(setq an1 0)

　　p3 (cdr (assoc 11 ee))

　　(command "line" pn pn1 "" "line" pm pm1 "")

　　pn (list (car p4) (+ (cadr p5) (/ dist 2.0)))

　　X scale factor <1> / Corner / XYZ: (回车)

　　)

　　二、AutoCAD的措施及图标菜单、下拉菜单配置

　　在该模板文件下，绘制您所必要的问题栏，然后在呼吁行输入ddattdef (回车)，弹出属性界说对话框，输入响应的值。譬喻：

　　Select Objects：回车

　　(setvar "osmode" 512)

　　下面该界说图幅的模板了，在同一的模板(acad.dwt)下，按国度尺度绘制一幅图如A0，在呼吁行下输入ddinsert(回车)

　　ee (entget (ssname ss1 0))

　　)

　　(1)界说对称线

　　3)下拉菜单的分项名称，^C^C执行二次间断操即使后执行后头的呼吁(成果中所界说的，如bscale)

　　ang1 (angtos (angle p2 p3) 0 1)

　　)

　　打开C:\ProgramFiles\Auto CAD2002(R14)\SUPPORT\acad.mnu(或acad.mns)，在响应的位置插入如下内容，并生涯：

　　hd (* 7 sc)

　　在弹出编辑属性的对话框，输入响应的属性值，该属性值就可自动的添补到您所界说的响应的位置上。

　　Command：ddatte(回车)

　　(3) Value配置提醒笔墨的缺省值

　　[--]

　　Command：wblock回车

　　属性值(配置属性提醒的笔墨)：(一向回车)直到Command状态下，然后另存为图幅A0.dwt(自定名)。

　　Select block：选择问题栏

　　(3) Verify在键入属性后会要求您确认一次键入值的正确性

　　(1) Invisible节制为可见或不行见模式(选上)

　　(setvar "osmode" sa)

　　)

　　(command "SCALE" "all" "" "0,0" (/ 1 hk))

　　(4)界说形位公差

　　p1 (getpoint " 起始点或特性点:")

　　)

　　(command "line" p0 P2 ""

　　pm (list (car p4) (- (cadr p5) (/ dist 2.0)))

　　(defun C:wbin (/ sa)

　　(setq k (1+ k))

　　[廉价CAD(&Z)]

　　1.措施

　　(1)界说下拉菜单(插入在原有的下拉菜单之后)

　　1. MODE配置属性模式

　　sc (getvar "DIMSCALE")

　　sb2 (getvar "OSMODE")

　　(2)界说粗拙度

　　Y scale factor (default=X): (回车)

　　p2 (cdr (assoc 10 ee))

　　p5 (trans p2 0 1)

　　(2) Prompt配置提醒的笔墨

　　4、Pick Point直接行使鼠标在画面上选取位置，选用移动呼吁使该属性在抱负的位置大将各个必要的属性按上述要领输入完毕后，接下来的操纵是要将图形与属性团结为一个WBLOCK(块)，在呼吁行下输入wblock回车，

　　(setq sb (getvar "osmode"))

　　(setq pt (list (/ (+ (car p2) (car p3)) 2) (+ (* 1.2 sc) (cadr p3))))

　　(defun C:bub1 (/ p1 p2 p3 sc hd hd1 k h sb )

　　(2) Constant配置块插入后的属性常数为牢靠值

　　(if (> (car p2) (car p1))

　　1. 先容一下怎样用LISP说话开拓措施及措施中所涉及的函数的扼要声名。新建一文本文件*.lsp(譬喻mycad.lsp)，在该文件中输入下面的内容。

　　(setq p3 (polar p2 an1 hd))

　　k1 (* 1.5 s2)

　　(setvar "osmode" 33)

　　(setq p2 (getpoint p1 " Secondpoint:")

　　打开AutoCAD 2002(或R14)，建设新图，配置好图层(譬喻：名称为01、颜色为青、线型为center)、图幅边界、笔墨样式、尺寸样式(生涯于 STANDARD中)等一些重要的配置，然后另存为*.dwt名目(自定名，如：acad.dwt)，该名目标文件生涯在C:\Program Files\AutoCAD 2002\Template下。这样，就成立了同一的模板文件。

　　g1 (angle pp1 pp2)

　　"LAYER" "S" "0" ""

　　pm1 (polar pm 0 len)

　　(3) Height配置笔墨的高度

　　打开C:\ProgramFiles\Auto CAD2002\SUPPORT\AutoCAD2000 doc.lsp(AcadR14.lsp)，在该文件的倒数第二行输入(load "mycad.lsp" "")，活塞杆，生涯该文件。(最好先把原文件做一个备份)。

　　dist (getdist " 请输入平行线间的间隔:")

　　(setq sb (getvar "osmode"))

　　pp3 (getpoint pp2 " 请确定引出线终点:")

　　(setvar "orthomode" 1)

　　至此问题栏的属性块就界说完成了。假如您确实领略了的话，凭证上述步调就可以定制出明细表、粗拙度标记、基准标记的属性块。

　　(3)界说序列号

　　(command "insert" "ccd" pause sc sc pause)

　　(setq p0 p2