【转贴】绘制两条平行线的中轴线-------mf.lsp
 

【转贴】绘制两条平行线的中轴线-------mf.lsp
www.dimcax.com
【转贴】绘制两条平行线的中轴线-------mf.lsp
;只针对平行线，平行线可以不在同一个高度上
;第二条平行线可以没有，只取点
;支持 arc,cir,ellipse，*line (包括spline,经过拟合的spline)
(defun c:mf (/ os pe1 p1 p2 dist2)
(princ "\n mf=middle dist offset 两条平行线的中轴线-------lxx.2002.4")
(setq os (getvar "osmode"))
(setvar "osmode" 128)
(setq pe1 (entsel)
p1 (osnap (last pe1) "nea")
p2 (getpoint p1)
p2 (list (car p2) (cadr p2))
dist2 (/ (distance p1 p2) 2)
)
(command "_.offset" dist2 pe1 p2 ^c)
(setvar "osmode" os)
(princ)
)
(princ "\n mf=middle dist offset 两条平行线的中轴线-------lxx.2002.4")

thk u v m!
wpj

太菜了，看不明白

你这个程序有很多问题：
1。轴线与主线不应是在同一层。不能用offset.
2。两条平行线如不在同一高度，更不能用offset.
3。如用offser你还要用change来改变它的层。
程序应用(ssget) 然后来提取它的数据，然后进行计算出轴线，来画轴线。
gbg

上楼的高手.啊.
谁知道写这程序是用什么语言吗.我只学过c
好好学习..天天向上

图片：

我现编了一个画轴线的程序放到网上，下载解压就可看到原程序，它是选取后，计算数据后画轴线。见图。
29
gbg

程序虽不完善，但心意是好的，希望把它完善得更好。

ding

好，上面的高手ａ　，方便了好多啊

我不懂,语言,想学不知从何学起,用cad我也是用他里面简单通用的一些工具功能,请楼上高人多多指点啊.

确实很方便