一个很简单的操作，但小弟不会写，求助各位高手！！

wowan1314 · 发表于 2012-4-28 14:56

本帖最后由 wowan1314 于 2012-4-28 14:57 编辑

给你个参考的，默认长宽比3：1. 水平有限仅供参考。

Andyhon · 发表于 2012-4-28 15:02

这是多岐性的一例
命题者知悉其意向所指
但见题者却会引伸出不同的分岐连想 ...

革天明 · 发表于 2012-4-28 16:25

(defun c:31 ()
  (setq p1 (getpoint "\n请输入第一点:")
p2 (getpoint p1 "\n请输入第二点:")
os_mode (getvar "osmode")
ang (angle p1 p2)
p3 (polar p2 (+ ang (* 0.5 pi)) (/ (distance p1 p2) 3.0))
p4 (polar p1 (+ ang (* 0.5 pi)) (/ (distance p1 p2) 3.0))
  )
  (setvar "osmode" 0)
  (command "_pline" p1 p2 p3 p4 "c")
  (setvar "osmode" os_mode)
)

664571221 · 发表于 2018-8-31 11:22

你好这个能否引伸下，宽度在图中用鼠标量取，然后画长度方向，生成矩形

Andyhon · 发表于 2018-8-31 12:21

内定 3.0
改以 GetDist 取值即可

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

一个很简单的操作，但小弟不会写，求助各位高手！！

本帖子中包含更多资源