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

ynhh

lostbalance 发表于 2023-10-2 21:41
你指的是模拟AutoCAD的line命令画直线吗？那可以这样：
1. 在cad中输入:   (command "line")
2. 根据cad ...

谢谢您的热心指点
感觉有时手工操作与编写程序还是有点区别的
还是要慢慢学习摸索
谢谢您

guosheyang

ynhh 发表于 2023-10-2 21:34
我看你的示范
和手工画图一样的
这不用什么程序都可以办到的

二、起点 A 带角度 J  画指定距离  L 的直线，直接用输入角度 <J 的方法        这不就是你需求的吗    也是line命令所具有的功能啊

guosheyang

(defun c:lll(/ QD ZD)
  (setq qd(getpoint "\n 请点取直线的起点"))
  (setq zd(getpoint qd "\n 点取终点或输入坐标值，或输入<加角度值，再输入距离:"))
  (entmake (list '(0 . "line") (cons 10 qd) (cons 11 zd) ))
  (princ)
)

这就是模拟line命令的代码

tomonkey239

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

ynhh

guosheyang 发表于 2023-10-3 09:52
(defun c:lll(/ QD ZD)
  (setq qd(getpoint "\n 请点取直线的起点"))
  (setq zd(getpoint qd "\n 点取 ...

谢谢您的热心指导

guosheyang

一、起点 A 以 B 点为方向控制点， 画指定距离  L 的直线    这个目标也可借助grread函数变相实现

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 />