问一个可能是搞笑的问题，已知起点，能用line命令自由选择终点吗？

fedd · 发表于 2021-12-12 23:02:18

(defun c

O ()
(setq x(getreal "输入水平偏移：<"0">"))
(setq y(getreal "输入垂直偏移：<"0">"))
(setq cp(getpoint "选择基点："))
(setq px1(car cp))
(setq py1(cadr cp))
(setq mx(+ px1 x))
(setq my(+ py1 y))
(setq mpt(list mx my))
(command "LINE" mpt PAUSE "" "" )
)

Wanda · 发表于 2021-12-13 08:13:54

这不是已经可以了呢

fedd · 发表于 2021-12-13 08:25:47

Wanda 发表于 2021-12-13 08:13
这不是已经可以了呢

运行不了，你可以运行？

烟盒迷唇 · 发表于 2021-12-13 08:38:37

(defun c:O ()
(setq x(getreal (strcat "输入水平偏移：<" (rtos 0) ">")))
(setq y(getreal (strcat "输入垂直偏移：<" (rtos 0) ">")))
(setq cp(getpoint "选择基点："))
(setq px1(car cp))
(setq py1(cadr cp))
(setq mx(+ px1 x))
(setq my(+ py1 y))
(setq mpt(list mx my))
(command "LINE" mpt PAUSE "")
(princ)
)

mokson · 发表于 2021-12-13 08:52:49

为什么我看了并没有笑？

fedd · 发表于 2021-12-13 10:12:26

烟盒迷唇发表于 2021-12-13 08:38
(defun c:O ()
(setq x(getreal (strcat "输入水平偏移：")))
(setq y(getreal (strcat "输入垂直偏移 ...

大侠，运行没反应？咋回事捏？

fedd · 发表于 2021-12-13 10:13:31

mokson 发表于 2021-12-13 08:52
为什么我看了并没有笑？

哈哈，指点指点啊，mokson大侠

烟盒迷唇 · 发表于 2021-12-13 10:20:04

fedd 发表于 2021-12-13 10:12
大侠，运行没反应？咋回事捏？

有提示了吗，没提示就是快捷键按错了
我这里使用是正常的

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

[讨论] 问一个可能是搞笑的问题，已知起点，能用line命令自由选择终点吗？