明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1720|回复: 7

[求助]请帮我看下我的编程思路还可行?

[复制链接]
发表于 2009-4-6 11:46:00 | 显示全部楼层 |阅读模式

要实现cass三点房屋自动成图,编码文件f1,2,3,c。坐标数据文件中有1,2,3点的坐标。

编写一个程序,该程序可调用坐标数据文件中的坐标,并根据这三点坐标计算出第四点坐标,并将值返回到c。

计算公式为:Xc=X1+X2-X3 , Yc=Y1+Y2-Y3 。

请问这个程序用LISP可否实现?

发表于 2009-4-6 19:59:00 | 显示全部楼层
可以实现。
 楼主| 发表于 2009-4-7 22:09:00 | 显示全部楼层
要用到哪些LISP表达式呀?我还不会LISP呢。。
发表于 2009-4-8 20:56:00 | 显示全部楼层

要用到函数:+,-,setq,……
建议先看书或本论坛下载的电子版教材。

发表于 2009-4-9 19:50:00 | 显示全部楼层

;假设1,2,3点已知,且分别为p1,p2,p3。

;求pc.

;以下为取得各点坐标

(setq x1 (car p1))      ;取得p1横坐标

(setq y1 (cadr p1))     ;取得p1纵坐标

(setq x2 (car p2))      ;取得p2横坐标

(setq y2 (cadr p2))     ;取得p2纵坐标

(setq x3 (car p3))      ;取得p3横坐标

(setq y3 (cadr p3))     ;取得p3纵坐标

;以下为计算点pc

(setq xc (- (+ x1 x2) x3) )    ;计算,xc=x1+x2-x3 (运算顺序由括号内到括号外)

(setq yc (- (+ y1 y2) y3) )    ;计算,yc=y1+y2-y3

(setq pc (list xc yc))         ;pc为(xc yc)

;完成

 楼主| 发表于 2009-4-9 19:51:00 | 显示全部楼层

太感谢了。。

 楼主| 发表于 2009-4-9 20:45:00 | 显示全部楼层
这样直接能调用坐标数据文件中的坐标嘛?
发表于 2009-4-22 17:10:00 | 显示全部楼层
edgar2lee发表于2009-4-9 20:45:00这样直接能调用坐标数据文件中的坐标嘛?

可以啊,可以通过读取文件,将坐标值提供给变量,书上有例子,很简单的,照着书改一下就行了.

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

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2025-2-27 19:54 , Processed in 0.184923 second(s), 23 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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