社区 › AutoLISP/Visual LISP 编程技术 › 小菜版选择易，欢迎使用并提出完善建议

tm20038175 发表于 2012-4-6 22:38:19

小菜123 发表于 2012-4-6 22:05
按长度过滤线应该没有问题的，请传图上来看看

我用2012 64位挺好用的，已经成为我的必不可缺的工具之一，谢谢你，小菜！…

yjr111 发表于 2012-4-7 19:36:08

出现这么个问题，请小菜兄看看

yjr111 发表于 2012-4-7 20:09:36

难道没办法自适应屏幕尺寸吗？

小菜123 发表于 2012-4-8 13:14:13

自适应屏幕尺寸的版本，我做了，但没有放出来，示例在36楼有。一是因为很少用到，二是需要取屏幕分辨率，那个函数可能跟所用操作系统有关(我也不确定)，所以发布版本里没加入这个功能。

tm20038175 发表于 2012-4-8 13:33:27

还有可以自动取屏大小的，确实好东西呀，如果放出来高手帮忙解决下就好了。。。

小菜123 发表于 2012-4-10 08:37:37

下面这个函数也是论坛上找的，请大家试试在vista和win7中是否正常，如果不正常，怎么改才行？
(defun get_scr_resolution ( / w h wmi meth1 meth2 n)
(setq wmi (vlax-create-object "WbemScripting.SWbemLocator"))
(setq meth1 (vlax-invoke-method wmi 'ConnectServer nil nil nil nil nil nil nil nil ))
(setq meth2 (vlax-invoke-method meth1 'ExecQuery "Select * from Win32_DisplayConfiguration" nil nil nil ))
(vlax-for n meth2
(setq w (vlax-get n 'PelsWidth);屏幕宽度
      h (vlax-get n 'PelsHeight)) ;屏幕高度
)
(mapcar 'vlax-release-object (list wmi meth1 meth2))
(list w h)
) ;;defun

tm20038175 发表于 2012-4-10 13:08:57

小菜123 发表于 2012-4-10 08:37 static/image/common/back.gif
下面这个函数也是论坛上找的，请大家试试在vista和win7中是否正常，如果不正常，怎么改才行？
(defun get_ ...

你选取曲线时候，线型总是按Bylayer，如果改成按当前线型选择就好了~~~

小菜123 发表于 2012-4-10 13:27:53

缺省值都是依据实体性质确定的，程序中不必进行人为定义，个性需要只能自行定制修改

tm20038175 发表于 2012-4-19 15:52:04

小菜123 发表于 2012-4-10 13:27 static/image/common/back.gif
缺省值都是依据实体性质确定的，程序中不必进行人为定义，个性需要只能自行定制修改

程序更新了吗，源码能不能发我一份，关注好久了，谢谢~~~~
cjp20038175@hotmail.com

小菜123 发表于 2012-4-20 16:05:36

一楼的源码一直没有更新，楼上希望更新什么呢？

查看完整版本: 小菜版选择易，欢迎使用并提出完善建议