lisp画角度为什么不能像鼠标一样操作？？

czww26

(command "pline"  p1 p2 "<45")。想画45度角，为什么这一步直接显示函数被取消？？末尾加上引号也显示函数被取消。用lisp怎么样写才能像手动输入回车一样的效果？

lisperado

(command "_pline"  p1 p2 "@10<45 ")

(command "_pline"  p1 p2 "@7.071,7.071")

2. 
   
3. (defun c:tt ( / stop p1 p2 dg v1 v2 v )
   
4.   
   
5.   (and
   
6. 
   
7.     (setq dg (cond ((getreal "\n请输入角度 <45.0> : ")) (45.0)))
   
8.     (setq stop '(nil (while (/= (getvar 'cmdactive) 0) (command)))
   
9.              p1   (getpoint "\n第一点.. ")
   
10.              )
    
11.        (setq p2 (getpoint p1 "\n第二点.. "))
    
12.       
    
13.        (setq v1 (strcat "@10<" (rtos dg 2)) ;"@10<45.0000"
    
14.              v  (polar '(0. 0.) (* (/ dg 180.) pi) 10.0)
    
15.              v2 (apply 'strcat (apply 'append (mapcar ''((a b) (list a (rtos b 2))) '("@" ",") v)))
    
16.              ) ;"@7.0711,7.0711"
    
17.       
    
18.        (progn
    
19.         (princ )
    
20.         (alert (strcat "\n第三点取于长度10.00以及已输入角度如下 \n(command "_pline" p1 p2 "v1")"))
    
21.          (command "_pline" p1 p2 v1) ;"@10<45.0000"
    
22.               (stop)
    
23.               (command "_pline" (mapcar '+ '(0.0 10.0) p1) (mapcar '+ '(0.0 10.0) p2) v1 )
    
24.               (stop)
    
25.         
    
26.               (alert (strcat "或第二种写法 \n(command "_pline" p1 p2 "v2")"))
    
27.               (apply 'command
    
28.                      (cons "_pline"
    
29.                            (append (mapcar ''((x) (mapcar '+ '(0.0 20.0) x)) (list p1 p2)) (list v2))
    
30. ;"@7.0711,7.0711"
    
31.                            )
    
32.                      )
    
33.               (stop)
    
34.               )
    
35.        )
    
36.   (princ "\n示范完成！")
    
37.   (princ)
    
38.   )
    
39. 
    

<br /> (defun c:tt ( / stop p1 p2 dg v1 v2 v )<br />   <br />   (and<br /> <br />     (setq dg (cond ((getreal "\n请输入角度 <45.0> : ")) (45.0)))<br />     (setq stop '(nil (while (/= (getvar 'cmdactive) 0) (command)))<br />              p1   (getpoint "\n第一点.. ")<br />              )<br />        (setq p2 (getpoint p1 "\n第二点.. "))<br />        <br />        (setq v1 (strcat "@10<" (rtos dg 2)) ;"@10<45.0000"<br />              v  (polar '(0. 0.) (* (/ dg 180.) pi) 10.0)<br />              v2 (apply 'strcat (apply 'append (mapcar ''((a b) (list a (rtos b 2))) '("@" ",") v)))<br />              ) ;"@7.0711,7.0711"<br />        <br />        (progn<br />         (princ )<br />         (alert (strcat "\n第三点取于长度10.00以及已输入角度如下 \n(command "_pline" p1 p2 "v1")"))<br />          (command "_pline" p1 p2 v1) ;"@10<45.0000" <br />               (stop)<br />               (command "_pline" (mapcar '+ '(0.0 10.0) p1) (mapcar '+ '(0.0 10.0) p2) v1 )<br />               (stop)<br />         <br />               (alert (strcat "或第二种写法 \n(command "_pline" p1 p2 "v2")"))<br />               (apply 'command<br />                      (cons "_pline"<br />                            (append (mapcar ''((x) (mapcar '+ '(0.0 20.0) x)) (list p1 p2)) (list v2))<br /> ;"@7.0711,7.0711" <br />                            )<br />                      )<br />               (stop)<br />               )<br />        )<br />   (princ "\n示范完成！")<br />   (princ)<br />   )<br /> <br />

czww26

lisperado 发表于 2019-10-29 06:40
(command "_pline"  p1 p2 "@10

你的代码出来的直线是固定长度，不能实现预览点选长度啊。我想要像手动操作一样，输入<45就可以控制直线方向往上还是朝下和长度自由点选

start4444

既然你要手动还要预览为什么还要写代码，直接用命令不就行了，难道还要把cad自带命令反编译出来用吗，真是莫名其妙

czww26

start4444 发表于 2019-10-29 16:01
既然你要手动还要预览为什么还要写代码，直接用命令不就行了，难道还要把cad自带命令反编译出来用吗，真是 ...

因为这个命令需要重复反复使用，使用频率很高，每次输入太麻烦

lisperado

不是很明白是不是强烈约束45度倍数画线？




[url]http://bbs.mjtd.com/thread-178260-1-1.html[/url]

直接免去符号 @10<45d32'10"

或PLINE中执行隐形命令 'dd 10 45 32 10
https://www.cadtutor.net/forum/t ... &comment=556923

czww26

lisperado 发表于 2019-10-29 20:34
不是很明白是不是强烈约束45度倍数画线？

是这个意思，谢谢提供的网址