[LISP程序]：怎么实现这样的功能？

north911 · 发表于 2004-10-25 11:26:25

提示: 作者被禁止或删除内容自动屏蔽

xyp1964 · 发表于 2004-10-25 13:46:55

“悬练线曲线”是什么东东？孤陋寡闻！

LIFUPING · 发表于 2004-10-25 13:56:54

公式较复杂，应该是悬链线，学路桥的应该知道。

north911 · 发表于 2004-10-25 14:06:20

提示: 作者被禁止或删除内容自动屏蔽

xyp1964 · 发表于 2004-10-25 19:11:27

估计只能模拟画出（pline或spline线），不知方程是什么？

north911 · 发表于 2004-10-26 08:50:48

提示: 作者被禁止或删除内容自动屏蔽

zxq0220 · 发表于 2004-10-26 11:16:30

按悬链线公式写了一个程序，不知对不对。

[FONT=courier new]
(DEFUN C:XLX ()
(SETVAR "CMDECHO" 0)
(SETQ OLDOS (GETVAR "OSMODE"))
(SETVAR "OSMODE" 0)
(SETQ PT1 (GETPOINT "\nFirst Point : ")
PT2 (GETPOINT PT1 "\nSecond Point : ")
VK (GETDIST "\nParameter K = ")
VM (GETDIST "\nParameter M = ")
VN (GETDIST "\nParameter N = ")
VD (GETINT "\nDivide of the line : ")
DS1 (DISTANCE PT1 PT2)
DS (/ DS1 VD)
DX DS
ANG (ANGLE PT1 PT2)
A2 (- ANG (/ PI 2)))
(COMMAND "SPLINE" PT1)
(REPEAT VD
(SETQ PT3 (POLAR (POLAR PT1 ANG DX) A2 (- (* 4 VK DX (- VM DX)) (* DX VN)))
DX (+ DS DX))
(COMMAND PT3)
)
(COMMAND "" "" "")
(SETQ "OSMODE" OLDOS)
(SETVAR "CMDECHO" 1)
(PRINC)
)
[/FONT]

lingzhi0512 · 发表于 2004-10-26 14:22:46

应该是个简单的程序，只是要用到反应器，有空了给你编一个！

north911 · 发表于 2004-10-26 14:46:31

提示: 作者被禁止或删除内容自动屏蔽

netbee · 发表于 2004-10-26 20:29:31

其实要用CAD画它本身并没有的对象，是很难的，最多只能是模拟。
　　不过听说ARX可以做到，可以自定义一个对象，并通过一系列的定义，使其具有CAD对象的功能。比如用直线去交该对象，可以精确地求得交点。

－－－－－－－－－－－－－
帖图：只要你的附件是JPG、GIF格式的文件就行，它会自动显示。

xyp1964 · 发表于 2004-10-26 22:54:37

最初由 zxq0220 发布
[B]按悬链线公式写了一个程序，不知对不对。

[CODE]

(DEFUN C:XLX ()
(SETVAR "CMDECHO" 0)
(SETQ OLDOS (GETVAR "OSMODE"))
(SETVAR "OSMODE" 0)
(SETQ PT1 (GETPOINT "\nFirst Point... [/B]

1.
(SETQ "OSMODE" OLDOS)
应为
(SETVAR"OSMODE" OLDOS)

2.
楼上测试了吗？是条垂直线！

north911 · 发表于 2004-10-27 12:14:28

提示: 作者被禁止或删除内容自动屏蔽

账号		自动登录	找回密码
密码			立即注册

north911 north911 当前离线 UID 186781 积分 144 精华贡献威望活跃度 D豆在线时间小时注册时间 2004-10-25 最后登录 1970-1-1 窥视卡雷达卡	发表于 2004-10-25 11:26:25 \| 显示全部楼层 \|阅读模式【广而告之】积分规则、D豆获取攻略窝窝空间装扮攻略提示: 作者被禁止或删除内容自动屏蔽
	相关帖子 • [求助]：关于曲线交点的问题 • 帮写个提取地形图中展点号的程序 • 返回曲线长度 • 求助大家一个这样对象的属性lisp • LEE MAC作品之“纯lisp在不打开图纸情况下提取其内属性块” • 如何得到离指定点最近的且包含这点的封闭曲线 • 给大家写个“给图中的BLOCK添加遮罩”的工具 • 按提取数据改变圆的直径！ • 按提取数据改变圆的直径！ • 再问GRID。。论坛插件加载方法发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
	回复使用道具举报提升卡置顶卡沉默卡变色卡千斤顶

north911 north911 当前离线 UID 186781 积分 144 精华贡献威望活跃度 D豆在线时间小时注册时间 2004-10-25 最后登录 1970-1-1 窥视卡雷达卡	楼主\| 发表于 2004-10-25 14:06:20 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
	论坛插件加载方法发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
	回复支持反对使用道具举报

north911 north911 当前离线 UID 186781 积分 144 精华贡献威望活跃度 D豆在线时间小时注册时间 2004-10-25 最后登录 1970-1-1 窥视卡雷达卡	楼主\| 发表于 2004-10-26 08:50:48 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
	论坛插件加载方法发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
	回复支持反对使用道具举报

north911 north911 当前离线 UID 186781 积分 144 精华贡献威望活跃度 D豆在线时间小时注册时间 2004-10-25 最后登录 1970-1-1 窥视卡雷达卡	楼主\| 发表于 2004-10-26 14:46:31 \| 显示全部楼层【广而告之】积分规则、D豆获取攻略窝窝空间装扮攻略提示: 作者被禁止或删除内容自动屏蔽
	论坛插件加载方法发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
	回复支持反对使用道具举报

north911 north911 当前离线 UID 186781 积分 144 精华贡献威望活跃度 D豆在线时间小时注册时间 2004-10-25 最后登录 1970-1-1 窥视卡雷达卡	楼主\| 发表于 2004-10-27 12:14:28 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
	论坛插件加载方法发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
	回复支持反对使用道具举报

[LISP程序]：怎么实现这样的功能？

相关帖子