2013-09-12 QQ群：CAD-LISP(199191568) 聊天记录：群里有提供自动标注任意四边形长度和对角线的lisp吗？

CCarch

34、Pan(471968306)于2013-09-12 16-38-45：
小插件我是自己搞的

CCarch

34、Pan(471968306)于2013-09-12 16-39-01：
[face13.gif]、比如调入图

炫翔

炫翔(2363673534)于2013-09-12 16-39-28：
这个也是小插件

CCarch

34、Pan(471968306)于2013-09-12 16-39-34：
调入什么角码

CCarch

34、Pan(471968306)于2013-09-12 16-39-39：
[face96.gif]、

CCarch

34、Pan(471968306)于2013-09-12 16-39-55：
我还在门口外面！

炫翔

炫翔(2363673534)于2013-09-12 16-40-02：
获取端点 两两组成表 标注

CCarch

34、Pan(471968306)于2013-09-12 16-40-29：
我只会看简单的！

CCarch

34、Pan(471968306)于2013-09-12 16-40-54：
比如把什么图纸代码插入图纸里面

CCarch

GrowingTrees(594786167)于2013-09-12 16-42-36：
求教：怎么把下列坐标改成相对于第一个点的相对坐标

CCarch

GrowingTrees(594786167)于2013-09-12 16-42-46：
[qqimg]{E73D6B6E-2C1E-964E-D1B7-0D59E66344D3}.jpg[/qqimg]

CCarch

GrowingTrees(594786167)于2013-09-12 16-43-25：
上述坐标是通过lisp导出来的多段线

CCarch

34、Pan(471968306)于2013-09-12 16-43-53：
(defun c:EXT (/ flnm fn s n index ents ent txt)
　(setq flnm (getstring "\nFile name:"))
　(setq fn (open flnm "w"))
　(setq s (ssget))
　(setq n (sslength s))
　(setq index ( - n 1))
　(repeat n
　　(setq ents (entget (ssname s index)))
　　(setq index ( - index 1))
　　(setq ent (assoc 0 ents))
　　(if ( = "TEXT"(cdr ent))
　　　　(progn
　　　　　　(setq txt (cdr (assoc 1 ents)))
　　　　　　(write-line txt fn)
　　　　)
　　)
　)
(close fn)

CCarch

仲文玉(411952877)于2013-09-12 16-44-31：
[qqimg]{C27EC044-EFBC-B462-45DF-A2952E46DF27}.gif[/qqimg]

CCarch

34、Pan(471968306)于2013-09-12 16-44-31：
[qqimg]{865914FE-B890-4A13-291F-FCCF97FF4A7E}.jpg[/qqimg]