cad怎么给圆加十字架

如题所述

    AutoCAD只是提供基本功能,要给圆加十字架的话,需要用插件来解决。

    很多插件有这个功能,如:【贱人工具箱】有给圆加十字架功能。

    圆加十字架代码如下:

    (defun c:tes ( / &dis1 &k1 pt1 pt2 pt3)
     (if (null vlax-dump-object) (vl-load-com) )
     (while (and
      (setq &k1 (entsel "\n请选择圆"))
      (setq &k1 (car &k1))
      (setq &k1 (vlax-ename->vla-object &k1))
      (= (vla-get-objectname &k1) "AcDbCircle")
         )
      (progn
       (setq pt1 (vla-get-Center &k1))
       (setq pt1 (Vlax-SafeArray->List (Vlax-Variant-Value pt1)))
       (setq &dis1 (* (vla-get-Radius &k1) 1.2))
       (setq pt2 (polar pt1 0 &dis1) pt3 (polar pt1 pi &dis1))
       (entmake (list '(0 . "LINE") (cons 10 pt2) (cons 11 pt3)))
       (setq pt2 (polar pt1 (* 0.5 pi) &dis1) pt3 (polar pt1 (* 1.5 pi) &dis1))
       (entmake (list '(0 . "LINE") (cons 10 pt2) (cons 11 pt3)))
      )
     )
     (princ)
    );复制到记事本,以【.lsp】为后缀命名,autolisp加载,命令【TES】
温馨提示:答案为网友推荐,仅供参考
第1个回答  2012-03-20
添加中心线。本回答被网友采纳
第2个回答  2012-03-20
采用正交,通过圆心,稍微麻烦点,对象捕捉设置里面开圆心,垂足,就好了 然后你只要过圆心画垂直和平行的线与圆相交就好了,这个比较简单的办法
第3个回答  2012-04-14
输入dce
第4个回答  2012-03-22
找到圆心,画两条直线
相似回答