自写一个中心线命令.

tonmy1999

此命令能群选目标, 程式能自动判断那些是圆。 当单个选取弧时，能画弧的中心线
使用方法：新建一个文件为aCAD.lsp ,将如下代码贴入，将此文件acad.lsp复制到autocad安装目录下的support目录中;点击CAD菜单: 工具\选项 \系统页  选中  (每个图都装载 acad.lsp 或者 load acad.lsp with every drawing)前的勾.

此命令自动将绘制的中心线放入cen层，如觉得线型不对，需要改下cen层的参数.

这是我命令的冰山一角，还有很多其它的命令。此处因为时间关系不详细贴出。日后再贴。

(DEFUN C:ce ()  
(prompt "请选择圆或圆弧\n")
  (setq s_obj1 nil)
  (setq SystemLineScale(getvar "LTSCALE"))
  (setq s_obj1(ssget))
  (if (/= s_obj1 nil)
    (progn
         (SETQ S_Obj1_Total (SSLENGTH s_obj1))
         (SETQ S_Obj1_Count 0)
         (WHILE (< S_Obj1_Count S_Obj1_Total)
             (SETQ Obj1_Count_List (ENTGET (SSNAME S_Obj1 S_Obj1_Count)))
             (setq Obj1_Count_Type(CDR (ASSOC 0 Obj1_Count_List)))
            (if (= Obj1_Count_Type "ARC")
              (progn
                (setq ArcStartAng(CDR (ASSOC 50 Obj1_Count_List)))
                (setq ArcEndAng(CDR (ASSOC 51 Obj1_Count_List)))               
                (setq ArcNipAngle(NipAngle_Fun ArcStartAng ArcEndAng))
                (setq ArcDrawFlag (if(>= ArcNipAngle PI) 1 0))
                (if (= S_Obj1_Total 1)
                  (progn
                    (Setq ArcDrawFlag 1)
                  )
                )
              )
            )             
            (IF (OR (= Obj1_Count_Type "CIRCLE") (and (= ArcDrawFlag 1) (= Obj1_Count_Type "ARC")))
              (PROGN       
                (SETQ Center_Point(CDR (ASSOC 10 Obj1_Count_List)))
                     (SETQ Radius (CDR (ASSOC 40 Obj1_Count_List)))
                (setq Cons_210(nth 2 (cdr(assoc 210 Obj1_Count_List))))
                     (if (< Cons_210 0)
                       (progn
                         (setq Center_Point_x(nth 0 Center_Point))                 
                         (setq Center_Point_x_New(* Cons_210 Center_Point_X))
                         (setq Center_Point(subst Center_Point_x_New Center_Point_x Center_Point))
                       )
                     )
                     (SETQ New_Dis (* Radius 1.2))
                (setq New_Hor_SP(POLAR Center_Point 0 New_Dis))
                (setq New_Hor_EP(POLAR Center_Point PI New_Dis))
                (setq New_Ver_SP(POLar Center_Point (* PI 1.5) New_Dis))
                (setq New_Ver_EP(POLar Center_Point (* PI 0.5) New_Dis))
                (setq New_Line_Scale(/ Radius 50 SystemLineScale))
                (setq Line_Hor_List(List (cons 0 "LINE") (cons 8 "CEN") (cons 10 New_Hor_SP) (cons 11 New_Hor_EP) (cons 48 New_Line_Scale)))
                (setq Line_Ver_List(List (cons 0 "LINE") (cons 8 "CEN") (cons 10 New_Ver_SP) (cons 11 New_Ver_EP) (cons 48 New_Line_Scale)))
                (entmake Line_Hor_List)
                (entmake Line_Ver_List)
                (entmod Line_Hor_List)
                (entmod Line_Ver_List)
              )
            )
            (SETQ S_Obj1_Count (1+ S_Obj1_Count))
         )
      )
    );end if (/= s_obj1 nil)
)