[分享]：【实用程序汇总】test000系列！

zbweixkj

xyp1964大师：以下是我打开CAD后所进行的操作记录，我已在支持文件加入你另外两个技术文件。
Regenerating model.

AutoCAD Express Tools Copyright ?2002-2004 Autodesk, Inc.

AutoCAD menu utilities loaded.
***  == AutoCAD 应用程序开发接口XdRx_API For ACAD 2000/2002 Build 40405 ==  ***


***  请访问“晓东的CAD空间 http://www.xdcad.net”获取最新版本 ***

XDsoft loaded completed.*取消*

Command: Specify opposite corner:
Command: '_xdtb_scrmnu

Command:
Command: appload
已成功加载 test065.lsp。


Command:
命令:
Command:
Command:
Command: _3dpoly
Specify start point of polyline: 1,1,2

Specify endpoint of line or [Undo]: 2,3,5

Specify endpoint of line or [Undo]: 3,4,5

Specify endpoint of line or [Close/Undo]:

Command: '_.zoom _e
Command:
Command:
Command:
Command: _properties
Command: *取消*

Command: test065


确定顶点顺序 : 1-正向/2-反向:1


是否输出顶点坐标数据：Y-是/N-否:y

选择对象<退出> :
错误: 参数类型错误: numberp: nil

再麻烦您一下，多谢了。

cansheng

多谢楼主奉献！

xyp1964

最初由 zbweixkj 发布
[B]xyp1964大师：以下是我打开CAD后所进行的操作记录，我已在支持文件加入你另外两个技术文件。
Regenerating model.

AutoCAD Express Tools Copyright ?2002-2004 Autodesk, Inc.

AutoCAD menu utilities loade... [/B]

试试177楼的程序。

xjxing

好帖,不能沉下去,相见恨晚啊!

li809

楼主果然好人一个

MJJ3468

最初由 xyp1964 发布
[B]
好好看看1楼的说明！
下载1楼的xyp_lib程序！ [/B]

是否，您的子程序有更新。
为什么我加载你的另外一个程序时

;;;图块替换
(defun c:test115 ()
  (cmdla0)
  (princ "\n选择旧样块 : ")
  (setq    e1    (usel 0 "INSERT")
    name1 (dxf 2 (entget (car e1)))
  )
  (princ "\n选择新样块 : ")
  (setq    e2    (usel 0 "INSERT")
    name2 (dxf 2 (entget (car e2)))
  )
  (princ "\n窗口选择被替换的块实体范围 : ")
  (setq    ss (ssget (list (cons 0 "INSERT") (cons 2 name1)))
    i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (sub_upd s1 2 name2)
  )
  (cmdla1)
)
由 xyp1964 于 2005年05月23日 15:26 最后编辑
出现
错误: no function definition: USEL
找不到你的函数。（可一楼的我下了啊）

重新下载！by xyp1964[/COLOR]

zbweixkj

谢谢xyp1964大师，我使用你目前最新的程序，已经解决了三维多义线顶点坐标形成坐标数据文件的问题，在此多谢了。

cpu1gmhz

不是说免币的吗?还是要币才能下啊

看看哪儿收币了！
你实在是太穷了。规则好像必须有10个币以上才能下载！但本程序确实免币。by xyp1964[/COLOR]

ydf7332462

可否将多义线 换成相连的线 同样对待而考虑呢

anui_2001

下载不了呀！！！

cumthtr

郁闷

jingfang0312

看不懂！恕我愚昧！

ydf7332462

最初由 xyp1964 发布
[B][php]
;;;过滤层、色、线型实体
(defun c:test()
  (while(not(setq s1(entsel"\选择物体 : "))))
  (setq s1 (car s1)
        e (entget s1)
        la (dxf 8 e)
        co (dxf 62 e)
        lt(dxf 6 e)
        )  
  (if (and la co... [/B]

dxf 好象未定义，是否通用函数？

所有“不认识的东东”都在通用函数里。by xyp1964[/COLOR]

amengsq

为什么我下载不了阿
请版主给我发一个 a2000126@126.com

baudy

一看就知是好东西，这么高的人气。