[原创]让图像控件菜单更方便

hao3ren

(defun cmd1 () (command "-insert" "SCSL101"))

呵呵，改成这样好像可以用了

王咣生

将insert定义在lisp函数中:

(defun c:SlideMgr16_Test ( / name data)
  (defun mycmd () (command ".insert"))
 
  ;
  (setq name "Hello")
  (setq data '(("scsl(SCSL101)" "列表信息" "(mycmd)")
        )
 )
  ;
  (LoadDialog_SlideMgr16 "SlideMgr16" data)
  (princ)
)

mcxiangxin

大哥,能不能加二个按钮,可以实现在里面用mslide创建sld文件,同时将常用的零件也保存到目录下去就更方便了

王咣生

我只是尽量作通用一些,我也不是做零件的.

第一楼有源程序,你可以改一下.

etom999

块插入时(有多个属性),怎么避免多次回车(属性插入时先不输入)?

王咣生

用VLISP方法插入块:

(defun test ( / f app doc mod)
  (setq f "C:\\abcdef.dwg")
 
  (setq app (vlax-get-acad-object)
 doc (vla-get-activedocument app)
 mod (vla-get-modelspace doc))
  (vla-insertblock mod (vlax-3d-point 0.0 0.0) f 1.0 1.0 1.0 0.0)
  (princ)
)

这样不提示输入属性.

szx025

ACAD 2007如何做？

王咣生

这是LISP和DCL，一般不存在版本问题

cnks

能否把DCG工具发上来看看？？

王咣生

在Google上很容易搜索到:

http://www.vlisp.com/showthread.php?t=56