lisp和SCR

lichunling

(defun c:huitu1()
  (setq cm (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (command "_.UNDO" "Group")
  (setq p (list 0 0))
  (setq ename (entnext (car (entsel "请选择要绘制的零件图所在的明细栏行:")))) 
  (repeat 2   
    (setq elist (entget ename))
    (if (= (cdr (assoc 0 elist)) "ATTRIB")
     (setq a (cdr (assoc 1 elist)))   
    )
    (setq ename (EntNext ename))
  )
  (setq f1 (strcat a ".txt"))  ;获得工程数据库文件
  (setq f1 (findfile f1))
  (setq f (open f1 "r")) 
  (setq a (read-line f ))

  (command "script" "new.scr")    ；此句在程序中没有得到执行

 
  (command "insert" a p 1 1 0)
  (setq s (ssget "x"))  ;选择插入的样本图后分解
  (command "explode" s "")
  (setq a (read-line f ))
  (setq bk a)
  (setq a (strcat "("a")"))
  (setq a (read a))
  (setq b (nth 0 a))
  (setq a (read-line f ))
  (setq a (strcat "("a")"))
  (setq a (read a))
  (setq m1 (nth 0 a))
  (setq m2 (nth 1 a))
  (setq m3 (nth 2 a))
  (setq m4 (nth 3 a))
  (setq m5 (nth 4 a))
  (command "insert" bk p "" "" "" m1 m2 m3 m4 m5)  ;插入带属性的图框
  (cond ((= b "a0") (setq p (list 999 55)))   ;当需要插入不同的图框时，把P点置为不同的坐标值
        ((= b "a1") (setq p (list 651 55)))
        ((= b "a2") (setq p (list 404 55)))
        ((= b "a3") (setq p (list 235 50)))
        ((= b "a4") (setq p (list 25 50)))
        (t nil))
  (setq a (read-line f ))
  (setq a (strcat "("a")"))
  (setq a (read a))
  (setq len (length a))
  (setq n1 1)
  (repeat len      
     (setq char-B (nth (- n1 1) a))   ;获得要替换的文字
     (setq char-A (strcat "VS" (itoa n1)))
     (reptext char-A char-B)  ;替换尺寸文本
     (prin1 char-A)
     (prin1 char-B)
     (setq n1(1+ n1))
   )
  (setq a (read-line f ))
  (setq a (strcat "("a")"))
  (setq a (read a))
  (setq b (nth 0 a))
  (while (= b "1") ;设置的判别符号，符号为1绘制明细表，否则不绘制明细表
  (setq bk "mxb")   ;插入明细表表头
  (setq p1 (list (car p) (+ (cadr p) 10)))
  (command "insert" bk p 1 1 0)
  (while (setq a (read-line f ))  ;循环插入明细表表栏，并填写相关内容
     (setq a (strcat "("a")"))
     (setq a (read a))
     (mxb a)
     (setq p1 (list (car p1) (+ 8 (cadr p1))))
   )
   )
  (command "zoom" "a") ;把图形放至最大化
  (command "script" "save.scr")
  (command "script" "close.scr")
  (command "_.UNDO" "End")
  (setvar "cmdecho" cm)
  (close f)  ;关闭数据库文件
 
  (princ)
)

这是一段根据当前总装配图绘制零件图的程序，想把零件图绘制到新建的图纸上，所以中间我尝试着加了一行执行脚本的命令，但这样做，脚本没有被执行，新绘制的零件图和总装图绘在了同一个视口上。请大家帮我看看。脚本如下：

new
...........

脚本单独执行时是正确的

phoenixdjq

如果你的脚本绝对正确的话,那你就必须在new的后面加一个空行(代表回车)

lichunling

你说的是在脚本的new后加空行吗？

 我编了一个简单程序调用了一下我现有的脚本文件，执行结果就是新打开了一张空图，我看结果是对的。但不知为什么，把这句lisp语句加到主程序中就不灵了。

 程序中(command "script" "new.scr")  就没有得到执行

phoenixdjq

把路径写的全一点,试试看

我一般都不用添加搜索路径的方法,容易出错,而且影响程序的运行

 

lichunling

我把方法改了，在LISP程序中调用一个打开新视图的宏，新视图已经可以打开了。但又有一个问题产生了， 原程序中(command "script" "new.scr") 后面的插入图块等绘图动作，没有在新视图中进行，仍然是绘制在了旧的视图中，该怎么样激新视图，让绘图在新视图中进行呢？

Andyhon

Lisp程序调用script之后
其实就等於交出了掌控权
其后的执行即与它无关了

ZZXXQQ

在你打开图的LISP程序中另建立一个ACAD.LSP程序，其开始定义的函数名以S::STARTUP，内宾为要画的图。指定ACAD.LSP为每一个图样均加载，这样就可以在每个新图中画出你指定的图了。但在第一个程序的最后别忘了删去建立的ACAD.LSP。

lichunling

我现在已经有了一个acad.lsp是定义图层和标注形式的，7楼的意思是不是把这两段程序合为一个acad.lsp，不再加载上面的那个程序？照这种方法试了一下，结果不行。需要说明的是，程序需要根据读入文本内，根据内容决定插入的图块。

lilingzhi

把第二段程序保存为一个单独的lisp文件如se.lsp，然后在你的new.scr中增加一句：

appload空格se.lsp空格

就可以了！ 

lichunling

9楼说的第二段程序是不是指 (command "script" "new.scr")  后的那段？但两段程序中共有一个变量a，它是从第一段中根据明细栏属性取得的。程序分成两部分后，需要从程序1把变量a的内容传到程序2，我昨天想采用系统变量users1来实现a的传递，但失败了，系统变量users1只能在一段程序的内部使用，不能实现变量的外部传递。不知各位楼主可有更好的办法？