请教各位大侠：自己做的LSP怎样能在别的命令中被透明调用？

精灵王

看来纯lsp可以实现透明调用

alin

No, I don't think so. Trying to call command function while another command is active will result in errors, such as application close unexpextedly or command nesting error. My suggestions are: 1. Change the first line of your code to (defun av:cz ()2. Replace   (command "zoom" pt333 pt3333) with
                       (axZoomWindow pt333 pt3333)3. Define another function

2. (defun axZoomWindow (p1 p2)
3.    (if (null app)(setq app (vlax-get-acad-object)))
4.    (vla-ZoomWindow app (vlax-3d-point p1) (vlax-3d-point p2))
5. )

(defun axZoomWindow (p1 p2)    (if (null app)(setq app (vlax-get-acad-object)))    (vla-ZoomWindow app (vlax-3d-point p1) (vlax-3d-point p2)) )

4. (vlax-add-cmd "cz" 'cv:cz "cz" 5)

wang_hui

1-3步照做了，可是第四步怎么样做，是运行时用，还是加在程序里？


版主你加载试过了吗？我英语真的太差了！

meflying

写到程序文件里一起加载也可以,在命令行输入代码回车也可以

wang_hui

我在命令行下运行(vlax-add-cmd "cz" 'cv:cz "cz" 5)


之后再打CZ怎么没有反应？


程序具体写成这样就可以吗？





要是把(vlax-add-cmd "cz" 'cv:cz "cz" 5)放在程序中该放在哪一行？

wang_hui

1. Change the first line of your code to (defun av:cz () 4. (vlax-add-cmd "cz" 'cv:cz "cz" 5) 请问版主：1中是av:cz4中是cv:cz二者不要求一至吗？ 再有(defun axZoomWindow (p1 p2)
(if (null app)(setq app (vlax-get-acad-object)))
(vla-ZoomWindow app (vlax-3d-point p1) (vlax-3d-point p2))
)运行时老是提示没有这个vlax-get-acad-object,到这就自动退出了！ 何故？

alin

Sorry, 是我打错了，当然是一致的, 应为(vlax-add-cmd "cz" 'av:cz "cz" 5)

1. 运行时老是提示没有这个vlax-get-acad-object,到这就自动退出了
   
4. 
   

复制代码

再程序前面加(vl-load-com), 这是常识。很多程序都必须，所以很多人在启动时已加载。


我用你的程序测试过，虽然不知具体是在干什么，但是好像没问题。

wang_hui

非常感谢alin对我的帮助！！！