查找已加载的多线样式的简单小程序

onej

；查找已加载的多线样式的简单小程序 (setq dicts (dictsearch (nameobjdect) "ACAD_MLINESTYLE"))
(princ "\n已加载的多线样式")
(while (setq msty (assoc 3 dicts))
(princ "\n" (princ (cdr msty))
(setq dicts (subst '(123 . 123) msty dicts));这里不太明白。
)

meflying

下次抄的时候小心点


(nameobjdect)->(namedobjdict)


(princ "\n" (princ (cdr msty))->(princ "\n") (princ (cdr msty))


你不明白的那句是这样的：


如果一个列表：(setq lst '((1 . 2) (2 . 3) (2 . 4) (1 . 4) (2 . 5)))


你使用(assoc 2 lst)将只能得到'(2 . 3),如果想要得到后面那些以2开头的表，这样就得不到，这个程序就是把这样一个表换成别的，这样原来第二个以2开头的子表就变成第一个了，就可以用(assoc 2 lst)取到了，依次类推，可以取得后面所有的。。。


其实这个(123 . 123)是随便的，只要不是以3开头的点表就可以。。。


取这样的点表中的内容还有很多方法，你可以搜索一下关于PLINE取顶点的方法

BDYCAD

是把(123 . 123)这个表替换dicts变量的3号DXF组码啊.


                                                                                                                                                                 你只给一点点代码至於程序为什么要替换还是你自己知哦. 呵呵

onej

(123 . 123)，我翻遍都没搞懂他是什么DXF组码。