图形属性能不能用lisp自动填写！

sailorcwx

这个东西能不能用lisp自动填写

龙龙仔

当然可以,但会有版本问题,不同版本方法不同

sailorcwx

应该怎么写呢?给个2002的参考一下

龙龙仔

3. ;;;DWGPROPS(图档性质)是以"XRECORD"资料储存   
4. (defun TST1 (NOS WO / A)
5.   (if (setq A (dictsearch (namedobjdict) "DWGPROPS"))
6.     (progn
7.       (print A)
8.       (dictremove (namedobjdict) "DWGPROPS")
9.       (setq A (subst (cons NOS WO) (assoc NOS A) A))
10.       (dictadd (namedobjdict) "DWGPROPS" (entmakex A))
11.       (print (dictsearch (namedobjdict) "DWGPROPS"))
12.     )
13.     (progn
14.       (setq A '((0 . "XRECORD")
15.   (100 . "AcDbXrecord")
16.   (1 . "DWGPROPS COOKIE")
17.   (2 . "")
18.   (3 . "")
19.   (4 . "")
20.   (6 . "")
21.   (7 . "")
22.   (8 . "")
23.   (9 . "")
24.   (300 . "=")
25.   (301 . "=")
26.   (302 . "=")
27.   (303 . "=")
28.   (304 . "=")
29.   (305 . "=")
30.   (306 . "=")
31.   (307 . "=")
32.   (308 . "=")
33.                 (40 . 0.000886111)
34.                 (41 . 2.4524e+006)
35.                 (42 . 2.4524e+006)
36.                 (1 . "")
37.                 (90 . 2)
38.   )
39.       )
40.       (dictadd (namedobjdict) "DWGPROPS" (entmakex A))
41.       (TST1 NOS WO)
42.     )
43.   )
44.   (princ)
45. )
46. (prompt "\ntype (TST1 301 "t=ttttt") for change")
47. (prompt "\n第1个参数为群组码,第2个参数为修改内容")
48. (princ)

;;;DWGPROPS(图档性质)是以"XRECORD"资料储存    (defun TST1 (NOS WO / A)   (if (setq A (dictsearch (namedobjdict) "DWGPROPS"))     (progn       (print A)       (dictremove (namedobjdict) "DWGPROPS")       (setq A (subst (cons NOS WO) (assoc NOS A) A))       (dictadd (namedobjdict) "DWGPROPS" (entmakex A))       (print (dictsearch (namedobjdict) "DWGPROPS"))     )     (progn       (setq A '((0 . "XRECORD")   (100 . "AcDbXrecord")   (1 . "DWGPROPS COOKIE")   (2 . "")   (3 . "")   (4 . "")   (6 . "")   (7 . "")   (8 . "")   (9 . "")   (300 . "=")   (301 . "=")   (302 . "=")   (303 . "=")   (304 . "=")   (305 . "=")   (306 . "=")   (307 . "=")   (308 . "=")                 (40 . 0.000886111)                 (41 . 2.4524e+006)                 (42 . 2.4524e+006)                 (1 . "")                 (90 . 2)   )       )       (dictadd (namedobjdict) "DWGPROPS" (entmakex A))       (TST1 NOS WO)     )   )   (princ) ) (prompt "\ntype (TST1 301 "t=ttttt") for change") (prompt "\n第1个参数为群组码,第2个参数为修改内容") (princ)

sailorcwx

OK，谢谢，我试试。