手工画直线的方法如何写成代码

ynhh

手工画直线的方法如何写成代码，

曾见过一次 带角度画指定距离的直线 的方法
但想不起来了
帮助中也没写这么详细

请教以下两种画法

一、起点 A 以 B 点为方向控制点， 画指定距离  L 的直线

二、起点 A 带角度 J  画指定距离  L 的直线，直接用输入角度 <J 的方法

谢谢

alexmai

在论坛上找的类似命令

2. 
   
3. 
   
4. ;;;动态角度矩形
   
5. (defun c:are (/ os pt1 pt2 pt3 pt4 ag0 ag len ent ct in k)
   
6.   (setq os (getvar "osmode"))
   
7.   (while (and (setq pt1 (getpoint "\n角点1:"))
   
8.               (setq ag0  (getangle pt1 "角度:"))
   
9.        (progn (princ "对角点:") (setq ct t))
   
10.        (progn
    
11.   (setq ct t k t ent nil)
    
12.          (while ct
    
13.     (setq in (grread 1))
    
14.     (cond
    
15.        (  (= 5 (car in))
    
16.                         (setq pt3 (cadr in))
    
17.                         (setq len (distance pt1 pt3) ag  (angle pt1 pt3) )
    
18.                         (setq pt2 (polar pt1 ag0 (* len (cos (- ag ag0)))))
    
19.                         (setq pt4 (polar pt1 (+ (/ pi 2.) ag0) (* len (sin (- ag ag0)))))
    
20.           (if ent (command "erase" ent ""))
    
21.           (setvar "osmode" 0)
    
22.           (command "pline" pt1 pt2 pt3 pt4 "c" )
    
23.           (setvar "osmode" os)
    
24.           (setq ent (entlast))
    
25.                      )
    
26.        (  (= 3 (car in))
    
27.           (setq pt3 (cadr in))
    
28.                         (setq len (distance pt1 pt3) ag  (angle pt1 pt3) )
    
29.                         (setq pt2 (polar pt1 ag0 (* len (cos (- ag ag0)))))
    
30.                         (setq pt4 (polar pt1 (+ (/ pi 2.) ag0) (* len (sin (- ag ag0)))))
    
31.           (if ent (command "erase" ent ""))
    
32.           (setvar "osmode" 0)
    
33.           (command "pline" pt1 pt2 pt3 pt4 "c" )
    
34.           (setvar "osmode" os)
    
35.           (setq ent (entlast))
    
36.           (setq ct nil)
    
37.        )
    
38.        (  (equal '(11 0) in)
    
39.           (if ent (command "erase" ent ""))
    
40.           (setq ct nil k nil)
    
41.        )
    
42.        (t)
    
43.     )  
    
44.          )
    
45.          k
    
46.        )
    
47.     )
    
48.       
    
49.   )
    
50.   (setvar "osmode" os)
    
51.   (princ)
    
52. )
    
53. 
    

<br /> <br /> ;;;动态角度矩形<br /> (defun c:are (/ os pt1 pt2 pt3 pt4 ag0 ag len ent ct in k)<br />   (setq os (getvar "osmode")) <br />   (while (and (setq pt1 (getpoint "\n角点1:"))<br />               (setq ag0  (getangle pt1 "角度:"))<br />        (progn (princ "对角点:") (setq ct t))<br />        (progn<br />   (setq ct t k t ent nil)<br />          (while ct<br />     (setq in (grread 1))<br />     (cond<br />        (  (= 5 (car in))<br />                         (setq pt3 (cadr in))<br />                         (setq len (distance pt1 pt3) ag  (angle pt1 pt3) )<br />                         (setq pt2 (polar pt1 ag0 (* len (cos (- ag ag0)))))<br />                         (setq pt4 (polar pt1 (+ (/ pi 2.) ag0) (* len (sin (- ag ag0)))))<br />           (if ent (command "erase" ent ""))<br />           (setvar "osmode" 0)<br />           (command "pline" pt1 pt2 pt3 pt4 "c" )<br />           (setvar "osmode" os)<br />           (setq ent (entlast))<br />                      )<br />        (  (= 3 (car in))<br />           (setq pt3 (cadr in))<br />                         (setq len (distance pt1 pt3) ag  (angle pt1 pt3) )<br />                         (setq pt2 (polar pt1 ag0 (* len (cos (- ag ag0)))))<br />                         (setq pt4 (polar pt1 (+ (/ pi 2.) ag0) (* len (sin (- ag ag0)))))<br />           (if ent (command "erase" ent ""))<br />           (setvar "osmode" 0)<br />           (command "pline" pt1 pt2 pt3 pt4 "c" )<br />           (setvar "osmode" os)<br />           (setq ent (entlast))<br />           (setq ct nil)<br />        )<br />        (  (equal '(11 0) in)<br />           (if ent (command "erase" ent ""))<br />           (setq ct nil k nil)<br />        )<br />        (t)<br />     )  <br />          )<br />          k<br />        ) <br />     ) <br />        <br />   )<br />   (setvar "osmode" os)<br />   (princ)<br /> )<br /> <br />

lostbalance

你指的是模拟AutoCAD的line命令画直线吗？那可以这样：
1. 在cad中输入:   (command "line")
2. 根据cad的提示完成画直线的操作，记录每一步输入的内容，然后用:   (command 内容)   的方式代替。其中点的话，就是一个2或者3维的列表，关键词是文本格式，数字是数字格式。

比如最简单的两点直线，大致如下：
1. (command "line")
2. (command '(0 0 0))   ; 此处的'(0 0 0)是个三维坐标，如果要改成手动取点的话，可以改成(getpoint)，或者用P1等变量代替，但要在步骤1之前就用完成赋值
3. (command '(100 100 100)) ;;此处的'(100 100 100)同步骤2的相关说明，也可以输入  <45  的角度，来进行角度操作，那么步骤3和4之间会增加一个类似步骤3的取点操作
4. (command "") ;;此处用""，模拟空格，结束操作，或者输入新的点或者其他信息，继续操作

为了说明清楚，上面的command分体了，一般command会用一行代码完成 (command "line" '(0 0 0) '(100 100 100) "")

大部分的cad命令，都可以用上述方法来模拟步骤，只不过类似取选择集之类的操作，需要在参数后增加一个""，表示完成局部动作。另外，需要注意的是，部分命令，在不同的cad版本下，上述步骤顺序或者关键词会有变化，导致失效，可以考虑增加cad的版本判断，或者，还可以在命令名前加"._"的方式，比如"._line"，听说这样子是使用了全版本cad的通用命令格式，更具有通用性。

xyp1964

1. (defun c:tt ()
   
2.   (defun abc (a b l / sc)"沿空间两点的距离点"
   
3.     (setq sc (/ l (distance a b) 1.))
   
4.     (mapcar '(lambda (x y) (+ x (* (- y x) sc))) a b)
   
5.   )
   
6.   (setq i -1)
   
7.   (setq kw (Ukword 1 "1 2" "[A点+B点(1)/A点+角度(2)]" kw))
   
8.   (setq dd (Udist 7 "" "线长<输入或鼠标直接量取>" dd nil))
   
9.   (setq A (getpoint "\n基点A<退出>: "))
   
10.   (cond ((and (= kw "1") (setq B (getpoint A "\n方向点B<退出>: ")))
    
11.          (setq a1 (abc a b dd))
    
12.          (command "line" "non" a "non" a1 "")
    
13.         )
    
14.         ((and (= kw "2")(setq ang (Uangle 1 "" "角度<输入或鼠标直接量取>" ang nil)))
    
15.          (setq a1 (polar a ang dd))
    
16.          (command "line" "non" a "non" a1 "")
    
17.         )
    
18.   )
    
19.   (princ)
    
20. )
    

(defun c:tt ()<br />   (defun abc (a b l / sc)"沿空间两点的距离点"<br />     (setq sc (/ l (distance a b) 1.))<br />     (mapcar '(lambda (x y) (+ x (* (- y x) sc))) a b)<br />   )<br />   (setq i -1)<br />   (setq kw (Ukword 1 "1 2" "[A点+B点(1)/A点+角度(2)]" kw))<br />   (setq dd (Udist 7 "" "线长<输入或鼠标直接量取>" dd nil))<br />   (setq A (getpoint "\n基点A<退出>: "))<br />   (cond ((and (= kw "1") (setq B (getpoint A "\n方向点B<退出>: ")))<br />          (setq a1 (abc a b dd))<br />          (command "line" "non" a "non" a1 "")<br />         )<br />         ((and (= kw "2")(setq ang (Uangle 1 "" "角度<输入或鼠标直接量取>" ang nil)))<br />          (setq a1 (polar a ang dd))<br />          (command "line" "non" a "non" a1 "")<br />         )<br />   )<br />   (princ)<br /> )<br />

hhh454

@100<45
距离100，角度45°
是这个意思吗？

ynhh

hhh454 发表于 2023-9-30 22:02
@100

这角度和距离可任意设置的
当然不是在程序中设置
我想在画直线命令中设置

ynhh

xyp1964 发表于 2023-10-1 10:48

谢谢院长
您这个太高大上了
我觉得只是普通的画线操作，找到一个是从 0 0 开始画的，可指定距离和角度
但不能指定起点，我再研究学习一下
谢谢您

2. (command "_line")
   
3. (command "0,0")
   
4. (command "500.0<66.0")
   
5. (command "")

(command "_line")<br /> (command "0,0")<br /> (command "500.0<66.0")<br /> (command "")

guosheyang

是这样模拟line命令吗  用get函数写一个就是 get函数本身有这个功能

ynhh

guosheyang 发表于 2023-10-2 18:05
是这样模拟line命令吗  用get函数写一个就是 get函数本身有这个功能

具体是那个函数请来个示范
谢谢

guosheyang

getdist  getpoint等函数都有此功能

ynhh

guosheyang 发表于 2023-10-2 21:27
getdist  getpoint等函数都有此功能

我看你的示范
和手工画图一样的
这不用什么程序都可以办到的