找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 932|回复: 9

[LISP程序]:面积调整LISP程序

[复制链接]

已领礼包: 111个

财富等级: 日进斗金

发表于 2005-8-18 17:32:19 | 显示全部楼层 |阅读模式

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

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

×
;面积调整LISP程序
;程序功能:通过调整封闭多段线的一点或一边,
;使其面积调整到所要求的面积。
;多段线要求只能是由直线段和圆弧段组成。
;该程序的功能类似CASS软件中的面积调整功能,
;它通过三种方式调整封闭多段线的面积:
;    (1)调整一点——以该点为圆心,在360度范围内进行调整;
;    (2)调整一边——以平行该边方式向封闭多段线内或外进行调整;
;    (3)在一边上调整一点——以该边的一端点为固定不动点,
;       另一端点在该边的方向线上缩短或延进行调整。
;调整过程中,调整部分将随鼠标的移动而改变,
;同时在命令行中实时调整后面积,当该值达到所要求数值,
;单击鼠标左键或敲击回车键后即可得所要求面积的位置。
;该程序可运用于征地、定界、道路工程等测量中。
;请将下载的“mjtz.fas”存入G盘中,并试用以下程序
(defun c:mjtz0()
   (if (null mjtz)(load "g:mjtz.fas"));如存入其它地方,请更改相应的路径名
   (setq mj (mjtz))
   (princ)
)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 593个

财富等级: 财运亨通

发表于 2005-8-18 21:48:48 | 显示全部楼层
没必要作选项,entsel 时已经取得了点,根据 entsel 点的位置来区分不同功能就可以。
http://www.xdcad.net/forum/showt ... 2142828#post2142828

BTW:
如果程序定义为函数形式,最后还是要加个 (defun c:xxx () ...) 否则使用不方便。


  1. (defun c:mjtz0 ()
  2.   (if (null mjtz)
  3.     (load "g:mjtz.fas") ;_如存入其它地方,请更改相应的路径名
  4.   )
  5.   (mjtz)
  6.   (princ)
  7. )
  8. (defun c:mj () (mjtz) (princ))
  9. (vlax-add-cmd "mjtz" 'mjtz)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-8-19 09:17:36 | 显示全部楼层
二位高手程序改良一下,能否输入一个精确的面积值,图形可以按三种自动调整,谢谢
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-8-19 09:28:48 | 显示全部楼层
好东西,如果单位改为米就好了,
而且调整过程中,调整部分将随鼠标的移动而改变,没有通过键盘输入精确的位置
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 593个

财富等级: 财运亨通

发表于 2005-8-19 11:01:17 | 显示全部楼层
最初由 xxming 发布
[B]二位高手程序改良一下,能否输入一个精确的面积值,图形可以按三种自动调整,谢谢 [/B]

2 楼链接的就可以输入数值精确调整,不过当曲线出现自相交时面积显示值是错误的,这是 CAD 的BUG。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 111个

财富等级: 日进斗金

 楼主| 发表于 2005-8-19 13:29:42 | 显示全部楼层
请求斑竹eachy将如下算法:
“1 选择到中间位置,执行 要求1
    2 点选到临近端点执行要求3
    3 靶框选到端点执行要求 2 ”
发送一份至hrycly@126.com,不知可否?
因“www.xdcad.net/forum/showthre...828#post2142828”中
的“justplarea.rar”下载后无法打开。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 593个

财富等级: 财运亨通

发表于 2005-8-19 17:06:31 | 显示全部楼层
http://eachy.ys168.com 中的 “最新程序” 目录下
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-11-30 21:46:54 | 显示全部楼层
引用“二位高手程序改良一下,能否输入一个精确的面积值,图形可以按三种自动调整,谢谢”,我也需要。

另外,能否详细介绍一下使用方法?加载后,每次使用都要将代码调用才能使用,很不方便。

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

使用道具 举报

已领礼包: 3个

财富等级: 恭喜发财

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

使用道具 举报

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 15:26 , Processed in 0.340037 second(s), 50 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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