【已解决】函数问题

lslsq

想实现如原CAD中类似于line输入 第一点输入后有一条直线预览效果可以正交等，再输入第二点，的函数
类似输入矩形的getcorner， 我也不知道怎么描述，不知道各位技术大牛能不能看懂。初学者希望能够得到解答！！

Lisphk

getpoint 给第一个点的参数不就行了吗

(setq p1 (getpoint "\n第一点<退出>:"))
(setq p2 (getpoint p1 "\n第二点<退出>:"))

lslsq

Lisphk 发表于 2018-12-17 12:04
getpoint 给第一个点的参数不就行了吗

(setq p1 (getpoint "\n第一点:"))

我现在就是这样定义的，不过会出现如果我想第一点和第二点垂直关系用着个就没法实现，需要做辅助线或者其他

lslsq

Lisphk 发表于 2018-12-17 12:04
getpoint 给第一个点的参数不就行了吗

(setq p1 (getpoint "\n第一点:"))

我也想过，直接用直线命令，然后取两个端点，删掉直线。但是那样太麻烦了，所以想寻求简单一点的方法

marting

lslsq 发表于 2018-12-17 14:45
我现在就是这样定义的，不过会出现如果我想第一点和第二点垂直关系用着个就没法实现，需要做辅助线或者其 ...

两个点怎么会有垂直关系？ 还有其他条件吧，比如上一根线

newer

lslsq 发表于 2018-12-17 14:57
我也想过，直接用直线命令，然后取两个端点，删掉直线。但是那样太麻烦了，所以想寻求简单一点的方法

你是不是想画正交的线，即使不平行于X轴？

去看看下面插件的源代码，晓东通用LISP函数库有现成的函数 xd::drag:gmove
画正交线（第二版）

13 个回复 - 130 次查看

根据网友的申请，先确定一个边，然后一直正交画线， 中间可以设置轴、线宽、颜色、回退 相对第一版，增加了线宽和颜色的设置

2018-8-28 12:05 - newer - 每日插件

                               
登录/注册后可看大图

                               
登录/注册后可看大图

如果你不是专业的开发人士，只是工程师自己开发程序提高效率，建议你最快的方法是用前人写过的库，你只是去关心专业的实现就够了，随着经验的提高，你也可以写出那些函数，别自己一开始就写那些别人有过的代码，站在巨人的肩膀，你更高

xd::drag:gmove 去通用函数库里面看源代码，或者根据例子，直接用。

(XD::Drag:GMove)点监视器实现的通用拖动函数

1 个回复 - 1482 次查看

前几天Lispboy写了个GETPOINT的点监视器实现代码，但只能取点。 受启发，在此基础上修改，增加了回调函数做成通用的点监视器实现的拖动函数。

2016-5-25 13:18 - newer - 开源函数库

• 多边形单边退缩（XD::Drag:Gmove应用）
  4 个回复 - 1614 次查看
  
  
  2016-5-31 11:37 - newer - XDRX_API应用
• 点监视器通用拖动函数XD::Drag:GMove的具体应用代码（1）
  5 个回复 - 1321 次查看
  短短的代码，实现了 复杂的功能。 通用拖动函数见： http://bbs.xdcad.net/thread-704335-1-1.html
  2016-5-25 13:25 - newer - XDRX_API应用
• 
  

lslsq

marting 发表于 2018-12-17 15:01
两个点怎么会有垂直关系？ 还有其他条件吧，比如上一根线

抱歉，表述得不够清楚，让大家费解了.\抱拳 . 是第一个点定义后第二个点与先画好的线有垂直关系或者水平关系。

lslsq

newer 发表于 2018-12-17 15:21
你是不是想画正交的线，即使不平行于X轴？

去看看下面插件的源代码，晓东通用LISP函数库有现成的函数  ...

的确不是专业人士，工作上用得上，再加上有这方面的兴趣。非常感谢，之前一直没有用通用函数库里面的代码，我尝试一下

wzg356

参考这个，把坐标系扭一下

2. ;三点矩形
   
3. (defun C:3pr (/ PT1 PT2 ANG)
   
4.     (while (and (setq PT1 (getpoint "\n指定第一点:"))
   
5.         (setq PT2 (getpoint PT1 "\n指定第二点t:"))
   
6.         )
   
7.         (progn
   
8.                 (setq ANG (+ (angle PT1 PT2) (* 0.5 pi))
   
9.                           PT3 (polar PT1 ANG 10)
   
10.                     )
    
11.                     (command "_.ucs" "n" "3" PT1 PT2 PT3)
    
12.                     (command "_.rectang" "non" '(0 0 0) PAUSE)
    
13.                     (command "_.ucs" "P")
    
14.                  )
    
15.     )
    
16. )

;三点矩形<br /> (defun C:3pr (/ PT1 PT2 ANG)<br />     (while (and (setq PT1 (getpoint "\n指定第一点:"))<br />         (setq PT2 (getpoint PT1 "\n指定第二点t:"))<br />         )<br />         (progn<br />                 (setq ANG (+ (angle PT1 PT2) (* 0.5 pi))<br />                           PT3 (polar PT1 ANG 10)<br />                     )<br />                     (command "_.ucs" "n" "3" PT1 PT2 PT3)<br />                     (command "_.rectang" "non" '(0 0 0) PAUSE)<br />                     (command "_.ucs" "P")<br />                  )<br />     )<br /> )

sicky111

楼上这个画斜度矩形比较方便