设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [LISP函数]：求曲线上的一些特殊点坐标
返回列表 发新帖
查看: 816|回复: 6

[LISP函数]：求曲线上的一些特殊点坐标

[复制链接]
zcg319
发表于 2003-5-3 11:03:49 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
我要作一个数据分析用的小程序，设想是用一组数据生成一条曲线，再查找曲线上的一些特殊点(分别已知X坐标或者是Y坐标)的X，Y坐标。
有没有简便的办法呢？ 有没有简便的办法呢？ 愁啊愁！
坐标, 特殊点, 曲线

相关帖子

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

使用道具 举报

LUCAS
发表于 2003-5-6 11:52:18 | 显示全部楼层
以X坐标或Y坐标画一直线,再求与生成曲线的交点即可!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

cy956
发表于 2003-5-6 21:25:26 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
这个问题或者类似问题，光龙龙仔就回答好几次了，
希望先翻翻以前的帖子，相信能找到不少有用的东东。

龙龙仔，vl这块你用得多，写得好，希望多发范例。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

LUCAS
发表于 2003-5-7 13:35:08 | 显示全部楼层

  3. ;;范例
  4. (defun C:TT (/ HOLDOSMODE HOLDECHO ENT XX PT PT_LIST)
  5. ;;;=================================================================;
  6. ;;;求曲线与曲线的实际交点，多交点时返回第一个交点坐标，无交点返回nil;
  7. ;;;=================================================================;
  8.   (defun GETCURVEINT (OBJ1 OBJ2 MODE / PTV PTINT)
  9.     (setq PTV (vlax-variant-value
  10.                 (vla-intersectwith OBJ1 OBJ2 (eval (read MODE)))
  11.               )
  12.     )
  13.     (setq PTINT        (vl-catch-all-apply
  14.                   'vlax-safearray->list
  15.                   (list PTV)
  16.                 )
  17.     )
  18.     (if        (vl-catch-all-error-p PTINT)
  19.       (setq PTINT NIL)
  20.       (if (> (length PTINT) 3)
  21.         (setq PTINT (list (car PTINT) (cadr PTINT) (caddr PTINT)))
  22.       )
  23.     )
  24.     PTINT
  25.   )

  27.   (setq HOLDECHO (getvar "cmdecho"))
  28.   (setvar "cmdecho" 0)
  29.   (setq HOLDOSMODE (getvar "osmode"))
  30.   (setvar "osmode" 0)
  31.   (entmake '((0 . "LWPOLYLINE")
  32.              (100 . "AcDbEntity")
  33.              (67 . 0)
  34.              (410 . "Model")
  35.              (8 . "0")
  36.              (100 . "AcDbPolyline")
  37.              (90 . 11)
  38.              (70 . 0)
  39.              (43 . 0.0)
  40.              (38 . 0.0)
  41.              (39 . 0.0)
  42.              (10 5.50424 112.815)
  43.              (40 . 0.0)
  44.              (41 . 0.0)
  45.              (42 . 0.0)
  46.              (10 56.8222 176.336)
  47.              (40 . 0.0)
  48.              (41 . 0.0)
  49.              (42 . 0.0)
  50.              (10 83.0643 134.96)
  51.              (40 . 0.0)
  52.              (41 . 0.0)
  53.              (42 . 0.0)
  54.              (10 211.942 201.977)
  55.              (40 . 0.0)
  56.              (41 . 0.0)
  57.              (42 . 0.0)
  58.              (10 237.601 186.825)
  59.              (40 . 0.0)
  60.              (41 . 0.0)
  61.              (42 . 0.0)
  62.              (10 273.757 178.084)
  63.              (40 . 0.0)
  64.              (41 . 0.0)
  65.              (42 . 0.0)
  66.              (10 317.494 214.215)
  67.              (40 . 0.0)
  68.              (41 . 0.0)
  69.              (42 . 0.0)
  70.              (10 346.069 164.098)
  71.              (40 . 0.0)
  72.              (41 . 0.0)
  73.              (42 . 0.0)
  74.              (10 395.054 199.646)
  75.              (40 . 0.0)
  76.              (41 . 0.0)
  77.              (42 . 0.0)
  78.              (10 438.208 163.515)
  79.              (40 . 0.0)
  80.              (41 . 0.0)
  81.              (42 . 0.0)
  82.              (10 458.035 200.229)
  83.              (40 . 0.0)
  84.              (41 . 0.0)
  85.              (42 . 0.0)
  86.              (210 0.0 0.0 1.0)
  87.             )
  88.   )
  89.   (command "_.PEDIT" (entlast) "S" "")
  90.   (setq OBJ (entlast))
  91.   (setq XX '(10 34 56 78.4 95.4 135.6 236.9 50.7 80.4)) ;X坐标值表
  92.   (foreach ENT XX
  93.     (command "_.line"
  94.              (list ENT 0 0)
  95.              (list ENT (+ ENT 0.001) 0)
  96.              ""
  97.     )
  98.     (setq PT (GETCURVEINT
  99.                (vlax-ename->vla-object (entlast))
  100.                (vlax-ename->vla-object OBJ)
  101.                "acExtendboth"
  102.              )
  103.     )
  104.     (entdel (entlast))
  105.     (setq PT_LIST (append PT_LIST (list PT)))
  106.     (command "_.circle" PT 2)
  107.   )
  108.   (setvar "osmode" HOLDOSMODE)
  109.   (setvar "cmdecho" HOLDECHO)
  110.   PT_LIST
  111. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zcg319
 楼主| 发表于 2003-5-8 20:29:17 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
大哥，我在R14下工作，拜托帮忙帮到底，不用VL可以实现吗？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

eachy

已领礼包: 593个

财富等级: 财运亨通
发表于 2003-5-8 20:42:50 | 显示全部楼层
你要是生成Spline，用纯Lisp就别想了，Pline或者Line还可以。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

aeo

已领礼包: 488个

财富等级: 日进斗金
发表于 2003-5-8 23:34:24 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
上面写的那啥:)

vlisp不能用那xd-api应该可以吧,其实就是求交点.
以知点求pl线,我贴过的.
下面是已有了曲线,由X--->Y  Y-->X,有几点回几点.

第二贴其实很对,我以为已经会了.
其实简单,不能算程序.


  3. (defun getx-y(e xy how / p1 p2 ptn)  ;how为t已知X坐标.nil为Y坐标.e为实体.xy是给出的x或y
  4. (if how(setq p1 (list xy 0 0) p2(polar p1(/ pi 2)1000))
  5.         (setq p1(list 0 xy 0)p2(polar p1 0 1000))
  6.     )
  7. (setq ptn(xdrx_getinters (list p1 p2) e 1))
  8. (if how(mapcar 'cadr ptn)(mapcar 'car ptn))
  9. )


下面试一下,先画根曲线:

  3. (defun c:test( / e how is p1)
  4. (if(and(setq e(car(entsel)))
  5.         (setq p1(getpoint"Pick"))
  6.         (/= ""(setq how(getstring "\n"X"其他键"Y":")))
  7.       )
  8. (progn
  9.   (if(= (strcase how) "X")(setq is t)(setq is nil))
  10.   (princ(if is "Y=" "X="))
  11. (princ(getx-y e(if is(car p1)(cadr p1))(if is t nil)  ))
  12. )
  13. )(princ))



我倒是要问个问题,xdrx_getinters 里面的(list p1 p2)
这p1 p2为什么没Z坐标不行.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2025-9-26 09:42 , Processed in 0.180278 second(s), 44 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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