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

任意角度的线

<p>请教<br/>画line 时输入&lt;45为45度的线</p><p>在lisp中<br/>用command "line" 怎么调用 &lt;45<br/></p>

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 编辑 <br /><br /> <p>调用透明命令真不好办哪</p><p>不走寻常路:</p><p>(defun c:test()<br/>&nbsp;(setq wsh (Vlax-Get-Or-Create-Object "WScript.Shell" ))<br/>&nbsp;(command "line" (setq pt1(getpoint)))<br/>&nbsp;(Vlax-Invoke-Method wsh 'Sendkeys "&lt;45{Enter}")<br/>&nbsp;(command (getpoint pt1) "")<br/>)</p>

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

本帖最后由 作者 于 2009-1-19 16:25:14 编辑 <br /><br /> <p>这个也测试没错了</p><p>(defun c:test()<br/>&nbsp;(setvar "cmdecho" 0)<br/>&nbsp;(setq WshShell (Vlax-Get-Or-Create-Object "WScript.Shell" ))<br/>&nbsp;(command "_.Line" (setq pt1(getpoint "pt1")))<br/>&nbsp;(Vlax-Invoke-Method WshShell 'Sendkeys "&lt;45{Enter}")<br/>&nbsp;(command (getpoint pt1 "pt2") "")<br/>&nbsp;(vlax-release-object WshShell)<br/>&nbsp;(setvar "cmdecho" 1)<br/>)</p>

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

<p>居然用到了sendkey,真是高手,学习了.</p>

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

<p>厉害</p><p>刚才Zj-oοО○oο实测了一下把command 改为vl-cmdf也可以</p>

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

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

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

回复 zhynt 的帖子

像这样处理很不错！

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

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

向高手学习
页: [1] 2 3
查看完整版本: 任意角度的线