lisp在同一角度上画线

john_ · 发表于 2022-7-6 12:22:59

大家好，
有人有lisp吗？或者可以帮我做一个lisp，它可以根据所选直线的角度绘制直线？

示例：我有一条45度的直线
我在这行的末尾有文字
我想选择一条线，并有一条预定的线
根据图形比例在文本后绘制

请参阅所附图片以获得更好的说明。

非常感谢。

john_ · 发表于 2022-7-6 12:31:42

有人能帮忙吗？

Raggi_Thor · 发表于 2022-7-6 12:33:18

打开OSNAP扩展怎么样？
或者在这个（特殊？）外壳极角45？

LauKwokFai · 发表于 2022-7-6 12:38:44

试试“斯纳邦”吧。。。

（setq draw_obj（entget（car（entsel）））
（命令“snapang”（cdr（assoc 10 draw\u obj））（cdr（assoc 11 draw\u obj）））

Raggi_Thor · 发表于 2022-7-6 12:44:40

看这里，打开Extension和Parallel。
然后画出你的线，使用extension查找第一个点，将光标移动到第一条线上，然后移动到第二个点以获得平行Osnap。

dhl · 发表于 2022-7-6 12:50:28

不确定这是不是你想要的，好好锻炼，但这一点也不差

copy


(defun c:angline (/ scale lne selpt pt1 pt2 dist1 dist2 bp bp2 rad)
 (setq scale (getvar "cannoscalevalue"))
 (setq lne (entsel "\nSelect line: "))
 (setq selpt (cadr lne))
 (setq pt1 (cdr (assoc 10 (entget (car lne)))))
 (setq pt2 (cdr (assoc 11 (entget (car lne)))))
 (setq dist1 (/ (distance pt1 pt2) 2))
 (setq dist2 (distance pt1 selpt))
 (if (< dist1 dist2)
   (progn
   (setq rad (angle pt1 pt2))
   (setq bp (polar pt2 rad (* 1 (/ 1 scale))))
   (setq bp2 (polar bp rad 1))
   (command "_.line" bp bp2 "")
   (command "_.lengthen" "dy" bp2  pause)
   )
   (progn
   (setq rad (angle pt2 pt1))
   (setq bp (polar pt1 rad (* 1 (/ 1 scale))))
   (setq bp2 (polar bp rad 1))
   (command "_.line" bp bp2 "")
   (command "_.lengthen" "dy" bp2 pause "" "")
   )
 )
 (princ)
)