这个宏定义了一个名为'mcir'的功能，用于从两条已选择的直线中快速创建一个圆。它首先禁用命令回显，然后提示用户选择一条直线。宏获取所选直线的两个端点，计算它们的中点和中点到直线的距离（作为圆的半径），最后执行'circle'命令绘制圆。这是一个提高AutoCAD用户效率的实用工具。
(defun c:mcir()
(setvar "cmdecho" 0)
(setq en (entsel "Select a LINE:"))
(setq en_data (entget (car en)))
(setq pts (assoc 10 en_data))
(setq pt1 (cdr pts))
(setq px1 (car pt1))
(setq py1 (cadr pt1))
(setq pte (assoc 11 en_data))
(setq pt2 (cdr pte))
(setq px2 (car pt2))
(setq py2 (cadr pt2))
(setq mx (/ (+ px1 px2) 2))
(setq my (/ (+ py1 py2) 2))
(setq mpt (list mx my))
(setq mr (getdist mpt "\nCircle Radius:"))
(command "circle" mpt mr)
(prin1)
)
(prompt "**************<>**************")
(prin1)
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
