找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1546|回复: 8

[教学] XDGE几何库应用(12)--多义线局部整段偏移

[复制链接]

已领礼包: 1268个

财富等级: 财源广进

发表于 2014-9-21 21:14:48 | 显示全部楼层 |阅读模式

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

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

×
本帖最后由 st788796 于 2014-11-1 08:02 编辑

较为综合应用
  1. (defun c:tt1 (/ HighlightSeg e ge gel i p cl disl distL indexl plan)
  2.   (defun HighlightSeg (ge gel i / gCurve in lower upper pams)
  3.     (setq gCurve (nth i gel)
  4.           in         (car (xdge::getpropertyvalue gCurve "getInterval"))
  5.           lower         (xdge::getpropertyvalue in "lowerBound")
  6.           upper         (xdge::getpropertyvalue in "upperBound")
  7.     )
  8.     (if        (= (xdge::type gCurve) "kLineSeg2d")
  9.       (grdraw (xdge::getpropertyvalue gCurve "startPoint")
  10.               (xdge::getpropertyvalue gCurve "endPoint")
  11.               1
  12.       )
  13.       (progn
  14.         (setq pams (xdge::getpropertyvalue
  15.                      gCurve "getSamplePoints" lower upper 0.1)
  16.               pams (mapcar
  17.                      '(lambda (x)
  18.                         (xdge::getpropertyvalue ge "localToGlobalParam" x i)
  19.                       )
  20.                      pams
  21.                    )
  22.               pts  (mapcar '(lambda (x)
  23.                               (xdge::getpropertyvalue ge "evalPoint" x)
  24.                             )
  25.                            pams
  26.                    )
  27.         )
  28.         (mapcar        '(lambda (x y)
  29.                    (grdraw x y 1)
  30.                  )
  31.                 pts
  32.                 (cdr pts)
  33.         )
  34.       )
  35.     )
  36.   )
  37.   (if (setq e (xdrx_entsel "\nPick pline: " '((0 . "lwpolyline"))))
  38.     (progn
  39.       (setq ge        (xdge::constructor (car e))
  40.             gel        (xdge::getpropertyvalue ge "getCurveList")
  41.       )
  42.       (while (setq p (getpoint "\nPick SegOn Pline: "))
  43.         (setq int (fix (xdrx_curve_getparamatpoint (car e) p)))
  44.         (if (not indexL)
  45.           (progn
  46.             (setq indexL (list int))
  47.             (highlightseg ge gel int)
  48.           )
  49.           (if (not (member i indexL))
  50.             (progn
  51.               (highlightseg ge gel int)
  52.               (setq indexL (cons int indexL))
  53.             )
  54.           )
  55.         )
  56.       )
  57.       (princ "\n选择了 ")
  58.       (princ (reverse indexL))
  59.       (princ " 段")
  60.       (if
  61.         (/= (setq disL (getstring "\n输入各段偏移距离<以空格分隔>: " t))
  62.             ""
  63.         )
  64.          (progn
  65.            (setq distL (xdrx_string_split disL " ")
  66.                  cl    (mapcar '(lambda (x) (nth x gel))
  67.                                indexL
  68.                        )
  69.                  plan  (xdrx_getpropertyvalue (car e) "normal")
  70.            )
  71.            (mapcar '(lambda (x y / nCurve)
  72.                       (setq nCurve
  73.                              (xdge::getpropertyvalue
  74.                                x
  75.                                "getTrimmedOffset"
  76.                                (distof y)
  77.                                plan
  78.                                1
  79.                              )
  80.                       )
  81.                       (xdge::entity:make nCUrve)
  82.                       (xdrx_entity_setpropertiesfrom (entlast) (car e))
  83.                     )
  84.                    cl
  85.                    distL
  86.            )
  87.          )
  88.       )
  89.     )
  90.   )
  91.   (princ)
  92. )
segoff.gif

本帖被以下淘专辑推荐:

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

已领礼包: 8611个

财富等级: 富甲天下

发表于 2017-5-3 17:25:31 | 显示全部楼层
是不是新版的API的使用方法改了?今天想用用这个程序,要不就选完直线直接退出,要不就提示“ 当前类不支持 localToGlobalParam 属性查询,或参数不对”。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 19个

财富等级: 恭喜发财

发表于 2017-5-3 18:28:24 | 显示全部楼层
本帖最后由 Lisphk 于 2017-5-3 18:29 编辑

跟踪了下,将上面代码

  1. pams (mapcar
  2.                      '(lambda (x)
  3.                         (xdge::getpropertyvalue ge "localToGlobalParam" x i)
  4.                       )
  5.                      pams
  6.                    )


改成:

  1. pams (mapcar
  2.                      '(lambda (x)
  3.                         (xdge::getpropertyvalue ge "localToGlobalParam" x i)
  4.                       )
  5.                     (cadr pams)
  6.                    )


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

使用道具 举报

已领礼包: 8611个

财富等级: 富甲天下

发表于 2017-5-3 21:49:04 | 显示全部楼层
本帖最后由 liuyj 于 2017-5-3 21:55 编辑

没有出错提示了,但是执行完没有反应,得不到演示的效果。命令行有如下提示“当前类不支持 getTrimmedOffset 属性查询,或参数不对”。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 8611个

财富等级: 富甲天下

发表于 2017-5-3 21:53:04 | 显示全部楼层
本帖最后由 liuyj 于 2017-5-3 22:03 编辑

帮助文件里XdGe::getPropertyvalue的用法介绍也比较简单,没看明白
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2017-5-3 22:41:28 | 显示全部楼层

XDGE几何库的帮助文件,去看ARX的AcGe几何库的帮助,参数都是按照ARX里面的参数对应的。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 8611个

财富等级: 富甲天下

发表于 2017-5-3 22:44:24 | 显示全部楼层
本帖最后由 liuyj 于 2017-5-3 22:46 编辑

ARX完全不懂啊,四十多了哪有精力学这个。N版看看程序为什么没有效果?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2017-5-3 22:49:57 | 显示全部楼层

不是让你学ARX,而是看ARX的帮助文件,里面的参数 对应 相应的XDGE几何库的参数。

拿上面的 getpropertyvalue 的 localToGlobalParam方法说




QQ截图20170503224430.png

帮助文件很明显了,需要两个参数, 一个是DOUBLE(实数),一个是整数。下面有两个参数的表示的意义。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 8611个

财富等级: 富甲天下

发表于 2017-5-4 11:06:43 | 显示全部楼层
(mapcar '(lambda (x y / nCurve)
                      (setq nCurve
                             (xdge::getpropertyvalue
                               x
                               "getTrimmedOffset"
                               (distof y)
                               plan
                               1
                             )
                      )
                      (xdge::entity:make nCUrve)
                      (xdrx_entity_setpropertiesfrom (entlast) (car e))
                    )
                   cl
                   distL
           )
前面没问题,这一段就是没反应。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 19:18 , Processed in 0.392383 second(s), 49 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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