社区 › Auto Lisp › 强制命令行或PLine到

Tharwat 发表于 2022-7-6 10:40:45

强制命令行或PLine到

你好
 
假设我有一张以毫米为单位的画，我想
画一条3个单位长的线，但这3个单位必须是英寸单位（25.4）的倍数
绘制为76.2长。
 
这意味着我将输入3个单位，而不是76.2。
 
亲爱的读者，有什么建议吗？
 
当做
 
塔瓦特

alanjt 发表于 2022-7-6 10:49:38

Command: l
LINE Specify first point:
Specify next point or : 'cal
>>>> Expression: 3*25.4

Resuming LINE command.

Specify next point or : 76.2

Tharwat 发表于 2022-7-6 10:51:42

 
这正是我试图避免的，这是浪费时间的问题。
 
谢谢

alanjt 发表于 2022-7-6 10:55:07

然后提示用户起点，然后指定角度和距离，将距离乘以25.4

rkmcswain 发表于 2022-7-6 11:00:30

您是想自己在命令行上执行此操作，还是编写代码来执行此操作，以便最终用户不需要知道或关心？

Tharwat 发表于 2022-7-6 11:07:00

实际上，添加到代码中要比干扰Autocad self命令好得多。那么它会
包括在我的大多数线性绘图Lisp程序。
 
谢谢

alanjt 发表于 2022-7-6 11:10:00

如。
(defun c:Test (/ p1 ang dst)
(if (and (setq p1 (getpoint "\nSpecify first point: "))
          (setq ang (getangle p1 "\nSpecify angle: "))
          (setq dst (getdist "\nSpecify distance: "))
   )
   (entmake (list '(0 . "LINE") (cons 10 p1) (cons 11 (polar p1 ang (* 25.4 dst)))))
)
(princ)
)

Tharwat 发表于 2022-7-6 11:14:28

好啊美好的
我想到了你发布的lisp，但我的问题是使用（命令“_.line”………创建它们，这让我很失望。

alanjt 发表于 2022-7-6 11:19:42

不能在命令中暂停。顺便说一句，这不是李写的吗？

Tharwat 发表于 2022-7-6 11:26:38

是的，但不是全部，我的意思是只有从姆林转到普林是他给我的礼物。
 
你说的BTW是什么意思？

查看完整版本: 强制命令行或PLine到