autocad下繪制直線對稱中心線的方法(編輯修改稿)
2025-10-22 17:42 本頁面
【文章內(nèi)容簡介】 (t (prompt\n兩條直線已經(jīng)選擇完畢) (setq m nil)；；；退出循環(huán) ) ) )；；；取得第一直線兩端點的坐標 (setq pt1 (cdr (assoc 10 e )) pt2 (cdr (assoc 11 e ))) (setq e (entget (car cl1)))；；取得第二條直線的實體數(shù)據(jù)；；；取得第二直線兩端點的坐標 (setq pt3 (cdr (assoc 10 e )) pt4 (cdr (assoc 11 e )))；；調(diào)整端點 (if (inters pt1 pt3 pt2 pt4 t) (setq pt pt1 pt1 pt2 pt2 pt ) )；；；計算兩端中點坐標 (setq pt1 (mid pt1 pt3 )) (setq pt2 (mid pt2 pt4 )) (setq a (angle pt1 pt2))；計算中心線的傾角 (setq pt2 (polar pt2 a ))；；計算中心線的第一個端點
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1