明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 410|回复: 7

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

[复制链接]
发表于 2021-12-12 23:02 | 显示全部楼层 |阅读模式
(defun cO ()
(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 "" "" )
)  
发表于 2021-12-13 08:13 | 显示全部楼层
这不是已经可以了呢
 楼主| 发表于 2021-12-13 08:25 | 显示全部楼层
Wanda 发表于 2021-12-13 08:13
这不是已经可以了呢

运行不了,你可以运行?
发表于 2021-12-13 08:38 | 显示全部楼层
(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)
)  
发表于 2021-12-13 08:52 | 显示全部楼层
为什么我看了并没有笑?
 楼主| 发表于 2021-12-13 10:12 | 显示全部楼层
烟盒迷唇 发表于 2021-12-13 08:38
(defun c:O ()
        (setq x(getreal (strcat "输入水平偏移:")))
        (setq y(getreal (strcat "输入垂直偏移 ...

大侠,运行没反应?咋回事捏?
 楼主| 发表于 2021-12-13 10:13 | 显示全部楼层
mokson 发表于 2021-12-13 08:52
为什么我看了并没有笑?

哈哈,指点指点啊,mokson大侠
发表于 2021-12-13 10:20 | 显示全部楼层
fedd 发表于 2021-12-13 10:12
大侠,运行没反应?咋回事捏?

有提示了吗,没提示就是快捷键按错了
我这里使用是正常的
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-6-18 07:21 , Processed in 0.166930 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表