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

st788796 · 发表于 2014-9-21 21:14:48

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

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

×

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

较为综合应用

(defun c:tt1 (/ HighlightSeg e ge gel i p cl disl distL indexl plan)
(defun HighlightSeg (ge gel i / gCurve in lower upper pams)
(setq gCurve (nth i gel)
in (car (xdge::getpropertyvalue gCurve "getInterval"))
lower (xdge::getpropertyvalue in "lowerBound")
upper (xdge::getpropertyvalue in "upperBound")
)
(if (= (xdge::type gCurve) "kLineSeg2d")
(grdraw (xdge::getpropertyvalue gCurve "startPoint")
(xdge::getpropertyvalue gCurve "endPoint")
1
)
(progn
(setq pams (xdge::getpropertyvalue
gCurve "getSamplePoints" lower upper 0.1)
pams (mapcar
'(lambda (x)
(xdge::getpropertyvalue ge "localToGlobalParam" x i)
)
pams
)
pts (mapcar '(lambda (x)
(xdge::getpropertyvalue ge "evalPoint" x)
)
pams
)
)
(mapcar '(lambda (x y)
(grdraw x y 1)
)
pts
(cdr pts)
)
)
)
)
(if (setq e (xdrx_entsel "\nPick pline: " '((0 . "lwpolyline"))))
(progn
(setq ge (xdge::constructor (car e))
gel (xdge::getpropertyvalue ge "getCurveList")
)
(while (setq p (getpoint "\nPick SegOn Pline: "))
(setq int (fix (xdrx_curve_getparamatpoint (car e) p)))
(if (not indexL)
(progn
(setq indexL (list int))
(highlightseg ge gel int)
)
(if (not (member i indexL))
(progn
(highlightseg ge gel int)
(setq indexL (cons int indexL))
)
)
)
)
(princ "\n选择了 ")
(princ (reverse indexL))
(princ " 段")
(if
(/= (setq disL (getstring "\n输入各段偏移距离<以空格分隔>: " t))
""
)
(progn
(setq distL (xdrx_string_split disL " ")
cl (mapcar '(lambda (x) (nth x gel))
indexL
)
plan (xdrx_getpropertyvalue (car e) "normal")
)
(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
)
)
)
)
)
(princ)
)

(defun c:tt1 (/ HighlightSeg e ge gel i p cl disl distL indexl plan) 
  (defun HighlightSeg (ge gel i / gCurve in lower upper pams) 
    (setq gCurve (nth i gel) 
          in         (car (xdge::getpropertyvalue gCurve "getInterval")) 
          lower         (xdge::getpropertyvalue in "lowerBound") 
          upper         (xdge::getpropertyvalue in "upperBound") 
    ) 
    (if        (= (xdge::type gCurve) "kLineSeg2d") 
      (grdraw (xdge::getpropertyvalue gCurve "startPoint") 
              (xdge::getpropertyvalue gCurve "endPoint") 
              1 
      ) 
      (progn 
        (setq pams (xdge::getpropertyvalue 
                     gCurve "getSamplePoints" lower upper 0.1) 
              pams (mapcar 
                     '(lambda (x) 
                        (xdge::getpropertyvalue ge "localToGlobalParam" x i) 
                      ) 
                     pams 
                   ) 
              pts  (mapcar '(lambda (x) 
                              (xdge::getpropertyvalue ge "evalPoint" x) 
                            ) 
                           pams 
                   ) 
        ) 
        (mapcar        '(lambda (x y) 
                   (grdraw x y 1) 
                 ) 
                pts 
                (cdr pts) 
        ) 
      ) 
    ) 
  ) 
  (if (setq e (xdrx_entsel "\nPick pline: " '((0 . "lwpolyline")))) 
    (progn 
      (setq ge        (xdge::constructor (car e)) 
            gel        (xdge::getpropertyvalue ge "getCurveList") 
      ) 
      (while (setq p (getpoint "\nPick SegOn Pline: ")) 
        (setq int (fix (xdrx_curve_getparamatpoint (car e) p))) 
        (if (not indexL) 
          (progn 
            (setq indexL (list int)) 
            (highlightseg ge gel int) 
          ) 
          (if (not (member i indexL)) 
            (progn 
              (highlightseg ge gel int) 
              (setq indexL (cons int indexL)) 
            ) 
          ) 
        ) 
      ) 
      (princ "\n选择了 ") 
      (princ (reverse indexL)) 
      (princ " 段") 
      (if 
        (/= (setq disL (getstring "\n输入各段偏移距离<以空格分隔>: " t)) 
            "" 
        ) 
         (progn 
           (setq distL (xdrx_string_split disL " ") 
                 cl    (mapcar '(lambda (x) (nth x gel)) 
                               indexL 
                       ) 
                 plan  (xdrx_getpropertyvalue (car e) "normal") 
           ) 
           (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 
           ) 
         ) 
      ) 
    ) 
  ) 
  (princ) 
)

liuyj · 发表于 2017-5-3 17:25:31

是不是新版的API的使用方法改了？今天想用用这个程序，要不就选完直线直接退出，要不就提示“ 当前类不支持 localToGlobalParam 属性查询,或参数不对”。

Lisphk · 发表于 2017-5-3 18:28:24

本帖最后由 Lisphk 于 2017-5-3 18:29 编辑

liuyj 发表于 2017-5-3 17:25

跟踪了下，将上面代码

pams (mapcar
'(lambda (x)
(xdge::getpropertyvalue ge "localToGlobalParam" x i)
)
pams
)

改成：

pams (mapcar
'(lambda (x)
(xdge::getpropertyvalue ge "localToGlobalParam" x i)
)
(cadr pams)
)

试试。

liuyj · 发表于 2017-5-3 21:49:04

本帖最后由 liuyj 于 2017-5-3 21:55 编辑

没有出错提示了，但是执行完没有反应，得不到演示的效果。命令行有如下提示“当前类不支持 getTrimmedOffset 属性查询,或参数不对”。

liuyj · 发表于 2017-5-3 21:53:04

本帖最后由 liuyj 于 2017-5-3 22:03 编辑

帮助文件里XdGe::getPropertyvalue的用法介绍也比较简单，没看明白

newer · 发表于 2017-5-3 22:41:28

liuyj 发表于 2017-5-3 21:53

XDGE几何库的帮助文件，去看ARX的AcGe几何库的帮助，参数都是按照ARX里面的参数对应的。

liuyj · 发表于 2017-5-3 22:44:24

本帖最后由 liuyj 于 2017-5-3 22:46 编辑

ARX完全不懂啊，四十多了哪有精力学这个。N版看看程序为什么没有效果？

newer · 发表于 2017-5-3 22:49:57

liuyj 发表于 2017-5-3 22:44

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

拿上面的 getpropertyvalue 的 localToGlobalParam方法说

QQ截图20170503224430.png

帮助文件很明显了，需要两个参数，一个是DOUBLE（实数），一个是整数。下面有两个参数的表示的意义。

liuyj · 发表于 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
         )
前面没问题，这一段就是没反应。

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

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

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

本帖被以下淘专辑推荐: