meja 发表于 2014-7-13 12:02:35

谢谢版主啊，学习了

xyp1964 发表于 2014-7-13 14:25:01

(defun c:tt ()
(while (and (setq e1 (entsel "\n选择曲线: "))
            (setq s2 (car (entsel "\n选择要移动实体: ")))
         )
    (xyp-move s2 (xyp-9pt s2 4) (osnap (cadr e1) "_end"))
)
(princ)
)

香田里浪人 发表于 2014-7-14 06:34:23

ZZXXQQ 发表于 2014-7-12 21:04 static/image/common/back.gif


如果字对线段中点，该如何修改。

ZZXXQQ 发表于 2014-7-14 08:58:27

香田里浪人 发表于 2014-7-14 06:34 static/image/common/back.gif
如果字对线段中点，该如何修改。

这句：(setq pp (mapcar '- pt2 pt1))
改成：(setq pp (mapcar '- pt1 pt2))

香田里浪人 发表于 2014-7-14 10:03:29

ZZXXQQ 发表于 2014-7-14 08:58 static/image/common/back.gif
这句：(setq pp (mapcar '- pt2 pt1))
改成：(setq pp (mapcar '- pt1 pt2))

谢谢您的帮助

香田里浪人 发表于 2014-7-14 10:19:17

ZZXXQQ 发表于 2014-7-14 08:58 static/image/common/back.gif
这句：(setq pp (mapcar '- pt2 pt1))
改成：(setq pp (mapcar '- pt1 pt2))

“这句：(setq pp (mapcar '- pt2 pt1))
改成：(setq pp (mapcar '- pt1 pt2))”只能改为端点居中，不能在线段中点位置

xyp1964 发表于 2014-7-14 12:59:11

(setq pp (mapcar '(lambda (x) (* x 0.5)) (mapcar '+ pt1 pt2)))

清风明月名字 发表于 2014-7-17 15:08:59

谢谢各位楼主的分享！收藏备用。
页: 1 [2]
查看完整版本: 文字以左中或右中吸附到直线，多线，弧的端点