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

xyz2009xyz

***IMAGE
**敷设图
[敷设图常用]

[气动调节阀,气动调节阀]^C^C-INSERT 气动调节阀;\;;\

 

只能实现单个图块的插入，问问各位大侠怎么改能实现菜单里图块连续插入“气动调节阀”这个块；回车键结束连续插入！

很多图库软件太阳图库好像都能连续插入块，但不知道什么原理。。。。。

:-)

xyz2009xyz

(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

;; 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

(defun zi (name / pt)
  (while (setq pt (getpoint "\nPick Insertion point: "))
    (command "-insert" name "_non" pt "" "" pause)
  )
  (princ)
)

[气动调节阀]^C^C^P(zi "气动调节阀")

ZZXXQQ

 

***IMAGE
**敷设图
[敷设图常用]

[气动调节阀,气动调节阀]^C^C^P(while (setq pt (getpoint "\nInsert Point :"))+

(command "-INSERT" "气动调节阀" pt "" "" PAUSE)) ^P

masterlong

还有一种写法

 

 

***IMAGE
**敷设图
[敷设图常用]

[气动调节阀,气动调节阀]*^C^C-INSERT 气动调节阀;\;;\

 

ESC中止

xyz2009xyz

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

xyz2009xyz

谢谢上面的各位大侠

sjl_fyl

谢谢分享