我需要插入多个副本
由于计算机死机，我有几个不工作的 autolisps。我似乎丢失了一些文件。它们也是在 90 年代编写的，最后一次更新是在 2004 年之前的某个时间，我目前有 AutoCAD 2013。我不想一次发布整个例程，因为它们很长。这是链接到符号库的第一个例程。我不知道它做什么或如何让它寻找合适的 doslib 。当我运行它时，它会给出“Sm 错误：”。它曾经在网络上运行，所以我将其更改为 C : startup () 并得到相同的消息。之后我不知所措.(defun S::STARTUP () (setvar "cmdecho" 0) (setq piddirpre (findfile "pidsetup.lsp")) (setq piddir (substr piddirpre 1 (- (strlen piddirpre) 12))) (setq pidscale 1.0) ;Scale used for symbols. (setq mirrdef "V") ;This is the default mirror orientation used in PIDSYM ;load DOSLib for either Release 14 or Release 15 (cond ;if DOSLib is already loaded, return true ((not (null dos_about)) T ) ;if AutoCAD Release 14, ((= (atoi (substr (getvar "acadver") 1 2)) 14) (arxload "doslib14") ) ((= (atoi (substr (getvar "acadver") 1 2)) 15) (arxload "doslib2k") ) ((= (atoi (substr (getvar "acadver") 1 2)) 16) (arxload "doslib2004") ) ) (setvar "cmdecho" 1) (princ "\n") (princ "\n") (princ)) (defun sm-error (msg) (setvar "cmdecho" 0) (if oldattdia (setvar "attdia" oldattdia)) (if oldattreq (command "attreq" oldattreq)) (if oldangbase (setvar "angbase" oldangbase)) (if oldlay (setvar "clayer" oldlay)) (if oldosmode (setvar "osmode" oldosmode)) (princ "Sm Error: ") (setq *error* olderror) (setvar "cmdecho" 1) (princ))(setq *error* sm-error)(load "pidsym")(defun dtr (a)(* pi (/ a 180.0)))(defun rtd (a)(/ (* a 180.0) pi))
I mucked about with autolisp in back 2005/6 but I have forgotten most of it and what I did dealt with counting and labelling blocks
页:
[1]