任意角度的线

yoyoho

感谢分享学习心得,收藏了!

ljpnb

2. 
   
3. (defun c:test ()
   
4.   (setq wsh (Vlax-Get-Or-Create-Object "WScript.Shell"))
   
5.   (command "line" (setq pt1 (getpoint)))
   
6.   (Vlax-Invoke-Method
   
7.     wsh
   
8.     'Sendkeys
   
9.     (strcat "<" (rtos (if (not (setq ang(getreal "\n输入一个角度")))
   
10.                        (setq ang 45)(setq ang ang )
    
11.                     )) "{Enter}")
    
12.   )
    
13.   (command (getpoint pt1) "")
    
14. )
    
15. 
    

<br /> (defun c:test ()<br />   (setq wsh (Vlax-Get-Or-Create-Object "WScript.Shell"))<br />   (command "line" (setq pt1 (getpoint)))<br />   (Vlax-Invoke-Method<br />     wsh<br />     'Sendkeys<br />     (strcat "<" (rtos (if (not (setq ang(getreal "\n输入一个角度")))<br />                        (setq ang 45)(setq ang ang )<br />                     )) "{Enter}")<br />   )<br />   (command (getpoint pt1) "")<br /> )<br /> <br />

daidong013

我试了楼上大侠的不错，如果再加上长度输入就更好了！~~！~~感谢！~~

lincctw_ccl

回复 daidong013 的帖子

刚试过当输入角度后
将光标移到绘要绘制的方向
输入长度 +回车

daidong013

回复 lincctw_ccl 的帖子

知道了！~谢谢！~~

kx820506

感谢大家的无私

AMTONNY

试试我的方法，自我感觉还不错哦

zhaozwf

回复 AMTONNY 的帖子

这个效果不错，呵呵，

tanle2020

能由光标控制45度和135度就好了

726613

谢谢楼主分享值得学习