关于一个点的问题

xxxkkk331

我想循环插入一个块，当n=5时，插入点为（0,0,0） 当n=6时，插入点为（1000,0,0）当n=7时。插入点为（2000,0,0），以此类推，请教各位大神如何实现？？？？？？？？？？？

xyp1964

1. (defun c:tt ()
   
2.   (setq int (Uint t "" "数值" int)
   
3.         pt  (if (>= n 5)
   
4.               (list (* (- n 5) 1000) 0)
   
5.             )
   
6.   )
   
7.   (if pt
   
8.     (command "insert" "aaa" pt 1 1 0);aaa为图块名称
   
9.   )
   
10.   (princ)
    
11. )

(defun c:tt ()<br />   (setq int (Uint t "" "数值" int)<br />         pt  (if (>= n 5)<br />               (list (* (- n 5) 1000) 0)<br />             )<br />   )<br />   (if pt<br />     (command "insert" "aaa" pt 1 1 0);aaa为图块名称<br />   )<br />   (princ)<br /> )

xxxkkk331

xyp1964 发表于 2018-1-5 20:34

unit 是什么 我并没有这个函数啊

Andyhon

unit 是个自定义函数
论坛内引用甚多

ygp820601

n是什么？块的个数吗？