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

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

(defun c:LO ()
(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
大侠，运行没反应？咋回事捏？

有提示了吗，没提示就是快捷键按错了
我这里使用是正常的
页: [1]
查看完整版本: 问一个可能是搞笑的问题，已知起点，能用line命令自由选择终点吗？