请教：如何在Vlisp中控制菜单操作？

citykunan

无痕大侠，你就不要拿他开玩笑了。：）

无痕

如何在Vlisp中控制菜单操作？
>>菜单很多种控制的函数也很多，你说的是那种？如是下啦菜单可参考cad vlisp帮助，搜索menu一步步搜索下去，ａｕｔｏｌｉｓｐ函数可参考menucmd函数 在操作有些命令时。系统会弹出一些windows窗口供数据输入，但在vlisp中，如何用程序解决数据输入呢？
>>一般命令用lisp调用时自动关对话框，也可试试看改cmddia，filedia系统变量，如果不行，那就基本上没办法了 如：标注形位公差的tolerance命令，在vlisp中如何使用才会避免windows窗口的弹出？
>>我不用公差，我试了，感觉不行。

jans

没办法,自己画了一个.

jans

有什么可卖弄的嘛，不就是会点工具，还不是跟人家打工！自学成才才更高。太伤自尊了~~~~~~~~~~~~

秋枫

使用COM接口：


(vla-AddTolerance mspace Text InsertionPoint Direction)


具体参考帮助文档。


飞哥的话是有道理的。你如果不会用vlisp的com接口的话还需要学习。非三言两语可以说清楚di.


另外，也可以考虑用标准AutoLISP的entmake函数。这个也不是说说就会了的吧。

jans

秋枫发表于2005-5-22 11:11:00使用COM接口： (vla-AddTolerance mspace Text InsertionPoint Direction) 具体参考帮助文档。 飞哥的话是有道理的。你如果不会用vlisp的com接口的话还...

恩 谨记秋枫赐教

龙龙仔

;;慢慢学吧! (entmake '((0 . "TOLERANCE")
(100 . "AcDbEntity")
(8 . "dim")
(100 . "AcDbFcf")
(3 . "STANDARD")
(10 0.0 0.0 0.0)
(1 . "{\\Fgdt;j}%%v{\\Fgdt;n}0.01%%v%%vA%%v%%v")
(210 0.0 0.0 1.0)
(11 1.0 0.0 0.0)
)
)

jans

多谢!

龙龙仔

jans

完整的程序: 终于弄出来了 嘿嘿黑 多谢了 (defun c:tolerance1()
(setq stm_data(entmake '(
(0 . "TOLERANCE")
(100 . "AcDbEntity")
(8 . "dim")
(100 . "AcDbFcf")
(3 . "STANDARD")
(10 100.0 100.0 0.0)
(1 . "{\\Fgdt;j}%%v{\\Fgdt;n}0.01%%v%%vA%%v%%v")
(210 0.0 0.0 1.0)
(11 1.0 0.0 0.0)
)
))

(entmod stm_data)

)
还有 ,不同的形位公差符号需要初学者先手工标注,然后点特性,找"文字替代" 替换程序中的对应部分" (1 . "{\\Fgdt;j}%%v{\\Fgdt;n}0.01%%v%%vA%%v%%v")"就行了! 呵呵 慢慢学吧!

jans

(defun c:tolerance1()
(setq stm_data(entmake '(
(0 . "TOLERANCE")
(100 . "AcDbEntity")
(8 . "dim")
(100 . "AcDbFcf")
(3 . "STANDARD")
(10 100.0 100.0 0.0)
(1 . "{\\Fgdt;j}%%v{\\Fgdt;n}0.01%%v%%vA%%v%%v")
(210 0.0 0.0 1.0)
(11 1.0 0.0 0.0)
)
))

(entmod stm_data)

)
[glow=255,red,2]文字[/glow][SHADOW=255,blue,1]文字[/SHADOW][SHADOW=255,blue,1](10 100.0 100.0 0.0)[/SHADOW]