lisp求直线、多义线上的中点，两点直间中点lsp

lsp求线段上的中点，

先分析坐标，一条直线线段有两个端点，一个起始点，一个终止点，组码分别是10,11，直接使用系统自带的函数反应出来两个点，在进行计算。上代码吧！

(defun c:t3(/ )

(setq fvv(ssget))

(setq en(entget(ssname fvv 0)));对象组码信息表

(princ en)
(setq p1(cdr (assoc 10 en)));起点

(setq p2(cdr (assoc 11 en)));终点
(setq p3(mapcar '* '(0.5 0.5) (mapcar '+ p1 p2)))

;(setq p3(mapcar '* '(0.5 0.5) (mapcar '+ 点1 点2)))
(command "_circle" p3 1 )

)
复制