修改多段线凸度

爱莫能助

????????????????

Lisphk

怎么请求别人帮助，别人还要付费昵？

newer

贴个图， 凸出高度从哪开始算？

qqqincccken

這樣發貼呀,呵呵!!!!!!!!!

爱莫能助

Lisphk 发表于 2016-10-12 15:01

第一次发悬赏贴，是要悬赏给别人的，闹笑话了。在哪改成悬赏给别人啊

爱莫能助

newer 发表于 2016-10-12 15:06

有图啊，你们不能看到吗？

爱莫能助

qqqincccken 发表于 2016-10-12 18:52

搞错了，是要悬赏给别人的。我不知道怎么搞成要收费了

newer

爱莫能助 发表于 2016-10-12 20:06

是问你， 凸度高出的基准是什么？ 依据哪个高出，你图上能看到吗？

爱莫能助

能看到，图上标的好清楚了，我怎么取消收费啊

newer

爱莫能助 发表于 2016-10-12 20:12

高出多少，从哪里开始高出？

爱莫能助

从多线段R角处，高处多少可以用户输入，我的图片你们能看到吗，第一发悬赏贴，怎么取消内别人收费

newer

爱莫能助 发表于 2016-10-12 20:18

点击你帖子下面的 “编辑”，进去把内容删除了。

给你个交互的版本
输入正值，总是往外，负值往内。

(defun c:tt ()
  (if (and
        (setq e (xdrx_entsel "\n拾取多段线弧线段<退出>:" '((0 . "*polyline"))))
        (setq pt (cadr e)
              e (car e)
        )
        (if (= "POLYLINE" (car (xdrx_object_classname e)))
           (xdrx_polyline_convertfrom e)
           t
        )
        (setq pt (xdrx_curve_getclosestpoint e pt)
              inx (xd::polyline:onsegat e pt)
        )
        (setq arc (xdrx_getpropertyvalue e "arcsegat" inx))
      )
    (progn
      (xdge::getpropertyvalue arc "bulge" "startpoint" "endpoint")
      (setq pts (xdge::getpropertyvalue arc "getsamplepoints" 3))
      (setq isclockwise (XD::Pnts:isClockWise pts))

      (setq #bulge (abs #bulge))
      (setq dis (distance #startpoint #endpoint))
      (setq h (/ (* dis #bulge) 2.0))
      (if #isclockwise
        (setq h (- h))
      )
      (if (setq h1 (getreal (xdrx_prompt "\n输入弦高距<" h ">:" t)))
        (setq h h1)
      )
      (setq bulge1 (/ (* 2 h) dis))
      (if #isclockwise
         (setq bulge1 (- bulge1))
      )
      (xdrx_setpropertyvalue e "bulgeat" (list inx bulge1))
    )
  )
  (princ)
)

爱莫能助

newer 发表于 2016-10-12 21:27

上传图片了，
是图片样的
老大你的代码我运行不了啊
可以用LISP编程不，这样都可以学习啊，，

newer

爱莫能助 发表于 2016-10-13 08:08

去下载 XDRX API 安装后， 用上面的代码。上面的就是LISP，只是通用函数都在API里面了，你不能让想帮你的人每次都从基本的代码写起吧。

爱莫能助

newer 发表于 2016-10-13 08:51

函数库以VLX编译提供，所有函数源码见:  开源函数库论坛
是下载这个VXL吗？