在计划中会碰着沿给定曲线举办标注题目，如平面部署图中的开挖线标记沿开挖外观的标注，剖面图中岩石标记沿外观线标注、点筋标注、沿恣意曲线举办汉字标注等。此类题目首要应用AutoCAD的Measure或divide呼吁来办理。两个呼吁的首要不同是前者按指定的长度在曲线上标注，后者按给定的分段数中分曲线并在中分点处举办标注。要标注的外观曲线最好用pline线，天圆液压缸筒，要标注的标记预先做成图块，图块回收单元块，执行measure或divide呼吁，选取要标注的曲线，指定标注标记，分段长度或分段数即可完成标注，当发明标注的标记太密或太疏时，可以执行erase呼吁选择P举办删除，比例不吻合或标记偏向不正确，可以操作特征编辑器，选中全部标注标记，对标注标记的比例和旋转角度举办调解，直到满足为止。对付更高级的应用，可以体例LSP措施，实现标记和笔墨沿恣意曲线标注。

(setq pet (fld 11 x))

))))

操作已知坐标点画线是计划事变中常常碰着的题目，如河流、堤防等实测断面、水位流量相关曲线、堰面曲线等数据的处理赏罚，均可归结为坐标画线题目。对付堰面曲线等有函数方程的曲线可以操作EXCEL凭证祈望的步长自动天生一系列坐标点。对付丈量常用的出发点距-高程情势的数据，也可以操作EXCEL转化成坐标点情势。

(command "text" "m" (list (+ (car p1) (* 0.5 colw) (* m colw))；表格内容标注

(setq p3 (list (car p1) (- (cadr p2) (* rows rowh))))

(command "text" "m" bzdzb "0.5" "0" (itoa m))

(setq pt2 (getpoint pt1 "/n 剖切位置终点:"))

(setq c (substr agc 1 1))

345.66,238.65

)

(while (> nm 5)

)

(setq mxgc (max mxgc dxtgcgc))

(setq dxtgcgc (atoi dxtgcgc))

(nth jdh2 jdzbb)

(command "text" "m" bzdzb "0.5" "0" (itoa m))               

(setq bzdzb (list (+ (car bzdzb) 0.0) (+ (cadr bzdzb) 0.0)))

尺寸标注小数位数很轻易调解，但诸如高程、表格中数字要调解则很坚苦，借助LSP措施的调解很利便，只要选取必要调解的数字，按照提醒输入必要保存的小数位数，则措施自动对全部选种数字举办修改。

(setq m (+ m 1))                                            

（2）后处理赏罚

(setq p0 (getpoint "/n画线出发点:"))

(while (< n sh) (setq x (entget (ssname e1 n)))

(setq colw (getreal "列宽"))

(defun c:spltol ()

Pline

(setq jdzs (atoi (substr md 58 5)))；读节点总数

AutoCAD软件应用已经在计划单元遍及，VisualLisp的呈现对付进步Lisp说话的编程服从和AutoCAD应用程度具有重要意义。本文涉及的几个实例已经在现实事变中施显现很大浸染，充实声名在工程计划傍边团结本专业要求开拓一些简质朴用的Lisp小措施可以有用减轻计划职员的劳动强度，使AutoCAD不只仅是画图器材，而真正成为计划职员驾轻就熟的高效计划平台。

(command "explode" e1)

(command glb)

(setq fn (getfiled "渗流功效文件名" fn "" 2))

(setq bgc (substr agc 2))

(setq ngc (atof (setq la (fld 8 x))))

(setq nla (itoa (fix (caddr (fld 10 x)))))

；标注单位号

(if fn

(setq dx (car zbb) dy (cadr zbb))

"")

213.45,124.56

)

(setq n (+ n 1))

2 .1 坐标画线

（1）       初始地形图处理赏罚

(close f)

(setq e1 (ssget))

)