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

ndian · 发表于 2004-3-21 02:33:00

如何用lisp实现？
请问：如何能在CAD中查出重叠的点线和注记 ?
再问：如何一条线（p1-->p2）改变成为（p2->p1），也就是改变起点和末点?
再次问：如何知道成果*.dwg是R14版本
先谢谢斑竹能抽点时间给予解答！！

meflying · 发表于 2004-3-21 08:50:00

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 · 发表于 2004-3-22 19:24:00

谢谢斑竹每每看你的回贴！心理非常高兴！！！
再次问：如何知道成果*.dwg是R14版本？？？

无痕 · 发表于 2004-3-22 21:42:00

acadver

meflying · 发表于 2004-3-22 22:18:00

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

ndian · 发表于 2004-3-23 14:16:00

因为我们做的成果都要求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谢谢大家

龙龙仔 · 发表于 2004-3-24 08:48:00

;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))
   )
   )
)