entmake生成圆环

ljxkm

生成圆环：

在实际绘图中，钢筋点筋的绘制采用绘制圆环“_donut”命令，该命令用lisp编程时没有对应的函数，采用command函数调用“_donut”命令总是不爽，故写了一个函数，采用entmake生成圆环：

;;;;;; (emdonut d1 d2 p) 绘制填充的圆环

;;;;;;参数: d1内径、d2外径、p圆心点（三维点），d1=d2>0时为直径为d1的园

;;;;;示例：(emdonut  0  5  ‘(0 00))在（0 0 0）点生成直径为5的填充的圆

;;;;;  (emdonut  5  5  ‘(0 0 0))在（0 0 0）点生成直径为5的"LWPOLYLINE"圆，"LWPOLYLINE"宽度为零

Dxf码的ENTITIES 段"LWPOLYLINE"组码值含义如下：

组码值

说明

100	子类标记 (AcDbPolyline)
90	顶点数
70	多段线标志（按位编码）；默认值为 0： 1 = 关闭；128 = Plinegen
43	固定宽度（可选；默认值 = 0）。如果设置为可变宽度（代码 40 和/或 41），则不使用
38	标高（可选；默认值 = 0）
39	厚度（可选；默认值 = 0）
10	顶点坐标（在 OCS 中），多个条目；每个顶点一个条目 DXF：X 值；APP：二维点
20	DXF：顶点坐标的  Y 值（在 OCS 中），多个条目；每个顶点一个条目
40	起点宽度（多个条目；每个顶点一个条目）（可选；默认值 = 0；多个条目）。如果设置为固定宽度（代码 43），则不使用
41	端点宽度（多个条目；每个顶点一个条目）（可选；默认值 = 0；多个条目）。如果设置为固定宽度（代码 43），则不使用
42	凸度（多个条目；每个顶点一个条目）（可选；默认值 = 0）
210	拉伸方向（可选；默认值 = 0, 0, 1）  DXF：X 值；APP：三维矢量
220,230	DXF：拉伸方向的  Y 值和 Z 值（可选）

烟盒迷唇

谢谢分享啊   

xyp1964

1. ;; (ComDonut 100 200 '(0 0))
   
2. (defun ComDonut (r1 r2 pt)
   
3.   (cond ((< 0 r1 r2) (command "donut" r1 r2 "non" pt ""))
   
4.         ( (<= 0 r2 r1) (command "donut" r1 r1 "non" pt ""))
   
5.   )
   
6.   (entlast)
   
7. )

;; (ComDonut 100 200 '(0 0))<br /> (defun ComDonut (r1 r2 pt)<br />   (cond ((< 0 r1 r2) (command "donut" r1 r2 "non" pt ""))<br />         ( (<= 0 r2 r1) (command "donut" r1 r1 "non" pt ""))<br />   )<br />   (entlast)<br /> )

ljxkm

版主的简洁啊