如何生成平行于线的文字？

ou_y_x · 发表于 2013-11-25 17:49:47

本帖最后由 ou_y_x 于 2013-11-26 13:07 编辑

各位大侠，请教个问题。
我想通过点取平行线上一点（点取即刻生成），实现：
1、以该点为参照，文字插入点偏离直线80；
2、文字角度平行于直线，文字内容默认123；
3、双线最大间距500，当点取上直线时，文字在上；当点取下直线时，文字在下；

1、2比较好做，
但是对于3，获取点可以用getpoint，
但怎么既获取点，又获取直线，并判断文字应在的位置。

新手上路，希望各位不吝赐教。

效果如下图：

yzxgwl · 发表于 2013-11-25 20:09:56

象天正这样软件，画门时，还要你再点一点确定门的开启方向呢。你要求的恐怕难实现。

xyp1964 · 发表于 2013-11-25 22:51:44

不知可对？

ou_y_x · 发表于 2013-11-25 23:25:47

xyp1964 发表于 2013-11-25 22:51
不知可对？

正是这个意思，
版主能否提供思路和源码供参考学习？

caoliu023 · 发表于 2013-11-25 23:52:08

xyp1964 发表于 2013-11-25 22:51
不知可对？

呵呵,

ou_y_x · 发表于 2013-11-26 11:22:07

xyp1964 发表于 2013-11-25 22:51
不知可对？

版主别只放图让人看着干着急啊。。。

xyp1964 · 发表于 2013-11-26 12:34:51

;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF
;; 生成平行于线的文字
(defun c:test1439 ()
(xyp-CMDLAsc0)
(xyp-initSet '(dist) '(500.))
(setq dist (Udist 7 "" "双线最大间距<输入或鼠标直接量取>" dist nil))
(while (and (setq e1 (entsel "\n选择直线: "))
(xyp-etype s1 "line")
)
(setq s1 (car e1)
p1 (osnap (cadr e1) "nea")
rad (xyp-get "angle" s1)
dd (* xyp-sc 250)
p2 (if (setq lst (xyp-get-ClosestDistEname s1 p1 dist))
(polar p1 (angle (nth 2 lst) p1) dd)
(xyp-Get-RightPoint (polar p1 rad 1) (polar p1 rad -1) dd)
)
s2 (xyp-Text 5 p2 "123")
s2 (xyp-SubUpd s2 50 (xyp-Rad2Real rad 1))
)
)
(xyp-CMDLA1)
)

ou_y_x · 发表于 2013-11-26 13:14:34

xyp1964 发表于 2013-11-26 12:34

这样做广告不好吧。。。

ou_y_x · 发表于 2013-11-26 20:11:27

继续等待下一位热心人出现。。。

lenovo1x1 · 发表于 2013-11-26 23:38:57

http://bbs.mjtd.com/forum.php?mo ... mp;page=1#pid498830

文本动态对齐于曲线.lsp

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

[已解答] 如何生成平行于线的文字？

本帖子中包含更多资源

相关帖子

本帖子中包含更多资源

点评

点评