请教

nxxi86

用AutoCADlisp编写一个lsp程序，要求加载lsp文件后，通过command命令自动将几个画好的CAD图块文件插入到当前窗口中。看一下我写的lsp代码：
(defun c:sj (/ p1 p2 p3 p4 a b n mc)   
   (setq p1 (getpoint "\n p1:"))
   (setq fp(open "d:/cs.txt" "r"))
   (setq a 70)
   (setq b -2)
   (setq p2 (list (+ (car p1) a) (cadr p1)))
   (setq p3 (list (- (car p1) 5) (+ (cadr p1) b)))
   (setq p4 (list (+ (car p1) a) (+ (cadr p1) b)))
   (setq mc(read-line fp))
   (setq n(atoi(read-line fp)))
   (command "text" p1 1.5 0 mc)
   (command "line" p3 p4 "")
   (command "style" "standard" "华文新魏" 10 20 0 "n" "n")
   (setq mc(read-line fp))
   (command "xref" "attach"  mc P4 "1" "1" "0")
   (setq mc(read-line fp))
   (command "xref" "attach"  mc P4 "1" "1" "0")
   (command "zoom" "e")
)
以上的代码是一部分，没有插入图块的代码，希望高手指点迷津！谢谢！

wanghouyu

这是用什么语言编写的

nxxi86

原帖由 wanghouyu 于 2008-5-12 20:02 发表

                               
登录/注册后可看大图

这是用什么语言编写的

AutoCADlisp

nxxi86

提示：1 循环处理插入几个图
2 在以上基础，实现图的位置 不重叠（对应图块的位置不重叠）