【求助】关于 “line”命令问题

osikou · 发表于 2020-5-31 22:06:42

想法是按照固定斜率画直线，类似正交情况下，直线限定了水平和垂直，如何按照需要的斜率限定直线方向？做了个简单代码但是不成功，哪位大侠帮改下，谢了。
(defun c:ddan ( / ang )
(setq an (getangle "\n输入斜率: "))
(setq ang (atan  an))

(command "line"  @2000<ang )
  (princ)
)

start4444 · 发表于 2020-6-1 00:09:13

(defun c:ddan (/ ang)
(setq ang (getstring "\n输入角度: "))
(command "line" pause (strcat "@2000<" ang) "")
(princ)
)

lisperado · 发表于 2020-6-1 01:52:16

本帖最后由 lisperado 于 2020-6-1 01:56 编辑

也许我搞错？是指斜度吗？因为 1/1=1或100%, (atan 1) 转换为45度。

command命令版

(setq *slope%* 2.5); 默认值
(defun c:ddan ( / ang n )
(setq n (getreal (strcat "\n输入斜度 <"(rtos *slope%* 2 2)"%>? : ")))
(setq *slope%* (if n n *slope%*))
(command "LINE" "\\" (strcat "@2000<"(angtos (atan (* 1e-2 *slope%*) ) 1 8)))
(princ)
)

entmake版 2000长度是以X-axis做标准？

(setq *slope%* 2.5); 默认值
(defun c:ddan1 (/ ang n pt)
(and (setq n (getreal (strcat "\n输入斜度 <" (rtos *slope%* 2 2) "%>? : "))
*slope%* (if n n *slope%*)
)
(setq pt (getpoint "\n线起点 : "))
(setq ang (atan (* 1e-2 *slope%*)) pt (trans pt 1 0))
(entmake
(list '(0 . "LINE") (cons 10 pt) (cons 11 (polar pt ang (abs (/ 2000. (cos ang))))) )
)
)
(princ)
)

osikou · 发表于 2020-6-1 07:51:14

非常感谢您的回复，确实是用斜度，三楼两个都好用。2000长度只是假定值，如果长度为变量，第二点是用光标选择完成的，类似正交选择时，可以吗？

xinxirong · 发表于 2020-6-1 08:22:02

ucs grread

e2002 · 发表于 2020-6-1 16:17:41

可以直接以 “<30" 度这样去响应line命令的，所以按你的梯度输入值反过来算出角度的弧度值，然后转换为角度值。

osikou · 发表于 2020-6-1 20:49:52

如果已知角度可以直接用line命令，但是多数时候是坡度**%，直接命令还需要换算角度再输入，那就非常麻烦了，上面的代码已经非常好用了，我的思想就是坡度自动换算角度，然后line命令，非常感谢。

osikou · 发表于 2020-6-1 20:54:37

再请教个问题，尺寸标注命令后(command "dimaligned" pp1 pp2 pt3)，还想对标注这个尺寸进行编辑，怎样知道这个标注的列表呢，或使这个标注为被选择状态，或是知道它的名称。

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

[提问] 【求助】关于 “line”命令问题