任意角度的线

露水2 · 发表于 2009-1-19 14:19:00

请教
画line 时输入<45为45度的线

在lisp中
用command "line" 怎么调用 <45

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

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

梨子·桃 · 发表于 2024-3-3 09:31:08

AMTONNY 发表于 2011-6-26 12:44
试试我的方法，自我感觉还不错哦

好用，谢谢分享

shirker · 发表于 2024-3-6 21:53:38

下载试试，学习了

nonsmall · 发表于 2009-1-19 16:17:00

本帖最后由作者于 2009-1-19 16:20:41 编辑

调用透明命令真不好办哪

不走寻常路:

(defun c:test()
(setq wsh (Vlax-Get-Or-Create-Object "WScript.Shell" ))
(command "line" (setq pt1(getpoint)))
(Vlax-Invoke-Method wsh 'Sendkeys "<45{Enter}")
(command (getpoint pt1) "")
)

nonsmall · 发表于 2009-1-19 16:20:00

本帖最后由作者于 2009-1-19 16:25:14 编辑

这个也测试没错了

(defun c:test()
(setvar "cmdecho" 0)
(setq WshShell (Vlax-Get-Or-Create-Object "WScript.Shell" ))
(command "_.Line" (setq pt1(getpoint "pt1")))
(Vlax-Invoke-Method WshShell 'Sendkeys "<45{Enter}")
(command (getpoint pt1 "pt2") "")
(vlax-release-object WshShell)
(setvar "cmdecho" 1)
)

lljj · 发表于 2009-1-19 16:23:00

居然用到了sendkey,真是高手,学习了.

露水2 · 发表于 2009-1-19 18:07:00

厉害

刚才Zj-oοО○oο实测了一下把command 改为vl-cmdf也可以

daidong013 · 发表于 2011-6-15 20:39:31

角度可以输入就更好了！~~

zhynt · 发表于 2011-6-15 22:03:08

(defun c:lll (/ pt1 cd jd)
(setq pt1 (getpoint "\n起始点")
cd (getstring "\n线长")
jd (getstring "\n角度")
)
(command "line" pt1 (strcat "@" cd "<" jd) "")
)

daidong013 · 发表于 2011-6-16 09:22:15

多谢[zhynt ]出手，其实只要上面的效果只要可以输入角度就可以了，定制了角度后线可以无限延长或再输入长度！~~

xiaxiang · 发表于 2011-6-16 09:26:46

回复 zhynt 的帖子

像这样处理很不错！

wyw970317515 · 发表于 2011-6-16 09:31:03

本帖最后由 wyw970317515 于 2011-6-16 09:41 编辑

向高手学习

账号		自动登录	找回密码
密码			注册

任意角度的线

本帖子中包含更多资源