那位高手这个LSP能写不

357785513 · 发表于 2009-7-27 12:29:00

那位高手,我想点这一点,再点别地方一点,能生成一条SPL线嘛.就如上图一样.也就是在两点间生成一条曲线

357785513 · 发表于 2009-7-27 12:32:00

两点划SPL线

357785513 · 发表于 2009-7-27 12:38:00

357785513 · 发表于 2009-7-27 12:46:00

asdfxx · 发表于 2009-7-27 12:53:00

提示: 作者被禁止或删除内容自动屏蔽

xhq1954425 · 发表于 2009-7-27 13:09:00

用样条曲线应该可以，点两个端点后自动取其中点，两个端点的切线方向为水平方向

淮上 · 发表于 2009-7-27 13:28:00

;;高手不在，菜鸟在

(defun c:tt (/ p1 p2 p e)
(if (and (setq p1 (getpoint "\n第一点: "))
           (setq p4 (getpoint p1 "\n第二点: "))
      )
    (progn
      (setq mp (mapcar '(lambda (a b) (/ (+ a b) 2)) p1 p4))
      (if (apply '> (mapcar '(lambda (a b) (abs (- a b))) p1 p4))
        (setq p2 (cons (car mp) (cdr p1))
              p3 (cons (car mp) (cdr p4))
        )
        (setq p2 (cons (car p1) (cdr mp))
              p3 (cons (car p4) (cdr mp))
        )
      )
      (command "_.pline" "_non" p1 "_non" p2 "_non" mp "_non" p3 "_non" p4 "")
      (setq e (entlast))
      (command "_.pedit" e "_spl" "")
    )
)
)

淮上 · 发表于 2009-7-27 13:31:00

不过不是样条曲线，是拟合的多段线

357785513 · 发表于 2009-7-27 22:49:00

多数情况下变成了上面的样子了.我想始终如一,跟下面的一样,无论两个设备错开多远.它能像我下面的接法一样.要谢谢六楼的高手.

ZZXXQQ · 发表于 2009-7-28 20:21:00

这是样条曲线：

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

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

那位高手这个LSP能写不

本帖子中包含更多资源

本帖子中包含更多资源

asdfxx asdfxx 当前离线积分 2242 明经币个注册时间 2009-7-22 在线时间小时威望金钱个贡献激情	发表于 2009-7-27 12:53:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡