强制命令行或PLine到

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

你好

假设我有一张以毫米为单位的画，我想
画一条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 [undo]: 'cal
>>>> Expression: 3*25.4
Resuming LINE command.
Specify next point or [undo]: 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

如。

copy

(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)
)