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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 关于vlax-curve-getPointAtDist捕捉点问题
123
返回列表 发新帖
楼主: xtdwynij

[求助] 关于vlax-curve-getPointAtDist捕捉点问题

[复制链接]
xtdwynij

已领礼包: 449个

财富等级: 日进斗金
 楼主| 发表于 2013-8-31 14:24:25 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
xtdwynij 发表于 2013-8-31 11:43
昨天用的手机上没有办法贴上代码，晚上回家测试如下：

cqw为间距  cqwgs 为分段个数  间距为4个MM，分为四段。分为五段测试一样也是不行的！返回值为NIL (分段太多的话返回值都为空)

点评

newer
你要是用点取判断的话，那么必须保证点在弧线上，如果用参数去判断的话，必须保证参数在曲线上，所以，每次你循环取点的时候，加个代码，如果是点，去下点到弧线的最近点，用最近点取操作，如果用参数，在终止的时候  详情 回复 发表于 2013-8-31 14:38
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2013-8-31 14:38:03 | 显示全部楼层
xtdwynij 发表于 2013-8-31 14:24
cqw为间距  cqwgs 为分段个数  间距为4个MM，分为四段。分为五段测试一样也是不行的！返回值为NIL (分段 ...

你要是用点取判断的话，那么必须保证点在弧线上，如果用参数去判断的话，必须保证参数在曲线上，所以，每次你循环取点的时候，加个代码，如果是点，去下点到弧线的最近点，用最近点取操作，如果用参数，在终止的时候，判断下是否和弧线的终点参数一样，不一样，取弧线的终点参数，因为浮点数有误差。

点评

xtdwynij
我也觉得是有误差造成的！但是取最近点的话用VLISP函数么？版主能不能给个简单的例子学习一下？  详情 回复 发表于 2013-8-31 14:54
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 1 反对 0

使用道具 举报

xtdwynij

已领礼包: 449个

财富等级: 日进斗金
 楼主| 发表于 2013-8-31 14:54:42 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
newer 发表于 2013-8-31 14:38
你要是用点取判断的话，那么必须保证点在弧线上，如果用参数去判断的话，必须保证参数在曲线上，所以，每 ...

我也觉得是有误差造成的！但是取最近点的话用VLISP函数么？版主能不能给个简单的例子学习一下？

点评

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

使用道具 举报

Free-Lancer
发表于 2013-8-31 20:37:43 | 显示全部楼层
xtdwynij 发表于 2013-8-31 14:54
我也觉得是有误差造成的！但是取最近点的话用VLISP函数么？版主能不能给个简单的例子学习一下？

(vlax-curve-getclosestpointto curve pt)

点评

xtdwynij
晚了好多天！不过也是这个星期天才搞定的！其他根本就没有时间去，也只能想想怎么搞了！把老朋友的黑板空间也用上了！有哪里需要优化或者不足的地方还请老朋友能够指点一下！出错出理还没有学，也还没有加（有教程只  详情 回复 发表于 2013-9-10 12:20
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xtdwynij

已领礼包: 449个

财富等级: 日进斗金
 楼主| 发表于 2013-9-10 12:20:23 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
Free-Lancer 发表于 2013-8-31 20:37
(vlax-curve-getclosestpointto curve pt)

晚了好多天！不过也是这个星期天才搞定的！其他根本就没有时间去，也只能想想怎么搞了！把老朋友的黑板空间也用上了！有哪里需要优化或者不足的地方还请老朋友能够指点一下！出错出理还没有学，也还没有加（有教程只是没抽得出来时间）！代码如下：

  3. (defun c:tt ( / )
  4.      (setvar "osmode" 0)
  5.      (setvar "cmdecho" 0)
  6.      (if (vl-bb-ref '#zccdqw)
  7.          (setq zccdqw (vl-bb-ref '#zccdqw))
  8.        (progn
  9.   (setq #dqwdx (getreal "\n请输入大桥的值<4>："))
  10.   (if (null #dqwdx)(setq #dqwdx 4.))
  11.   (setq zccdqw (vl-bb-set '#zccdqw  #dqwdx))
  12.       )
  13.     )
  14.     (if (vl-bb-ref '#zccxqw)
  15.          (setq zccxqw (vl-bb-ref '#zccxqw))
  16.        (progn
  17.   (setq #xqwdx (getreal "\n请输入小桥的值

  19. <1.5>："))
  20.   (if (null #xqwdx)(setq #xqwdx 1.5))
  21.   (setq zccxqw (vl-bb-set '#zccxqw  #xqwdx))
  22.       )
  23.     )
  24.     (setq dqwgs (getint "\n请输入大的个数:"))
  25.     (if (null dqwgs)
  26.         (progn
  27.           (setq xqwgs (getint "\n请输入小的个数:"))
  28.           (setq cqw zccxqw cqwgs xqwgs)
  29.         )
  30.          (setq cqw zccdqw cqwgs dqwgs)
  31.     )
  32.     (setq *dwgobj (vla-get-activedocument (vlax-get-

  34. acad-object)))
  35.     (setq *mspace (vla-get-modelspace *dwgobj))
  36.     (prompt "\n请选择要打桥的圆或圆弧:")
  37.     (setq zccqwss (ssget '((8 . "0") (0 .

  39. "CIRCLE,ARC,LINE"))))
  40.     (setq zccqwn 0 )
  41.    (repeat (sslength zccqwss)
  42.      (setq ent (ssname zccqwss zccqwn))
  43.      (setq qwentget (entget ent))
  44.      (cond
  45.       ((= (cdr (assoc 0 qwentget))  "ARC")
  46.        (setq zhobj (vlax-ename->vla-object ent))
  47.        (setq arccen (Vlax-Get zhobj 'Center ))
  48.        (setq arcrad (vlax-get zhobj 'Radius))
  49.        (setq arclen (vla-get-ArcLength zhobj))
  50.        (setq arcstart (vlax-curve-getstartpoint zhobj))
  51.        (setq arcdist (/ (- arclen (* cqw cqwgs)) (1+

  53. cqwgs)))
  54.        (setq arcpt1 (vlax-curve-getPointAtDist zhobj

  56. arcdist))
  57.        (setq arcpt2 (vlax-curve-getPointAtDist zhobj (+

  59. arcdist cqw)))
  60.        (setq stangle (angle arccen arcstart))
  61.        (setq endangle (angle arccen arcpt1))
  62.        (setq ccangle (- (angle arccen arcpt2) stangle))
  63.        (repeat (1+ cqwgs)
  64.        (Vlax-Invoke-Method *mspace 'AddArc (vlax-

  66. 3d-point arccen) arcrad stangle endangle)
  67.        (setq stangle (+ stangle ccangle))
  68.        (setq endangle (+ endangle ccangle))
  69.   )
  70.        (Vlax-Invoke-Method zhobj 'Delete )
  71.        );完毕
  72.       ((= (cdr (assoc 0 qwentget))  "CIRCLE")
  73.        (setq zhobj (vlax-ename->vla-object ent))
  74.        (setq circen (Vlax-Get zhobj 'Center ))
  75.        (setq cirrad (vlax-get zhobj 'Radius))
  76.        (setq cirlen (Vlax-Get zhobj 'Circumference))
  77.        (Vlax-Invoke-Method zhobj 'Delete )
  78.        (setq cirdist (/ (- cirlen (* cqw cqwgs)) cqwgs))
  79.        (setq zhobj1 (Vlax-Invoke-Method *mspace 'AddArc

  81. (vlax-3d-point circen) cirrad 0 6.20426))
  82.        (setq cirendangle (angle circen (vlax-curve-

  84. getPointAtDist zhobj1 cirdist)))
  85.        (setq cirpt1 (angle circen (vlax-curve-

  87. getPointAtDist zhobj1 (+ cirdist cqw))))
  88.        (Vlax-Invoke-Method zhobj1 'Delete )
  89.        (setq cirn 0)
  90.        (repeat (1+ cqwgs)
  91.        (Vlax-Invoke-Method *mspace 'AddArc (vlax-

  93. 3d-point circen) cirrad cirn cirendangle)
  94.        (setq cirn (+ cirn cirpt1))
  95.        (setq cirendangle (+ cirendangle cirpt1))
  96.   )
  97.       ) ;完毕
  98.       
  99.      (setq zccqwn (1+ zccqwn))
  100.     )
  101.    (setvar "osmode" 3)
  102. )

另外如果用VLISP生成线的话是不是只能是一个起点一个终点！假如我想加上色呢！

点评

newer
你想画线有颜色，就给它设置颜色就是了。  详情 回复 发表于 2013-9-10 12:29
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2013-9-10 12:29:23 | 显示全部楼层
xtdwynij 发表于 2013-9-10 12:20
晚了好多天！不过也是这个星期天才搞定的！其他根本就没有时间去，也只能想想怎么搞了！把老朋友的黑板空 ...

你想画线有颜色，就给它设置颜色就是了。

点评

xtdwynij
(ADDLINE 起点 终点 色)？这样么？好像不行哦！多了好像是不行。只能二个点！  详情 回复 发表于 2013-9-10 13:00
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xtdwynij

已领礼包: 449个

财富等级: 日进斗金
 楼主| 发表于 2013-9-10 13:00:31 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
newer 发表于 2013-9-10 12:29
你想画线有颜色，就给它设置颜色就是了。

(ADDLINE  起点 终点 色)？这样么？好像不行哦！多了好像是不行。只能二个点！

点评

Free-Lancer
或者 add 之前 设置 cecolor 系统变量  详情 回复 发表于 2013-9-10 18:27
newer
多看帮助手册哦。  详情 回复 发表于 2013-9-10 17:36
st788796
addline 以后再对 line vla-put-color  详情 回复 发表于 2013-9-10 16:31
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

st788796

已领礼包: 1268个

财富等级: 财源广进
发表于 2013-9-10 16:31:16 来自手机 | 显示全部楼层
xtdwynij 发表于 2013-9-10 13:00
(ADDLINE  起点 终点 色)？这样么？好像不行哦！多了好像是不行。只能二个点！

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

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2013-9-10 17:36:47 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
xtdwynij 发表于 2013-9-10 13:00
(ADDLINE  起点 终点 色)？这样么？好像不行哦！多了好像是不行。只能二个点！

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

使用道具 举报

Free-Lancer
发表于 2013-9-10 18:27:45 | 显示全部楼层
xtdwynij 发表于 2013-9-10 13:00
(ADDLINE  起点 终点 色)？这样么？好像不行哦！多了好像是不行。只能二个点！

  1. (setq arc (vla-addarc
  2.         *mspace
  3.         (vlax-3d-point circen)
  4.         cirrad
  5.         cirn
  6.         cirendangle
  7.       )
  8. )
  9. (vla-put-color arc acRed)

或者 add 之前 设置 cecolor 系统变量

点评

xtdwynij
嗯，不然的话线也生成不了！LISP的话一次可以生成！看了您的函数，原来那个函数是容错函数啊！最近也学了点注册表的读写！和黑板空间没啥二样。读书文件的话好像还要手工确认保存的！要搞全局变量的话还是注册表好一  详情 回复 发表于 2013-9-12 00:10
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xtdwynij

已领礼包: 449个

财富等级: 日进斗金
 楼主| 发表于 2013-9-12 00:10:09 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
Free-Lancer 发表于 2013-9-10 18:27
或者 add 之前 设置 cecolor 系统变量

嗯，不然的话线也生成不了！LISP的话一次可以生成！看了您的函数，原来那个函数是容错函数啊！最近也学了点注册表的读写！和黑板空间没啥二样。读书文件的话好像还要手工确认保存的！要搞全局变量的话还是注册表好一点！但是黑板空间也不错，只要输入一次就行了！不麻烦呵呵！

点评

st788796
全局变量要么单独提供一个命令，要么在程序中有个提示，不然可能混乱  详情 回复 发表于 2013-9-12 08:58
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

st788796

已领礼包: 1268个

财富等级: 财源广进
发表于 2013-9-12 08:58:18 来自手机 | 显示全部楼层
xtdwynij 发表于 2013-9-12 00:10
嗯，不然的话线也生成不了！LISP的话一次可以生成！看了您的函数，原来那个函数是容错函数啊！最近也学了 ...

全局变量要么单独提供一个命令，要么在程序中有个提示，不然可能混乱

点评

xtdwynij
例如呢？(setq aa 5) (princ "全局变量的值为5")?类似于这样么？  详情 回复 发表于 2013-9-12 10:19
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xtdwynij

已领礼包: 449个

财富等级: 日进斗金
 楼主| 发表于 2013-9-12 10:19:27 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
st788796 发表于 2013-9-12 08:58
全局变量要么单独提供一个命令，要么在程序中有个提示，不然可能混乱

例如呢？(setq aa 5)  (princ "全局变量的值为5")?类似于这样么？

点评

st788796
对，否则很容易忘记已经设置的数值，再智能点，选择的时候有个关键字，可以直接选择也可以选项去修改设置  详情 回复 发表于 2013-9-12 11:04
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

st788796

已领礼包: 1268个

财富等级: 财源广进
发表于 2013-9-12 11:04:41 来自手机 | 显示全部楼层
xtdwynij 发表于 2013-9-12 10:19
例如呢？(setq aa 5)  (princ "全局变量的值为5")?类似于这样么？

对，否则很容易忘记已经设置的数值，再智能点，选择的时候有个关键字，可以直接选择也可以选项去修改设置

点评

xtdwynij
这也是一个技巧啊！朋友给个例子看一下呗！多谢指点，以后加上全局变量就不会冲突了！  详情 回复 发表于 2013-9-15 12:29
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xtdwynij

已领礼包: 449个

财富等级: 日进斗金
 楼主| 发表于 2013-9-15 12:29:14 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
st788796 发表于 2013-9-12 11:04
对，否则很容易忘记已经设置的数值，再智能点，选择的时候有个关键字，可以直接选择也可以选项去修改设置

这也是一个技巧啊！朋友给个例子看一下呗！多谢指点，以后加上全局变量就不会冲突了！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-9-25 06:29 , Processed in 0.206725 second(s), 55 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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