cad二次开发之图形数据库.pptxVIP

; 假定本作业依次绘制了一条直线、一个圆和一个圆弧。 (setq e1(entnext))；返回图形库第一个图元即这条直线的图元名Entity name: 7ef6ce88，并将其赋给了变量e1。 (setq e2(entnext e1))；返回图形库e1的下一个图元即这个圆的图元名Entity name: 7ef6ce90，并将其赋给了变量e2。 (setq e3(entnext e2))；返回图形库e2的下一个图元即即这个图弧的图元名Entity name: 7ef6ce98，并将其赋给了变量e3。 (setq e4(entlast))；返回图形库最后一个图元即这个图弧的图元名Entity name: 7ef6ce98，并将其赋给了变量e1。 因为圆弧既是第3个图元，也是最后一个图元，所以e3和e4记录的是同一图元的名字。;; ;(command layer m xixian ) (command arc -3.5,0 0,3.5 0,-3.5) (setq e4(entlast)) 以下表达式调用AutoCAD的copy命令，复制3个带有中心线的螺纹孔。 (command copy e1 e2 e3 e4 m 0,0 12,0 24,0 36,0 );[例9-2] 定义绘制图b所示图形的命令。插入点p0、直径d、宽度b和h作为绘制该图形时交