把对象插入到指定坐标的位置

dpec1982

如何将图片中红圈中的对象图例加入到指定坐标的位置中，谢谢，新手，希望各位大侠指点。

newbuser

2. entmake生成普通块
   
3. (defun emkblk (ss pt name / i)
   
4.   (entmake (list '(0 . "block") (cons 2 name) '(70 . 0) (cons 10 pt)))
   
5.   (repeat (setq i (sslength ss))    (entmake (cdr (entget (ssname ss (setq i (1- i))))))  )
   
6.   (entmake '((0 . "ENDBLK")))
   
7.   (command "_.erase" ss "")
   
8.   (entmake (list '(0 . "INSERT") (cons 2 name) (cons 10 pt)))
   
9. )
   
10.   
    
11. entmake插入普通块
    
12.   (entmake (list '(0 . "INSERT") (cons 2 name) (cons 10 pt)))
    
13. 
    
14. entmake生成无名块
    
15. (defun emkunameblk (ss pt / i name)
    
16.   (entmake (list '(0 . "block") '(2 . "*U") '(70 . 1) (cons 10 pt)))
    
17.   (repeat (setq i (sslength ss))    (entmake (cdr (entget (ssname ss (setq i (1- i))))))  )
    
18.   (setq name (entmake '((0 . "ENDBLK"))))
    
19.   (command "_.erase" ss "")
    
20.   (entmake (list '(0 . "INSERT") (cons 2 name) (cons 10 pt)))
    
21.   name
    
22. )

entmake生成普通块<br /> (defun emkblk (ss pt name / i)<br />   (entmake (list '(0 . "block") (cons 2 name) '(70 . 0) (cons 10 pt)))<br />   (repeat (setq i (sslength ss))    (entmake (cdr (entget (ssname ss (setq i (1- i))))))  )<br />   (entmake '((0 . "ENDBLK")))<br />   (command "_.erase" ss "")<br />   (entmake (list '(0 . "INSERT") (cons 2 name) (cons 10 pt)))<br /> )<br />   <br /> entmake插入普通块<br />   (entmake (list '(0 . "INSERT") (cons 2 name) (cons 10 pt)))<br /> <br /> entmake生成无名块<br /> (defun emkunameblk (ss pt / i name)<br />   (entmake (list '(0 . "block") '(2 . "*U") '(70 . 1) (cons 10 pt)))<br />   (repeat (setq i (sslength ss))    (entmake (cdr (entget (ssname ss (setq i (1- i))))))  )<br />   (setq name (entmake '((0 . "ENDBLK"))))<br />   (command "_.erase" ss "")<br />   (entmake (list '(0 . "INSERT") (cons 2 name) (cons 10 pt)))<br />   name<br /> )

希望这三个函数能够帮到你。

dpec1982

首先感谢这位大侠，但我看不懂啊，我是用C#做的，能帮我转换一下吗，我才学2天