点选圆弧，取得圆弧圆心坐标和半径

AprilTea

我编写以下程序用于提取点选的圆弧（多个圆弧，有的圆弧根据需要须多次重复点选）圆心坐标和半径，程序在AutoCAD2010和AutoCAD2015版本中可以正确加载运行，但是在中望CAD2018版本中不可以正确运行，只能提取出第一个选取的圆弧信息。

注：运行前先在D盘中建立一个空文件夹，命名“模型”。

请大家帮忙看看，谢谢！

AprilTea

(defun c:ccr (/ fc sa i sa_name sa_data 10_list 40_list x y r)
  (setvar "cmdecho" 0)                        ;抑制AutoCAD普通命令的提示
  (COMMAND "UNDO" "BE")
  (command "units" "2" "4" "" "" "" "")        ;设置绘图的长度和角度单位
  (setq fc (open "d:/模型/圆弧圆心坐标和半径.txt" "w"))
  (princ "\n请按顺序点选圆弧：")
  (setq sa (ssget ":D"))                ;取得一个选择集
  (setq i 0)                                ;序号的初值为0
  (repeat (sslength sa)                        ;计算选择个数，确定循环次数
    (setq sa_name (ssname sa i))        ;返回指定的选择集中由序号指定的那个图元名
    (setq sa_data (entget sa_name))        ;得到这个对象的图元表
    (setq 10_list (assoc 10 sa_data))        ;取出圆心坐标所在表
    (setq 40_list (assoc 40 sa_data))        ;取出圆半径所在表
    (setq x (rtos (nth 1 10_list)))        ;取出圆心x坐标
    (setq y (rtos (nth 2 10_list)))        ;取出圆心y坐标
    (setq r (rtos (cdr 40_list)))        ;取出圆弧半径
    (princ x fc)
    (princ "\t" fc)
    (princ y fc)
    (princ "\t" fc)
    (princ r fc)
    (princ "\n" fc)
    (setq i (1+ i))
  )
  (close fc)
  (princ "\n完成！")
  (princ)
)
(princ "\n提示：输入 ccr 命令来运行本程序！")
(princ)

newer

去看下中望的系统变量的设置