yoyoho 发表于 2011-6-16 11:53:07

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

ljpnb 发表于 2011-6-16 12:52:44


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

daidong013 发表于 2011-6-16 13:10:16

本帖最后由 daidong013 于 2011-6-16 13:25 编辑

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

lincctw_ccl 发表于 2011-6-16 14:00:16

回复 daidong013 的帖子

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

daidong013 发表于 2011-6-16 15:25:27

回复 lincctw_ccl 的帖子

知道了！~谢谢！~~

kx820506 发表于 2011-6-26 00:01:22

感谢大家的无私

AMTONNY 发表于 2011-6-26 12:44:54

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

zhaozwf 发表于 2011-7-25 14:48:26

回复 AMTONNY 的帖子

这个效果不错，呵呵，

tanle2020 发表于 2012-8-8 22:59:48

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

726613 发表于 2012-8-26 12:18:47

谢谢楼主分享值得学习
页: 1 [2] 3
查看完整版本: 任意角度的线