action_tile不能用command来实现insert哇？？？

bingshuier

autolisp想实现点击DCL的button，实现插入块INSERT的命令，然后插入的块随着鼠标，点击左键及插入块完成     ,但是好像action_tile 不能用command命令来实现Insert,有没程序实现类似的功能呢？   插入的块的是另外一个DWG文件！

ZZXXQQ

退出对话框就能用command了。

ivde

vla-insertblock

bingshuier

ZZXXQQ 发表于 2015-6-2 13:19
退出对话框就能用command了。

没懂什么意思呢？有类似的程序吗？

ZZXXQQ

bingshuier 发表于 2015-6-2 21:56
没懂什么意思呢？有类似的程序吗？

论坛有许多。找找看。

llsheng_73

1. (action_tile "burron" "(command \"insert\" ......)")

(action_tile "burron" "(command \"insert\" ......)")

把command里边的"全部改为\"，另外不能进行交互，也就是说COMMAND命令后边的所有选项需要写完整并且正确
如果需要在屏幕上指定插入点，比例，旋转等，刚需要在COMMAND之前加上(done_dialog 0)先退出对话框

ivde

Help
A user cannot make an interactive selection while a dialog box is active. If you want the user to make a selection from the graphics screen, you must hide your dialog box and then restore it. Hiding the box is the same as ending it with done_dialog, except your callback function must use the done_dialog status argument to indicate that the dialog box is hidden—as opposed to ended or canceled. Set status to an application-defined value.

在线翻译

一个对话框处于活动状态时，用户就不能互动的选择。如果您希望用户从图形屏幕中进行选择，你必须隐藏您的对话框，然后恢复它。隐藏框结束与 done_dialog 相同，除了您的回调函数必须使用 done_dialog status 参数指示对话框隐藏 — — 相对于结束或取消。将状态设置为应用程序定义的值。

bingshuier

llsheng_73 发表于 2015-6-4 11:03
把command里边的"全部改为\"，另外不能进行交互，也就是说COMMAND命令后边的所有选项需要写完整并且正确 ...

2. (defun c:abc()
   
3.   (setq pt (getpoint "插入点"))
   
4.   (setq dcl_id (load_dialog "C:\\Users\\Administrator\\Desktop\\lisp\\练习用\\练习.dcl"))
   
5.   (new_dialog "abc" dcl_id)
   
6.   (action_tile "accept" "(done_dialog 1)")
   
7.   (action_tile "cancel" "(done_dialog 0)")
   
8.   (action_tile "h100" "(done_dialog 0)(h100)")
   
9.   (start_dialog)
   
10.   )
    
11. (defun h100()
    
12.   (command "insert" "h100" pt 1 1 1 0)
    
13.   )
    
14. 这个是一部分的，但是就是不行呢，不晓得那里有问题呢？
    

(defun c:abc()<br />   (setq pt (getpoint "插入点"))<br />   (setq dcl_id (load_dialog "C:\\Users\\Administrator\\Desktop\\lisp\\练习用\\练习.dcl"))<br />   (new_dialog "abc" dcl_id)<br />   (action_tile "accept" "(done_dialog 1)")<br />   (action_tile "cancel" "(done_dialog 0)")<br />   (action_tile "h100" "(done_dialog 0)(h100)")<br />   (start_dialog)<br />   )<br /> (defun h100()<br />   (command "insert" "h100" pt 1 1 1 0)<br />   )<br /> 这个是一部分的，但是就是不行呢，不晓得那里有问题呢？<br />

bingshuier

ivde 发表于 2015-6-2 14:18
vla-insertblock

2. (defun c:abc()
   
3.   (setq pt (getpoint "插入点:"))
   
4.   (setq dcl_id (load_dialog "C:\\Users\\Administrator\\Desktop\\lisp\\练习用\\练习.dcl"))
   
5.   (new_dialog "abc" dcl_id)
   
6.   (action_tile "accept" "(done_dialog 1)")
   
7.   (action_tile "cancel" "(done_dialog 0)")
   
8.   (action_tile "h10" "(done_dialog 0)(h100)")
   
9.   (start_dialog)
   
10.   )
    
11. (defun h100()
    
12.   (vl-load-com)
    
13.   (setq aa (vlax-get-acad-object)
    
14.         bb (vla-get-ActiveDocument aa)
    
15.         cc (vla-get-ModelSpace bb))
    
16.   (vla-insertblock cc pt "h100" 1 1 1 0)
    
17.   (vla-ZoomExtents AcadObject)
    
18.   )
    
19. 就是不知道那里没对呢 ，没有反映！！

(defun c:abc()<br />   (setq pt (getpoint "插入点:"))<br />   (setq dcl_id (load_dialog "C:\\Users\\Administrator\\Desktop\\lisp\\练习用\\练习.dcl"))<br />   (new_dialog "abc" dcl_id)<br />   (action_tile "accept" "(done_dialog 1)")<br />   (action_tile "cancel" "(done_dialog 0)")<br />   (action_tile "h10" "(done_dialog 0)(h100)")<br />   (start_dialog)<br />   )<br /> (defun h100()<br />   (vl-load-com)<br />   (setq aa (vlax-get-acad-object)<br />         bb (vla-get-ActiveDocument aa)<br />         cc (vla-get-ModelSpace bb))<br />   (vla-insertblock cc pt "h100" 1 1 1 0)<br />   (vla-ZoomExtents AcadObject)<br />   )<br /> 就是不知道那里没对呢 ，没有反映！！