yang686526

任意角度的线
www.dimcax.com
任意角度的线
请教
画line 时输入<45为45度的线
在lisp中
用command "line" 怎么调用 <45
没有更好 只有最好
cad编程
调用透明命令真不好办哪
不走寻常路:
(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) "")
)
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
这个也测试没错了
(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)
)
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
居然用到了sendkey,真是高手,学习了.
d
厉害
刚才zj-oοо○oο实测了一下把command 改为vl-cmdf也可以
没有更好 只有最好
cad编程