[求助]：SOS！！！超急， 请大虾、版主给解决下~

Dream.Fei

我发了3次帖子关于输入的时候角度限制的问题，都没有得到解答~ 现在再发一次，希望能答案。

目的：像CAD自带的引线命令一样，第二点是从第一个点按一定角度（30度）绘出一条直线。

如果没讲清楚，请开CAD运行引线命令就知道我的意思了。

我就要一个限制，第二个点必须是按第一点的一度角度才能确定的。

更简单的说，我就是要用lsp命令绘出一条直线，直线的起点可以随便定，但第二点必须是从第一点按一定角度的得到的！

SOS，超急！ 请大虾、版主给解决下~

eachy

设置 Ortho + Snapang 变量

Dream.Fei

不行，以下是我试写的：

[php]
(defun c:x1()
  (setq p1(getpoint "\n 第一点："))
  (setvar "ORTHOMODE" 1)
  (command "SNAPANG" 60)
  (setq p2 (getpoint p1 "\n 第二点:"))
  (command "snapang" 0)
  (setq p3 (getpoint p3 "\n 第三点："))
  (command "line" p1 p2 p3 "")
  )
[/php]

eachy

2. 
   
3. (defun c:x1 (/ p1 p2 p3)
   
4.   (setq p1 (getpoint "\n 第一点："))
   
5.   (setvar "ORTHOMODE" 1)
   
6.   (setvar  "SNAPANG" (/ pi 3.));_ 弧度
   
7.   (setq p2 (getpoint p1 "\n 第二点:"))
   
8.   (setvar "snapang" 0)
   
9.   (setq p3 (getpoint p2 "\n 第三点："))
   
10.   (command "line" p1 p2 p3 "")
    
11. )

<br /> (defun c:x1 (/ p1 p2 p3)<br />   (setq p1 (getpoint "\n 第一点："))<br />   (setvar "ORTHOMODE" 1)<br />   (setvar  "SNAPANG" (/ pi 3.));_ 弧度<br />   (setq p2 (getpoint p1 "\n 第二点:"))<br />   (setvar "snapang" 0)<br />   (setq p3 (getpoint p2 "\n 第三点："))<br />   (command "line" p1 p2 p3 "")<br /> )

Dream.Fei

谢谢了！

另：除了这种外，还有别的方法没？因为旋转光标看着好不爽~