[LISP]

zhouyxcs

怎样用LISP来限制某些CAD功能?例如:设置好字体、标注式样、图层和线型后不容许再设置其他的字体、标注式样、图层和线型。

alin

Attach DWS file to your drawing. Here is a sample from Internet:

2.   ;;;Michael Puckett
3. (defun cdrs (key lst / pair rtn)
4. (while (setq pair (assoc key lst))
5. (setq rtn (cons (cdr pair) rtn)
6. lst (cdr (member pair lst))))
7. (reverse rtn));;;R. Robert Bell
8. (defun AddDWS (FileN / DictN eDict XRInt)
9. (setq DictN "AcStStandard"
10. eDict (cond ((cdr (assoc -1 (dictsearch (namedobjdict) DictN))))
11. ((dictadd (namedobjdict)
12. DictN
13. (entmakex '((0 . "DICTIONARY") (100 .
14. "AcDbDictionary")))))))
15. (if (setq XRInt (cdrs 3 (entget eDict)))
16. (setq XRInt (1+ (apply 'max (mapcar 'atoi XRInt))))
17. (setq XRInt 0))
18. (dictadd eDict
19. (itoa XRInt)
20. (entmakex
21. (list '(0 . "XRECORD") '(100 . "AcDbXrecord") (cons 1 FileN)))));;Usage: (AddDWS "c:\\program files\\AutoCAD 2004\\Sample\\MKMStd.dws")

  ;;;Michael Puckett (defun cdrs (key lst / pair rtn) (while (setq pair (assoc key lst)) (setq rtn (cons (cdr pair) rtn) lst (cdr (member pair lst)))) (reverse rtn));;;R. Robert Bell (defun AddDWS (FileN / DictN eDict XRInt) (setq DictN "AcStStandard" eDict (cond ((cdr (assoc -1 (dictsearch (namedobjdict) DictN)))) ((dictadd (namedobjdict) DictN (entmakex '((0 . "DICTIONARY") (100 . "AcDbDictionary"))))))) (if (setq XRInt (cdrs 3 (entget eDict))) (setq XRInt (1+ (apply 'max (mapcar 'atoi XRInt)))) (setq XRInt 0)) (dictadd eDict (itoa XRInt) (entmakex (list '(0 . "XRECORD") '(100 . "AcDbXrecord") (cons 1 FileN)))));;Usage: (AddDWS "c:\\program files\\AutoCAD 2004\\Sample\\MKMStd.dws")