选择圆和多义线后，自动生成一条line线，从圆心到多义线的第二个端点，线型为虚线。
我自己的思路是
(defun c:kk（）
(setq ss(ssget("circle,lwpolyline")))
(setq yx((if (= (cdr ss) "circle")))
(set i 0 j 0 )
(setq i(cdr(assoc 10 yx));取出圆心 x坐标给i
(setq j(car(assoc 10 yx));取出圆心 x坐标给j
(setq k(cdar(assoc 10 yx));取出圆心 y坐标给k
(setq dd((if (= (cdr ss) "lwpolyline")))
(set x 0 y 0 )
找到端点一后+1取第二个端点
(setq x(car(assoc dd)));取出第二端点 x坐标给x
(setq y(car(assoc dd)));取出第二端点 y坐标给y
根据坐标连线
)但实在有点的地方不会写，也不知道思路对不对