[LISP]先谢谢 斑竹能抽点时间 给予解答几个小问题！！

ndian

如何用lisp实现？


请问：如何能在CAD中查出重叠的点 线 和 注记 ?





再问        ： 如何一条线（p1-->p2）改变成为（p2->p1），也就是改变起点和末点?


再次问：如何知道成果*.dwg是R14版本


先谢谢 斑竹能抽点时间 给予解答！！

meflying

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=10613 2. (defun c:test( / ent ents dxf10)
(setq ent (car (entsel)))
(setq ents (entget ent))
(setq dxf10 (cdr (assoc 10 ents)))
(setq ents (subst (cons 10 (cdr (assoc 11 ents))) (assoc 10 ents) ents))
(setq ents (subst (cons 11 dxf10) (assoc 11 ents) ents))
(entmod ents)
(princ)
)

ndian

谢谢 斑竹 每每看你的回贴！心理非常高兴！！！


再次问：如何知道成果*.dwg是R14版本 ？？？

无痕

acadver

meflying

这个好象只是指当前使用的CAD的版本，并不是指文档的版本。。。打开旧版本时有提示是什么版本的，我想就应该有地方能判断，但找不到直接的方法，不知是否需要去了解DWG文本的格式了

ndian

因为我们做的成果都要求r14版本的 所以 用这个Dwg Express就ok! Dwg Express 是一款超强的 CAD 图形转换工具，它除了支持 AutoCAD R10 至 R16 (2004) 不同版本的 DWG 和 DXF 文件之间的相互转换还有以下特色功能：转换具有密码保护的 AutoCAD 2004 文件，生成供预览的位图，转换文件目录结构，文件批量转换，可一次性转换同一目录中的 DWG 和 DXF 文件，同时转换不同驱动器和计算机中的 CAD 图形文件。 下载：http://www.onlinedown.net/soft/24059.htm 谢谢 大家

龙龙仔

;ublished by Jon Fleming:
;;(setq dwgname (getfiled "選取dwg檔案" "" "dwg" 0))
;;(acadver dwgname)
;;自已加version_list
(defun acadver (dwgname / version_list version ch fp)
(setq version_list
'(("MC0.0 " . "1.1")
("AC1.2 " . "1.2")
("AC1.4 " . "1.4")
("AC1.50" . "2.0")
("AC2.10" . "2.10")
("AC2.20" . "Internal version 2.20")
("AC2.21" . "Internal version 2.21")
("AC2.22" . "Internal version 2.22")
("AC1001" . "Internal version pre-2.5")
("AC1002" . "2.5")
("AC1003" . "2.6")
("AC1004" . "R9")
("AC1005" . "Internal pre-R10")
("AC1006" . "R10")
("AC1007" . "Internal pre-release R11")
("AC1008" . "Internal pre-release R11")
("AC1009" . "R11/12")
("AC1010" . "Early internal R13")
("AC1011" . "Late internal R13")
("AC1012" . "R13")
("AC1013" . "R14 Pre-Release")
("AC1014" . "R14.0, 14.01")
("AC1500" . "2000 Pre-Release")
("AC1015" . "2000/2000i/2002")
("AC1018" . "2004")
)
)
(setq version "")
(cond
((null (findfile dwgname)) "Cannot find Drawing")
((null (setq fp (open dwgname "r"))) "Cannot read Drawing")
(t
(repeat 6
(setq ch (read-char fp))
(setq version (strcat version (chr ch)))
)
(close fp)
(cdr (assoc version version_list))
)
)
)

e2002

为什么一点要保存为R14版的?
这种要求早已不合时宜了.