[求助] 连续插入块的问题

sf117

我想连续插入同一个块，如LISP里面，我想要实现插入块之后又自动循环插入块，应该怎么修改一下代码呀？先谢过各位大侠！！！

(defun c:in()
  (command "layer" "m" "j" "")
  (command "insert" "w-10.dwg" "s" "1" "r" "0" "")
  )

phoenixdjq

你要插到什么地方呀

你要用到循环，因为你要选择n个插入点

你提的要求不是很清楚，把你想插入的具体要求写清楚一点

ZZXXQQ

试试：

(defun c:in()
 (command "layer" "m" "j" "")
 (command "-insert" "w-10.dwg" "0,0" "1" "" "0")
 (SETQ SS (ENTLAST))
 (WHILE (SETQ PT (GETPOINT "\nInsert Point : 插入点 :"))
  (COMMAND "COPY" SS "0,0" PT)
 )
 (COMMAND "ERASE" SS "")
 (PRINC)
)

sf117

不好意思之前没有说清楚，还有斑竹 ZZXXQQ 的我试了一下也不大可以！

我现在是在做地形的内业，就是要把很多 路灯 的块插入到图形里，但是插入点是要自己动手来选择的，当我插入一个块以后又自动重复循环插入块的命令，就是比例和旋转角度都是固定的，插入点手动选择！不知道这样应该怎么实现？？？

谢谢两位的支持！

sf117

我刚刚又自己试了一下，可以满足我目前部分的要求：

(defun c:in()
  (command "layer" "m" "j" "")

  (while 1
  (command "-insert" "w-10.dwg" "s" "1" "r" "0" (getpoint))
  )
  )

这样自动循环重复的插入块，但是我想如果角度也让用户来选择就不可以了，因为我插入电线杆是需要人工选择的：(command "-insert" "w-10.dwg" "s" "1" (getpoint) “r” (getangle)) 这样试了不可以，再请各位大侠来指点指点！

这些小的细节难了我好久！

sailorcwx

用pause就可以了

  (command "-insert" "w-10.dwg" "s" "1" pause pause)

sf117

非常感谢 sailorcwx 这位仁兄，又教了我一招。

3Q！！！

nyf305921

 没太看懂，w-10.dwg是外部的块文件吗？

如果要插入任意一个块是不是要改成其他的名字啊？

Andyhon

 

;; 等待 User 给出块文件名 

(command "-insert" pause "0,0" "1" "" "0")  

就一小卒

前提是把要插入的块放在文件的搜索路径下。或者放在作图的目录下也可以

(setq a (getstring "\n请输入要插入的块名"))
(setq d (getpoint "\n请输入块的插入点"))
(while d
  (command "-insert" a d 1 1 0 "")
  (setq d (getpoint "\n请输入块的插入点"))
  )