菜单里怎么实现图块连续插入

xyz2009xyz 发表于 2010-7-13 16:32:00

***IMAGE **敷设图 [敷设图常用]
[气动调节阀,气动调节阀]^C^C-INSERT 气动调节阀;\;;\
 
只能实现单个图块的插入，问问各位大侠怎么改能实现菜单里图块连续插入“气动调节阀”这个块；回车键结束连续插入！
很多图库软件太阳图库好像都能连续插入块，但不知道什么原理。。。。。
:-)

xyz2009xyz 发表于 2010-7-13 16:35:00

(defun c:zi (/ km pt)   (setq km (getstring "\请输入块名："))   (while (setq pt (getpoint "\nPick Insertion point."))     (command "-insert" km "_non" pt "" "" pause)   )   (princ) ) 能连续插入块的程序，但在菜单里面不知道怎么用，
 
[气动调节阀,气动调节阀]^C^C-ZI 气动调节阀;\    -----------这样不能实现！实在没有好的办法，求解！

Andyhon 发表于 2010-7-13 18:06:00

本帖最后由作者于 2010-7-13 20:10:53 编辑 ;; Zi.Lsp (defun zi (km / pt)   ;; (setq km (getstring "\请输入块名："))   (while (setq pt (getpoint "\nPick Insertion point."))     (command "-insert" km "_non" pt "" "" pause)   )   (princ) )
[气动调节阀,气动调节阀]^C^C(if Zi nil (load "Zi"));(ZI "气动调节阀");
or (无尽回圈) [气动调节阀,气动调节阀]*^C^C-INSERT 气动调节阀;\;;\

xyp1964 发表于 2010-7-13 20:05:00

(defun zi (name / pt)   (while (setq pt (getpoint "\nPick Insertion point: "))     (command "-insert" name "_non" pt "" "" pause)   )   (princ) )
[气动调节阀]^C^C^P(zi "气动调节阀")

ZZXXQQ 发表于 2010-7-13 21:02:00

***IMAGE **敷设图 [敷设图常用]
[气动调节阀,气动调节阀]^C^C^P(while (setq pt (getpoint "\nInsert Point :"))+
(command "-INSERT" "气动调节阀" pt "" "" PAUSE)) ^P

masterlong 发表于 2010-7-13 21:58:00

还有一种写法
 
  
***IMAGE **敷设图 [敷设图常用]
[气动调节阀,气动调节阀]*^C^C-INSERT 气动调节阀;\;;\
 
ESC中止

xyz2009xyz 发表于 2010-7-14 08:09:00

谢谢这位仁兄，呵呵:-)，前面加一个*有用可以实现了，感谢！

xyz2009xyz 发表于 2010-7-14 08:18:00

谢谢上面的各位大侠

sjl_fyl 发表于 2024-9-6 12:17:42

{:1_1:}谢谢分享

页: [1]

明经CAD社区's Archiver

菜单里怎么实现图块连续插入