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

yshf

;面积调整LISP程序
;程序功能：通过调整封闭多段线的一点或一边，
;使其面积调整到所要求的面积。
;多段线要求只能是由直线段和圆弧段组成。
;该程序的功能类似CASS软件中的面积调整功能，
;它通过三种方式调整封闭多段线的面积：
;    (1)调整一点——以该点为圆心，在360度范围内进行调整；
;    (2)调整一边——以平行该边方式向封闭多段线内或外进行调整；
;    (3)在一边上调整一点——以该边的一端点为固定不动点，
;       另一端点在该边的方向线上缩短或延进行调整。
;调整过程中，调整部分将随鼠标的移动而改变，
;同时在命令行中实时调整后面积，当该值达到所要求数值，
;单击鼠标左键或敲击回车键后即可得所要求面积的位置。
;该程序可运用于征地、定界、道路工程等测量中。
;请将下载的“mjtz.fas”存入G盘中，并试用以下程序
(defun c:mjtz0()
   (if (null mjtz)(load "g:mjtz.fas"));如存入其它地方，请更改相应的路径名
   (setq mj (mjtz))
   (princ)
)

eachy

没必要作选项，entsel 时已经取得了点，根据 entsel 点的位置来区分不同功能就可以。
http://www.xdcad.net/forum/showt ... 2142828#post2142828

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

2. 
   
3. (defun c:mjtz0 ()
   
4.   (if (null mjtz)
   
5.     (load "g:mjtz.fas") ;_如存入其它地方，请更改相应的路径名
   
6.   )
   
7.   (mjtz)
   
8.   (princ)
   
9. )
   
10. (defun c:mj () (mjtz) (princ))
    
11. (vlax-add-cmd "mjtz" 'mjtz)

<br /> (defun c:mjtz0 ()<br />   (if (null mjtz)<br />     (load "g:mjtz.fas") ;_如存入其它地方，请更改相应的路径名<br />   )<br />   (mjtz)<br />   (princ)<br /> )<br /> (defun c:mj () (mjtz) (princ))<br /> (vlax-add-cmd "mjtz" 'mjtz)

xxming

二位高手程序改良一下，能否输入一个精确的面积值，图形可以按三种自动调整，谢谢

zh_6531394

好东西,如果单位改为米就好了,
而且调整过程中，调整部分将随鼠标的移动而改变,没有通过键盘输入精确的位置

eachy

最初由 xxming 发布
[B]二位高手程序改良一下，能否输入一个精确的面积值，图形可以按三种自动调整，谢谢 [/B]

2 楼链接的就可以输入数值精确调整，不过当曲线出现自相交时面积显示值是错误的，这是 CAD 的BUG。

yshf

请求斑竹eachy将如下算法：
“1 选择到中间位置，执行 要求1
    2 点选到临近端点执行要求3
    3 靶框选到端点执行要求 2 ”
发送一份至hrycly@126.com，不知可否？
因“www.xdcad.net/forum/showthre...828#post2142828”中
的“justplarea.rar”下载后无法打开。

eachy

http://eachy.ys168.com 中的 “最新程序” 目录下

kkk888

引用“二位高手程序改良一下，能否输入一个精确的面积值，图形可以按三种自动调整，谢谢”，我也需要。

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

请各高手指点迷津，谢谢！

bbslevel

请问.fas文件从哪下载呢

欢乐多

看看看...太需要了