好长时间没发铁了，现在发一个铁，

wmz

2. ;;;制作命名为HG1.dwg的图存入支持搜索文件路径内，加入下面两行代码(如果块HG1未定义的话)：
   
3. ;;(command "INSERT" "HG1" '(0 0 0) 1 1 0)(command "erase" (entlast) "")试试看。
   
4. (defun C:aa (/ pt1 pt2)
   
5.    (command "INSERT" "HG1" '(0 0 0) 1 1 0)
   
6.     (command "erase" (entlast) "")
   
7.   (setq pt1 (getpoint "\n指定第一点:"))
   
8.   (entmake (list '(0 . "INSERT") (cons 2 "hg1") (cons 10 pt1)))
   
9.   (while (setq pt2 (getpoint pt1 "\n指定下一点:"))
   
10.     (entmake (list '(0 . "LINE") (cons 10 pt1) (cons 11 pt2)))
    
11.     (entmake (list '(0 . "INSERT") (cons 2 "hg1") (cons 10 pt2)))
    
12.     (setq pt1 pt2)
    
13.   )
    
14.   (princ)
    
15. )

;;;制作命名为HG1.dwg的图存入支持搜索文件路径内，加入下面两行代码(如果块HG1未定义的话)：<br /> ;;(command "INSERT" "HG1" '(0 0 0) 1 1 0)(command "erase" (entlast) "")试试看。<br /> (defun C:aa (/ pt1 pt2)<br />    (command "INSERT" "HG1" '(0 0 0) 1 1 0)<br />     (command "erase" (entlast) "")<br />   (setq pt1 (getpoint "\n指定第一点:"))<br />   (entmake (list '(0 . "INSERT") (cons 2 "hg1") (cons 10 pt1)))<br />   (while (setq pt2 (getpoint pt1 "\n指定下一点:"))<br />     (entmake (list '(0 . "LINE") (cons 10 pt1) (cons 11 pt2)))<br />     (entmake (list '(0 . "INSERT") (cons 2 "hg1") (cons 10 pt2)))<br />     (setq pt1 pt2)<br />   )<br />   (princ)<br /> )

bai2000

顶上去，能执行完后打散块就好，求大神修改

357785513

高实在是高