找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 4781|回复: 25

[LISP程序]:绘制两条平行线的中轴线-------mf.lsp

[复制链接]
发表于 2002-4-25 07:25:51 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
;只针对平行线,平行线可以不在同一个高度上
;第二条平行线可以没有,只取点
;支持 arc,cir,ellipse,*line (包括spline,经过拟合的spline)
  1. [FONT=century gothic]
  2. (defun c:mf (/ OS pe1 p1 p2 dist2)
  3. (princ "\n mf=middle dist offset 两条平行线的中轴线-------lxx.2002.4")
  4. (setq os (getvar "osmode"))
  5. (setvar "osmode" 128)
  6. (setq pe1 (entsel)  
  7.          p1 (osnap (last pe1) "nea")
  8.          p2 (getpoint p1)
  9.          p2 (list (car p2) (cadr p2))
  10.          dist2 (/ (distance p1 p2) 2)
  11. )
  12. (command "_.offset"  dist2 pe1 p2 ^c)
  13. (setvar "osmode" os)
  14. (princ)
  15. )
  16. (princ "\n mf=middle dist offset 两条平行线的中轴线-------lxx.2002.4")   [/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
发表于 2002-4-25 07:55:38 | 显示全部楼层

不错!

这个程序不错,不过我已有相似的程序了。
能不能就qsave命令的修改在详细解释一下?谢谢!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2002-4-25 11:03:46 | 显示全部楼层
是否应加个  平行的判断?
另外,光找垂点,在圆弧时会不会出错?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 145个

财富等级: 日进斗金

发表于 2002-4-25 11:08:24 | 显示全部楼层
最初由 cy956 发布
[B]是否应加个  平行的判断?
另外,光找垂点,在圆弧时会不会出错? [/B]


我想不加的好,用户既然决定用这个了,就说明选的两个线是他认为“平行”的,就想画中轴线。不加适用范围更广些。

另:我觉得用我提供的那个更好些,找两个端点处的中点,然后连线。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2002-4-25 11:09:44 | 显示全部楼层
圆弧我试了几个,没有问题,谁发现有问题,通报一声。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2004-11-23 11:27:26 | 显示全部楼层
能不能框选啊。
具体生成那个属性的线段到不重要,主要是能生成平行辅助线就。
能不能框选啊。框选最快了。。
谢谢斑竹。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2004-11-23 18:12:18 | 显示全部楼层
恩,非常实用,如果能增强功能,使不平行的也能画中线,或者能按不平行线的平均距离画线就更好了~~~
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2004-11-24 15:45:39 | 显示全部楼层
考慮
1.如果只有二條(一組)平行線,可用跨線兩端的操作方式
2.如果有多組的平行線,框選要操作的範圍,自動判斷一定距離內的平行線自動繪出中線,相鄰的自動fillet
3.如果能有第二種的功能,第一種就留者備用了
對斑竹(樓主)而言應該不難
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2004-11-26 21:50:35 | 显示全部楼层
最初由 XDSoft 发布
[B]

另:我觉得用我提供的那个更好些,找两个端点处的中点,然后连线。[/B]

我想问一问,晓东大哥提供的程序在那里,我搜索不到。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-2-16 12:58:31 | 显示全部楼层
既然有源码公布为什么要收币呢
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2006-2-13 17:06:13 | 显示全部楼层
很有用的程序。但是能不能把中轴线自动改为dote层啊?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2006-8-12 22:36:55 | 显示全部楼层
附件打不开
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2006-8-16 11:35:05 | 显示全部楼层
在建筑设计中不时经常用到轴线标注么?
能否把这个程序改进一下,

要求生成的直线放到另外一个层上,并且生成的直线能自动延伸到某个指定位置。

这样标注轴线的时候会轻松很多。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2006-8-20 11:23:25 | 显示全部楼层
还是埔错的小软件!!!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2006-8-22 09:23:16 | 显示全部楼层
不错不错,下载原码用一下
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-17 21:25 , Processed in 0.301509 second(s), 60 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表