求问如何在一条线段两侧各加一段线

wgij007 · 发表于 2024-5-30 23:38:34

已知线段的两侧端点座标，偏移0.5，再画一段长2的线。感谢

pzweng · 发表于 2024-5-30 23:38:35

(defun c:tt (/ p1 p2 fun)
  (setq p1 (getpoint "\np1:"))
  (setq p2 (getpoint "\np2:"))
  (setq fun (lambda (x y) (entmake (list '(0 . "line") (cons 10 x) (cons 11 y)))))
  (fun (polar p1 (angle p1 p2) 0.5) (polar p1 (angle p1 p2) 2.5))
  (fun (polar p2 (angle p2 p1) 0.5) (polar p2 (angle p2 p1) 2.5))
  (princ)
)

`中微子 · 发表于 2024-5-31 00:45:57

本帖最后由 `中微子于 2024-5-31 00:48 编辑

很简单.看是不是你要的.

随时修改.也可以你自己改.

`中微子 · 发表于 2024-5-31 00:49:15

看不是不你要的!

guosheyang · 发表于 2024-5-31 07:34:15

用polar函数确定点

xiang19751218 · 发表于 2024-5-31 08:49:29

试试
;(hs (trans (getpoint"\n指定第一点：") 1 0) (trans (getpoint"\n指定第二点：") 1 0) 0.5 2)
(defun hs (p1 p2 off dis / norm jl x1 x2 x11 x22)
(setq norm (mapcar '- p2 p1))
(setq jl (distance p1 p2))
(setq x1 (mapcar '+  p1(trans (list 0 0 off) norm 0) ))
(setq x2 (mapcar '+  p1(trans (list 0 0 (+ off dis)) norm 0) ))
(setq x11 (mapcar '+  p1(trans (list 0 0 (- jl off dis)) norm 0)))
(setq x22 (mapcar '+  p1(trans (list 0 0 (- jl off)) norm 0)))
(entmake (list '(0 . "line") (cons 10 x1) (cons 11 x2)))
(entmake (list '(0 . "line") (cons 10 x11) (cons 11 x22)))
(princ)
)

`中微子 · 发表于 2024-5-31 17:37:47

pzweng 发表于 2024-5-31 10:57
(defun c:tt (/ p1 p2 fun)
(setq p1 (getpoint "\np1:"))
(setq p2 (getpoint "\np2:"))

版主学习了,这个FUN没看懂!

qazxswk · 发表于 2024-5-31 17:51:11

pzweng 发表于 2024-5-31 10:57
(defun c:tt (/ p1 p2 fun)
(setq p1 (getpoint "\np1:"))
(setq p2 (getpoint "\np2:"))

这个写法，很牛逼，学习了。

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

[提问] 求问如何在一条线段两侧各加一段线

最佳答案

评分

本帖子中包含更多资源

本帖子中包含更多资源